View difference between Paste ID: 95TBu3Q8 and qaANjqfh
SHOW: | | - or go back to the newest paste.
1
alias pollset {
2-
  /timer 11:00 1 1 /newpoll Netherlands Chile
2+
  ;/timer 11:00 1 1 /newpoll USA Germany
3-
  /timer 15:00 1 1 /newpoll Croatia Mexico
3+
  /timer 15:00 1 1 /newpoll Algeria Russia
4-
  ;/timer 15:00 1 1 /newpoll Cameroon Brazil
4+
5
alias newpoll {
6
  if ($2) {
7
    unset %vote*
8
    set %vote1_name $1 | set %vote2_name $2-
9
    set %vote1 0 | set %vote2 0
10-
    set %vote1 0 | set %vote2 0 | set %vote3 0
10+
    set %gametime $iif(%gametime == 4,12,4)
11-
    /timer 1 $calc(30*60) /msg #worldcup  0430 minutes till the match!! 12Who will win? 4Vote using .vote $+(<,%vote1_name,|Draw|,%vote2_name,>)
11+
    if (%gametime == 12) {
12-
    /timer 1 $calc(55*60) /msg #worldcup  045 minutes till the match!! 12Who will win? 4Vote using .vote $+(<,%vote1_name,|Draw|,%vote2_name,>) 12(Voting ends in 15mins)
12+
      timer 11:30 1 1 /msg #worldcup  0430 minutes till the match!! 12Who will win? 4Vote using .vote $+(<,%vote1_name,|,%vote2_name,>)
13-
    /timer 1 $calc(68*60) /msg #worldcup 04Gentleman, place your final bets. 12Last call for votes.
13+
      timer 11:55 1 1 /msg #worldcup  045 minutes till the match!! 12Who will win? 4Vote using .vote $+(<,%vote1_name,|,%vote2_name,>) 12(Voting ends in 15mins)
14-
    /timer 1 $calc(70*60) /endpoll
14+
      timer 12:08 1 1 /msg #worldcup 04Gentleman, place your final bets. 12Last call for votes.
15
      timer 12:12 1 1 /endpoll
16-
    msg #worldcup 4New poll: Who will win %vote1_name or %vote2_name $+ ? - Vote using .vote $+(<,%vote1_name,|Draw|,%vote2_name,>)
16+
17
    elseif (%gametime == 4) {
18
      timer 15:30 1 1 /msg #worldcup  0430 minutes till the match!! 12Who will win? 4Vote using .vote $+(<,%vote1_name,|,%vote2_name,>)
19
      timer 15:55 1 1 /msg #worldcup  045 minutes till the match!! 12Who will win? 4Vote using .vote $+(<,%vote1_name,|,%vote2_name,>) 12(Voting ends in 15mins)
20
      timer 16:08 1 1 /msg #worldcup 04Gentleman, place your final bets. 12Last call for votes.
21
      timer 16:12 1 1 /endpoll
22
    }
23
    set %poll on
24
    msg #worldcup 4New poll: Who will win %vote1_name or %vote2_name $+ ? - Vote using .vote $+(<,%vote1_name,|,%vote2_name,>)
25
  }
26
}
27
on $*:text:/^[!.](vote)(\s|$)/Si:#worldcup: {
28
  if ($($+(%,botflood.,$nick),2)) {
29
    if ($($+(%,botflood.,$nick),2) >= 50) { 
30
      ignore -u60 $address($nick,2) 
31
      msg $chan $+($nick,$chr(44)) You have been put on ignore for 60secs for abusing the bot.
32
      halt 
33
    }
34
    elseif ($($+(%,botflood.,$nick),2) >= 40) { 
35
      msg $chan $+($nick,$chr(44)) Please do not flood the bot. 
36
      inc -z $+(%,botflood.,$nick) 20 
37
      halt 
38
    }
39
    else { inc -z $+(%,botflood.,$nick) 25 }
40
  }
41
  else { inc -z $+(%,botflood.,$nick) 25 }
42
  if (%poll == off) {
43
    if (%pollflood != true) {
44
      msg $chan 4Poll Closed - Results: $poll
45-
    if (($2 isin %vote1_name) || ($2 isin %vote2_name) || ($2 == Draw)) {
45+
46
    }
47
    halt
48-
      elseif ($2 isin Draw) { inc %vote3 }
48+
49
  if ($istok(%voted,$address($nick,2),44)) {
50
    msg $chan Sorry $nick $+ , you have already voted on this match.
51
  }
52
  if ($2 == draw) { msg $chan $nick $+ , there can't be a draw at this stage! Try .vote $+(<,%vote1_name,|,%vote2_name,>) | halt }
53-
      msg $chan $nick $+ , try .vote $+(<,%vote1_name,|Draw|,%vote2_name,>)
53+
54
    if (($2 isin %vote1_name) || ($2 isin %vote2_name)) {
55
      if ($2 isin %vote1_name) { inc %vote1 }
56
      elseif ($2 isin %vote2_name) { inc %vote2 }
57
      set %voted $addtok(%voted,$address($nick,2),44)
58
      msg $chan $poll
59-
    if (($2 isin %vote1_name) || ($2 isin %vote2_name) || ($2 == Draw)) {
59+
60
    else { 
61
      msg $chan $nick $+ , try .vote $+(<,%vote1_name,|,%vote2_name,>)
62-
      elseif ($2 == Draw) { inc %vote3 }
62+
63
  }
64
}
65
on *:input:#worldcup: {
66
  if (($1 == .vote) || ($1 == !vote)) {
67
    if (($2 isin %vote1_name) || ($2 isin %vote2_name)) {
68
      if ($2 isin %vote1_name) { inc %vote1 }
69
      elseif ($2 isin %vote2_name) { inc %vote2 }
70
      set %voted $addtok(%voted,$address($nick,2),44)
71
      .timer -m 1 100 msg $chan $poll
72
    }
73
  }
74
}
75
on $*:text:/^[!.](poll)(\s|$)/Si:#worldcup: {
76
  if ($($+(%,botflood.,$nick),2)) {
77
    if ($($+(%,botflood.,$nick),2) >= 50) { 
78
      ignore -u60 $address($nick,2) 
79
      msg $chan $+($nick,$chr(44)) You have been put on ignore for 60secs for abusing the bot.
80
      halt 
81
    }
82
    elseif ($($+(%,botflood.,$nick),2) >= 40) { 
83
      msg $chan $+($nick,$chr(44)) Please do not flood the bot. 
84
      inc -z $+(%,botflood.,$nick) 20 
85
      halt 
86
    }
87-
  msg #worldcup Final Poll Results: $+(3,%vote1_name,:) %vote1 $percent(%vote1) - $+(4,%vote2_name,:) %vote2 $percent(%vote2) - 7Draw: %vote3 $percent(%vote3)
87+
88
  }
89
  else { inc -z $+(%,botflood.,$nick) 25 }
90-
  return Who will win? $+(3,%vote1_name,:) %vote1 $percent(%vote1) - $+(4,%vote2_name,:) %vote2 $percent(%vote2) - 7Draw: %vote3 $percent(%vote3)
90+
91
}
92
alias endpoll {
93-
  var %votes $calc(%vote1 + %vote2 + %vote3)
93+
94
  msg #worldcup Final Poll Results: $+(3,%vote1_name,:) %vote1 $percent(%vote1) - $+(4,%vote2_name,:) %vote2 $percent(%vote2)
95
}
96
alias poll { 
97
  return Who will win? $+(3,%vote1_name,:) %vote1 $percent(%vote1) - $+(4,%vote2_name,:) %vote2 $percent(%vote2)
98
}
99
alias percent { 
100
  var %votes $calc(%vote1 + %vote2)
101
  return $+($chr(40),$gettok($calc($calc($1 / %votes) * 100),1,$asc(.)),%,$chr(41),) 
102
}