Id: 9936; Nick: Evola; Timestamp: 2008-05-03 14:04:46; 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
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,115»8]
    msg %channel.lot 8,1[15«0 0,1 Lottery Is Not Online! 0,1 0,115»8]
    mode %channel.lot -N+m
    Notice %channel.lot 8,1[15«0 0,1 5 Sec For -m 0,1 0,115»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,115»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,115»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,115»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,115»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,115»8]
    } 
    else { msg %channel.lot 8,1[15«0 0,1  Lottery is now Offline 0,1 0,115»8] } 
  } 
  if ($1 == !commands) { 
    msg %channel.lot  8,1[15«0 0,1 Commands are: !Reg !del !status !prize !credits 0,1 0,115»8]
  } 
  if ($1 == !credits) { 
    msg %channel.lot 8,1[15«0 0,1 This Bot Made By oFeK 0,1 0,115»8]
  } 
  if ($1 == !prize) { 
    msg %channel.lot 8,1[15«0 0,1 Prize is: %prize.lot 0,1 0,115»8]
  } 
  if ($1 == !Regs) { 
    msg %channel.lot 8,1[15«0 0,1 There are %player.lot / %max.lot Regs 0,1 0,115»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,115»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,115»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" 
}
 
 
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
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,115»8]
    msg %channel.lot 8,1[15«0 0,1 Lottery Is Not Online! 0,1 0,115»8]
    mode %channel.lot -N+m
    Notice %channel.lot 8,1[15«0 0,1 5 Sec For -m 0,1 0,115»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,115»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,115»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,115»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,115»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,115»8]
    }
    else { msg %channel.lot 8,1[15«0 0,1  Lottery is now Offline 0,1 0,115»8] }
  }
  if ($1 == !commands) {
    msg %channel.lot  8,1[15«0 0,1 Commands are: !Reg !del !status !prize !credits 0,1 0,115»8]
  }
  if ($1 == !credits) {
    msg %channel.lot 8,1[15«0 0,1 This Bot Made By oFeK 0,1 0,115»8]
  }
  if ($1 == !prize) {
    msg %channel.lot 8,1[15«0 0,1 Prize is: %prize.lot 0,1 0,115»8]
  }
  if ($1 == !Regs) {
    msg %channel.lot 8,1[15«0 0,1 There are %player.lot / %max.lot Regs 0,1 0,115»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,115»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,115»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"
}
 
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)