AnGelBot-Portal²

mh

ich ahbe mir schon mehrfach das antiad script gezogen
ich lade es
ich starte
.adsetup
und er kommt nur soweit:

,%%',%%',%%',%%'_______________'%%,'%%,'%%,'%%,
,%%',%%',%%',%%'_ Anti-Ad Setup _'%%,'%%,'%%,'%%,
,%%',%%',%%',%%'_______________'%%,'%%,'%%,'%%,

Welcome to the setup of AntiAd Script 1.0c by Sp33d!
Current settings for #***:

und mehr kommt ned und ich kann das setup ncoh ned ma mit 0 verlassen

plz help

thx

Du benutzt noch eine alte AnGel Version die den Befehl IIf noch nicht unterstützt (Download).
Mir ist augefallen das viele Leute nicht die neuste Version ziehen die hier auf dem Server liegt sondern halt ältere. Ich werde demnächst den Download des AnGels umändern so dass nicht immer alte Versionen unterwegs sind.

thx

nur ich dachte ich hätte die neuste

*g*

1.62 b7

aber es gibt dan wohl b9

nur die frage:

wenn cih einfach die b9 in den ordner mache mitund alles unterverzeichniusse und listen drinlasse
übernimmt der dann die?

ich ahbe nämlcih keinen bock
alle user
mster
friend
und owner neu zu adden

geht daS?

Jepp. Einfach den Bot beenden und die alte AnGel.exe mit der neuen ersetzen und wieder starten. Die Userlisten etc... werden natürlich übernommen.

thx³

dan kanns ja losgehen

ich finde angelbot goil

nur das er halt eben unter windows käuft stört mich

da ich ned immer online bin

