Hi Leute,
Also ich bräuchte ein Script womit sich die User mit !setjoin <Nachricht> eine Message speichern können und beim hereinjoinen der User wird dieser wiedergegeben.
Und mit !viewjoin kann man diese abfragen.
Falls jemand so ein Script hat = Toll
Falls jemand eins schreibt = Spitze
Ansonsten würde es mir genügen zu wissen welche Funktionen ich dafür brauche.
Naja problem ist natürlich worauf man das basieren soll...auf Nick oder Host der eine hat immer den selben nick dafür immer nen anderen Host und der andere hat immer nen anderen nick dafür aber immer den gleichen host...
Ich habs jetzt erstmal Nick basierend gemacht...
Zitat:16:06… @Spiky: !join set Hi $nick willkommen in $chan
16:06… —AnGeL-Fun— Welcome Message changed successfully.
16:06… @Spiky: !join show
16:06… —AnGeL-Fun— Hi Spiky willkommen in #AnGelBot
16:07… Attempting to rejoin #AnGelBot...
16:07… @AnGeL-Fun: Hi Spiky willkommen in #AnGelBot
Code:
'##################################################
'### Welcome Script Version 1.0 (Beta) by Spiky ###
'##################################################
Const INI = "join.ini"
Sub Init()
Script "Welcome Script Version 1.0 (Beta) by Spiky"
Hook "Chan_Msg"
Hook "Join"
End Sub
Sub Chan_Msg(Chan, Nick, RegUser, Line)
Dim vWelcome
vWelcome = Replace(Replace(ReadINIString(Chan, Nick, vbNullString, INI), "$nick", Nick), "$chan", Chan)
If LCase(Param(Line,1)) = CommandPrefix & "join" Then
Select Case LCase(Param(Line,2))
Case "set"
If Not LCase(Param(Line,3)) = vbNullString Then
WriteINIString Chan, Nick, GetRest(Line,3), INI
SendLine "Notice " & Nick & " :Welcome Message changed successfully.", 3
End If
Case "show"
SendLine "Notice " & Nick & " : " & vWelcome, 3
End Select
End If
End Sub
Sub Join(Chan, Nick, RegUser, Flags)
Dim vWelcome
vWelcome = Replace(Replace(ReadINIString(Chan, Nick, vbNullString, INI), "$nick", Nick), "$chan", Chan)
SendLine "PrivMsg " & Chan & " : " & vWelcome, 3
End Sub
Ok, Danke dir!
Darf man das Skript nach Bedürfnis verändern?
Hoffe das du da kein Copyright drauf hast.^^
Und das sieht ja nicht nach IRC Scripting aus.
Sondern nach VB?
Muss man die Skript für Angelbot immer in VB schreiben?
Oder führt er auch andere Sprachen aus?
VBS, PHP, Perl <- Sind die die ich kenne
Such dir was aus
EDIT:
PHP - Geht nur für die neuste Version, ist aber komplett funktions
untüchtig.
Perl - ka, wir haben hier im Board (noch) kein Perl-Script, daher -> Untested
VBS - Geht auf jeden Fall
Also der Bot benutzt allgemein VBS also Visual Basic Script...
Wenn du das Script in MSL bzw. MRC haben willst bist du hier ganz falsch...
Ah ok, vielen Dank.
Dann muss ich meine VBS-Kenntnisse mal erweitern^^
Sry für Doppelposte.
Eig. wollte ich das Skript nun so verändern das der beim Joinen folgendens auswirft
[&nickname]: Welcome Message
Hab das nun auch in der entsprechenden Zeile geändert, mir wird der Nickname nun ausgegeben, nur die "[]" und das ":" weiß ich nicht wie ich die eingeben muss damit das so angezeigt wie oben angegeben.
Bis jetzt sieht es so aus:
Code:
SendLine "PrivMsg " & Chan & " : " & RegUser & vWelcome, 3
ich habs doch extra so gemacht das du die komplette message selbst gestalten kannst.
z.b.
!join set $nick: Willkommen
dann sagt er Nick: Willkommen
das is doch genau das was du willst dafür brauchste das script ja nich verändern.
Nur gibt er das mir nur so aus:
Zitat:(11:39:4
• Now talking in #Test
(11:39:4 • Topic:
(11:39:4 • Topic set by ChanServ on Thu Dec 20 11:39:40 2007
(11:39:49) (Bot) huhu
Und wollte das nun so verändern das:
Zitat:(11:39:49) (Bot) [&nick] huhu
Also zB.
Zitat:(11:39:49) (Bot) [Deathwalker] huhu
Ausgegeben wird, falls das schon eingebaut ist, dann kann es evt. an dem IRC Netzwerk liegen?
-------
Hat sich nun erledigt, habs nun selber hinbekommen:
Code:
SendLine "PrivMsg " & Chan & " : ["& RegUser &"] " & vWelcome, 3
So klappt das:
Zitat:(11:47:17) (Bot) [Deathwalker] huhu