SHARE
TWEET

Untitled

a guest Jun 19th, 2017 112 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ;___________________________________________
  2. ; Shooting Star Production by Jay
  3. ; Aliases
  4. ; mailto: BeatYourAss@JayOwns.net
  5. ;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  6.  
  7. Gstart {
  8.   gtzll
  9.   st.st
  10.   .set %name Shooting Star Production
  11.   .set %name2 Shooting Star Production
  12.   .set %auname Jay
  13.   .set %fingreply %name Co. Ltd. All Rights Reserved.
  14.   .titlebar %name2
  15.   .timestamp -f %stamp.style
  16.   if (%yes.or.no = n) { gcorrect }
  17. }
  18. Gcorrect {
  19.   inc %numb 1
  20.   if (%numb == 1) { wingtz | myts | set %load-time $time(HH:nn:ss dddd dd mmmm yyyy) }
  21.   gtzwelcinfo
  22.   if (%startsound = on) && (%numb != 1) { .splay %invinciblesound }
  23.   if (%stlag.bar = on) { lag.start } | else { lag.stop }
  24.   if (%tips == on) { tips }
  25.   if (%sctips == on) { sckey }
  26.   if (%auto.fserve = On) { fservx }
  27.   if (%toolz.bs = on) { barz }
  28.   gtacc
  29.   if (%randomnix.start = on) { randomnix }
  30. }
  31. Gconnect {
  32.   .remote on
  33.   if (%connsound = on) { .splay %connect | else halt }
  34.   if (%powdcc.conn = on) { powdcc }
  35.   if (%randomnix.conn = on) { randomnix }
  36.   if (%note.oncon = on) { notifylist }
  37.   if (%toolz.bc = on) { barz }
  38.   if ($_ch.rini(ch,ch) = on) {
  39.     _ch.wini ch m $me
  40.     _ch.wini ch c $time(HH:nn:ss ddd dd mmm yyyy)
  41.     _ch.wini ch n $network
  42.     _ch.wini ch s:p $server $+ : $+ $port
  43.   }
  44.   set %recserv3 %recserv2
  45.   set %recserv2 %recserv1
  46.   set %recserv1 $server
  47.   inc %st.conx 1
  48.   .ial on
  49.   .mode $me +hiw
  50.   gtzll
  51. }
  52. gdisconnect {
  53.   .timeraping off
  54.   if ( %disconnsound = on ) { .splay %disconnect }
  55.   if ($_ch.rini(ch,ch) = on) {
  56.     _ch.wini ch o $uptime(server,1)
  57.     _ch.wini ch d $time(HH:nn:ss ddd dd mmm yyyy)
  58.     _ch.write
  59.   }
  60.   inc %st.dconx 1
  61.   gtzll
  62. }
  63. gtzsound {
  64.   set %invinciblesound sounds/invincible.wav
  65.   set %gtzintro sounds/gtz.wav
  66.   set %medeop sounds/-o.wav
  67.   set %meop sounds/+o.wav
  68.   set %mevoice sounds/+v.wav
  69.   set %medevoice sounds/-v.wav
  70.   set %mejoin sounds/mejoin.wav
  71.   set %mekick sounds/kicked.wav
  72.   set %mepart sounds/mepart.wav
  73.   set %clones sounds/clones_d.wav
  74.   set %chat sounds/chat.wav
  75.   set %dccsend sounds/dcc.wav
  76.   set %pm sounds/pm.wav
  77.   set %failed sounds/failed.wav
  78.   set %sent sounds/xsend.wav
  79.   set %downloaded sounds/downloaded.wav
  80.   set %offline sounds/offline.wav
  81.   set %online sounds/online.wav
  82.   set %wb sounds/back.wav
  83.   set %brb sounds/away.wav
  84.   set %connect sounds/conestablished.wav
  85.   set %disconnect sounds/conaborted.wav
  86.   set %newmemo sounds/mailmaster.wav
  87.   set %passprot sounds/password.wav
  88.   set %incorrect sounds/Roguedie.wav
  89.   set %ircop sounds/ircop.wav
  90.   set %inviter sounds/inviter.wav
  91.   set %hailai sounds/hailai.wav
  92.   set %mekoc sounds/kicking.wav
  93.   set %netsplitx sounds/netsplitx.wav
  94.   set %x.pongtome sounds/ping.wav
  95.   set %sofnote sounds/notice.wav
  96.   set %autgtz sounds/gtzauthor.wav
  97.   set %mebanned sounds/ban.wav
  98.   set %emerignore sounds/ignore.wav
  99.   set %err.wav sounds/err.wav
  100.   set %alarm.wav sounds/alarm.wav
  101. }
  102. st.st {
  103.   if (%st.ikick = $null) { set %st.ikick 0 }
  104.   if (%st.kicki = $null) { set %st.kicki 0 }
  105.   if (%st.iban = $null) { set %st.iban 0 }
  106.   if (%st.bani = $null) { set %st.bani 0 }
  107.   if (%st.iop = $null) { set %st.iop 0 }
  108.   if (%st.opi = $null) { set %st.opi 0 }
  109.   if (%st.ivo = $null) { set %st.ivo 0 }
  110.   if (%st.voi = $null) { set %st.voi 0 }
  111.   if (%st.conx = $null) { set %st.conx 0 }
  112.   if (%st.dconx = $null) { set %st.dconx 0 }
  113.   if (%st.joinx = $null) { set %st.joinx 0 }
  114.   if (%st.partx = $null) { set %st.partx 0 }
  115. }
  116. st.reset {
  117.   set %st.ikick 0
  118.   set %st.kicki 0
  119.   set %st.iban 0
  120.   set %st.bani 0
  121.   set %st.iop 0
  122.   set %st.opi 0
  123.   set %st.ivo 0
  124.   set %st.voi 0
  125.   set %st.conx 0
  126.   set %st.dconx 0
  127.   set %st.joinx 0
  128.   set %st.partx 0
  129.   set %st.timex $time(HH:nn:ss ddd dd mmm yyyy)
  130.   echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Script Stats has been $+ $cxs(1) Reset
  131. }
  132. xsisnum { if ($1 xsisnum) && (($1 >= 1) || (($1 == $2) && ($2 xsisnum) && ($2 >= 0))) { return $true } | else { return $false } }
  133. xsisset { if ($1 == $null) && ($2- == $null) { return n/a } | elseif ($1 == $null) && ($2 != $null) { return $2- } | else { return $1 } }
  134. xstds { if ($1 isnum) { return $iif($len($1) == 1,0) $+ $1 } }
  135. cxs { if ($1 isnum 1-3) && ($xsr.set(Colors,Colors) == On) && ($xsr.set(Colors,Color. [ $+ [ $1 ] ] ) isnum) { return $chr(3) $+ $xstds($xsr.set(Colors,Color. [ $+ [ $1 ] ] )) } }
  136. xsw.set { if ($3 != $null) { writeini -n utilities/xscolorset.ini $1 $2 $strip($3-,burc) } }
  137. xsr.set { if ($2 != $null) { return $readini -n utilities/xscolorset.ini $1 $2 } }
  138. xsd.set { if ($2 != $null) { remini utilities/xscolorset.ini $1 $2 } }
  139. xsr.Colors { return $readini -n " utilities/xscolor.ini $+ " $1 $2 }
  140. xscolist1 {
  141.   did -r $dname 2
  142.   var %color.list = 0
  143.   if ($xsr.Colors(Colors,%color.list) == 0) { did -a $dname 2 $xsr.Colors(Colors,%color.list) }
  144.   :startlist
  145.   if (%color.list == 16) { goto end }
  146.   if ($xsr.Colors(Colors,%color.list) != $null) { did -a $dname 2 $xsr.Colors(Colors,%color.list) }
  147.   inc %color.list 1
  148.   goto startlist
  149.   did -c $dname 2 1
  150.   :end
  151.   if ($xsr.set(Colors,Color.1) !isnum 0-15) { did -c $dname 2 $gettok(3 4 5 6 7 8 11 13 14 15,$rand(1,10),32) } | else { did -c $dname 2 $calc($xsr.set(Colors,Color.1) + 1)) }
  152. }
  153. xscolist2 {
  154.   did -r $dname 6
  155.   var %color.list = 0
  156.   if ($xsr.Colors(Colors,%color.list) == 0) { did -a $dname 6 $xsr.Colors(Colors,%color.list) }
  157.   :startlist
  158.   if (%color.list == 16) { goto end }
  159.   if ($xsr.Colors(Colors,%color.list) != $null) { did -a $dname 6 $xsr.Colors(Colors,%color.list) }
  160.   inc %color.list 1
  161.   goto startlist
  162.   did -c $dname 6 1
  163.   :end
  164.   if ($xsr.set(Colors,Color.2) !isnum 0-15) { did -c $dname 6 $gettok(3 4 5 6 7 8 11 13 14 15,$rand(1,10),32) } | else { did -c $dname 6 $calc($xsr.set(Colors,Color.2) + 1)) }
  165. }
  166. xscolist3 {
  167.   did -r $dname 10
  168.   var %color.list = 0
  169.   if ($xsr.Colors(Colors,%color.list) == 0) { did -a $dname 10 $xsr.Colors(Colors,%color.list) }
  170.   :startlist
  171.   if (%color.list == 16) { goto end }
  172.   if ($xsr.Colors(Colors,%color.list) != $null) { did -a $dname 10 $xsr.Colors(Colors,%color.list) }
  173.   inc %color.list 1
  174.   goto startlist
  175.   did -c $dname 10 1
  176.   :end
  177.   if ($xsr.set(Colors,Color.3) !isnum 0-15) { did -c $dname 10 $gettok(3 4 5 6 7 8 11 13 14 15,$rand(1,10),32) } | else { did -c $dname 10 $calc($xsr.set(Colors,Color.3) + 1)) }
  178. }
  179.  
  180. ;___________________________________________________________________________
  181. ; Copyright © 2000 - 2003 logos,scripts & codes. All rights reserved
  182. ; Reproduction/distribution/alteration of this material in part or in full without prior consent is forbidden
  183. ; Script author: Jay @ XeroCreative.
  184. ; mailto: BeatYourAss@JayOwns.net
  185. ;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
RAW Paste Data
Top