AnGelBot-Portal²

hi
is vieleicht einer so freundlich mir dieses script fuer den angel bot zu schreiben?
ausserm soll es in allen channels AUSSER #rns gehen
danke schonmal Rolling Eyes

Code:

on *:TEXT:!rr:#: {

 ;gescriptelt von LLoydBates für #anime-fansubs irc.euirc.net

 var %kammer, %kugel

 set %kugel $rand(1,4)

 set %nickroulette $nick

 set %kammer $rand(1,3)

 if (%kammer == %kugel) {

 /msg $chan *Abdrück* [BANG] Oh! Schade %nickroulette $+ , Du hast verloren.

 /mode $chan +b %nickroulette

 /timer 1 10 /mode $chan -b %nickroulette

 /kick $schan $nick [BANG]

 }

 else {

 /msg $chan *Abdrück* [KLICK] Glück gehabt %nickroulette $+ ! Die Kammer war leer.

 }

 }

Code:

Sub init()

  Script "Russisch Roulette v1.0 by Phantom"

  Hook "Chan_Msg"

  Randomize Timer

End Sub

Sub Chan_Msg(Chan, Nick, RegUser, Line)

  If LCase(Chan) = "#rns" Then Exit Sub

  If LCase(Param(Line, 1)) = "!rr" Then

    kugel = Int(RND * 4) + 1

    kammer = Int(RND * 3) + 1

    If kugel = kammer Then

      Sendline "PRIVMSG " & Chan & " :Abdrück* [BANG] Oh! Schade " & Nick & ", Du hast verloren.", 3

      Sendline "MODE " & Chan & " +b " & Nick & "!*@*", 3

      Sendline "KICK " & Chan & " " & Nick & " :[BANG]", 3

    Else

      Sendline "PRIVMSG " & Chan & " :*Abdrück* [KLICK] Glück gehabt " & Nick & "! Die Kammer war leer.", 3

    End If

  End If

End Sub

Sollte so in etwa funktionieren, hatte es nun nicht getestet.

MfG
Phantom

jein es funktionieren zwar super aber wenn er einen bant und kickt wird der ban nicht removed Rolling Eyes

Bensen

Phantom

Bensen