AnGelBot-Portal²

Hallo erst ma,

und zwar habe ich ein kleones problemm.
Ich möchte von meinem mircscripts um schreiben auf botscripts.
Sie sollen die gleiche funktion haben nur halt für den bot.
Aber leider weiss ich net wie ich das machen muss.

und zwar sinds die 3 scripts

Script1 Kick Protectiun

Code:

ON 1:LOAD: { .echo -a ViRTuE`S Personal Kick Protectiun Succesfully Loaded!! }

#kickprot off

ON 1:KICK:#: {

  if ($nick == Chanserv) && ($nick == $server) { halt }

  if ($nick != $me) && ($knick == $me) {

    .set %kickernick $nick

    .set %kickedchan $chan

    .join %kickedchan

  /rejoin %kickedchan | .timer 1 1 /join %kickedchan | .timer 2 2 /mode %kickedchan -o %kickernick | .timer 3 2 /mode %kickedchan +b %kickernick | .timer 4 2 .kick %kickedchan %kickernick It's not that I hate you, its just.. that I dont like you %kickernick | unset %kickernick | unset %kickedchan  }

}

#kickprot end

menu menubar {

  Personal Kick Protection

  .On:/enable #kickprot

  .Off:/disable #kickprot

}

Script2 Deop Protectiun

Code:

ON 1:LOAD: { .echo -a ViRTuE`S Personal Deop Protectiun Succesfully Loaded!! }

#deopprot off

ON 1:deop:#: {

  .if ($opnick == $me) { /MSG L OP #j4 | .timer 1 2 /ban $chan $nick | .timer 1 3 /kick $chan $nick 4,1Come back when you've finally learned not to be lame }

}

#deopprot end

menu menubar {

  Personal Deop Protection

  .On:/enable #deopprot

  .Off:/disable #deopprot

}

Und das letzte
Script3 Ban Protectiun

Code:

