Hallo liebe Community,
In diesem Tutorial möchte ich euch erklären und zeigen, wie Ihr einen
Mafiabot in
Visual Basic “Programmieren“ könnt.
Ich werde nur die nötigen Sourcecodes bereit stellen, wie Ihr eine Verbindung mit dem Bot aufbaut solltet Ihr dann schon selber wissen.
Als erstes gehen wir Chronologisch vor:
- Anmelden
- Outen
- Voten
- Neue Runde starten
Um sich anzumelden muss man nur im
PHP-Code:
KC.SubscribeEvent.ChannelMessage
Event
schauen ob eine Nachricht folgende Text enthält:
PHP-Code:
Eine _neue Runde
Als Sourcecode müsste dies dann wie folgt aussehen.
PHP-Code:
If Message.Contains("Eine _neue Runde") Then
KC.SendToChannel("/p James: Ich bin dabei.")
End If
Nun zum Outen, dies ist eigentlich die schwierigste Sache. Aber man kann es auch ganz einfach lösen.
Ihr müsst im
PHP-Code:
KC.SubscribeEvent.Popup, AddressOf OnPopup
,
die Nachrcht herausfiltern, ob man Mafioso, Bürger oder Detektiv ist.
Mafioso:
PHP-Code:
If Message.Contains("gehörst der _Mafia_") Then
KC.SendToChannel("<<")
End if
Detektiv:
PHP-Code:
If Message.Contains("Du bist der _Detektiv") Then
KC.SendToChannel("dete")
End if
Bürger:
PHP-Code:
If Message.Contains("Du bist ein _Bürger") Then
KC.SendToChannel("bg")
End if
Beim Voten müsst ihr einfach folgendes filtern:
Als nächstes erstellen wir uns eine
ListBox die wir auf
"Visible" setzen.
( In dieser ListBox wird der Maff geschrieben und herausgevotet )
Ausserdem muss noch im
PHP-Code:
KC.SubscribeEvent.ChannelMessage
Event folgender Sourcecode hinzugefügt werden.
PHP-Code:
If Message.Contains("<<") Then
Listbox1.Items.Add(nick)
End If
Voten:
PHP-Code:
If Message.Contains("Von nun an")
KC.SendToChannel("/mafia " + Listbox1.Items.item(0)
End If
Und nun zum Schluss um eine neue Mafia Runde zu starten müsst Ihr noch folgendes im
PHP-Code:
KC.SubscribeEvent.ChannelMessage
Event hinzufügen.
PHP-Code:
If Message.Contains("gesiegt") Then
KC.SendToChannel("Mafia James")
End If
Ich hoffe mal das dieser Sourcecode manchen behilflich sein kann, ich bin mir nicht hundert Prozentig sicher das dieser Code klappt da ich Ihn aus meinem Kopf heraus gepostet habe und Ihn nicht getestet habe.
Desweiteren hab ich nur teilweise den Source im Kopf von der alten KLib deswegen dürften diese Coudes hier vielleicht etwas veraltet sein. Aber vielleicht klappt es ja noch
Bei Fragen oder Probleme lasst es mich wissen.
LG
Chris