home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz KrOnIcKLeZ 3 / HaCKeRz_KrOnIcKLeZ.iso / scriptz / ll.txt < prev    next >
Text File  |  1996-04-23  |  4KB  |  124 lines
  1. ###########################################################################
  2. ## .____    .__        __     .____                  __                  ##
  3. ## |    |   |__| ____ |  | __ |    |    ____   ____ |  | __ ___________  ##
  4. ## |    |   |  |/    \|  |/ / |    |   /  _ \ /  _ \|  |/ // __ \_  __ \ ##
  5. ## |    |___|  |   |  \    <  |    |__(  <_> |  <_> )    <\  ___/|  | \/ ##
  6. ## |_______ \__|___|  /__|_ \ |_______ \____/ \____/|__|_ \\___  >__|    ##
  7. ##         \/       \/     \/         \/                 \/    \/        ##
  8. ##                            1.o bY bOnEz                               ##
  9. ###########################################################################
  10.   ## Notes:                                   ##
  11.   ##  Use /ll -build when you first use it, make sure there are *NO*   ##
  12.   ##  Splits. Yes, you will seem to freeze, but give it time..         ##
  13.   ##             -bOnEz                                   ##
  14.   #######################################################################
  15.  
  16.               :[Code for mIRC 5.0]:
  17. Put this in alias:
  18.     ll { 
  19.       if $1 == ? { echo -a %cc 2 Syntax: /ll [-build] | halt }
  20.       if $1 == -build { echo -a %cc 2Building master server(s) list. | echo -a %cc 2Creating current server(s) list. | set %ll.build yes | .enable #ll | links | write -c mlink.dll | halt }
  21.       else { echo -a %cc 2Creating current server(s) list. | .enable #ll | write -c clink.dll | links | halt }
  22.     }
  23.     _ll {
  24.       echo -a %cc 2Searching for split server(s).
  25.       set %ll $lines(mlink.dll)
  26.       set %ll2 0
  27.       :relook
  28.       set %mlink $read -l $+ %ll mlink.dll
  29.       if %ll == 0 { goto end }
  30.       if $find(%mlink,clink.dll) == 0 { inc %ll2 | echo -a %cc ( $+ %ll2 $+ ) %mlink  | dec %ll 1 | goto relook  }
  31.       else { dec %ll 1 | goto relook }
  32.       :end
  33.       echo -a %cc 2End.  $+ %ll2 $+  Server(s) Split
  34.     }
  35.     find {
  36.       set %find1 $lines($2)
  37.       :next
  38.       if %find1 == 0 { goto end }
  39.       if $1 isin $read -l $+ %find1 $2 { return 1 | halt }
  40.       dec %find1 1
  41.       goto next
  42.       :end
  43.       return 0 
  44.     }
  45.  
  46. Set these varibles:
  47.     %cc 12,1:[sK]:
  48.  
  49. Throw this in raw:
  50.     #ll off    
  51.     raw 364:*:{ 
  52.       if %ll.build == yes { if . isin $parm2 { write mlink.dll $parm2 } }
  53.       write clink.dll $parm2
  54.     }
  55.     raw 365:*:{  
  56.       if %ll.build == yes {
  57.         echo -a %cc 2Master server(s) list created. 
  58.         .disable #ll
  59.         set %ll.build no
  60.       }
  61.       echo -a %cc 2Current server(s) list created.
  62.       _ll
  63.       .disable #ll
  64.       halt
  65.     }
  66.     #ll end
  67.  
  68.               :[Code for 4.x]:
  69.  
  70. Put this in alias:
  71.     ll { 
  72.       if $1 == ? { echo -a %cc 2 Syntax: /ll [-build] | halt }
  73.       if $1 == -build { echo -a %cc 2Building master server(s) list. | echo -a %cc 2Creating current server(s) list. | set %ll.build yes | .enable #ll | links | write -c mlink.dll | halt }
  74.       else { echo -a %cc 2Creating current server(s) list. | .enable #ll | write -c clink.dll | links | halt }
  75.     }
  76.     _ll {
  77.       echo -a %cc 2Searching for split server(s).
  78.       set %ll $lines(mlink.dll)
  79.       set %ll2 0
  80.       :relook
  81.       set %mlink $read -l $+ %ll mlink.dll
  82.       if %ll == 0 { goto end }
  83.       if $find(%mlink,clink.dll) == 0 { inc %ll2 | echo -a %cc ( $+ %ll2 $+ ) %mlink  | dec %ll 1 | goto relook  }
  84.       else { dec %ll 1 | goto relook }
  85.       :end
  86.       echo -a %cc 2End.  $+ %ll2 $+  Server(s) Split
  87.     }
  88.     find {
  89.       set %find1 $lines($2)
  90.       :next
  91.       if %find1 == 0 { goto end }
  92.       if $1 isin $read -l $+ %find1 $2 { return 1 | halt }
  93.       dec %find1 1
  94.       goto next
  95.       :end
  96.       return 0 
  97.     }
  98.  
  99. Set these varibles:
  100.     %cc 12,1:[sK]:
  101.  
  102. Throw this in raw:
  103.     #ll start    
  104.     364:*:{ 
  105.       if %ll.build == yes { if . isin $parm2 { write mlink.dll $parm2 } }
  106.       write clink.dll $parm2
  107.     }
  108.     365:*:{  
  109.       if %ll.build == yes {
  110.         echo -a %cc 2Master server(s) list created. 
  111.         .disable #ll
  112.         set %ll.build no
  113.       }
  114.       echo -a %cc 2Current server(s) list created.
  115.       _ll
  116.       .disable #ll
  117.       halt
  118.     }
  119.     #ll end
  120.  
  121. ################################################################################
  122. ##                    Coded by: bOnEz                      ##
  123. ##               Thanx to abyss for giving me the idea                   ##
  124. ################################################################################