home *** CD-ROM | disk | FTP | other *** search
/ PC-X 1997 October / pcx14_9710.iso / shutils / internet / irc / script / bw10b1.exe / commands.bio < prev    next >
Encoding:
Text File  |  1997-08-17  |  4.2 KB  |  59 lines

  1. ctcp 1:page:{
  2.   if (%pager == on) { notice $nick Page Recorded | write logs.txt < $+ $clock $+ > $nick PAGED me w/ the message : $2- }
  3.   else { notice $nick my pager is not on right now }
  4. }
  5. ctcp 1:finger:/.ctcpreply $nick FINGER $logo Created by [-Vega-] and Blue_Max | halt
  6. ctcp 1:version:/.ctcpreply $nick VERSION $logo Created by [-Vega-] and Blue_Max | halt
  7. ctcp 2:vote:if (%voteron == yes) { .notice $nick you already voted! | halt }
  8. ctcp 1:vote:{
  9.   if (%voteron == yes) {
  10.     if (%vote-type == y) {
  11.       .auser 2 $nick
  12.       if (($2 != yes) && ($2 != no) && ($2 != results)) { .notice $nick must vote either yes or no | .ruser $nick | halt }
  13.       set %vote-people $remove(%vote-people,$nick)
  14.       if ($2 == yes) { inc %vote-yes-num | inc %vote-total | set %vote-yes-people %vote-yes-people $nick | .notice $nick Your vote of Yes has been logged | halt }
  15.       if ($2 == no) { inc %vote-no-num | inc %vote-total | set %vote-no-people %vote-no-people $nick | .notice $nick Your vote of No has been logged | halt }
  16.       if ($2 == results) {
  17.         .notice $nick Results on topic : %vote-topic
  18.         if (%vote-yes-num == $null) { .notice $nick Number of Yes : 0 | goto no } | .notice $nick Number of Yes : %vote-yes-num < $+ $percent(%vote-yes-num,%vote-total) $+ $chr(37) $+ > Voted by : %vote-yes-people
  19.         :no | if (%vote-no-num == $null) { .notice $nick Number of No : 0 | goto next } | .notice $nick Number of No : %vote-no-num < $+ $percent(%vote-no-num,%vote-total) $+ $chr(37) $+ > Voted by : %vote-no-people
  20.         :next | .notice $nick Total : %vote-total
  21.         .notice $nick The following people did Not vote : %vote-people
  22.         halt
  23.       }
  24.     }
  25.     if (%vote-type == r) {
  26.       if (($2 != 1) && ($2 != 2) && ($2 != 3) && ($2 != results)) { .notice $nick must vote either 1, 2, or 3. | halt }
  27.       set %vote-people $remove(%vote-people,$nick)
  28.       if ($2 == 1) { inc %vote-1-num | inc %vote-total | set %vote-1-people %vote-1-people $nick | .notice $nick Your vote of 1 has been logged | halt }
  29.       if ($2 == 2) { inc %vote-2-num | inc %vote-total | set %vote-2-people %vote-2-people $nick | .notice $nick Your vote of 2 has been logged | halt }
  30.       if ($2 == 3) { inc %vote-3-num | inc %vote-total | set %vote-3-people %vote-3-people $nick | .notice $nick Your vote of 3 has been logged | halt }
  31.       if ($2 == results) {
  32.         .notice $nick Results on topic : %vote-topic
  33.         if (%vote-1-num == $null) { .notice $nick Number of votes on #1 : 0 | goto 2 } | .notice $nick Number of votes on #1 : %vote-1-num < $+ $percent(%vote-1-num,%vote-total) $+ $chr(37) $+ > Voted by : %vote-1-people
  34.         :2 | if (%vote-2-num == $null) { .notice $nick Number of votes on #2 : 0 | goto 3 } | .notice $nick Number of votes on #2 : %vote-2-num < $+ $percent(%vote-2-num,%vote-total) $+ $chr(37) $+ > Voted by : %vote-2-people
  35.         :3 | if (%vote-3-num == $null) { .notice $nick Number of votes on #3 : 0 | goto next } | .notice $nick Number of votes on #3 : %vote-3-num < $+ $percent(%vote-3-num,%vote-total) $+ $chr(37) $+ > Voted by : %vote-3-people
  36.         :next | .notice $nick Total : %vote-total
  37.         .notice $nick The following people did Not vote : %vote-people
  38.         halt
  39.       }
  40.     }
  41.   }
  42. }
  43. ctcp 1:XDCC:{
  44.   if ($2 == $null) { .notice $nick You must specify a pack number | halt }
  45.   if (%xdcc- [ $+ [ $2 ] ] == $null) { .notice $nick Pack does not exist | halt }
  46.   send $nick %xdcc- [ $+ [ $2 ] ] | .notice $nick Sending Pack number : $2
  47. }
  48. ctcp 1:*:{
  49.   if (%ctcp-flood == on) {
  50.   set %tempctcp $readini flood.ini ctcp $nick
  51.   if (%tempctcp == $null) { writeini flood.ini ctcp $nick $ctime | writeini flood.ini ctcp $nick [ $+ [ 1 ] ] 1 | halt }
  52.   %tempctcp = $ctime - %tempctcp | set %tempctcp1 $readini flood.ini ctcp $nick [ $+ [ 1 ] ]
  53.   if ((%tempctcp <= 2) && (%tempctcp1 >= 5)) { .ignore -u120 $nick 2 | echo 12 -a CTCP Flood Detected by : $nick $+ , 2 minute ignore | goto end }
  54.   if (%tempctcp > 2) { writeini flood.ini ctcp $nick $ctime | writeini flood.ini ctcp $nick [ $+ [ 1 ] ] 1 | halt }
  55.   inc %tempctcp1 | writeini flood.ini ctcp $nick [ $+ [ 1 ] ] %tempctcp1 | halt | :end
  56.   writeini flood.ini ctcp $nick $ctime | writeini flood.ini ctcp $nick [ $+ [ 1 ] ] 1 | halt
  57. }
  58. }
  59.