ON 1:LOAD: { .echo -a ViRTuE`S Personal ban Protectiun Succesfully Loaded!! } 

#banprot on

ON 1:ban:#: { 

  if ( $nick != $me ) { 

    MSG L unbanall $chan 

    timer 1 2 /ban $chan $nick 

    timer 1 3 /kick $chan $nick 4,1Come back when you've finally learned not to be lame 

  } 

} 

#banprot end 

menu menubar { 

  Personal Ban Protection 

  .On:/enable #banprot 

  .Off:/disable #banprot 

}

Könnte mir jemand erklären wie das geht oder eins von den dreien umschreiben damit ich eine kleine vorstellung habe wie es geht.
Das wäre suppernett

Ich weiss zwar nicht genauwas das so alles heissen soll*remote script n00b*, aber es sieht nach einem antiovertake script aus, kuck dir das mal an und sag mal ob das der sache nahe kommt

Code:

Sub Init

  Script "Antiovertake v0.6b by St4rg4t3"

  Hook "DeOp"

  Hook "Ban"

  Hook "Kick"

 SpreadFlagMessage 0, "+m", "14*** antiovertakecript by CT-Daimond loaded."

End Sub

Const ActiveChannels = "#chan1, #chan2, #chan3 ....."

Dim rejoin, Name, Channel, host, Check

Sub DeOp(Chan, Nick, RegUser, Flags, DNick, DUser, DFlags, RemovedOp)

If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub

 If DNick = MyNick Then

  If IsOn("L", Chan) Then   

   SendLine "Privmsg L :op " & Chan, 1

  ElseIf IsOn("Q", Chan) Then   

   SendLine "Privmsg Q :op " & Chan, 1

  End If

 End If

 If IsMaster(RegUser, Nick) = vbNullString Then

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

   Sendline "KICK " & Chan & " " & Nick & " :tjo, deop ist nicht lieb :D", 1

   SendLine "MODE " & Chan & " +o " & DNick, 1

  Else

   SpreadFlagMessage 0, "+m", "3*** " & Nick & " just deopped sb. on " & Chan & " - no action "

  End If

End Sub

Sub Ban(Nick, RegUser, Chan, HMask)

If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub

 If IsMaster(RegUser, Nick) = vbNullString Then

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

  Sendline "KICK " & Chan & " " & Nick & " :böse, bannen ist nicht nett :D", 1

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

 Else

  If HMask = Mask(Hostmask(Chan, MyNick), 3) Then

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

    SendLine "PRIVMSG " & Chan & " :testen wa mal ^^ ", 2

  End If

  SpreadFlagMessage 0, "+m", "3*** " & Nick & " just baned sb. on " & Chan & " - no action "

 End If

End Sub

Sub Kick(Chan, Nick, RegUser, Flags, KNick, KUser, KFlags, Message)

If InStr(1, " " & LCase(ActiveChannels) & " ", " " & LCase(Chan) & " ") <= 0 Then Exit Sub

 If IsMaster(RegUser, Nick) = vbNullString Then

  Name = Nick

  host = Mask(Hostmask(Chan, Nick), 3)

  Channel = Chan

  Check = CBOOL(1)

  TimedCommand "sicherung", 1 * 2

 Else

  SpreadFlagMessage 0, "+m", "3*** " & Nick & " just kicked sb. on " & Chan & " - no action "

 End If

End Sub

Sub sicherung() 

 If Check = CBOOL(1) Then 

  If Not IsOp(MyNick, Channel) Then

   If IsOn("L", Channel) Then   

    SendLine "Privmsg L :op " & Channel, 1

   ElseIf IsOn("Q", Channel) Then   

    SendLine "Privmsg Q :op " & Channel, 1

   End If

  End If

  If IsOp(MyNick, Channel) Then   

   SendLine "MODE " & Channel & " -o+b " & Name & " " & host, 1

   Sendline "KICK " & Channel & " " & Name & " :tjo, deop ist nicht lieb :D", 1

   Check = CBOOL(0) 

   TimedCommand "sicherung", 1 * 2

  End If

 End If 

End Sub

Function IsMaster(RegUser, Nick)

 If MatchFlags(GetUserFlags(RegUser), "+s") Then

  IsMaster = "SuperOwner"

 ElseIf MatchFlags(GetUserFlags(RegUser), "+m") Then

  IsMaster = "Master"

 ElseIf MatchFlags(GetUserFlags(RegUser), "+n") Then

  IsMaster = "BotNet-Master"

 ElseIf Nick = "L" Or Nick = "Q" Then

  IsMaster = "ServiceBot"

 ElseIf WildMatch("*.quakenet.org", Nick) Or Nick = vbNullString Then

  IsMaster = "Server"

 ElseIf Nick = MyNick Then

  IsMaster = "Myself"

 End If

End Function

ne kein overtakeschutz.

Script 1 funktionsweise:
1)Ich werde aus meinem channel gekickt
2)ich rejoine automatisch
3)L gibt mir @
4) ich banne den der mich gekickt hat
5) und kicke ihn sofort

Script 2 funktionsweise:
1) ich werde deopt (man nimmt mir mein @)
2)sage L das er mir op geben soll
3) ich banne den der mich deopt hat
4) und kicke ihn sofort

Script 3 funktionsweise:
1) Ich werde gebant
2) ich mache ein unbanall
3) ich banne den der mich gebannt hat
4) und kicke ihn sofort

so in etwa soll es funzeltn

so ein ähnliches script gibt es, das heißt qnet - script, das gibt es hier im downloadbereich

das script qnet hab ich ja aber das ist doch auch gegen overtakes oder ?

da ist alles drin was dein mirc script erfüllt und gegen overtake ne protection und des ist doch perfekt! Wink

hmm dachte das wäre nur gegen overtake :D

aber ok dan hat sich das erledigt

thx

JasonXXX

stargate

JasonXXX

gangasta

JasonXXX

gangasta

JasonXXX