und der bot dadurch achu ned :(

naja thx

mach weiter so

ich hab aber evtl. noch was zum Script...

nach dem 4. mal Werbung wird der User für 5 Mins gebannt, aber die Kick-Msg is ja komisch...

[19:53:48] *** t3st0r was kicked by [SF]-BoT-]sT[ (Violation: bitte keine Werbung in #t3st0r! [next time: warning])

next time warning?

Die Reihenfolge ist ja

Warning -> Kick -> 2 min Ban -> 5 min Ban

Nach dem 5 minütigen Ban fängt er wieder von vorne an.

Ich hab das AntiAd script von dir Sp33d aber egal wieviel Werbung ich mach, der kicked mich einfach nich =(

Hier mal der Code:

Code:

'===============================

'Erstellt mit [ABP]AVS 1.0.5

'AnGelBot Visual Scripting

'Visit us online @ http://www.angelbot-portal.de/

'===============================

'Programmiert von Sp33d

'===============================

Const INIFile_Chan = "ini_AntiAdChan.ini"

Const INIFile_User = "ini_AntiAdUser.ini"

Const Version = "AntiAd Script 1.0c by Sp33d"

Sub Init()

  Script Version

  AddCommand "adsetup", Cl_Mas, "+m", "2*** .adsetup <#channel>##  14Zeigt das Setup zum angegebenen Channel an."

  Hook "Chan_Msg"

  Hook "Commands"

End Sub

Sub Commands(vSock, RegUser, Flags, Line)

  If LCase(Param(Line, 1)) = ".adsetup" Then

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

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

        GrabUser vSock, "Anti-Ad Setup", "AntiAd"

        SetSockTag vSock, "~drawmenu~ " & Param(Line, 2)

        AntiAd vSock, RegUser, Flags, ""

      Else

        TU vSock, "5*** Usage: .adsetup <[+#&]channel>"

      End If

    Else

      TU vSock, "5*** Usage: .adsetup <[+#&]channel>"

    End If

  End If

End Sub

Sub AntiAd(vSock, RegUser, Flags, Line)

  If Param(Line, 1) = "0" Then

    If LCase(Param(GetSockTag(vSock), 1)) = "mainmenu" Then

      TU vsock, "10*** Saving settings..."

      ReleaseUser vSock

    ElseIf InStr(1, LCase(GetSockTag(vSock)), "submenu") > 0 Then

      SetSockTag vSock, "~drawmenu~"

      AntiAd vSock, RegUser, Flags, ""

    End If

    Exit Sub

  End If

  Select Case LCase(Param(GetSockTag(vSock), 1))

    Case "~drawmenu~"

      TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_______________2,1'​%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"

      TU vSock, "11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_0,1 Anti-Ad Setup 1,1_2,1'%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"

      TU vSock, " 11,0,%0,11%'12,11,%11,12%'2,12,%12,2%'1,2,%2,1%'1,1_______________2,1'​%1,2%,12,2'%2,12%,11,12'%12,11%,0,11'%11,0%,"

      TU vSock, " "

      TU vSock, "Welcome to the setup of " & Version & "!"

      TU vSock, "Current settings for " & Param(GetSockTag(vSock), 2) & ":"

      TU vSock, " "

      TU vSock, "2 1) Anti-Ad14...: " & IIf(LCase(ReadINIString(Param(GetSockTag(vSock), 2), "Status", "", INIFile_Chan)) = "on", "3ON", "4OFF")

      TU vSock, "2 2) Kick ops14..: " & IIf(LCase(ReadINIString(Param(GetSockTag(vSock), 2), "KickOps", "", INIFile_Chan)) = "yes", "3YES", "4NO")

      TU vSock, " "

      TU vSock, "Enter a setting number or enter '0' to leave the setup."

      TU vSock, "You can use shortcuts like '1 yes' or '2 no'."

      SetSockTag vSock, "MainMenu " & Param(GetSockTag(vSock), 2)

    Case "mainmenu"

      Select Case Param(Line, 1)

        Case 1, 2

          If Left(Line, 1) = "." Then

            TU vSock, "5*** You can't use bot commands in phpBackend-Setup!"

            Exit Sub

          End If

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

            Select Case LCase(Param(Line, 1))

              Case 1

                If LCase(Param(Line, 2)) = "on" Then

                  WriteINIString Param(GetSockTag(vSock), 2), "Status", "on", INIFile_Chan

                  SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 2)

                  AntiAd vSock, RegUser, Flags, ""

                ElseIf LCase(Param(Line, 2)) = "off" Then

                  WriteINIString Param(GetSockTag(vSock), 2), "Status", "off", INIFile_Chan

                  SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 2)

                  AntiAd vSock, RegUser, Flags, ""

                Else

                  TU vSock, "5*** Please enter 'on' or 'off' after the setting number."

                  Exit Sub

                End If

              Case 2

                If LCase(Param(Line, 2)) = "yes" Then

                  WriteINIString Param(GetSockTag(vSock), 2), "KickOps", "yes", INIFile_Chan

                  SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 2)

                  AntiAd vSock, RegUser, Flags, ""

                ElseIf LCase(Param(Line, 2)) = "no" Then

                  WriteINIString Param(GetSockTag(vSock), 2), "KickOps", "no", INIFile_Chan

                  SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 2)

                  AntiAd vSock, RegUser, Flags, ""

                Else

                  TU vSock, "5*** Please enter 'yes' or 'no' after the setting number."

                  Exit Sub

                End If

            End Select

          Else

            SetSockTag vSock, "~drawsubmenu~ " & Param(GetSockTag(vSock), 2)

            AntiAd vSock, RegUser, Flags, Param(Line, 1)

          End If

        Case Else

          TU vSock, "5*** Please enter a valid number."

      End Select

    Case "~drawsubmenu~"

      If Left(Line, 1) = "." Then

        TU vSock, "5*** You can't use bot commands in phpBackend-Setup!"

        Exit Sub

      End If

      Select Case Param(Line, 1)

        Case 1

          TU vSock, "21) 1Anti-Ad"

          TU vSock, "14    Specifies wheter the Ad-Protection is"

          TU vSock, "14    activated or not."

          TU vSock, ""

          TU vSock, "Choose wheter 'on' or 'off' to either activate or"

          TU vSock, "deactivate it, type '0' to cancel setup."

          SetSockTag vSock, "submenu 1 " & Param(GetSockTag(vSock), 2)

        Case 2

          TU vSock, "22) 1Kick-Ops"

          TU vSock, "14    Specifies wheter Anti-Ad is allowed to harm"

          TU vSock, "14    Ops as well."

          TU vSock, ""

          TU vSock, "Choose wheter 'yes' or 'no' to either activate or"

          TU vSock, "deactivate it, type '0' to cancel setup."

          SetSockTag vSock, "submenu 2 " & Param(GetSockTag(vSock), 2)

       End Select

    Case "submenu"

      Select Case Param(GetSockTag(vSock), 2)

        Case 1

          If LCase(Param(Line, 1)) = "on" Then

            WriteINIString Param(GetSockTag(vSock), 3), "Status", "on", INIFile_Chan

            SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 3)

            AntiAd vSock, RegUser, Flags, ""

          ElseIf LCase(Param(Line, 1)) = "off" Then

            WriteINIString Param(GetSockTag(vSock), 3), "Status", "off", INIFile_Chan

            SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 3)

            AntiAd vSock, RegUser, Flags, ""

          Else

            TU vSock, "5*** Please enter 'on', 'off' or '0'."

            Exit Sub

          End If

        Case 2

          If LCase(Param(Line, 1)) = "yes" Then

            WriteINIString Param(GetSockTag(vSock), 3), "KickOps", "yes", INIFile_Chan

            SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 3)

            AntiAd vSock, RegUser, Flags, ""

          ElseIf LCase(Param(Line, 1)) = "no" Then

            WriteINIString Param(GetSockTag(vSock), 3), "KickOps", "no", INIFile_Chan

            SetSockTag vSock, "~drawmenu~ " & Param(GetSockTag(vSock), 3)

            AntiAd vSock, RegUser, Flags, ""

          Else

            TU vSock, "5*** Please enter 'yes', 'no' or '0'."

            Exit Sub

          End If

      End Select

  End Select

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If ReadINIString(Chan, "Status", "", INIFile_Chan) = "on" Then

    If Instr(1, LCase(Line), "#") > 0 Or Instr(1, LCase(Line), "www.") > 0 Or Instr(1, LCase(Line), "http://") > 0 Then

      If MatchFlags(GetUserChanFlags(RegUser, Chan), "+f") Or MatchFlags(GetUserChanFlags(RegUser, Chan), "+b") Then

        SendLine "NOTICE " & Nick & " :Violation: Do not advertise on " & Chan & "! [next time: warning]", 1

        Exit Sub

      ElseIf IsOp(Nick, Chan) And ReadINIString(Chan, "KickOps", "yes", INIFile_Chan) = "no" then

        SendLine "NOTICE " & Nick & " :Violation: Do not advertise on " & Chan & "! [next time: warning]", 1

        Exit Sub

      End If

      Select Case ReadINIString(Nick, "Violations", "0", INIFile_User)

        Case "0"

          WriteINIString Nick, "Violations", "1", INIFile_User

          SendLine "NOTICE " & Nick & " :Violation: Do not advertise on " & Chan & "! [next time: kick]", 1

        Case "1"

          WriteINIString Nick, "Violations", "2", INIFile_User

          SendLine "KICK " & Chan & " " & Nick & " :Violation: Do not advertise on " & Chan & "! [next time: 1min temp-ban]", 1

        Case "2"

          WriteINIString Nick, "Violations", "3", INIFile_User

          TimedCommand "DoUnban " & Chr(34) & Chan & Chr(34) & ", " & Chr(34) & Mask(Hostmask(Chan, Nick), 2) & Chr(34), 60

          SendLine "MODE " & Chan & " -ov+b " & Nick & " " & Nick & " " & Mask(Hostmask(Chan, Nick), 2), 1

          AddKick Chan, Nick, "Violation: Do not advertise on " & Chan & "! [next time: 5min temp-ban]"

        Case "3"

          WriteINIString Nick, "Violations", "0", INIFile_User

          TimedCommand "DoUnban " & Chr(34) & Chan & Chr(34) & ", " & Chr(34) & Mask(Hostmask(Chan, Nick), 2) & Chr(34), 300

          SendLine "MODE " & Chan & " -o+b " & Nick & " " & Mask(Hostmask(Chan, Nick), 2), 1

          AddKick Chan, Nick, "Violation: Do not advertise on " & Chan & "! [next time: warning]"

      End Select

    End If

  End If

