Ich bräuchte mal nen Script, dass auf folgende 'channel messages' antwortet:
lol,löl,l0l,rofl,lül,läl,hehe,hihi
und dass der bot dann als antwort gibt:
rofl,lol,löl,lül usw. ... aber eben per "zufallsmodus" ... er soll die antworten per zufall aus ner .ini/.txt datei wählen. ich frag euch hier, weil ich kein plan vom asc scripten habe... ich kenn mich nur mit winbot scripts aus, aber hier eck ich immer an :/
plz helft mir!! DANKE!
p.s.: angel-bot genialer bot ;>
Erstelle eine Datei
lol.asc
Dort kopierst du folgendes rein:
Code:
Const QuoteFile = "lol.txt"
Dim LastLine
Sub Init()
Script "LoL Script 0.9 by c00l4ZiD"
Hook "Chan_Msg"
SpreadFlagMessage 0, "+m", "*** LoL Script 0.9 by c00l4ZiD geladen"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
Dim CalcLine, CurrentLine, vLines, SearchTag, FoundLines, Dummy, FNum, Found
If LCase(Param(Line, 1)) = "lol" or LCase(Param(Line, 1)) = "löl" or LCase(Param(Line, 1)) = "l0l" or LCase(Param(Line, 1)) = "lül" or LCase(Param(Line, 1)) = "läl" or LCase(Param(Line, 1)) = "hehe" or LCase(Param(Line, 1)) = "hihi" Then
If Param(Line, 2) = "" Then
Randomize
vLines = Lines(QuoteFile) + 1
Do While CalcLine = 0 Or CalcLine = LastLine
CalcLine = Int(Rnd * vLines)
Loop
LastLine = CalcLine
FNum = FileOpen(QuoteFile, FA_Read)
If FNum <> 0 And vLines > 0 Then
Do While CurrentLine < CalcLine And Not FileEoF(FNum)
Dummy = FileReadLn(FNum)
CurrentLine = CurrentLine + 1
Loop
SendLine "PRIVMSG " & Chan & " : " & Dummy, 3
End If
FileClose FNum
End if
End if
End Sub
Function Lines(vFile)
Dim Dummy
vFileNumber = FileOpen(vFile, FA_Binary)
If vFileNumber Then
FileGet vFileNumber, FileLoF(vFileNumber), Dummy
End If
FileClose vFileNumber
Dummy = Split(Dummy, VbCrLf)
Lines = UBound(Dummy)
End Function
Dann erstelle ein Datei in Deinem Angelbot Verzeichnis
lol.txt
Dort trägst du untereinander die Einträge ein die der Bot zur Ausgabe zur Verfügung haben soll !
lol
rofl
lül
atomrofl
haha
usw.
Habe Script getestet und funzt anstandslos !
Cya c00l4ZiD
Vist us @ #tgp-clan @ q-net !
hm......... hab alles so gemacht, wie es verlangt wurde...
[22:30] (_chip_) Error : 0 ()
[22:30] (_chip_) Command : Chan_msg "#t0nY", "kA][^s0ap", "^s0ap``da", "löl"
[22:30] (_chip_) *** End of error message
:<
poste mal script was du geändert hast
[1:31pm] <Dwarf> *** Loaded script: lol.asc
[1:31pm] <Dwarf> *** Error while executing script 'lol.asc':
[1:31pm] <Dwarf> Error : 0 ()
[1:31pm] <Dwarf> Command : Chan_msg "#Maultier", "TheDaywalker", "Fear", "löl"
[1:31pm] <Dwarf> *** End of error message
hab das selbe problem. hab das script so wie du es gepostet hast übernommen.
Ihr
müsst folgendes machen
bevor ihr das Script startet:
- Eine Datei namens 'lol.txt' im AnGelBot Ordner anlegen
- In diese Datei mindestens 2 Einträge schreiben
Und
erst dann dürft ihr das Script starten, sonst wird es nämlich vom Bot abgebrochen da es in eine
Endlosschleife kommt. Solltet ihr das Script bereits einmal gestartet haben und der Error 0 () kommt, so müsst ihr zunächst das Script entladen (.-script lol) und dann den Bot neustarten (.restart).
Vergewissert euch noch einmal das ihr die beiden Sachen aus der Liste oben erfüllt habt und startet das Script wieder (.+script lol).
Nun sollte es funktionieren.
hab ich doch gemacht. die lol.txt is beim script mit im ordner
nein nicht in den scripte ordner ...
in den angelnot ordner ... da wo die exe zum bot liegt !
das ist ja nun wirklich net so schwer ^^
Have fun ... komm mal irc da kann ich dir weiterhelfen ...
entwerder #angelbot-portal oder #tgp-clan !
cya c00lZiD
achso hab ich den leider falsch verstanden.
nu gehts.
thx
hmm und wenn man kein Zugriff hat auf das Hauptverzeichnis, ich konnte das lol.acp und die lol.txt nur hochladen und er macht das automatisch wieder ins Script verzeichnis.
Ich habe mir ein Angle-Bot bei #phoenix-shells geholt.
Ich kann auch das German script nicht installieren da ich ja nichts ins Hauptverzeichnis komm.
Kann mir da einer helfen?