Baumstrukturmodus | Linearer Modus

bio · 21.02.2003, 17:16 Uhr

hi zusammen :O)

ist es möglich bei diesem script eine mehrzeilige welcome message zu generieren ?
kann ich da zb. die ini_welcome.ini bearbeiten um das zu ermöglichen ? wen ja wie geht das bzw. was muss ich da eintragen ? ($crlf funzt ned)

thx and greetz
bio

***Sp33d*** · 21.02.2003, 18:43 Uhr

Mit diesem geänderten Script gehts:

Code:

Const WCM_File = "ini_welcome.ini"

Sub Init()

  Script "Welcome Script 1.0b by Sp33d"

  Hook "Join"

  Hook "Commands"

  AddCommand "wcm_edit", Cl_Mas, "+m", "2*** wcm_edit <#channel|hostmask> <welcomemessage>##14Ändert die Willkommensnachricht von <#channel> auf <welcomemessage>"

  AddCommand "wcm_status", Cl_Mas, "+m", "2*** wcm_status <#channel|nick> [on | off]##14De-/Aktiviert die Willkommensnachricht auf <#channel>.##  Bei Nichtangabe von on/off wird die aktuelle Willkommens-##  nachricht angezeigt."

  SpreadFlagMessage 0, "+m", "3*** Welcome Script 1.0a by Sp33d is now loaded."

  SpreadFlagMessage 0, "+m", "3*** 2 new commands added: wcm_edit | wcm_status"

  SpreadFlagMessage 0, "+m", "3*** Type .help <command> (i.e. .help wcm_edit) to recieve syntax help"

End Sub

Sub Join(Chan, Nick, RegUser, Flags)

  If ReadINIString(Mask(Hostmask(Chan, Nick), 3), "Status", "off", WCM_File) = "on" Then

    Msg = ReadINIString(Mask(Hostmask(Chan, Nick), 3), "Msg", "", WCM_File)

    If Msg <> "" Then

      Msg = Split(Msg, "##")

      For i = LBound(Msg) To UBound(Msg)

        SendLine "NOTICE " & Nick & " :" & Msg(i), 3

      Next

    Else

      SpreadFlagMessage 0, "+m", "3*** ERR: Welcome message for " & Mask(Hostmask(Chan, Nick), 3) & " is turned on, but no message is specified!"

    End If

  ElseIf ReadINIString(Chan, "Status", "off", WCM_File) = "on" Then

    Msg = ReadINIString(Chan, "Msg", "", WCM_File)

    If Msg <> "" Then

      Msg = Split(Msg, "##")

      For i = LBound(Msg) To UBound(Msg)

        SendLine "NOTICE " & Nick & " :" & Msg(i), 3

      Next

    Else

      SpreadFlagMessage 0, "+m", "3*** ERR: Welcome message for " & Chan & " is turned on, but no message is specified!"

    End If

  End If

End Sub

Sub Commands(vsock, RegUser, Flags, Line)

  Select Case Param(LCase(Line), 1)

    Case ".wcm_edit"

      If Param(Line, 2) <> "" And Param(Line, 3) <> "" Then

        If Left(Param(Line, 2), 1) = "#" Then

          WriteINIString Param(Line, 2), "Msg", GetRest(Line, 3), WCM_File

          SpreadFlagMessage 0, "+m", "3*** Welcome message for " & Param(Line, 2) & " was updated"

          If ReadINIString(Param(Line, 2), "Status", "-1", WCM_File) = "-1" Then

            WriteINIString Param(Line, 2), "Status", "on", WCM_File

            SpreadFlagMessage 0, "+m", "3*** Welcome message for " & Param(Line, 2) & " is now turned on"

          End If

        Else

          WriteINIString Mask(Param(Line, 2), 3), "Msg", GetRest(Line, 3), WCM_File

          SpreadFlagMessage 0, "+m", "3*** Welcome message for " & Mask(Param(Line, 2), 3) & " was updated"

          If ReadINIString(Mask(Param(Line, 2), 3), "Status", "-1", WCM_File) = "-1" Then

            WriteINIString Mask(Param(Line, 2), 3), "Status", "on", WCM_File

            SpreadFlagMessage 0, "+m", "3*** Welcome message for " & Mask(Param(Line, 2), 3) & " is now turned on"

          End If

        End If

      Else

        SpreadFlagMessage 0, "+m", "3*** Invalid use of wcm_edit. Type .help wcm_edit"

      End If

    Case ".wcm_status"

      If Param(Line, 3) = "" Then

        If Left(Param(Line, 2), 1) <> "#" Then

          Parameter = Mask(Param(Line, 2), 3)

        Else

          Parameter = Param(Line, 2)

        End If

        SpreadFlagMessage 0, "+m", "3*** Welcome settings for " & Parameter

        If ReadINIString(Parameter, "Status", "-none-", WCM_File) = "-none-" Then

          SpreadFlagMessage 0, "+m", "3*** => Channel/hostmask unknown! Add using:"

          SpreadFlagMessage 0, "+m", "3*** => .wcm_edit " & Parameter & " Hello and welcome to " & Param(Line, 2)

          SpreadFlagMessage 0, "+m", "3*** => Or type .help wcm_edit to recieve syntax help"

        Else

          If ReadINIString(Parameter, "Status", "off", WCM_File) = "off" Then

            SpreadFlagMessage 0, "+m", "3*** => Welcome message is turned off"

          ElseIf ReadINIString(Parameter, "Status", "off", WCM_File) = "on" Then

            SpreadFlagMessage 0, "+m", "3*** => Welcome message is turned on"

          Else

            SpreadFlagMessage 0, "+m", "3*** => Illegal data found on " & WCM_File

          End If

          SpreadFlagMessage 0, "+m", "3*** => The current welcome message is:"

          SpreadFlagMessage 0, "+m", "3*** => " & ReadINIString(Parameter, "Msg", "[empty]", WCM_File)

        End If

      Else

        If Param(Line, 2) <> "" And Param(Line, 3) <> "" Then

          If Left(Param(Line, 2), 1) <> "#" Then

            Parameter = Mask(Param(Line, 2), 3)

          Else

            Parameter = Param(Line, 2)

          End If

          Select Case LCase(Param(Line, 3))

            Case "on"

              WriteINIString Parameter, "Status", "on", WCM_File

              SpreadFlagMessage 0, "+m", "3*** Welcome message for " & Parameter & " is now turned on"

            Case "off"

              WriteINIString Parameter, "Status", "off", WCM_File

              SpreadFlagMessage 0, "+m", "3*** => Welcome message for " & Parameter & " is now turned off"

            Case  Else

              SpreadFlagMessage 0, "+m", "3*** => Illegal data found on " & WCM_File

          End Select

        Else

          SpreadFlagMessage 0, "+m", "3*** Invalid use of wcm_status. Type .help wcm_status"

        End If

      End If

  End Select   

