home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / abcvote.txt < prev    next >
Text File  |  1996-04-23  |  3KB  |  104 lines
  1. Hi this is a voting addon that gives three options
  2.  
  3. <A,B,or C> to vote on............
  4. **
  5. <events>
  6. **
  7. #abcpoll disabled
  8. 1:ON NICK: {
  9.   if ($newnick isin %notagain) /halt
  10.   if ($nick isin %notagain) { /notice $newnick HAHAHA!! dont think so!! | /set %notagain %notagain $newnick }
  11. }
  12. 1:ON TEXT:!vote*:#: {
  13.   if ($nick isin %notagain) { /notice $nick You Can Only Vote Once D00D | /halt }
  14.   if ($parm2 = a) { /inc %a | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  15.   if ($parm2 = b) { /inc %b | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  16.   if ($parm2 = c) { /inc %c | /set %notagain %notagain $nick | /inc %totalabc | /notice $nick Thank You For Participating! | /halt }
  17.   /notice $nick Please Make A Valid Vote %popver
  18. }
  19. #abcpoll end
  20. **
  21. <aliases>
  22. **
  23. /abcvote {
  24.   /enable #abcpoll
  25.   set %a 0
  26.   set %b 0
  27.   set %c 0
  28.   set %abcquestion $?="Enter Question"
  29.   set %avalue $?="Enter A Value"
  30.   set %bvalue $?="Enter B Value"
  31.   set %cvalue $?="Enter C Value"
  32.   msg # "ABC" voting is now in progress......
  33.   msg # The question is [ $+ %abcquestion $+ ].....
  34.   msg # Vote [A] $+ %avalue [B] $+ %bvalue [C] $+ %cvalue
  35.   msg # Type !vote <a,b,c> to vote[closeing in 2 min] 
  36.   .timer 1 60 /msg # Only 60 sec Left To Vote (!vote <a,b,c>)
  37.   .timer 1 120 /abclose
  38. }
  39. /abclose {
  40.   disable #abcpoll
  41.   set %a %a * 100
  42.   set %a %a / %totalabc
  43.   set %b %b * 100
  44.   set %b %b / %totalabc
  45.   set %c %c * 100
  46.   set %c %c / %totalabc
  47.   set %totalabc %totalabc * 100
  48.   set %totalabc %totalabc / $nick(0,#)
  49.   msg # voting is now closed..the votes are being counted..
  50.   msg # %totalabc $+ % of the users on # voted on ===========>[ $+ %abcquestion $+ ]<===========
  51.   msg # [A] $+ %avalue $+ = %a $+ % [B] $+ %bvalue $+ = %b $+ % [C] $+ %cvalue $+ = %c $+ %
  52.   if ((%a > %b) && (%a > %c)) goto awin
  53.   if ((%a > %b) && (%a = %c)) goto aandc
  54.   if ((%a > %c) && (%a = %b)) goto aandb
  55.   if ((%a < %b) && (%c < %b)) goto bwin
  56.   if ((%a < %b) && (%c = %b)) goto bandc
  57.   if ((%a < %c) && (%c > %b)) goto cwin
  58.   if ((%a = %b) && (%a = %c)) goto equal
  59.   :awin
  60.   msg # The majority voted for [A] $+ %avalue !!!! 
  61.   goto end
  62.   :bwin
  63.   msg # The majority voted for [B] $+ %bvalue !!!! 
  64.   goto end
  65.   :cwin
  66.   msg # The majority voted for [C] $+ %cvalue !!!! 
  67.   goto end
  68.   :equal
  69.   msg # It equaled out!!!
  70.   goto end
  71.   :aandb
  72.   msg # [A] $+ %avalue and [B] $+ %bvalue Were Tied!! 
  73.   goto end
  74.   :aandc
  75.   msg # [A] $+ %avalue and [C] $+ %cvalue Were Tied!! 
  76.   goto end
  77.   :bandc
  78.   msg # [B] $+ %bvalue and [C] $+ %cvalue Were Tied!! 
  79.   :end
  80.   unset %a | unset %b | unset %c | unset %avalue | unset %bvalue | unset %cvalue | unset %abcquestion | unset %totalabc | unset %notagain
  81. }
  82.  
  83. **
  84. <popups>
  85. **
  86. ABCvoter:/abcvote 
  87.  
  88. ex: question = Who is cool??????
  89. avalue = oH_yEaH
  90. bvalue = You
  91. cvalue = Someone
  92.  
  93. It helps to have mIRC32 v4.6 but it may werk with 4.52
  94. and this is pasted directly out of my script so it 
  95. should werk and if it doesnt well try putting the events 
  96. lines at the top of events and make sure events is 
  97. listening <it helps sometimes>
  98.  
  99. from "The Best" er so i like to say..............
  100. oH_yEaH
  101.  
  102.  
  103. UPLOADED TO WWW.SCRIPTERZ.COM BY |^JoLt^|
  104.