A
Bonsoir,
j'ai tenté de créer un système de trajet et voici ma class:
Le code est très moche.
Mais je n'ai vraiment pas l'air de bien m'y prendre de plus il ne marche pas dans les cases. Je n'ai aucune erreur et rien ne se passe. Il ne marche qu'avec des composants.
Pourriez-vous m'aider à trouver un bonne algo ?
j'ai tenté de créer un système de trajet et voici ma class:
Public Class TrajetManager
'Trajet simple : "[X;Y] gauche"
'Trajet passe : "[X;Y] gauche passe"
'Trajet sans action sur la map "[X;Y] gauche passe"
'# c'est pour les commantaire, la ligne sera ignoré
'les coordonnées doivent être composés comme ceci : "[X;Y]" si il y a un espace ou autre la ligne est ignoré
'pas de majuscule
Sub trajetstart(ByVal trajetlist As List(Of String), ByVal map As String, ByVal casewalk As List(Of UInteger), ByVal bot_libre As Boolean, ByVal Bot_Harvesting As Boolean)
If FormBot.Bot_Trajet = True Then
Dim move As New Move
For i = 0 To trajetlist.Count - 1
If Not trajetlist(i) = "" Or trajetlist(i).Contains("#") Then 'Commantaire on ligne vide
'Trajet simple, GAUCHE/DROITE/HAUT/BAS
If Bot_Harvesting = False And bot_libre = True Then
If trajetlist(i) = map & " gauche" Then move.gauche(casewalk)
If trajetlist(i) = map & " droite" Then move.droite(casewalk)
If trajetlist(i) = map & " haut" Then move.haut(casewalk)
If trajetlist(i) = map & " bas" Then move.bas(casewalk)
End If
'Trajet passe
If Bot_Harvesting = False Then
If trajetlist(i) = map & " gauche passe" Then move.gauche(casewalk)
If trajetlist(i) = map & " droite passe" Then move.droite(casewalk)
If trajetlist(i) = map & " haut passe" Then move.haut(casewalk)
If trajetlist(i) = map & " bas passe" Then move.bas(casewalk)
End If
End If
Next
End If
End Sub
End Class
'Trajet simple : "[X;Y] gauche"
'Trajet passe : "[X;Y] gauche passe"
'Trajet sans action sur la map "[X;Y] gauche passe"
'# c'est pour les commantaire, la ligne sera ignoré
'les coordonnées doivent être composés comme ceci : "[X;Y]" si il y a un espace ou autre la ligne est ignoré
'pas de majuscule
Sub trajetstart(ByVal trajetlist As List(Of String), ByVal map As String, ByVal casewalk As List(Of UInteger), ByVal bot_libre As Boolean, ByVal Bot_Harvesting As Boolean)
If FormBot.Bot_Trajet = True Then
Dim move As New Move
For i = 0 To trajetlist.Count - 1
If Not trajetlist(i) = "" Or trajetlist(i).Contains("#") Then 'Commantaire on ligne vide
'Trajet simple, GAUCHE/DROITE/HAUT/BAS
If Bot_Harvesting = False And bot_libre = True Then
If trajetlist(i) = map & " gauche" Then move.gauche(casewalk)
If trajetlist(i) = map & " droite" Then move.droite(casewalk)
If trajetlist(i) = map & " haut" Then move.haut(casewalk)
If trajetlist(i) = map & " bas" Then move.bas(casewalk)
End If
'Trajet passe
If Bot_Harvesting = False Then
If trajetlist(i) = map & " gauche passe" Then move.gauche(casewalk)
If trajetlist(i) = map & " droite passe" Then move.droite(casewalk)
If trajetlist(i) = map & " haut passe" Then move.haut(casewalk)
If trajetlist(i) = map & " bas passe" Then move.bas(casewalk)
End If
End If
Next
End If
End Sub
End Class
Mais je n'ai vraiment pas l'air de bien m'y prendre de plus il ne marche pas dans les cases. Je n'ai aucune erreur et rien ne se passe. Il ne marche qu'avec des composants.
Pourriez-vous m'aider à trouver un bonne algo ?