home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / playlist.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  1.3 KB  |  44 lines
  1. on 1:load:{
  2.   set %ad.chan $$?="What channel do you wanna advertise to?"
  3.   set %ad.int $$?="How often do you want to advertise the list?"
  4. }
  5. on 1:text:%ad.chan:!list:{
  6.   set %count 0
  7.   msg $nick Please turn off all flood protection.
  8.   msg $nick -----------------------
  9.   :begin
  10.   inc %count 1
  11.   if (%ad.list.ip.[ %count ] != $null) {  msg $nick Address: %ad.list.ip.[ %count ] Login: %ad.list.login.[ %count ] Password: %ad.list.passwd.[ %count ] Port: %ad.list.port.[ %count ] | goto begin }
  12.   else { goto end }
  13.   :end
  14.   msg $nick -----------------------
  15. }
  16. on 1:join:%ad.chan:{ 
  17.   if ($nick == $me) {
  18.     timer34782 0 %ad.int /advertise
  19.   }
  20. }
  21. alias advertise {
  22.   msg %ad.chan Automatically listing ftp sites. (Please turn off all flood protection)
  23.   :begin
  24.   inc %count 1
  25.   if (%ad.list.ip.[ %count ] != $null) {  
  26.     msg %ad.chan Address: %ad.list.ip.[ %count ] Login: %ad.list.login.[ %count ] Password: %ad.list.passwd.[ %count ] Port: %ad.list.port.[ %count ] 
  27.     goto begin
  28.   }
  29.   else { goto end }
  30.   :end
  31. }
  32.  
  33. alias showlist {
  34.   window -rls @List
  35.   :begin
  36.   inc %count 1
  37.   if (%ad.list.ip.[ %count ] != $null) {  
  38.     aline @List Address: %ad.list.ip.[ %count ] Login: %ad.list.login.[ %count ] Password: %ad.list.passwd.[ %count ] Port: %ad.list.port.[ %count ] 
  39.     goto begin
  40.   }
  41.   else { goto end }
  42.   :end
  43. }
  44.