mach mal .t~cfg update 0/1 und alle anderen einstellungen die oben drin stehen... werds aber noch ändern dass man es net mehr machen muss...
so, habs verbessert, sollte nu einwandfrei funzen
Kannste mal genau erklären, wie ich vorgehen muss, komm mit dme Helptext nicht klar, also wie ich was setzte und was kann ich setzten und wie für nur einen bestimmten chan etc.
Kannst ja einfach mal beispiel machen.
----Edit:
Alles kalr habs immer in der Partyline versucht..^^
Ich hab 2 Wünsche. Ich würde gerne die Topic von Channel #X auch aus Channel #Y ändern könnten, z.B. .t~update news #X Neue Script Funktionen
Und ich würde mich freuen, wenn man das ganze auch mit Welcome Messages von Q machen könnte. Alsp .w~set mit Sections etc und soweiter. Auch wieder steuerbar aus anderen Channels. Wäre cool, wenn das machbar wäre. Vielleicht kann das jemand das komplette Script, auch, dass der Topic per Q geändert wird, nochmal zusammenfassen.
MfG
JusTmE
Kann sich da keiner drum kümmern?
<exploderServ> *** Scripting error in 'supertopic.asc':
<exploderServ> Error : 5 (Ungültiger Prozeduraufruf oder ungültiges Argument: 'Mid')
<exploderServ> Position: Line 58, Column 14
<exploderServ> Excerpt : WriteINIString Chan, "tSection" & sectionCount, Mid(Param(Line, i), 2, Len(Param(Line, i)) - 2), tINI
Zitat:Ihr geht auf die Partyline und gebt .settopic <#channel> <text>
In eurem Topic fügt ihr dann noch %NEWS% ein und wenn ihr nun im channel !news bla schreibt wird euer %NEWS% mit bla ersetzt!
Code:
Const ini_topic = "topic.ini"
Sub Init()
Script "Topic - Changer V1.0 by t2|ash"
Hook "Commands"
Hook "Chan_Msg"
AddCommand "settopic", CL_SOwn, "+s", "2*** .settopic <#channel> <text>##14Setzt das Topic Design für #channel."
End Sub
Sub Commands(vsock, RegUser, Flags, Line)
If Param(Line, 1) = ".settopic" Then
If Param(Line, 2) = vbNullString Then
SpreadFlagMessage 0, "+m", "5*** Usage: .settopic <#channel> <text>"
Else
t_chan = Param(Line, 2)
t_topic = GetRest(Line, 3)
WriteINIString "Topic", t_chan, t_topic, ini_topic
SpreadFlagMessage 0, "+m", "11*** Topic was set for " & Param(Line, 2) & " : " & GetRest(Line, 3)
End If
End If
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
If Param(Line, 1) = "!news" Then
If IsOp(Nick, Chan) Then
If Param(Line, 2) = vbNullString Then
SendLine "NOTICE " & Nick & " :Use: !news <text>", 2
Else
mytopic = GetRest(ReadINIString("Topic", Chan, vbNullString, ini_topic), 1)
SendLine "TOPIC " & Chan & " :" & Replace(mytopic, "%NEWS%", GetRest(Line, 2)), 2
End If
Else
SendLine "NOTICE " & Nick & " :Du musst Op haben um das Topic ändern zu können!", 2
End If
End If
End Sub