rendered paste body{\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
}