hab probs mit nem witzscript
Code:
'Script with Macromedia Dreamweaver MX
'© by sts
' Witz Url: http://www.witze-server.de/
' Witze in der Datenbank: 206
'###########################################################
'Channel indem das Script Aktiv sein soll.
Const AktivChan = "#b.a.b.y" '@ Quakenet pls Join --> Stay and Idle :D
'Zeitangabe, Wann das Script einen Witz in den Channel 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)
SendLine "PRIVMSG " & AktivChan & " : ACHTUNG --: " & Witz & " Und Weitermachen..,",2
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
wo soll ich da eintragen in welchem channel es aktiv sein soll
ich möchte das es im chan 3deathy3u alle 5 min ein witz postet wie kann ich des einstellen?
Also, was ich dir jetzt sage tut mir ja leid aber es ist so:
Bist du blind? oder kannst du einfach nichts sehen?
Oder willst du uns alle verar***en?
Naja, kann ja sein das man als Anfänger nicht direkt in die Scriptdatei reinguckt aber spätestens beim copy & paste vom Script hätte es dir auffallen sollen.
Nur so zu Info: Wir helfen hier bei Problemen mit dem Angelbot und geben dafür schon genug Freizeit wech. Aber solche Fragen grenzen schon an ein, wie soll man sagen, mehr oder weniger großes Problem was nichts mit dem Angel zu tun hat. Wir sind net hier um FAULEN Leuten alles auf die Nase zu binden!!!
Aber egal, ich bin ja net so. Daher en kleiner Tipp:
Les dir mal die Zeilen nach den
###########################################
durch, da stehts sogar auf DEUTSCH, klarem einfachen Deutsch.
Sorry für diese Aussage aber manchmal sind die Fragen so dumm, dass ich mich frage wie man die stellen kann. Aber kleiner Trost: Du bist net der einzigste der dieses Fehler macht. Aber wär schön wenn das das 1. und letzte mal war.
Und net falsch verstehen: Wir beantworten gerne Fragen, wenn sie der User net durch ein ganz ganz wenig Eigenleistung selber hätte beantworten können. Also
&
MfG HAPM
Und noch was für die Zukunft. Scripts bitte zwischen '['code']' und '['/code']' pasten.
THX
sts
naja ich hab vom scripten ka desshalb suche ich mir n fertigscript
muss ich den befehl im script eingeben oder auf der partyline? ^^
chan bzw. welchen Befehl meinst du?
hab ne frage, noobig oder nicht.
folgendes prob beim loaden des scripts:
Code:
[18:29:13] <Wartezimmerschlampe> 0***7,1 Witz-Script v1.1 by sts loaded
[18:29:13] <Wartezimmerschlampe> *** FileEOF: Couldn't get EOF for file number 0 - Bad file name or number
[18:29:13] <Wartezimmerschlampe> 3*** Scripting error in 'witz.asc':
[18:29:13] <Wartezimmerschlampe> 10 Error : 9 (Index außerhalb des gültigen Bereichs: '[number: 1]')
[18:29:13] <Wartezimmerschlampe> 10 Position: Line 55, Column 2
[18:29:13] <Wartezimmerschlampe> 10 Excerpt : Witz = Witze(int(rnd*ubound(Witze))+1)
[18:29:13] <Wartezimmerschlampe> 10 Command : Init
[18:29:13] <Wartezimmerschlampe> 3*** End of error message
[18:29:13] <Wartezimmerschlampe> 3*** Loaded script: witz.asc [
einige würden vllt sagen: "steht doch klar dort!!!"
deshalb nur mal im vorraus:
1. hab die scripte nicht mit löffeln gefressen
2. hab ich mich bereits ne weile mit scripting beschäftigt mit dem begeisterten "versuche&lerne" - verfahren
3.
ich raffs trotzdem nicht
bitte um kurze klärende antwort
mit freundlichen Grüßen
Zach
Hiho, ich hab das selbige Problem mit dem Witz Script. Könnte uns da vielleicht jemand helfen?
Lade dir das Script mal aus dem DL Bereich. Dort ist eine txt Datei, die anscheinend zur Zeit nicht hast.
Gruß sts
oh man das is doch net so schwer ^^
Code:
'Script with Macromedia Dreamweaver MX
'© by sts
' Witz Url: http://www.witze-server.de/
' Witze in der Datenbank: 206
'###########################################################
'Channel indem das Script Aktiv sein soll.
Const AktivChan = "#3deathy3u" '@ Quakenet pls Join --> Stay and Idle :D
'Zeitangabe, Wann das Script einen Witz in den Channel posten soll. In Sekunden!!
Say_Witz = "300"
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)
SendLine "PRIVMSG " & AktivChan & " : ACHTUNG --: " & Witz & " Und Weitermachen..,",2
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