Also ich will wenn mein Bot was ausgibt das er mehrer Zeilen benutzt?
wie geht das? also wie beim html <br> ?!
wäre nett wenn einer mir helfen kann....
thx
also einfache möglichkeit ist die ausgbe zu teilen und eine 2 Sendline Anweisung zu schreiben
oder wenn es immer gleiche ausgaben sind ,das mit einer text -datei zu machen so ähnlich wie im lol.script (da wird zufällig eine Zeile aus der Text datei (lol.txt) genommen ) -ich habe das ein bischen geändert -nun werden alle zeilen aus einer text datei ausgegeben -der Vorteil ist die einfache Bearbeitung deer Text Datei
mfg
Moppi
also ich wollt des so haben das er bei !Befehle die verschiedenen Befehle ausgibt und pro Zeile halt einen Befehl postet am besten mit flood trigger aber da ich noch nicht so viel vom scripten verstehe wärs cool wenn mir jemand sowas scripten kann wo ich halt nurnoch die verschiedenen Befehle eintragen müsste mit erklärung!
thx
'===============================
'unbedingt file info.txt mit mindestens 2 Einträgen im Ordner angelbot erstellen
'SendLine "PRIVMSG " & Chan & " :" & Dummy, 3
'auch austauschen SendLine "PRIVMSG " & Nick & " :" & Dummy, 3
'dann wird das nicht im chanal gepostet sonder privat
'ausgelöst wird das ganze mit info mfg Moppi
'If LCase(Param(Line, 1)) = "info" Then
'das einfach auf Befehle oder !befehl ändern wie du magst
' "info" zu "!befehl" ansonste das bar.asc umschreiben mfg Moppi
'===============================
Const QuoteFile = "info.txt"
Dim FloodCounter, FloodTriggered
Dim FloodCounter2, FloodTriggered2
Dim LastLine
Sub Init()
Script "info by Moppi"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
Dim CalcLine, CurrentLine, vLines, Dummy, FNum
If LCase(Param(Line, 1)) = "info" Then
If Param(Line, 2) = "" Then
vLines = Lines(QuoteFile) + 1
Do While CalcLine = 0 Or CalcLine = LastLine
CalcLine = CalcLine + 1
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)
SendLine "PRIVMSG " & Chan & " :" & Dummy, 3
Loop
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
Sub CheckFlood
If FloodCounter > 0 Then FloodCounter = FloodCounter - 1
If FloodCounter2 > 0 Then FloodCounter2 = FloodCounter2 - 1
TimedCommand "CheckFlood", 120
End Sub
big thx
aber könntes du mir noch sagen wie des geht das er den text net als chatnachricht ausgibt sondern als notice?
thx
In dem du ganz einfach aus dem PRIVMSG ein NOTICE machst :D
danke ^^
aber bei der ausgabe von der txt file is der bissle lahm, kann man des iergendwie beschleunigen? also kann des sein das des an der floodprotection liegt?
liegt an der floodprotection
TimedCommand "CheckFlood", 120
ändere doch mal den Zahlenwert
ziemlich unten - wirst schon finden
:D
mfg
moppi
thx
is echt n cooles board hier
noch ne frage des müsste ja möglich sein oder?
wenn man jetzt !Befehle eingibt sollte so etwas passieren
1 #channel
2 #channel
3 #channel
usw
das halt er für jeden channel ne andere txt datei hat und man mit 1,2,3 halt sagt welche er aufmachen soll...
im prinzip halt soll er aus verschiedenen txt datein auslesen?