Id: 10609; Nick: En`forcer; Timestamp: 2008-05-15 15:06:01; Pasted as: mIRC
Description: n/a 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

;;; GAMEBOT
 
;;spinbot
on 6,7,8,9:text:!spin*:#: { if (%game == on) { 
    set %game off {
      if ($2 == points) { set %spin + 1,- 1,- 2,+ 2,+ 3,- 3,- 4,+ 4,- 5,+ 5
        var %1 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %2 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %3 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        unset %spin
        var %points %points [ $+ [ $nick ] ]
        msg $chan $nick current Points: %points
        set %points [ $+ [ $nick ] ]  $calc(%points %1 %2 %3)
        msg $chan In this game won or lost: $calc(%1 %2 %3)
      msg $chan new Points: %points [ $+ [ $nick ] ] }
      else { 
        set %spin 7kick,4ban,9operator,12voice,0slap  
        var %1 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %2 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %3 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        unset %spin
        msg $chan %1 %2 %3
        if ((%1 == %2) && (%2 == %3)) {
          msg $chan Jackpot
          if (%1 == 0slap) { me take $nick and kick his ass }
          if (%1 == 7kick) { k $nick $chan | invite $nick $chan }
          if (%1 == 12voice) { mode $chan +v $nick }
          if (%1 == 9operator) { mode $chan +o $nick | timer 1 10 /mode $chan -o $nick }
        if (%1 == 4ban) { msg $chan 10 Secunden ban for $nick in | msg $chan 3 | timer 1 1 | msg $chan 2 | timer 1 1 | msg $chan 1 | timer 1 1 | msg $chan 0.... | mode $chan +b $nick | k $nick $chan | timer 1 10 | mode $chan -b $nick | invite $nick $chan } } 
  else { msg $chan Niete } } } } { } 
  timer 1 10
set %game on }
 
;;snapbot
on 6,7,8,9:text:!snap*:#: { if (%game == on) { 
    set %game off { if ($2 ison $chan) {
        var %points %points [ $+ [ $nick ] ]
        var %points2 %points [ $+ [ $2 ] ]
        msg $chan $nick current Points: %points
        msg $chan $2 current Points: %points2
        set %points [ $+ [ $2 ] ]  $calc(%points2 - 5)
        set %points [ $+ [ $nick ] ]  $calc(%points + 5)
        msg $chan $2 lost 5 Points and $nick get 5 Points
        msg $chan $nick new Points: %points [ $+ [ $nick ] ]
  msg $chan $2 new Points: %points [ $+ [ $2 ] ] } } } { }
  timer 1 10
set %game on }
 
Parsed for bracket errors and indented: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

;;; GAMEBOT
 
;;spinbot
on 6,7,8,9:text:!spin*:#: { if (%game == on) {
    set %game off {
      if ($2 == points) { set %spin + 1,- 1,- 2,+ 2,+ 3,- 3,- 4,+ 4,- 5,+ 5
        var %1 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %2 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %3 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        unset %spin
        var %points %points [ $+ [ $nick ] ]
        msg $chan $nick current Points: %points
        set %points [ $+ [ $nick ] ]  $calc(%points %1 %2 %3)
        msg $chan In this game won or lost: $calc(%1 %2 %3)
      msg $chan new Points: %points [ $+ [ $nick ] ] }
      else {
        set %spin 7kick,4ban,9operator,12voice,0slap
        var %1 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %2 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        var %3 $gettok(%spin,$r(1,$numtok(%spin,44)),44)
        unset %spin
        msg $chan %1 %2 %3
        if ((%1 == %2) && (%2 == %3)) {
          msg $chan Jackpot
          if (%1 == 0slap) { me take $nick and kick his ass }
          if (%1 == 7kick) { k $nick $chan | invite $nick $chan }
          if (%1 == 12voice) { mode $chan +v $nick }
          if (%1 == 9operator) { mode $chan +o $nick | timer 1 10 /mode $chan -o $nick }
        if (%1 == 4ban) { msg $chan 10 Secunden ban for $nick in | msg $chan 3 | timer 1 1 | msg $chan 2 | timer 1 1 | msg $chan 1 | timer 1 1 | msg $chan 0.... | mode $chan +b $nick | k $nick $chan | timer 1 10 | mode $chan -b $nick | invite $nick $chan } }
  else { msg $chan Niete } } } } { }
  timer 1 10
set %game on }
 
;;snapbot
on 6,7,8,9:text:!snap*:#: { if (%game == on) {
    set %game off { if ($2 ison $chan) {
        var %points %points [ $+ [ $nick ] ]
        var %points2 %points [ $+ [ $2 ] ]
        msg $chan $nick current Points: %points
        msg $chan $2 current Points: %points2
        set %points [ $+ [ $2 ] ]  $calc(%points2 - 5)
        set %points [ $+ [ $nick ] ]  $calc(%points + 5)
        msg $chan $2 lost 5 Points and $nick get 5 Points
        msg $chan $nick new Points: %points [ $+ [ $nick ] ]
  msg $chan $2 new Points: %points [ $+ [ $2 ] ] } } } { }
  timer 1 10
set %game on }
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)