home *** CD-ROM | disk | FTP | other *** search
/ WinFiles.com / InfoMagic-WinFilesDotCom-June1998-Disc3of3-DAMAGED_DISC.iso / chat-textadd / C-Script.exe / AddOns / dccline.mrc < prev    next >
Text File  |  1998-05-10  |  8KB  |  245 lines
  1. on 1:START:unset %chaton*
  2. on 1:DISCONNECT:unset %chaton*
  3. ctcp 1:DCC CHAT: {
  4.   if [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ] == YES {
  5.     .notice $nick Your nickname is already logged in! You can't have two connections!
  6.     halt
  7.   }
  8. }
  9. ctcp =8:DCC CHAT:halt
  10. ctcp =9:*:ignore -a $nick 3 | halt
  11. alias dcclinehelp echo 4 -a Simply have people /dcc chat <you> | echo 4 -a To /msg all the chats from your end, type /relay <your message> | echo 4 -a To add a partyline op, type /user5 <nick> | echo 4 -a Your commands: %dccline.DCCALS | echo 4 -a Note: You will not be able to have ANY normal DCC Chat's while DCC-Line is on. If you want to have normal DCC Chats, disable the DCC Line (Status Pops -> Addons -> DCC Line)
  12. alias user5 auser -a =5 $$1 | guser =5 $$1 3
  13. alias relay {
  14.   if ($1 == $null) { echo 4 -a Usage: /relay <message> | halt }
  15.   set %tmp.chat 1
  16.   :main
  17.   if ($chat(%tmp.chat) == $null) goto end
  18.   else { msg = $+ $chat(%tmp.chat) $1- }
  19.   :next
  20.   inc %tmp.chat 1 
  21.   goto main 
  22.   :end
  23.   set %tmp.chat 1
  24. }
  25. alias dcckick {
  26.   set %tmp.ckn 1
  27.   close -c $1 | unset [ % $+ [ chaton $+ [ [ $1 ] $+ on ] ] ] | echo 3 -a $2 was kicked from the DCC Room | .notice $1 You were kicked from the DCC room by $me ----> $2-
  28.   :restart
  29.   if ($chat(%tmp.ckn) == $null) goto done
  30.   else { msg = $+ $chat(%tmp.ckn) $1 Was kicked by $me $+ : $2- }
  31.   :next
  32.   inc %tmp.ckn
  33.   goto restart
  34.   :done
  35.   set %tmp.ckn 1
  36. }
  37. alias dccbankick {
  38.   set %tmp.cbkn 1
  39.   close -c $1 | unset [ % $+ [ chaton $+ [ [ $1 ] $+ on ] ] ] | ignore -t $1 3 | echo 3 -a $1 was ban-kicked from the DCC Room | .notice $1 You were ban-kicked from the DCC room by $me ----> $2-
  40.   :restart
  41.   if ($chat(%tmp.cbkn) == $null) goto done
  42.   else { msg = $+ $chat(%tmp.cbkn) $1 Was ban-kicked by $me $+ : $2- }
  43.   :next
  44.   inc %tmp.cbkn
  45.   goto restart
  46.   :done
  47.   set %tmp.cbkn 1
  48. }
  49. alias dccunban {
  50.   set %tmp.dccunban 1
  51.   ignore -r $1 3
  52.   :restart
  53.   if ($chat(%tmp.dccunban) == $null) goto done
  54.   else { msg = $+ $chat(%tmp.dccunban) $1 Was UnBanned by $nick }
  55.   :next
  56.   inc %tmp.dccunban
  57.   goto restart
  58.   :done
  59.   set %tmp.dccunban 1
  60. }
  61. alias dccshoot {
  62.   set %tmp.sbkn 1
  63.   close -c $1  | unset [ % $+ [ chaton $+ [ [ $1 ] $+ on ] ] ] | auser =9 $1 | guser =9 $1 3 | ignore -a $1 3 | .notice $1 SHOOTLISTED by $me $+ : $2- | echo 4 -a $1 Has been SHOOTLISTED
  64.   :restart
  65.   if ($chat(%tmp.sbkn) == $null) goto done
  66.   else { msg = $+ $chat(%tmp.sbkn) $1 Was kicked by $me $+ : $2- }
  67.   :next
  68.   inc %tmp.sbkn
  69.   goto restart
  70.   :done
  71.   set %tmp.sbkn 1
  72. }
  73. alias dccunshoot {
  74.   set %tmp.dccuns 1
  75.   ignore -r $1 3
  76.   ruser =9 $1 3
  77.   :restart
  78.   if ($chat(%tmp.dccuns) == $null) goto done
  79.   else { msg = $+ $chat(%tmp.dccuns) $1 Was UnShootListed by $me }
  80.   :next
  81.   inc %tmp.dccuns
  82.   goto restart
  83.   :done
  84.   set %tmp.dccuns 1
  85. }
  86. alias dccnumppl echo 2 -a Number of users:  $+ $chat(0) $+ 
  87. alias dcclusers {
  88.   echo 12 -a Listing users...
  89.   set %tmp.lcu 1
  90.   :main
  91.   if ($chat(%tmp.lcu) == $null) goto end
  92.   echo 12 -a User %tmp.lcu $+ :  $+ $chat(%tmp.lcu) $+  ( $address($chat(%tmp.lcu),3) )
  93.   :next
  94.   inc %tmp.lcu
  95.   goto main
  96.   :end
  97.   set %tmp.lcu 1
  98.   echo 12 -a End of list
  99. }
  100. #dccline off
  101. on 1:JOIN: {
  102.   if ($group(#autogreet) == on) {
  103.     .notice $nick To join my AWESOME DCC Partyline, type /dcc chat $me or -chat
  104.   }
  105. }
  106. on 1:TEXT:-chat:*: {
  107.   if [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ] == YES {
  108.     .notice $nick Your nickname is already logged in! You can't have two connections!
  109.   }
  110.   else {
  111.     dcc chat $nick
  112.   }
  113. }
  114. on 1:CHATOPEN: {
  115.   whois $nick
  116.   set [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ] YES
  117.   set %tmp.chtnk = $+ $nick
  118.   relay *** Joins: $nick ( $address($nick,3) )
  119.   msg %tmp.chtnk Welcome to my DCC Chat room!
  120.   msg %tmp.chtnk There are currently  $+ $chat(0) $+  People in my DCC room!
  121.   msg %tmp.chtnk ABSOLUTELY NO CUSSING, FLOODING, OR OTHER ANNOYING BEHAVIOR ALLOWED!!!!!!
  122.   msg %tmp.chtnk Type -numppl to get the number of logged-in users or -lusers to get a list of logged-in users!
  123.   if ($chat(0) == 1) { msg %tmp.chtnk *** You are the ONLY user in the DCC Room! }
  124. }
  125. on 1:CHATCLOSE: { 
  126.   unset [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ]
  127.   relay *** Parts: $nick ( $address($nick,3) )
  128.   .notice $nick Thank you for visiting my DCC Chat room!
  129. }
  130. on 1:CHAT:*fuck*:unset [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ] | close -c $nick | auser =8 $nick | guser =8 $nick 3 | ignore -a $nick 3 | relay $nick was kicked off the DCC Chat Room for Cussing!
  131. on 1:CHAT:*asshole*:unset [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ] | close -c $nick | auser =8 $nick | guser =8 $nick 3 | ignore -a $nick 3 | relay $nick was kicked off the DCC Chat Room for Cussing!
  132. on 1:CHAT:*shit*:unset [ % $+ [ chaton $+ [ [ $nick ] $+ on ] ] ] | close -c $nick | auser =8 $nick | guser =8 $nick 3 | ignore -a $nick 3 | relay $nick was kicked off the DCC Chat Room for Cussing!
  133. on +1:CHAT:-help:msg = $+ $nick Level 1 DCC Commands: %dccline.LVL1DCC
  134. on =5,+7:CHAT:-help:msg = $+ $nick Level 5 DCC Commands: %dccline.LVL5DCC
  135. on =5,+7:CHAT:-kick*: {
  136.   set %tmp.ckn 1
  137.   close -c $2 | unset [ % $+ [ chaton $+ [ [ $2 ] $+ on ] ] ] | .notice $nick $2 was kicked from the DCC Room | .notice $2 You were kicked from the DCC room by $nick ----> $3-
  138.   :restart
  139.   if ($chat(%tmp.ckn) == $null) goto done
  140.   else { msg = $+ $chat(%tmp.ckn) $2 Was kicked by $nick $+ : $3- }
  141.   :next
  142.   inc %tmp.ckn
  143.   goto restart
  144.   :done
  145.   set %tmp.ckn 1
  146. }
  147. on =5,+7:CHAT:-bankick*: {
  148.   set %tmp.cbkn 1
  149.   close -c $2 | unset [ % $+ [ chaton $+ [ [ $2 ] $+ on ] ] ] | ignore -t $2 3 | .notice $nick $2 was ban-kicked from the DCC Room | .notice $2 You were ban-kicked from the DCC room by $nick ----> $3-
  150.   :restart
  151.   if ($chat(%tmp.cbkn) == $null) goto done
  152.   else { msg = $+ $chat(%tmp.cbkn) $2 Was ban-kicked by $nick $+ : $3- }
  153.   :next
  154.   inc %tmp.cbkn
  155.   goto restart
  156.   :done
  157.   set %tmp.cbkn 1
  158. }
  159. on =5,+7:CHAT:-unban*: {
  160.   set %tmp.dccunban 1
  161.   ignore -r $2 3
  162.   :restart
  163.   if ($chat(%tmp.dccunban) == $null) goto done
  164.   else { msg = $+ $chat(%tmp.dccunban) $2 Was UnBanned by $nick }
  165.   :next
  166.   inc %tmp.dccunban
  167.   goto restart
  168.   :done
  169.   set %tmp.dccunban 1
  170. }
  171. on =5,+7:CHAT:-relay*:relay $2- Relay from $nick $+ 
  172. on =5,+7:CHAT:-shoot*: {
  173.   set %tmp.sbkn 1
  174.   close -c $2  | unset [ % $+ [ chaton $+ [ [ $2 ] $+ on ] ] ] | auser =9 $2 | guser =9 $2 3 | ignore -a $2 3 | .notice $2 SHOOTLISTED by $nick $+ : $3- | .notice $nick $2 Has been SHOOTLISTED
  175.   :restart
  176.   if ($chat(%tmp.sbkn) == $null) goto done
  177.   else { msg = $+ $chat(%tmp.sbkn) $2 Was kicked by $nick $+ : $3- }
  178.   :next
  179.   inc %tmp.sbkn
  180.   goto restart
  181.   :done
  182.   set %tmp.sbkn 1
  183. }
  184. on =5,+7:CHAT:-unshoot*: {
  185.   set %tmp.dccuns 1
  186.   ignore -r $2 3
  187.   ruser =9 $2 3
  188.   :restart
  189.   if ($chat(%tmp.dccuns) == $null) goto done
  190.   else { msg = $+ $chat(%tmp.dccuns) $2 Was UnShootListed by $nick }
  191.   :next
  192.   inc %tmp.dccuns
  193.   goto restart
  194.   :done
  195.   set %tmp.dccuns 1
  196. }
  197. on 1:CHAT:-numppl: msg = $+ $nick Number of users:  $+ $chat(0) $+  | if ($chat(0) == 1) { msg = $+ $nick *** You are the ONLY user in the DCC Room! }
  198. on 1:CHAT:-lusers: {
  199.   msg = $+ $nick Listing users...
  200.   set %tmp.lcu 1
  201.   :main
  202.   if ($chat(%tmp.lcu) == $null) goto end
  203.   msg = $+ $nick User %tmp.lcu $+ :  $+ $chat(%tmp.lcu) $+  ( $address($chat(%tmp.lcu),3) )
  204.   :next
  205.   inc %tmp.lcu
  206.   goto main
  207.   :end
  208.   set %tmp.lcu 1
  209.   msg = $+ $nick End of list
  210.   if ($chat(0) == 1) { msg = $+ $nick *** You are the ONLY user in the DCC Room! }
  211. }
  212. on 1:CHAT:*: { 
  213.   set %tmp.chat 1
  214.   :main
  215.   if ($chat(%tmp.chat) == $null) goto end
  216.   elseif ($chat(%tmp.chat) == $nick) goto next
  217.   elseif (SOUND isin $1) { sound $chat(%tmp.chat) $2 From $nick $+  $3- }
  218.   elseif (ACTION isin $1) { msg = $+ $chat(%tmp.chat) 6* $nick $2- }
  219.   else { msg = $+ $chat(%tmp.chat) < $+ $nick $+ > $1- }
  220.   goto next
  221.   :next
  222.   inc %tmp.chat 1 
  223.   goto main 
  224.   :end
  225.   set %tmp.chat 1
  226. }
  227. #DCCline end
  228. #shoot on
  229. =9:*:ignore -a $nick 3 | halt
  230. #shoot end
  231. menu status {
  232.   &DCC Line
  233.   .&Help:dcclinehelp
  234.   .-
  235.   .&On:.enable #dccline | .creq auto | echo 6 -a DCC Line is now: ON
  236.   .&Off:.disable #dccline | .creq ask | echo 6 -a DCC Line is now: OFF
  237. }
  238. menu channel {
  239.   &DCC Line
  240.   .&Help:dcclinehelp
  241.   .-
  242.   .&On:.enable #dccline | .creq auto | echo 6 -a DCC Line is now: ON
  243.   .&Off:.disable #dccline | .creq ask | echo 6 -a DCC Line is now: OFF
  244. }
  245.