End Sub

Einfach statt deinem $crlf ## schreiben, also z.B.

Zitat:<[ABP]Sp33d> .wcm_edit [ABP]Sp33d!user@myhost.is.t-dialin.net Hallo Sp33d##und willkommen##in #angelbot-portal

Der Satz wird dann bei den ## gesplittet und jeder Teil wird einzeln geschickt.

bio · 21.02.2003, 18:59 Uhr

hey supi :D

dank dir für die schnelle antwort Wink

werd das dann mal nächste woche reinbauen, denn ich muss noch auf die angelbot leutz warten, denn ich hab ein prob mit dem bot der immer abkaggt aufm irc.wiredirc.net...ka warum, denn der selbe bot auf meinem ircd läuft wunderbar :(
ari hat sich dem problem mal angenommen Smile

greetz

TheRealBubba · 07.07.2003, 09:30 Uhr

Hi,hab mal ne frage,

hab den welcome script nun zum bot eingefügt!Wie geht es das er nun dieses ausführt? in den channels die ich mit dem bot online bin

Gremlin · 07.07.2003, 10:03 Uhr

TheRealBubba schrieb:Hi,hab mal ne frage,

hab den welcome script nun zum bot eingefügt!Wie geht es das er nun dieses ausführt? in den channels die ich mit dem bot online bin

Gehts auch deutlicher bzw. ums konkret zu sagen, gehts auch in verständlichem Deutsch?
(Lernt man das heute nicht mehr in der Schule?) Rolling Eyes

Was meinst du mit "zum bot eingefügt"? Nur im Script-Ordner ablegen reicht nicht, du mußt
das Script auf der Partyline (PL) auch starten.
Dies macht man mit .+script scriptname
In diesem Fall also

Code:

.+script welcome.asc

(Die Dateierweiterung .asc kann auch weggelassen werden)

Das ist aber eigentlich (mal wieder) Grundwissen, das man sich hier auf der Seite
anlesen sollte, wenn man den Bot nutzen will.

TheRealBubba · 07.07.2003, 10:45 Uhr

Also noch mla für die die es nicht lesen konnten Shocked

ICH hab jetzt den Angel bot und will ein oder mehrer scripte einfügen !Ich hab schon alle scripte im ordner drinne ,muss halt nur noch dem bot melden .+ script blalba Smile

1. FRage kann ich mehrere scripte dirnne haben die glecihzeitig in verschieden mirc channels laufen können ?

2.Frage Allg. zum script ....... z.b. bin ich grad beim WELCOME script ,den der bot auch gefunden/erkannt hat.Wie oder was muss mann da noch machen damit der BOT die scripte ausführt????

Sorry ,bin ganz neu bei der sache Wink

Gremlin · 07.07.2003, 10:54 Uhr

1. Du kannst mehrer Scripte laufen lassen. Diese laufen dann in allen Channels, in denen dein Bot ist.

Punkt 2 müßtest du mal näher erläutern, Was meinst du mit "gefunden/erkannt "? Confused

Wenn du ein Script mit .+script geladen hast, wird es auch ausgeführt. Smile

TheRealBubba · 07.07.2003, 11:41 Uhr

wegen dem script,muss mann nix mehr einstellen wenn der bot es geladen hat?? zumindest funktioniert der WELCOME script dann nicht Smile

Gremlin · 07.07.2003, 11:56 Uhr

:idea: Benutze mal die Suchfunktion des Forums :idea: , wenn ich mich recht entsinne, gab es
da mal einen Thread wegen eines Bugs dem Welcome-Script.

salle18 · 16.10.2003, 17:04 Uhr

hab mir das welcome script gezogen aber wie kann man es verändern das es nicht ne normale welcome msg gibt sondern eine bei dem der gejointe user mitreingeschrieben wird
wie zb Welcome "username " to #blabla

Möglicherweise verwandte Themen...
Thema:		Verfasser	Antworten:	Ansichten:	Letzter Beitrag
	MassHighlight 1.0a by Sp33d	noize	4	1.666	14.07.2008 13:29 Uhr Letzter Beitrag: Bytespoiler
	GSW 1.4b by Sp33d	Ragna	0	565	27.08.2004 12:22 Uhr Letzter Beitrag: Ragna