Hey,
suche einen script das auf befehl !info eine von mir verfasste info.txt
wiedergibt.
Wo z.B Bot Commands aufgelistet sind
P.S.: bin in sachen AngelBot "noob"
Hi
sowas ist einfach
Code:
Filename = "info.txt"
Sub init()
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line,1)) = "!info" Then
fnum = FileOpen(Filename, FA_Read)
do
addline = FileReadln(fnum)
Sendline "PRIVMSG " & Chan & " :" & addline,3
loop until FileEOF(fnum)
FileClose(fnum)
end if
End Sub
Viel spass damit
MfG
Phantom
Kewl THX ,
hatte vergessen das sich das in nem query öffnen soll und nicht in den channel gepostet werden soll !!!
sry kommt ein wenig spät , mein fehler
is da auch ne Floodprot drin?
es gibt ja leider so Scherzkekse, die dann dutzende male !info machen....
Code:
Dim LastUsers
Filename = "info.txt"
Sub init()
Hook "Priv_Msg"
End Sub
Sub PRIV_Msg(Nick, RegUser, Line)
If LCase(Param(Line,1)) = "!info" Then
If Not InStr(LCase(LastUsers), LCase(Nick)) Then
LastUsers = Trim(LastUsers) & Nick & " "
fnum = FileOpen(Filename, FA_Read)
do
addline = FileReadln(fnum)
Sendline "PRIVMSG " & Nick & " :" & addline,3
loop until FileEOF(fnum)
FileClose(fnum)
TimedCommand "RemoveLastUser(Nick)",60
else
Sendline "PRIVMSG " & Nick & " :Du hast die liste gerade bekommen!",3
End If
end if
End Sub
Sub RemoveLastUser(Nick)
LastUsers = Replace(LastUsers, Nick, "")
End Sub
Umgestellt auf Querys und ne flood protection von 60 sek ist auch drin
MfG
Phantom
super, danke
Kewl THX
aber bei mir funzt das net er lädt den script & bei !info passiert nix :(
musst auch die info.txt im scripts odrner anlegen und was reinschreiben :>
habe ich gemacht & es ist nix passiert bei !info
muß ich sonst nix mehr machen/einstellen ?
bei mir gehts komischer weise auch nicht