[Dúvida] avaliação de sistema

por jean igor Sáb 24 Ago 2013, 18:00

Título: avaliação de sistema

Engine: Eclipse Origins

Versão da Engine: Eclipse 2.6

Dúvida: tipo eu vi o sistema do thales de player atravessar player
aki: http://www.mmorpgbr.com/t6464-player-atravessando-player
e eu quero que esse sistema fucione quando a check box estiver ligada mas ai eu testei e não funfou o player não atravessa outro player T.T alguem me diz o que fazer ?

aki o meus sistema

Código:: If frmMain.chkAtravessarplayer.Value = YES Then ' Check to see if a player is already on that tile ' For i = 1 To Player_HighIndex 'if IsPlaying(i) And GetPlayerMap(i) = ' GetPlayerMap(MyIndex) Then ' If GetPlayerX(i) = x Then ' If GetPlayerY(i) = y Then ' CheckDirection = True ' Exit Function ' End If ' End If ' End If ' Next i End If ' Check to see if a player is already on that tile For i = 1 To Player_HighIndex if IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then If GetPlayerX(i) = x Then If GetPlayerY(i) = y Then CheckDirection = True Exit Function End If End If End If Next i

bom eu não testei mas queria saber se pega :s o Warlow disse que eu tinha que tirar os ' mas tambem quero sua opinião

por DragonicK Sáb 24 Ago 2013, 18:29

If frmMain.chkAtravessarplayer.Value = true Then
' Check to see if a player is already on that tile
' For i = 1 To Player_HighIndex
'if IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
' If GetPlayerX(i) = x Then
' If GetPlayerY(i) = y Then
' CheckDirection = True
' Exit Function
' End If
' End If
' End If
' Next i

Else

' Check to see if a player is already on that tile
For i = 1 To Player_HighIndex
if IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then
If GetPlayerX(i) = x Then
If GetPlayerY(i) = y Then
CheckDirection = True
Exit Function
End If
End If
End If
Next i

End if

por guifs Sáb 24 Ago 2013, 19:33

esse sistema seu não tem lógica,e se uma pessoa quer passar a a outra não ? imagina o bug ?
Não aconselho a fazer isso, ou passa ou n passa

por Eduardo Seg 09 Set 2013, 09:53

Não séria melhor fazer:

Código:: If not frmMain.chkAtravessarplayer.Value = 1 Then For i = 1 To Player_HighIndex if IsPlaying(i) And GetPlayerMap(i) = GetPlayerMap(MyIndex) Then If GetPlayerX(i) = x Then If GetPlayerY(i) = y Then CheckDirection = True Exit Function End If End If End If Next i end if

por Conteúdo patrocinado

[Dúvida] avaliação de sistema

[Dúvida] avaliação de sistema

Re: [Dúvida] avaliação de sistema

Re: [Dúvida] avaliação de sistema

Re: [Dúvida] avaliação de sistema

Re: [Dúvida] avaliação de sistema