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 }
|