AnGelBot-Portal²

mit hat Spiky win script gebastelt und dan wurde von nem 2. was hinzu gemacht. nun hab ich ein problem


-------------------------------------------------------
'##################################################
'Channel in denen der Trigger zur Verfügung stehen soll
'(mit Leerzeichen trennen, "*" für alle)
Const AktivChans = "#london.bash"
'##################################################

Const INI = "Ingame.ini"

Sub Init()
Script "Ingame Script by Spiky"
Hook "Chan_Msg"
End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)
If InStr(1, " " & AktivChans & " ", " " & Chan & " ", vbTextCompare) = 0 Then Exit Sub

vTime = ReadINIString(Param(Line,2), "Time", "", INI)
vDate = ReadINIString(Param(Line,2), "Date", "", INI)
vNick = ReadINIString(Param(Line,2), "Nick", "", INI)
vIngame = ReadINIString(Param(Line,2), "Ingame", "", INI)
vText = ReadINIString(Param(Line,2), "Text", "", INI)
vUsers = ReadINIString("@@Alle@@", "Nicks", "", INI)

If LCase(Param(Line, 1)) = CommandPrefix & "add" Then
If Param(Line,2) = vIngame Then
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :Bitte erst !del ingame dan wieder !add ingame text <-- sorry ging nicht anders",3
'z.b. Sendline "PRIVMSG " & Chan & " :gibbet schon",3
'##################################################
Else
WriteINIString Param(Line,2), "Nick", Nick, INI
WriteINIString Param(Line,2), "Ingame", Param(Line,2), INI
WriteINIString Param(Line,2), "Time", Time, INI
WriteINIString Param(Line,2), "Date", Date, INI
WriteINIString Param(Line,2), "Text", GetRest(Line,3), INI
WriteINIString "@@Alle@@", "Nicks", vUsers & " " & Param(Line, 2), INI
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :Fertig",3
'z.b. Sendline "PRIVMSG " & Chan & " :Hinzugefügt",3
'##################################################
End If

ElseIf LCase(Param(Line, 1)) = CommandPrefix & "del" Then
If Param(Line,2) = vIngame Then
DeleteINISection Param(Line,2), INI
WriteINIString "@@Alle@@", "Nicks", Replace(vUsers, Param(Line, 2), ""), INI
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :Fertig",3
'z.b. Sendline "PRIVMSG " & Chan & " :gelöscht",3
'##################################################
Else
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :Kein Eintrag gefunden",3
'z.b. Sendline "PRIVMSG " & Chan & " :nicht gefunden",3
'##################################################
End If

ElseIf LCase(Param(Line, 1)) = CommandPrefix & "show" Then
If Param(Line,2) = vIngame Then
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :3 " & vIngame & " 4-->3 " & vText & " 4--> Eingetragen vom3 " & vNick & " 4am3 " & vDate & " 4um3 " & vTime & " 4Uhr ",3
'z.b. Wie da oben
'##################################################
Else
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :Kein Eintrag gefunden",3
'z.b. Sendline "PRIVMSG " & Chan & " :nicht gefunden",3
'##################################################
End If

ElseIf LCase(Param(Line, 1)) = CommandPrefix & "alle" Then
vArray = Split(vUsers, " ")
For i = LBound(vArray) to UBound(vArray)
Sendline "PRIVMSG " & Chan & " :3 " & ReadINIString(vArray(i), "Ingame", "", INI) & " 4-->3 " & ReadINIString(vArray(i), "Text", "", INI) & " 4--> Eingetragen vom3 " & ReadINIString(vArray(i), "Nick", "", INI) & " 4am3 " & ReadINIString(vArray(i), "Date", "", INI) & " 4um3 " & ReadINIString(vArray(i), "Time", "", INI) & " 4Uhr ",3
Next

ElseIf LCase(Param(Line, 1)) = CommandPrefix & "help" Then
'##################################################
'Hier kannst du selber schreiben was er sagen soll
Sendline "PRIVMSG " & Chan & " :Bot anleitung:", 3
Sendline "PRIVMSG " & Chan & " :!add ingame text", 3
Sendline "PRIVMSG " & Chan & " :!show ingame", 3
Sendline "PRIVMSG " & Chan & " :!alle", 3
Sendline "PRIVMSG " & Chan & " :!del ingame", 3
Sendline "PRIVMSG " & Chan & " :Anmerkung zu Add:", 3
Sendline "PRIVMSG " & Chan & " :Bitte die richtige schreibweise für die ingames verwenden, solten die ingames lehrzeichen haben bitte mit _ stadt dem lehrzeichen eintragen", 3
Sendline "PRIVMSG " & Chan & " :LG chris", 3
'##################################################

End If
End Sub


-------------------------------------------------------
wen ich nen eintrag mit !del ingame wieder rausnehme
und dan wieder reinmache hab ich wen ich !alle mache
dan immer eine lehr zeile mit lerzeichen als eintrag.

irc auszug:

|19:50:35| <}NO{KriegsBot> Test1 --> a --> Eingetragen vom }NO{Esca`s am 19.10.2005 um 19:49:56 Uhr
|19:50:36| <}NO{KriegsBot> test2 --> b --> Eingetragen vom }NO{Esca`s am 19.10.2005 um 19:50:01 Uhr
|19:50:37| <}NO{KriegsBot> test3 --> c --> Eingetragen vom }NO{Esca`s am 19.10.2005 um 19:50:10 Uhr
|19:51:03| <@}NO{Esca`s> !del test2
|19:51:08| <}NO{KriegsBot> Fertig
|19:51:14| <@}NO{Esca`s> !add test2 HuHu
|19:51:15| <}NO{KriegsBot> Fertig
|19:51:17| <@}NO{Esca`s> !alle
|19:51:17| <}NO{KriegsBot> --> --> Eingetragen vom am um Uhr
|19:51:18| <}NO{KriegsBot> Test1 --> a --> Eingetragen vom }NO{Esca`s am 19.10.2005 um 19:49:56 Uhr
|19:51:19| <}NO{KriegsBot> --> --> Eingetragen vom am um Uhr
|19:51:19| <}NO{KriegsBot> test3 --> c --> Eingetragen vom }NO{Esca`s am 19.10.2005 um 19:50:10 Uhr
|19:51:20| <}NO{KriegsBot> test2 --> HuHu --> Eingetragen vom }NO{Esca`s am 19.10.2005 um 19:51:15 Uhr

------------------------------------
kan da einer helfen ?

lg chris

wer hat das nur wieder verbockt -.-

hehe MrLag ich sag nix