AnGelBot-Portal² / PasteIt / Eintrag #217

[-]
PasteIt Eintrag #217
Autor: eXploder
Titel: Flags Script v0.1 by paradoxon
Beschreibung: Hatte ich vor geraumer Zeit mal gemacht...
 

[-]
Auf diesen Beitrag gibt es folgende 3 Antworten:

Code
  1. Const AktivChan = "#paradoxon #paradoxon.testing"
  2. Const Version = "v0.1"
  3.  
  4. Sub Init()
  5.   Script "1,0 «4•1» 4[ Flags ]1 Script 4[ " & Version & " ]1 by 4[ paradoxon ] 1«4•1» "
  6.   Hook "Chan_Msg"
  7.   SpreadFlagMessage 0, "+m", "1,0 «4•1» 4[ Flags ]1 Script 4[ " & Version & " ]1 by 4[ paradoxon ]1 loaded 1«4•1» "
  8. End Sub
  9.  
  10. Sub Chan_msg(Chan, Nick, RegUser, Line)
  11.   If InStr(AktivChan,Chan) Then
  12.     If LCase(Param(Line,1)) = CommandPrefix & "flags" Then
  13.       Sendline "PRIVMSG " & Chan & " :Available Flags are: .germany .austria .swiss .italy .france .belgium .romania .bulgaria .hungary .lithuania .luxembourg .ireland .estonia", 1
  14.     End If
  15.     If LCase(Param(Line,1)) = CommandPrefix & "germany" Then
  16.       Sendline "PRIVMSG " & Chan & " :1,1------------", 1
  17.       Sendline "PRIVMSG " & Chan & " :4,4------------", 1
  18.       Sendline "PRIVMSG " & Chan & " :8,8------------", 1
  19.     End If
  20.     If LCase(Param(Line,1)) = CommandPrefix & "swiss" Then
  21.       Sendline "PRIVMSG " & Chan & " :4,4----------", 1
  22.       Sendline "PRIVMSG " & Chan & " :4,4----0,0--4,4----", 1
  23.       Sendline "PRIVMSG " & Chan & " :4,4--0,0------4,4--", 1
  24.       Sendline "PRIVMSG " & Chan & " :4,4----0,0--4,4----", 1
  25.       Sendline "PRIVMSG " & Chan & " :4,4----------", 1
  26.     End If
  27.     If LCase(Param(Line,1)) = CommandPrefix & "austria" Then
  28.       Sendline "PRIVMSG " & Chan & " :4,4------------", 1
  29.       Sendline "PRIVMSG " & Chan & " :0,0------------", 1
  30.       Sendline "PRIVMSG " & Chan & " :4,4------------", 1
  31.     End If
  32.     If LCase(Param(Line,1)) = CommandPrefix & "italy" Then
  33.       Sendline "PRIVMSG " & Chan & " :3,3----0,0----4,4----", 1
  34.       Sendline "PRIVMSG " & Chan & " :3,3----0,0----4,4----", 1
  35.       Sendline "PRIVMSG " & Chan & " :3,3----0,0----4,4----", 1
  36.     End If
  37.     If LCase(Param(Line,1)) = CommandPrefix & "france" Then
  38.       Sendline "PRIVMSG " & Chan & " :2,2----0,0----4,4----", 1
  39.       Sendline "PRIVMSG " & Chan & " :2,2----0,0----4,4----", 1
  40.       Sendline "PRIVMSG " & Chan & " :2,2----0,0----4,4----", 1
  41.     End If
  42.     If LCase(Param(Line,1)) = CommandPrefix & "belgium" Then
  43.       Sendline "PRIVMSG " & Chan & " :1,1----8,8----4,4----", 1
  44.       Sendline "PRIVMSG " & Chan & " :1,1----8,8----4,4----", 1
  45.       Sendline "PRIVMSG " & Chan & " :1,1----8,8----4,4----", 1
  46.     End If
  47.     If LCase(Param(Line,1)) = CommandPrefix & "romania" Then
  48.       Sendline "PRIVMSG " & Chan & " :2,2----8,8----4,4----", 1
  49.       Sendline "PRIVMSG " & Chan & " :2,2----8,8----4,4----", 1
  50.       Sendline "PRIVMSG " & Chan & " :2,2----8,8----4,4----", 1
  51.     End If
  52.     If LCase(Param(Line,1)) = CommandPrefix & "bulgaria" Then
  53.       Sendline "PRIVMSG " & Chan & " :0,0----0,0----0,0----", 1
  54.       Sendline "PRIVMSG " & Chan & " :3,3----3,3----3,3----", 1
  55.       Sendline "PRIVMSG " & Chan & " :4,4----4,4----4,4----", 1
  56.     End If
  57.     If LCase(Param(Line,1)) = CommandPrefix & "lithuania" Then
  58.       Sendline "PRIVMSG " & Chan & " :8,8----8,8----8,8----", 1
  59.       Sendline "PRIVMSG " & Chan & " :3,3----3,3----3,3----", 1
  60.       Sendline "PRIVMSG " & Chan & " :4,4----4,4----4,4----", 1
  61.     End If
  62.     If LCase(Param(Line,1)) = CommandPrefix & "luxembourg" Then
  63.       Sendline "PRIVMSG " & Chan & " :4,4----4,4----4,4----", 1
  64.       Sendline "PRIVMSG " & Chan & " :0,0----0,0----0,0----", 1
  65.       Sendline "PRIVMSG " & Chan & " :12,12----12,12----12,12----", 1
  66.     End If
  67.     If LCase(Param(Line,1)) = CommandPrefix & "estonia" Then
  68.       Sendline "PRIVMSG " & Chan & " :12,12----12,12----12,12----", 1
  69.       Sendline "PRIVMSG " & Chan & " :1,1----1,1----1,1----", 1
  70.       Sendline "PRIVMSG " & Chan & " :0,0----0,0----0,0----", 1
  71.     End If
  72.     If LCase(Param(Line,1)) = CommandPrefix & "hungary" Then
  73.       Sendline "PRIVMSG " & Chan & " :4,4----4,4----4,4----", 1
  74.       Sendline "PRIVMSG " & Chan & " :1,1----1,1----1,1----", 1
  75.       Sendline "PRIVMSG " & Chan & " :3,3----3,3----3,3----", 1
  76.     End If
  77.     If LCase(Param(Line,1)) = CommandPrefix & "ireland" Then
  78.       Sendline "PRIVMSG " & Chan & " :3,3----0,0----7,7----", 1
  79.       Sendline "PRIVMSG " & Chan & " :3,3----0,0----7,7----", 1
  80.       Sendline "PRIVMSG " & Chan & " :3,3----0,0----7,7----", 1
  81.     End If
  82.   End If
  83. End Sub


Kontakt | AnGelBot-Portal | Nach oben | Zum Inhalt | Archiv-Modus | RSS-Synchronisation