Also wollte ein script, das wenn jemand en bestimmt trigger macht, das Topic geändert wird...
Das habe ich bisher:
Code:
Sub Init()
Script "#fan.orgas topic Changer"
SpreadFlagMessage 0, "+m", "*** #fan.orgas topic Changer installiert"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!aktuell" Then
ExecuteCommand 0, ".topic " & Param(Line, 2) & " " & Param(Line, 3)
End If
End Sub
aber es geht net :(
So sollte es funktionieren:
Code:
Sub Init()
Script "#fan.orgas topic Changer"
SpreadFlagMessage 0, "+m", "*** #fan.orgas topic Changer installiert"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!aktuell" Then
'Nur User die im Bot +o haben dürfen Topic ändern
If MatchFlags(GetUserFlags(RegUser), "+o") Then
SendLine "TOPIC " & Chan & " " & GetRest(Line, 2), 3
End If
End If
End Sub
ok vielen dank es geht!!!!
Naja, bei mir geht es leider nicht so ganz, sobald ich ein Leerzeichen mache nimmt der immer nur das letzte wort.
Bsp:
(16:33:31) (@]-mYstik-[) !topic ich teste dieses tolle script
(16:33:32) topic: (]-[PC-Max]-[) changes topic to (script)
Dann direkt noch eine Frage, ich möchte gerne ein Standartmäßiges Topic-Design haben. Der soll immer einen bestimmten Text haben wo nur ein Teil von geändert wird.
Bsp:
.::. Welcome to #blabla .::. News: (hier soll der Text eingefügt werden) .::.
Es soll also nur der Teil in den Klammern immer geändert werden.
mfg mystik
Läuft einwandfrei, vielen dank ;D
Zitat:Sub Init()
Script "#fan.orgas topic Changer (edit by c00l4ZiD)"
SpreadFlagMessage 0, "+m", "*** #fan.orgas topic Changer (edit by c00l4ZiD) installiert"
Hook "Chan_Msg"
End Sub
const chto = "#chan"
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!topic" Then
If Param(Line, 2) = "" Then
If MatchFlags(GetUserFlags(RegUser), "+o") Then
Sendline "NOTICE " & Nick & " *** Benutzung: !topic <news>", 2
End If
Else
If MatchFlags(GetUserFlags(RegUser), "+o") Then
SendLine "TOPIC " & Chan & " .::. Welcome to " & chto & " .::. News: " & GetRest(Line, 2) & " .::.", 3
End If
End If
End If
End Sub
Bei
const chto = "#chan" bitte Deinen Chan eintragen !
Cya c00l4ZiD
hupps haben wa wohl zur gleichen zeit gepostet
Hi leute und zwar hab ich nen prob mit dem topic changer ich bekomms einfach nicht hin das er nur die news ersetzt so das die farbe erhalten bleibt vielleicht kann mir da einer helfen bin anfänger THX
das ist das topic :
7,14:: 0,14welcome 1,14² 0,14#e.generation 7,14:: 0,14prepage :
http://www.e.generation.de.vu 7,14::0,14 we search squads 4 cs/q3/wc 7,14:: 0,14news :0,14 bla bla bla 7,14::
jetzt sollte nur das bla bla bla ersetzt werden aber so das die schrift farbe und die hintergrundfarbe bleibt vielen dank schon mal im voraus
Such dir eins aus
Einfach an der Stelle wo die News hin soll, %TOPIC% schreiben.
Code:
Const MyTopic = "7,14:: 0,14welcome 1,14² 0,14#e.generation 7,14:: 0,14prepage : www.e.generation.de.vu 7,14::0,14 we search squads 4 cs/q3/wc 7,14:: 0,14news :0,14 %TOPIC% 7,14::%"
Sub Init()
Script "Topic Changer"
SpreadFlagMessage 0, "+m", "*** Topic Changer installiert"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!topic" Then
'Nur User die im Bot +o haben dürfen Topic ändern
If MatchFlags(GetUserFlags(RegUser), "+o") Then
SendLine "TOPIC " & Chan & " :" & Replace(MyTopic, "%TOPIC%", GetRest(Line, 2)), 2
End If
End If
End Sub
Code:
Const MyTopic = "7,14:: 0,14welcome 1,14² 0,14#e.generation 7,14:: 0,14prepage : www.e.generation.de.vu 7,14::0,14 we search squads 4 cs/q3/wc 7,14:: 0,14news :0,14 TOPIC% 7,14::%"
Sub Init()
Script "#fan.orgas topic Changer (edit by c00l4ZiD)"
SpreadFlagMessage 0, "+m", "*** #fan.orgas topic Changer (edit by c00l4ZiD) installiert"
Hook "Chan_Msg"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If LCase(Param(Line, 1)) = "!topic" Then
If Param(Line, 2) = "" Then
If MatchFlags(GetUserFlags(RegUser), "+o") Then
Sendline "NOTICE " & Nick & " *** Benutzung: !topic <news>", 2
Else
SendLine "TOPIC " & Chan & " :" & Replace(MyTopic, "%TOPIC%", GetRest(Line, 2)), 2
End If
Else
If MatchFlags(GetUserFlags(RegUser), "+o") Then
SendLine "TOPIC " & Chan & " :" & Replace(MyTopic, "%TOPIC%", "keine weiteren News"), 2
End If
End If
End If
End Sub