AnGelBot-Portal²

Seiten: 1 2

hi
ich suche ein script das mich unbant wenn mich irgendwer bant
und wenn mir jemand -ao wegnimmt das der bot es mir wiedergibt
ich bin owner vom bot

und wie soll der bot dich erkennen ?!?!?
haste immer die gleiche host oder den gleichen nick ??

ja hab ich

na dann bräuchte man logischer weise schon die daten sonst braucht man garnet erst scripten ^^

ok
mein nick is Bensen
und meine host is ~g3heim@*.dip.t-dialin.net
und wie gesagt mir gehört der bot
kann man dann nicht mit flag für superowner machen?

naja, ich hatte mal langeweile gehabt und habe tief in meine trickkiste gegriffen Smile

Code:

Sub Init()

  Script "antiban by St4rg4t3"

  Hook "Ban"

  HOOK "RAW"

End Sub

Dim host

Sub RAW(Line)

anfang = Instr(1, Line, "+b", 1)

 If Not anfang = "0" Then

  host = Mid(Line, (anfang + 2))

 End If

End Sub

Sub Ban(Nick, RegUser, Chan, HMask)

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

  Sendline "MODE " & Chan & " -b " & host, 1

 End If

End Sub

also das ist für ban , da nur bei suüperowner reagiert, aber meinste bei -ao das dein bot was amchen soll wenn dir jemand OP wegnimmt oder bei Q/L wegnimmt???
*nur vorsichtshalber nachfragen tu, da ich schon oft was gehört habe was anders gemeint war*

thx erstmal funzt prima das script

also das ganze sieht so ungefähr aus

jemand macht "/cs deamin #blabla Bensen"

Code:

[19:50:40] *ChanServ* Bensen verlor im Raum #blabla das Protect.

[19:50:41] ChanServ sets mode: -a Bensen

und der bot soll dann "/cs admin #blabla Bensen" machen

Code:

[19:50:41] *ChanServ* Bensen wurde im Raum #blabla geprotectet.

[19:50:41] ChanServ sets mode: +a Bensen

und würds auch gehen das wenn jemand dem bot das ao wegnimmt das er sich das dann wiedergibt?
und wenn ihn jemand bant das er sich mit /cs unban #chan Botname entbannt?
der bot heist Yuki-chan falls du die info's brauchst

Code:

Sub Init() 

  Script "antiban by St4rg4t3" 

  Hook "Ban" 

  HOOK "RAW" 

End Sub 

Dim host, Channel, name

Sub RAW(Line) 

anfang = Instr(1, Line, "+b", 1) 

 If Not anfang = "0" Then 

  host = Mid(Line, (anfang + 2)) 

 End If

acheck2 = Instr(1, Line, "Raum", 1)

 If Not acheck2 = "0" Then 

  acheck3 = Instr((acheck2 + 2), Line, " ", 1)

  Channel = Mid(Line, (acheck2 + 2), acheck3)

 End If

acheck = Instr(1, Line, "-a", 1)

 If Not acheck = "0" Then 

  name = Mid(Line, (acheck + 2))

   If Not Channel  = "0" Then

    c

  End If

 End If

End Sub 

Sub Ban(Nick, RegUser, Chan, HMask) 

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

  Sendline "MODE " & Chan & " -b " & host, 1 

 End If

End Sub

Sub c()

 If MatchFlags(GetUserChanFlags(Name, Channel), "+s") Then 

  Sendline "cs admin " & Channel & " " & Name, 1 

 End If

End Sub

so meine trickkiste ist ausgeschöpft und ich hab bissel geraten *gg*

teste mal obs so geht, er sollte nun auch noch drinne haben,
mit dem deladmin bei dir

p.s. der Name vom bot ist ne konstante, mit MyNick hat man immer den aktuellen nick des botes.....

also das mit dem entbannen funzt aber das mit dem +ao geben nicht Crying or Very sad

Code:

Const ActiveChannels = "#channel1"

Sub Init() 

  Script "Antiban by Sp33d"

  Hook "Ban" 

  Hook "Raw" 

End Sub 

Sub RAW(Line) 

  If UCase(Param(Line, 2)) = "MODE" Then

    Dim Chan

    Chan = Param(Line, 3)

    If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") > 0 Then

      Dim Host, Nick, RegUser

      Host = Mid(Param(Line, 1), 2)

      Nick = ParamX(Host, "!", 1)

      ModeChange Chan, Nick, GetRegUser(Host), GetRest(Line, 4)

    End If

  End If

End Sub

Sub ModeChange(Chan, Nick, RegUser, Line)

  If MatchFlags(RegUser, "+s") Then

    If MatchFlags(Param(Line, 1), "-a") Then

      SendLine "PRIVMSG ChanServ :ADMIN " & Chan & " " & Nick,1

    End If

  End If

End Sub

Sub Ban(Nick, RegUser, Chan, HMask) 

  If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") > 0 Then

    If Not MatchFlags(GetUserChanFlags(RegUser, Chan), "+s") Then 

      Sendline "MODE " & Chan & " -b " & HMask, 1 

    End If 

  End If

End Sub 

Function GetRegUser(HMask)

  Dim i, j

  For i = 1 To BotUserCount

    For j = 1 To BotUser(i, BU_Hostmask, 0)

      If WildMatch(BotUser(i, BU_Hostmask, j), HMask) Then

        GetRegUser = BotUser(i, BU_Nick)

        End Function

      End If

    Next

  Next

  GetRegUser = vbNullString

End Function

so müsste das script klappen, wenn nicht kannste sp33d nerven.. :D

Seiten: 1 2

Bensen

stargate

Bensen

stargate

Bensen

stargate

Bensen

stargate

Bensen

stargate