home *** CD-ROM | disk | FTP | other *** search
/ Reverse Code Engineering RCE CD +sandman 2000 / ReverseCodeEngineeringRceCdsandman2000.iso / RCE / L2C / adenozin / SimpleScript.exe / Main / Locator.mrc < prev    next >
Encoding:
Text File  |  2000-05-25  |  11.1 KB  |  256 lines
  1. ;-----------------
  2. ;Aliases
  3. ;-----------------
  4. alias loc.setup {
  5.   writeini locator.ini locator dir $$?="Enter the location of your mp3s i.e. C:\mp3s"
  6.   writeini locator.ini locator player $$?="Enter the name of your mp3 player i.e. Winamp"
  7.   writeini locator.ini locator playdir $dir="Enter the location of your mp3 player"
  8.   writeini locator.ini locator power On
  9.   writeini locator.ini locator plays Off
  10.   writeini locator.ini locator list Off
  11.   writeini locator.ini locator rand Off
  12. }
  13. alias loc.power {
  14.   if ( $readini locator.ini locator power == On ) { .disable #loc | .writeini locator.ini locator power Off | halt }
  15.   if ( $readini locator.ini locator power == Off ) { .enable #loc | .writeini locator.ini locator power On | halt }
  16. }
  17. alias loc.list {
  18.   if ( $readini locator.ini locator list == On ) { .writeini locator.ini locator list Off | halt }
  19.   if ( $readini locator.ini locator plays == On ) { writeini locator.ini locator plays Off }
  20.   if ( $readini locator.ini locator rand == On ) { writeini locator.ini locator rand Off }
  21.   if ( $readini locator.ini locator list == Off ) { 
  22.     .writeini locator.ini locator list On
  23.     set %loc.chan $$?="Play to What Channel?" 
  24.     set %loc.int $$?="Interval (in seconds)" 
  25.     loc.list2
  26.   }
  27. }
  28. alias loc.list2 {
  29.   if ( $readini locator.ini locator list == Off ) { halt }
  30.   msg %loc.chan 0,0  15,15  14,14  15,1To get my list of0 $readini locator.ini locator listnum 15Real songs, Type 0! $+ $me list14,14  15,15  0,0   0<15<14<0,1Mp3 Location14>15>0>
  31.   .timer 1 %loc.int loc.list2
  32. }
  33. alias loc.play {
  34.   if ( $readini locator.ini locator plays == On ) { writeini locator.ini locator plays Off | halt }
  35.   if ( $readini locator.ini locator rand == On ) { writeini locator.ini locator rand Off }
  36.   if ( $readini locator.ini locator list == On ) { .writeini locator.ini locator list Off }
  37.   if ( $readini locator.ini locator plays == Off ) { 
  38.     set %loc.song $dir="Enter Mp3 to play" $readini locator.ini locator dir 
  39.     set %loc.shng $nopath(%loc.song)
  40.     set %loc.chan $$?="Play to What Channel?" 
  41.     if ( $?!="Actually play song on your mp3 player?" == $true ) { .set %Loc.mp3.play on }
  42.     set %loc.sze $round( [ $calc( [ $lof( [  %loc.song ] ) ] / 1048576 ) ] ,2 )
  43.     set %loc.min $int( $calc( %loc.sze * 1.1 ) )
  44.     set %loc.sec $calc( ( %loc.sze * 1.1 ) - %loc.min )
  45.     set %loc.sec $int( $calc( %loc.sec / 0.0188125 ) )
  46.     .set %loc.secs $calc( %loc.min * 60 + %Loc.sec + 6 )
  47.     writeini locator.ini locator plays On 
  48.     loc.player2
  49.   }
  50. }
  51. alias loc.player2 {
  52.   if ( $readini locator.ini locator plays == Off ) { halt }
  53.   msg %loc.chan 0,0  15,15  14,14  15,1Continuously playing0 %loc.shng [ $+ %loc.sze mB] [ $+ %loc.min Min. %loc.sec Sec.] 15Type 0! $+ $me %loc.shng 15to get this file14,14  15,15  0,0   0<15<14<0,1Mp3 Location14>15>0>
  54.   ctcp %loc.chan sound %loc.shng 
  55.   if ( %loc.mp3.play == on ) { run $readini locator.ini locator playdir %loc.song }
  56.   .timer 1 %loc.secs loc.player2 
  57. }
  58. alias loc.rand {
  59.   if ( $readini locator.ini locator plays == On ) { writeini locator.ini locator plays Off }
  60.   if ( $readini locator.ini locator rand == On ) { writeini locator.ini locator rand Off | halt }
  61.   if ( $readini locator.ini locator list == On ) { .writeini locator.ini locator list Off }
  62.   if ( $readini locator.ini locator rand == Off ) { 
  63.     writeini locator.ini locator rand On 
  64.     set %loc.chan $$?="Play to What Channel?" 
  65.     if ( $?!="Actually play songs on your mp3 player?" == $true ) { .set %Loc.mp3.play on }
  66.     loc.rand2 
  67.   }
  68. }
  69. alias loc.rand2 {
  70.   if ( $readini locator.ini locator rand == Off ) { halt }
  71.   :find
  72.   set %loc.rnum $rand(1,50)
  73.   set %loc.rlet $rand(a,z) $+ *.*
  74.   set %loc.song $findfile( [ $readini locator.ini locator dir ] ,%loc.rlet,%loc.rnum ) 
  75.   if (%loc.song == $null) { goto find }
  76.   set %loc.shng $nopath(%loc.song)
  77.   set %loc.sze $round( [ $calc( [ $lof( [  %loc.song ] ) ] / 1048576 ) ] ,2 )
  78.   set %loc.min $int( $calc( %loc.sze * 1.1 ) )
  79.   set %loc.sec $calc( ( %loc.sze * 1.1 ) - %loc.min )
  80.   set %loc.sec $int( $calc( %loc.sec / 0.0188125  ) )
  81.   .set %loc.secs $calc( %loc.min * 60 + %Loc.sec + 6 )
  82.   msg %loc.chan 0,0  15,15  14,14  15,1Randomly playing0 %loc.shng [ $+ %loc.sze mB] [ $+ %loc.min Min. %loc.sec Sec.] 15Type 0! $+ $me %loc.shng 15to get this file14,14  15,15  0,0   0<15<14<0,1Mp3 Location14>15>0>
  83.   ctcp %loc.chan sound %loc.shng
  84.   if ( %loc.mp3.play == on ) { run $readini locator.ini locator playdir %loc.song }
  85.   .timer 1 %loc.secs loc.rand2 
  86. }
  87. alias loc.loc {
  88.   set %loc.nick1 $1
  89.   set %loc.srch1 * $+ $2- $+ *.* 
  90.   set %loc.num1 1
  91.   :start
  92.   set %loc.find1 $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch1,%loc.num1 ) ] ) 
  93.   if ( %loc.num1 == 1) && ( $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch1,%loc.num1 ) ] ) == $null ) { goto altend } 
  94.   if ( %loc.num1 == 1) { .msg %loc.nick1 I have found the following files matching " $+ $2- $+ " } 
  95.   if (%loc.find1 == %loc.last1)  { goto end }
  96.   set %loc.last1 %loc.find1
  97.   set %loc.col1 $rand(2,7)
  98.   if (%loc.num1 == 6) { .msg %loc.nick1 I have located more than 5 files containing " $+ $2- $+ ".  Please be more specific in your search next time. | goto end }
  99.   .msg %loc.nick1  $+ %loc.col1 %loc.find1
  100.   inc %loc.num1 1
  101.   goto start
  102.   :end
  103.   .msg %loc.nick1 12To get a file listed here, type:4 ! $+ $me <filename>
  104.   unset %loc.*1  
  105.   halt
  106.   :altend
  107.   unset %loc.*1  
  108. }
  109. alias loc.loc2 {
  110.   set %loc.nick2 $1
  111.   set %loc.srch2 * $+ $2- $+ *.* 
  112.   set %loc.num2 1
  113.   :start
  114.   set %loc.find2 $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch2,%loc.num2 ) ] ) 
  115.   if ( %loc.num2 == 1) && ( $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch2,%loc.num2 ) ] ) == $null ) { goto altend } 
  116.   if ( %loc.num2 == 1) { .msg %loc.nick2 I have found the following files matching " $+ $2- $+ " } 
  117.   if (%loc.find2 == %loc.last2)  { goto end }
  118.   set %loc.last2 %loc.find2
  119.   set %loc.col2 $rand(2,7)
  120.   if (%loc.num2 == 6) { .msg %loc.nick2 I have located more than 5 files containing " $+ $2- $+ ".  Please be more specific in your search next time. | goto end }
  121.   .msg %loc.nick2  $+ %loc.col2 %loc.find2
  122.   inc %loc.num2 1 
  123.   goto start
  124.   :end
  125.   .msg %loc.nick2 12To get a file listed here, type:4 ! $+ $me <filename>
  126.   unset %loc.*2  
  127.   halt
  128.   :altend
  129.   unset %loc.*2  
  130. }
  131. alias loc.loc3 {
  132.   set %loc.nick3 $1
  133.   set %loc.srch3 * $+ $2- $+ *.* 
  134.   set %loc.num3 1
  135.   :start
  136.   set %loc.find3 $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch3,%loc.num3 ) ] ) 
  137.   if ( %loc.num3 == 1) && ( $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch3,%loc.num3 ) ] ) == $null ) { goto altend } 
  138.   if ( %loc.num3 == 1) { .msg %loc.nick3 I have found the following files matching " $+ $2- $+ " } 
  139.   if (%loc.find3 == %loc.last3)  { goto end }
  140.   set %loc.last3 %loc.find3
  141.   set %loc.col3 $rand(2,7)
  142.   if (%loc.num3 == 6) { .msg %loc.nick3 I have located more than 5 files containing " $+ $2- $+ ".  Please be more specific in your search next time. | goto end }
  143.   .msg %loc.nick3  $+ %loc.col3 %loc.find3
  144.   inc %loc.num3 1 
  145.   goto start
  146.   :end
  147.   .msg %loc.nick3 12To get a file listed here, type:4 ! $+ $me <filename>
  148.   unset %loc.*3  
  149.   halt
  150.   :altend
  151.   unset %loc.*3  
  152. }
  153. alias loc.loc4 {
  154.   set %loc.nick4 $1
  155.   set %loc.srch4 * $+ $2- $+ *.* 
  156.   set %loc.num4 1
  157.   :start
  158.   set %loc.find4 $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch4,%loc.num4 ) ] ) 
  159.   if ( %loc.num4 == 1) && ( $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch4,%loc.num4 ) ] ) == $null ) { goto altend } 
  160.   if ( %loc.num4 == 1) { .msg %loc.nick4 I have found the following files matching " $+ $2- $+ " } 
  161.   if (%loc.find4 == %loc.last4)  { goto end }
  162.   set %loc.last4 %loc.find4
  163.   set %loc.col4 $rand(2,7)
  164.   if (%loc.num4 == 6) { .msg %loc.nick4 I have located more than 5 files containing " $+ $2- $+ ".  Please be more specific in your search next time. | goto end }
  165.   .msg %loc.nick4  $+ %loc.col4 %loc.find4
  166.   inc %loc.num4 1 
  167.   goto start
  168.   :end
  169.   .msg %loc.nick4 12To get a file listed here, type:4 ! $+ $me <filename>
  170.   unset %loc.*4  
  171.   halt
  172.   :altend
  173.   unset %loc.*4  
  174. }
  175. alias loc.loc5 {
  176.   set %loc.nick5 $1
  177.   set %loc.srch5 * $+ $2- $+ *.* 
  178.   set %loc.num5 1
  179.   :start
  180.   set %loc.find5 $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch5,%loc.num5 ) ] ) 
  181.   if ( %loc.num5 == 1) && ( $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,%loc.srch5,%loc.num5 ) ] ) == $null ) { goto altend } 
  182.   if ( %loc.num5 == 1) { .msg %loc.nick5 I have found the following files matching " $+ $2- $+ " } 
  183.   if (%loc.find5 == %loc.last5)  { goto end }
  184.   set %loc.last5 %loc.find5
  185.   set %loc.col5 $rand(2,7)
  186.   if (%loc.num5 == 6) { .msg  %loc.nick5 I have located more than 5 files containing " $+ $2- $+ ".  Please be more specific in your search next time. | goto end }
  187.   .msg %loc.nick5  $+ %loc.col5 %loc.find5
  188.   inc %loc.num5 1 
  189.   goto start
  190.   :end
  191.   .msg %loc.nick5 12To get a file listed here, type:4 ! $+ $me <filename>
  192.   unset %loc.*5  
  193.   halt
  194.   :altend
  195.   unset %loc.*5  
  196. }
  197. alias loc.generate {
  198.   set %loc.list $$?="Enter the filename of your list (without .txt)" $+ .txt
  199.   write -c $mircdir\ $+ %loc.list <----------------==== $me $+ 's Mp3 List ====----------------->
  200.   write $mircdir\ $+ %loc.list -
  201.   set %loc.num 1
  202.   :start
  203.   set %loc.find $nopath( [ $findfile( [ $readini locator.ini locator dir ] ,*.*,%loc.num ) ] ) 
  204.   if (%loc.find == %loc.last)  { goto end }
  205.   set %loc.last %loc.find
  206.   write $mircdir\ $+ %loc.list %loc.find
  207.   inc %loc.num 1 
  208.   goto start
  209.   :end
  210.   writeini locator.ini locator listloc %loc.list
  211.   writeini locator.ini locator listnum %loc.num
  212. }
  213. alias loc.view {
  214.   run $mircdir\ $+ $readini locator.ini locator listloc 
  215. }
  216. ;-----------------
  217. ;Remotes
  218. ;-----------------
  219. on *:LOAD: {
  220.   loc.setup
  221.   loc.generate
  222. }
  223. on 1:START: {
  224.   set %dcc 0 
  225.   unset %loc.*
  226.   writeini locator.ini locator plays Off
  227.   writeini locator.ini locator rand Off
  228. }
  229. #loc off
  230. on *:TEXT:@locator*:*: {
  231.   if (%loc.use1 != x) { set %loc.use1 x | loc.loc $nick $2 | halt }
  232.   if (%loc.use2 != x) { set %loc.use2 x | loc.loc2 $nick $2 | halt }
  233.   if (%loc.use3 != x) { set %loc.use3 x | loc.loc3 $nick $2 | halt }
  234.   if (%loc.use4 != x) { set %loc.use4 x | loc.loc4 $nick $2 | halt }
  235.   if (%loc.use5 != x) { set %loc.use5 x | loc.loc5 $nick $2 | halt }
  236. }
  237. on 1:TEXT:*:*: {
  238.   set %jelsepu2 ! $me
  239.   set %jelsepu $remove(%jelsepu2,$chr(32))
  240.   if (%jelsepu isin $1) {
  241.     if ($parm2 != *.wav) && ($parm2 != *.mid) && ($parm2 != *.mp3) {
  242.       if (.wav isin $parm2) { /dcc send $nick $findfile($wavedir,$parm2,1) }
  243.       if (.mid isin $parm2) { /dcc send $nick $findfile($mididir,$parm2,1) }
  244.     }
  245.     /halt
  246.   }
  247. }
  248. #loc end
  249. ctcp *:DCC*:*: { inc %dcc 1 }
  250. ctcp *:GET:*: {    
  251.   if ( %dcc == [ $readini locator.ini locator maxdcc ] ) { .msg $nick sorry i have %dcc of $readini locator.ini locator maxdcc DCC slots in use.  Please try again later!!! }
  252.   else { .dcc send $nick $readini locator.ini locator dir $+ $2 
  253.   }
  254.   else { halt } 
  255. }
  256.