AnGelBot-Portal²

öhm gibt es ein script das auf verschiedene commands achtet
also ich sag mal so mein topic ist jetzt:
« WelCome ² #i-B4se Sponsor: http://www.europe.creative.com Partner: Searching VIP Bot: ON »
und das wenn ich
!topic bot off mache das der dann das auf off stellt also VIP Bot: OFF
oder
!Topic Partner #chan das der dann nen neuen partner einträgt ???
das wäre cool
Thx schonmal im vorraus

ich poste mal mein topic script ...
vielleicht kannste damit was anfangen und es nach deinen wünschen ändern

Code:

'Topicchanger by AMiR - #sajuko!

'

'Topicaufbau:

'<spacer> welcome ² #channel <spacer> www.urlname.de/org/com <spacer> info <spacer> chan <spacer>

'!t_url <de/org/com> <urlname>

'!t_info <info text>

'!t_spacer <spacer>

'!t_colour <orange/red/blue/green/black>

'!t_chan <channame/sth else>

'

Sub Init()

  Script "Topicchanger by AMiR"

  SpreadFlagMessage 0, "+m", "*** Topicchanger by AMiR installed - visit #sajuko! :P"

  Hook "Chan_Msg"

  Hook "Topic"

End Sub

Dim url,de,mychan,chann,spacer,info

Sub Topic(Chan, Nick, RegUser, Flags, Line)

  If MatchFlags(GetUserChanFlags(RegUser, Chan), "+m") Then Exit Sub

  If Readinistring(Chan, "Protect", "", "topic.ini") = "1" Then

    Settopic

  End If

End Sub

Sub Chan_Msg(Chan, Nick, Reguser, Line)

  Select Case Param(Line,1)

    Case ".t_protect", "!t_protect", ".t_prot", "!t_prot"

      Select Case Param(Line,2)

        Case "1", "on"

          Writeinistring Chan, "Protect", "1", "topic.ini"

        Case "0", "off"

          Writeinistring Chan, "Protect", "0", "topic.ini"

      End Select

    Case "!t_own", ".t_own"

      If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

        Writeinistring "Topic", "MyChan", Chan, "topic.ini"

        Writeinistring Chan, "own", GetRest(Line,2), "topic.ini"

        SendLine "TOPIC " & MyChan & " :" & GetRest(Line,2), 2

      End If

    Case "!t_set", ".t_set"

      Select Case Param(Line,2)

        Case "own"

          If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

            own=Readinistring(Chan, "own", "", "topic.ini")

            SendLine "TOPIC " & MyChan & " :" & own, 2

          End If

          Case "norm"

          If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

            Settopic

          End If

        End Select

    Case "!t_url", ".t_url"

      If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

        Writeinistring "Topic", "MyChan", Chan, "topic.ini"

        Writeinistring Chan, "de", Param(Line,2), "topic.ini"

        Writeinistring Chan, "url", GetRest(Line,3), "topic.ini"

        Settopic

      End If

    Case "!t_info", ".t_info"

      If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

        Writeinistring "Topic", "MyChan", Chan, "topic.ini"

        Writeinistring Chan, "info", GetRest(Line,2), "topic.ini"

        Settopic

      End If

    Case "!t_spacer", ".t_spacer"

      If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

        Writeinistring "Topic", "MyChan", Chan, "topic.ini"

        Writeinistring Chan, "spacer", GetRest(Line,2), "topic.ini"

        Settopic

      End If

    Case "!t_chan", ".t_chan"

      If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

        Writeinistring "Topic", "MyChan", Chan, "topic.ini"

        Writeinistring Chan, "chann", GetRest(Line,2), "topic.ini"

        Settopic

      End If

    Case "!t_colour", ".t_colour"

    Select Case Param(Line,2)

      Case "orange"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          Writeinistring "Topic", "MyChan", Chan, "topic.ini"

          Writeinistring Chan, "colour", "orange", "topic.ini"

          Settopic

          SendLine "TOPIC " & MyChan & " :7,12" & spacer & " 7welcome 0²7 " & chan & " 2" & spacer & "7 www0.7" & url & "0.7" & de & " 2" & spacer & "7 " & info & " 2" & spacer & "7 " & chann & " 2" & spacer , 2

      End If

      Case "blue"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          Writeinistring "Topic", "MyChan", Chan, "topic.ini"

          Writeinistring Chan, "colour", "blue", "topic.ini"

          Settopic

          SendLine "TOPIC " & MyChan & " :10,12" & spacer & " 10welcome 0²10 " & chan & " 2" & spacer & "10 www0.10" & url & "0.10" & de & " 2" & spacer & "10 " & info & " 2" & spacer & "10 " & chann & " 2" & spacer, 2

      End If

      Case "green"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          Writeinistring "Topic", "MyChan", Chan, "topic.ini"

          Writeinistring Chan, "colour", "green", "topic.ini"

          Settopic

          SendLine "TOPIC " & MyChan & " :3,12" & spacer & " 3welcome 0²3 " & chan & " 2" & spacer & "3 www0.3" & url & "0.3" & de & " 2" & spacer & "3 " & info & " 2" & spacer & "3 " & chann & " 2" & spacer, 2

      End If

      Case "red"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          Writeinistring "Topic", "MyChan", Chan, "topic.ini"

          Writeinistring Chan, "colour", "red", "topic.ini"

          Settopic

          SendLine "TOPIC " & MyChan & " :4,12" & spacer & " 4welcome 0²4 " & chan & " 2" & spacer & "4 www0.4" & url & "0.4" & de & " 2" & spacer & "4 " & info & " 2" & spacer & "4 " & chann & " 2" & spacer, 2

      End If

      Case "black"

        If MatchFlags(GetUserChanFlags(RegUser, Chan), "+n") Then

          Writeinistring "Topic", "MyChan", Chan, "topic.ini"

          Writeinistring Chan, "colour", "black", "topic.ini"

          Settopic

          SendLine "TOPIC " & MyChan & " :0,12" & spacer & " 0welcome 7²0 " & chan & " 2" & spacer & "0 www7.0" & url & "7.0" & de & " 2" & spacer & "0 " & info & " 2" & spacer & "0 " & chann & " 2" & spacer, 2

      End If

    End Select

  End Select

