-PAGE 3-

POLL SCRIPT ONLY


On $*:text:/^[!@]setpoll/Si:#Jolly,#dkthunder,#dtchat:{
  if (%dtpoll == $Null) {
    If ($3 == or) {
      set %dtpoll $2-
      msg #dkthunder $s1(DarkThunder's Poll set to) $s2(" $+ %dtpoll $+ ?") 
      msg #dkthunder $s1(Please vote in this poll by either typing) $s3(" $+ $2 $+ ") $s1(or) $s4(" $+ $4 $+ ")
      set %answer1 $2
      Set %answer2 $4
    set %pollt1 }
    elseif ($3 !== or) {
      Set %dtpoll $2-
      msg #dkthunder $s1(DarkThunder's Poll set to) $s2(" $+ %dtpoll $+ ?") 
      msg #dkthunder $s1(Please vote in this poll by either typing) $s3("!Yes") $s1(or) $s4("!No")
      set %answer1 !Yes
      set %answer2 !No
    set %pollt2 }
  }
  elseif (%dtpoll !== $null) {
    notice $nick $s1(Sorry there is already a poll set) $s2(Type !delpoll to remove the old poll)
  }
}

On $*:text:/^[!@]poll/Si:#Jolly,#dkthunder,#dtchat:{
  if (%dtpoll == $Null) {
  Notice $nick $s1(DarkThunder currently has no poll set, to set one type) $s2(!setpoll.) }
  elseIf {%dtpoll !== $null) {
    Set %msgstyle.poll $iif($left($1,1) = @,msg #,notice $nick)
  %msgstyle.poll $s1(DarkThunder's current poll is) $s2(" $+ %dtpoll $+ ?") }
}

On $*:text:/^[!@](scores|results)/Si:#Jolly,#dkthunder,#dtchat:{
  if (%dtpoll == $Null) {
  Notice $nick $s1(DarkThunder currently has no poll set, to set one type) $s2(!setpoll.) }
  elseIf {%dtpoll !== $null) {
    Set %msgstyle.poll $iif($left($1,1) = @,msg #,notice $nick)
    %msgstyle.poll $s1(DarkThunder's current poll is) $s2(" $+ %dtpoll $+ ?") 
    If (%dtpollscore1 == $null) { Set %dtpollscore1 0 }
    If (%dtpollscore2 == $null) { Set %dtpollscore2 0 }
    %msgstyle.poll $s1(Scores for) $s3(%answer1) $s2(%dtpollscore1) 
  %msgstyle.poll $s1(Scores for) $s4(%answer2) $s2(%dtpollscore2) }
}

	
On $*:text:/^[!@]delpoll/Si:#Jolly,#dkthunder,#dtchat:{
  inc %s
  if ($nick isop $chan) || ($nick ishop $chan) {
    If (%dtpollscore1 == $null) { Set %dtpollscore1 0 }
    If (%dtpollscore2 == $null) { Set %dtpollscore2 0 }
    msg #dkthunder $s1(The poll has been removed, by request from) $s2($nick $+ .) 
    msg #dkthunder $s1(Scores for) $s3(%answer1) $s2(%dtpollscore1)
    msg #dkthunder $s1(Scores for) $s4(%answer2) $s2(%dtpollscore2)
    unset %dtpoll 
    unset %answer1
    unset %answer2
    unset %dtpollscore1
    unset %dtpollscore2 
  remini poll.ini $chan  }
  elseif ($nick isreg $chan) || ($nick isvoice $chan) {
  notice $nick $s1(Sorry) $s2($nick $+ ,) $s1(you do not have the power to do that.) }
}



On *:text:*:#Jolly,#dkthunder,#dtchat:{
  If (%dtpoll !== $Null) && ($readini(poll.ini,$chan,$address($nick,2)) == Voted ) {
    If ($1 == %answer1) || ($1 == %answer2) {
    Notice $nick $s1(You have aleady voted!) $s2(To view the scores type !scores) | HALT }
  }
  elseIf (%dtpoll !== $Null) && ($readini(poll.ini,$chan,$address($nick,2)) !== Voted ) {
    If ($1 == %answer1) || ($1 == %answer2) {
      Notice $nick $s1(You have voted) $s2($1 $+ !)  
      Notice $nick $s1(To view the current results type) $s2(!scores.)
    timer 1 1 writeini poll.ini $chan $address($nick,2) Voted }
    If ($1 == %answer1) && ($readini(poll.ini,$chan,$address($nick,2)) !== Voted ) {
    set %dtpollscore1 $calc( %dtpollscore1 + 1 ) }
    elseif ($1 == %answer2) && ($readini(poll.ini,$chan,$address($nick,2)) !== Voted )  {
    set %dtpollscore2 $calc( %dtpollscore2 + 1 ) }  
  }
}