{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fswiss\fcharset0 Arial;}}
{\*\generator Msftedit 5.41.15.1507;}\viewkind4\uc1\pard\f0\fs20\par
;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\par
;;; Atl Addon: Poll v4.5\par
;;; Creator: Kadith\par
;;;;;;;;;;;;;; Contact\par
;;; Email: kadith@villageirc.net\par
;;; ICQ: 11204218 22561800\par
;;; IRC: irc.VillageIRC.net\par
;;; in #WorldVillage\par
;;;;;;;;;;;;;;; WWW \par
;;; http://vi-p.net\par
;----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------\par
\par
;--- Menus\par
menu channel \{\par
  Atl Poll\par
  .Atl Poll:say \'02\'ab\'a5\'bb Atl\'02 Poll v4.5 \'1fBy\'1f: Kadith\par
  .-\par
  .Start:dialog -m poll poll\par
  .Stop:\{ msg %ap.# \'02\'ab\'a5\'bb Atl\'02 Poll: Has been halted. | unset %ap.* \}\par
  .-\par
  .UnInstall:\{ unset %ap.* | echo -a \'02\'ab\'a5\'bb Atl\'02 Poll: Has been uninstalled | unload -rs $script \}\par
\}\par
\par
;--- Dialogs\par
dialog poll \{\par
  title "Atl Poll v4.5 by Kadith"\par
  size -1 -1 115 100\par
  option dbu\par
\par
  text "Topic",10,5 4 30 11,autohs\par
  text "Channel",11,5 16 30 11,autohs\par
  text "Option 1",12,5 28 30 11,autohs\par
  text "Option 2",13,5 40 30 11,autohs\par
  text "Option 3",14,5 52 30 11,autohs\par
  text "Option 4",15,5 64 30 11,autohs\par
  text "Option 5",16,5 76 30 11,autohs\par
  text "Option 6",17,5 88 30 11,autohs\par
  text "Option 7",18,5 100 30 11,autohs\par
  text "Option 8",19,5 112 30 11,autohs\par
  text "Option 9",20,5 124 30 11,autohs\par
  text "Option 10",21,5 136 30 11,autohs\par
  text "Option 11",22,5 148 30 11,autohs\par
  text "Option 12",23,5 160 30 11,autohs\par
  text "Time Limit",24,5 172 30 11,autohs\par
\par
  edit "",1,35 2 75 11,autohs\par
  edit "",2,35 14 75 11,autohs\par
  edit "",3,35 26 75 11,autohs\par
  edit "",4,35 38 75 11,autohs\par
  edit "",5,35 50 75 11,autohs\par
  edit "",6,35 62 75 11,autohs\par
  edit "",7,35 74 75 11,autohs\par
  edit "",8,35 86 75 11,autohs\par
  edit "",9,35 98 75 11,autohs\par
  edit "",10,35 110 75 11,autohs\par
  edit "",11,35 122 75 11,autohs\par
  edit "",12,35 134 75 11,autohs\par
  edit "",13,35 146 75 11,autohs\par
  edit "",14,35 158 75 11,autohs\par
  edit "",15,35 170 75 11,autohs\par
\par
  button "Start Poll",8,48 86 30 11,ok\par
  button "Cancel",9,80 86 30 11,cancel\par
\}\par
\par
;--- Remotes\par
on 1:NOTICE:*:*:\{ \par
  if (%ap.topic != $null) && ($nick != $me) \{\par
    var %temp.address = *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@))\par
    if ($istok(%temp.address,%ap.nicks,32)) \{ .notice $nick \'ab\'a5\'bb Atl Poll: You have already voted. One vote per person. | .ignore -nu60 $nick \}\par
    elseif ($1 == !1) \{ inc %ap.1 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op1 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !2) \{ inc %ap.2 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op2 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !3) \{ inc %ap.3 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op3 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !4) \{ inc %ap.4 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op4 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !5) \{ inc %ap.5 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op5 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !6) \{ inc %ap.6 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op6 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !7) \{ inc %ap.7 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op7 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !8) \{ inc %ap.8 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op8 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !9) \{ inc %ap.9 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op9 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !10) \{ inc %ap.10 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op10 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !11) \{ inc %ap.11 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op11 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
    elseif ($1 == !12) \{ inc %ap.12 1 | .notice $nick \'02\'ab\'a5\'bb Atl\'02 Poll: You have voted for %ap.op11 $+ \'0f. | set %ap.nicks %ap.nicks *! $+ $gettok($gettok($address,2,$asc(!)),1,$asc(@)) $+ @ $+ $gettok($address,2,$asc(@)) | .ignore -nu60 $nick \}\par
  \}\par
\}\par
on 1:dialog:poll:edit:1:set %ap.topic $did(1)\par
on 1:dialog:poll:edit:2:set %ap.# $did(2)\par
on 1:dialog:poll:edit:3:set %ap.op1 $did(3)\par
on 1:dialog:poll:edit:4:set %ap.op2 $did(4)\par
on 1:dialog:poll:edit:5:set %ap.op3 $did(5)\par
on 1:dialog:poll:edit:6:set %ap.op4 $did(6)\par
on 1:dialog:poll:edit:7:set %ap.op5 $did(7)\par
on 1:dialog:poll:edit:8:set %ap.op6 $did(8)\par
on 1:dialog:poll:edit:9:set %ap.op7 $did(9)\par
on 1:dialog:poll:edit:10:set %ap.op8 $did(10)\par
on 1:dialog:poll:edit:11:set %ap.op9 $did(11)\par
on 1:dialog:poll:edit:12:set %ap.op10 $did(12)\par
on 1:dialog:poll:edit:13:set %ap.op11 $did(13)\par
on 1:dialog:poll:edit:14:set %ap.op12 $did(14)\par
on 1:dialog:poll:edit:15:set %ap.limit $did(15)\par
on 1:dialog:poll:sclick:8:begin\par
\par
;--- Aliases\par
alias -l begin \{ msg %ap.# \'02\'ab\'a5\'bb Atl\'02 Poll: \'1fTopic\'1f: %ap.topic | msg %ap.# \'02\'ab\'a5\'bb\'02 #1: %ap.op1 . #2: %ap.op2 . #3: %ap.op3 . #4: %ap.op4 . #5: %ap.op5 . #6: %ap.op6 . #7: %ap.op7 . #8: %ap.op8 . #9: %ap.op9 . #10: %ap.op10 . #11: %ap.op11 . #12: %ap.op12 | msg %ap.# \'02\'ab\'a5\'bb Atl\'02 Poll: To vote type \'02/notice $me !#\'02. You have $duration(%ap.limit) to vote. | .timeraptimer 1 $calc(%ap.limit / 2) halfwarn | set %ap.1 0 | set %ap.2 0 | set %ap.3 0 | set %ap.4 0 \}\par
alias -l halfwarn \{ if (%ap.topic != $null) \{ msg %ap.# \'02\'ab\'a5\'bb Atl\'02 Poll: \'1fTopic\'1f: %ap.topic | msg %ap.# \'02\'ab\'a5\'bb\'02 #1: %ap.op1 . #2: %ap.op2 . #3: %ap.op3 . #4: %ap.op4 . #5: %ap.op5 . #6: %ap.op6 . #7: %ap.op7 . #8: %ap.op8 . #9: %ap.op9 . #10: %ap.op10 . #11: %ap.op11 . #12: %ap.op12 | msg %ap.# \'02\'ab\'a5\'bb Atl\'02 Poll: $duration($calc(%ap.limit / 2)) left to vote | .timeraptimer 1 $calc(%ap.limit / 2) end \} \}\par
alias -l end \{ if (%ap.topic != $null) \{ msg %ap.# \'02\'ab\'a5\'bb Atl\'02 Poll Results: \'1fTopic\'1f: %ap.topic | msg %ap.# \'02\'ab\'a5\'bb\'02 #1 %ap.op1 $+ : $+ %ap.1 . #2 %ap.op2 $+ : $+ %ap.2 | msg %ap.# \'02\'ab\'a5\'bb\'02 #3 %ap.op3 $+ : $+ %ap.3 . #4 %ap.op4 $+ : $+ %ap.4 | msg %ap.# \'02\'ab\'a5\'bb\'02 #5 %ap.op5 $+ : $+ %ap.5 . #6 %ap.op6 $+ : $+ %ap.6 | msg %ap.# \'02\'ab\'a5\'bb\'02 #7 %ap.op7 $+ : $+ %ap.7 . #8 %ap.op8 $+ : $+ %ap.8 | msg %ap.# \'02\'ab\'a5\'bb\'02 #9 %ap.op9 $+ : $+ %ap.9 . #10 %ap.op10 $+ : $+ %ap.10 |  msg %ap.# \'02\'ab\'a5\'bb\'02 #11 %ap.op11 $+ : $+ %ap.11 . #12 %ap.op12 $+ : $+ %ap.12 | unset %ap.* \} \}\par
}