AnGelBot-Portal²

Seiten: 1 2 3

Mit ner For-Schleife würde das gehen...

habs ma gebastelt:

Code:

'Script with Macromedia Dreamweaver MX

'© by sts

' Witz Url: http://www.witze-server.de/

' Witze in der Datenbank: 206

'###########################################################

'Channels in dennen das Script Aktiv sein soll. (Mehrere mit " " trennen)

Const ActiveChannels = "#channel1 #channel2"

'Zeitangabe, Wann das Script  einen Witz in die Channels posten soll. In Sekunden!!

Say_Witz = "3600"

Const DebugIt = False ' Erweiterte Meldungen

'################### You Dont`t know what you do? DONT Change something! ################

Const WitzDB = "witz.txt"

Sub Init

  Script "7,1Witz-Script v1.0 by sts"

  SpreadFlagMessage 0, "+m", "0***7,1 Witz-Script v1.1 by sts loaded"

  Hook "Chan_Msg"

  Randomize

  GetWitz

End Sub

Dim Witze():

ReDim Witze(0)

Dim aNick

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Param(line,1)) = "!witz" Then

    aNick = Nick

    GetWitz2

  End If

End Sub

Sub GetWitz()

  FileNum = FileOpen(WitzDB, FA_Read)

  While Not FileEoF(filenum)

    ReDim Preserve Witze(UBound(Witze) + 1)

    Witze(UBound(Witze)) = FileReadLn(FileNum)

  Wend

  FileClose FileNum

  Witz = Witze(int(rnd*ubound(Witze))+1)

  For x = 1 To ParamCount(ActiveChannels)

   SendLine "PRIVMSG " & Param(ActiveChannels, x) & " : ACHTUNG --: " & Witz & " Und Weitermachen..,",2    

  Next

  If DebugIt Then SpreadFlagMessage 0, "+m", "Witz: " & Witz

  TimedCommand "GetWitz", Say_Witz

End Sub

Sub GetWitz2()

  FileNum = FileOpen(WitzDB, FA_Read)

  While Not FileEoF(filenum)

    ReDim Preserve Witze(UBound(Witze) + 1)

    Witze(UBound(Witze)) = FileReadLn(FileNum)

  Wend

  FileClose FileNum

  Witz = Witze(int(rnd*ubound(Witze))+1)

  SendLine "Notice " & aNick & " : ACHTUNG --: " & Witz & " Und Weitermachen..,", 2

End Sub

(nicht getestet)

Ok es klappt.

nur hatte ich gedacht das er in jeden chan den ich eingetragen habe auch ein anderer Witz kommt...

naja auch nicht schlimm

Danke für die Hilfe

bei dem script kommt ja immer zu einer bestimmten zeit ein witz ich wollte jetzt ein mal fragen ob es auch geht das man das script so ändert das nur ein witz kommt wenn man im channel !witz schreibt

Code:

Sub Init

  Script "7,1Witz-Script v1.0 by sts"

  SpreadFlagMessage 0, "+m", "0***7,1 Witz-Script v1.1 by sts loaded"

  Hook "Chan_Msg"

  Randomize

  ' GetWitz <-- nur das hier ändern

End Sub

das ' vor GetWitz.
so wird die Zeitschleife gar net erst gestartet... sollte eigentlich ausreichen

Seiten: 1 2 3

Firefox

H4nSolo

zak86

Balmung