End Sub

Sub DoUnBan(Chan, Mask)

  SendLine "MODE " & Chan & " -b " & Mask, 1

End Sub

Und Hier mein Test:

Code:

[13:52:56] <+gM`on|eXaiO> #test

[13:52:57] -gM`ServiCe- Violation: Do not advertise on #fight-chan! [next time: warning]

[13:53:00] <+gM`on|eXaiO> #test

[13:53:00] -gM`ServiCe- Violation: Do not advertise on #fight-chan! [next time: warning]

[13:53:02] <+gM`on|eXaiO> mh ^

[13:53:46] <+gM`on|eXaiO> #test lalala

[13:53:47] -gM`ServiCe- Violation: Do not advertise on #fight-chan! [next time: warning]

[13:53:48] <+gM`on|eXaiO> #test lalala

[13:53:48] -gM`ServiCe- Violation: Do not advertise on #fight-chan! [next time: warning]

[13:53:48] <+gM`on|eXaiO> #test lalala

[13:53:50] <+gM`on|eXaiO> grml

[13:53:52] -gM`ServiCe- Violation: Do not advertise on #fight-chan! [next time: warning]

Das Script kickt/banned keine User die mit +f eingetragen sind, bzw. eingetragene Bots.

Da der letzte Beitrag schon lange hier gepostet ist wollte ich mal trotzdem fragen : Kann man die Bannzeit nicht auch durch 15 bzw. 30 Min ersetzen ?
1.Werbung: Warnung
2.Werbung: KICK
3.werbung: Stiller Ban(15 min)
4.Werbung: 30 min BAN
5.Werbung: 1 Stunde BAN
6.Werbung: 24 Stunden BAN

Wenn mir jemand das Script vielleicht so umschreiben könnte, wäre ich ihm sehr dankbar ! thx !

n00pm

Sp33d

n00pm

Sp33d

n00pm

Iwan-

Sp33d

Sh0rtY

Sp33d

Lordofunknown