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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
on *:text:*:?:{
if ($1 == !set) && (!%status.lot) && (%lot.master == $2) && ($4-) {
set %prize.lot $4-
set %Max.lot $3
set %status.lot 1
msg %channel.lot 8,1[15 « 0 0,1 Lottery As Now Started Write !Reg To Join The Lottery! 0,1 0,1 15» 8]
msg %channel.lot 8,1[15 « 0 0,1 Lottery Is Not Online! 0,1 0,1 15» 8]
mode %channel.lot -N+m
Notice %channel.lot 8,1[15 « 0 0,1 5 Sec For -m 0,1 0,1 15» 8]
timer 1 5 mode %channel.lot +N-m
}
if ($1 == !stop) && (%lot.master == $2) {
msg %channel.lot 8,1[15 « 0 0,1 The Lottery As Been Stoped By $nick 0,1 0,1 15» 8]
unset %status.lot
unset %player.lot
unset %players.lot
unset %max.lot
}
}
on *:text:*:%channel.lot: {
if ($1 == !Reg) && (%status.lot == 1) && ($nick !isin %players.lot) {
set %players.lot $addtok(%players.lot,$nick,32)
set %player.lot $calc(%player.lot + 1)
msg %channel.lot 8,1[15 « 0 0,1 $nick You Have Been Reged To The Lottery! [ %player.lot / %max.lot ] 0,1 0,1 15» 8]
}
elseif ($1 == !Reg) && (%status.lot == 1) && ($nick isin %players.lot) { msg %channel.lot 8,1[15 « 0 0,1 Eror! $nick You Alredy In The Regs List! 0,1 0,1 15» 8] }
if ($1 == !del) && (%status.lot == 1) && ($nick isin %players.lot) {
set %players.lot $remtok(%players.lot,$nick,32)
msg %channel.lot 8,1[15 « 0 0,1 $nick You Have Been Deleted From The Lottery! 0,1 0,1 15» 8]
set %player.lot $calc(%player.lot - 1)
}
if ($1 == !status) {
if (%status.lot == 1) {
msg %channel.lot 8,1[15 « 0 0,1 There are %player.lot / %max.lot Regs 0,1 0,1 15» 8]
}
else { msg %channel.lot 8,1[15 « 0 0,1 Lottery is now Offline 0,1 0,1 15» 8] }
}
if ($1 == !commands) {
msg %channel.lot 8,1[15 « 0 0,1 Commands are: !Reg !del !status !prize !credits 0,1 0,1 15» 8]
}
if ($1 == !credits) {
msg %channel.lot 8,1[15 « 0 0,1 This Bot Made By oFeK 0,1 0,1 15» 8]
}
if ($1 == !prize) {
msg %channel.lot 8,1[15 « 0 0,1 Prize is: %prize.lot 0,1 0,1 15» 8]
}
if ($1 == !Regs) {
msg %channel.lot 8,1[15 « 0 0,1 There are %player.lot / %max.lot Regs 0,1 0,1 15» 8]
}
if (%player.lot == %max.lot) && (%status.lot == 1) {
mode %channel.lot +m
timer 1 1 msg %channel.lot 8,1[15 « 0 0,1 Mixing Players plz wait... 0,1 0,1 15» 8]
timer 1 3 msg %channel.lot 8,1[15 « 0 0,1 The Winner Is gettok(%players.lot,$r(1,$numtok(%players.lot,32)),32) 0,1 0,1 15» 8]
unset %status.lot
unset %player.lot
unset %players.lot
unset %max.lot
timer 1 8 mode %channel.lot -m
}
}
on *:part:%channel.lot: {
if ($nick isin %players.lot) {
set %players.lot $remtok(%players.lot,$nick,32)
set %player.lot $calc(%player.lot - 1)
}
}
on *:quit: {
if ($nick isin %players.lot) {
set %players.lot $remtok(%players.lot,$nick,32)
set %player.lot $calc(%player.lot - 1)
}
}
on *:kick: {
if ($nick isin %players.lot) {
set %players.lot $remtok(%players.lot,$nick,32)
set %player.lot $calc(%player.lot - 1)
}
}
on *:Nick: {
if ($nick isin %players.lot) {
set %players.lot $reptok(%players.lot,$nick,$newnick,1,32)
}
}
menu * {
Lottery Settings:set %channel.lot #$$?"Enter Channel Of lottery" | set %lot.master $$?"Enter Master Password"
}
|