ich weis nicht oder sagen ich kanns nicht schreiben...jo ich kann zwar c++ und php java und son scheiss aber irgendwie bekomm ich keine sinn zusammen bei den scripts hier....... sollte man doch von php4 kennen..egal ich wollte fragen ob mir jemand ein script schreiben kann mit dem ich in einer text datei..text einfügen kann und mit dem befehl !perform-liste...dann die ganzen perform channel gepostet werden....zb.... oder gibts sowas schon...ist dringen bitte thx im vorraus
Nur kurz zum Verständnis :D
Der Inhalt von performlist.txt:
Zitat:#channel1
#channel2
#channel3
Per !perform-list soll nun in den Channel diese 3 Channels gepostet werden.
Richtig so?
also in der perform.txt
steht zb:
Performliste 12.02.2045:
#xyz
#xyz
#xyz
dann wenn man im channel !perform-list schreibt kommt im channel:
Performliste 12.02.2045:
#xyz
#xyz
#xyz
----------
kannst emir das machen ???? WÄRE WIKLICH SUPER GEIL von dir ^^
Dieses Script liest die unter
Const ListFile definierte Datei zeilenweise aus und postet sie in den Channel:
Code:
Const ListFile = "performlist.txt"
Sub Init()
Script "Performlist 1.0a by Sp33d"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!perform-list" Then
FNum = FileOpen(ListFile, FA_Read)
If FNum = 0 Then
SendLine "PRIVMSG " & Chan & " :5Sry, but """ & ListFile & """ does not exist.", 2
Else
SendLine "PRIVMSG " & Chan & " :7***PERFORM*** ", 2
Do While Not FileEOF(FNum)
Dummy = FileReadLn(FNum)
If Dummy <> "" Then SendLine "PRIVMSG " & Chan & " :7*** - " & Dummy, 2
Loop
SendLine "PRIVMSG " & Chan & " :7***EOF***", 2
End If
FileClose FNum
End If
End Sub
Hey vielen DANK
Es geht ohne probleme kannst ja mal kommen und schauen #gsg9hq.de
und !perform-list eingeben schon kommt alles thx nochmal!!! :D
ALo kk kannste des script nochmal einbischen umbauen ?????
und zwar so das nicht fuer alle sichtbar ist sondern nur für den der den !befehl schreibt.. s.s. script stats --> !statsme sieht nur der wo !statsme eingetippt hat... thx
Einfach Chan durch Nick ersetzen:
Code:
Const ListFile = "performlist.txt"
Sub Init()
Script "Performlist 1.0a by Sp33d"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!perform-list" Then
FNum = FileOpen(ListFile, FA_Read)
If FNum = 0 Then
SendLine "PRIVMSG " & Nick & " :5Sry, but """ & ListFile & """ does not exist.", 2
Else
SendLine "PRIVMSG " & Nick & " :7***PERFORM*** ", 2
Do While Not FileEOF(FNum)
Dummy = FileReadLn(FNum)
If Dummy <> "" Then SendLine "PRIVMSG " & Nick & " :7*** - " & Dummy, 2
Loop
SendLine "PRIVMSG " & Nick & " :7***EOF***", 2
End If
FileClose FNum
End If
End Sub
achso schon wieda was gelernt thx :D