End Sub

Sub Settopic()

  MyChan=Readinistring("Topic", "MyChan", "", "topic.ini")

  url=Readinistring(MyChan, "url", "", "topic.ini")

  de=Readinistring(MyChan, "de", "", "topic.ini")

  chann=Readinistring(MyChan, "chann", "", "topic.ini")

  spacer=Readinistring(MyChan, "spacer", "", "topic.ini")

  info=Readinistring(MyChan, "info", "", "topic.ini")

  Select Case Readinistring(MyChan, "colour", "", "topic.ini")

    Case "orange"

      SendLine "TOPIC " & MyChan & " :7,12" & spacer & " 7welcome 0²7 " & MyChan & " 2" & spacer & "7 www0.7" & url & "0.7" & de & " 2" & spacer & "7 " & info & " 2" & spacer & "7 " & chann & " 2" & spacer , 2

    Case "blue"

      SendLine "TOPIC " & MyChan & " :10,12" & spacer & " 10welcome 0²10 " & MyChan & " 2" & spacer & "10 www0.10" & url & "0.10" & de & " 2" & spacer & "10 " & info & " 2" & spacer & "10 " & chann & " 2" & spacer, 2

    Case "green"

      SendLine "TOPIC " & MyChan & " :3,12" & spacer & " 3welcome 0²3 " & MyChan & " 2" & spacer & "3 www0.3" & url & "0.3" & de & " 2" & spacer & "3 " & info & " 2" & spacer & "3 " & chann & " 2" & spacer, 2

    Case "red"

      SendLine "TOPIC " & MyChan & " :4,12" & spacer & " 4welcome 0²4 " & MyChan & " 2" & spacer & "4 www0.4" & url & "0.4" & de & " 2" & spacer & "4 " & info & " 2" & spacer & "4 " & chann & " 2" & spacer, 2

    Case "black"

      SendLine "TOPIC " & MyChan & " :0,12" & spacer & " 0welcome 7²0 " & MyChan & " 2" & spacer & "0 www7.0" & url & "7.0" & de & " 2" & spacer & "0 " & info & " 2" & spacer & "0 " & chann & " 2" & spacer, 2

  End Select

End Sub

vielen dank nur da gibt es ein kleines prob
ich kann noch nicht wirklich angelbot scripten :(
deswegen frag ich ja sogenau sag ich mal nach
wenn du / ihr mir evtl sagen könnt also mal sone zeile rausschneidet was ich verändern muss dann setz ich mich dahinter aber enn man noch von gar nix ahnung hat wird das schwer :(
also ich sag mal kannst du mir nur von einen zeigen z.b. von partner
wie ich das veränder dann mach ich das andere
bitte Wink

pls help me
ihr müsst nur quasi 2 ausschitte machen was ich an den command ändern muss und dann in den script
den rest such ich dann selber raus büdde