;___________________________________________
; Shooting Star Production by Jay
; Aliases
; mailto: BeatYourAss@JayOwns.net
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯

Gstart {
  gtzll
  st.st
  .set %name Shooting Star Production
  .set %name2 Shooting Star Production
  .set %auname Jay
  .set %fingreply %name Co. Ltd. All Rights Reserved.
  .titlebar %name2
  .timestamp -f %stamp.style
  if (%yes.or.no = n) { gcorrect }
}
Gcorrect {
  inc %numb 1
  if (%numb == 1) { wingtz | myts | set %load-time $time(HH:nn:ss dddd dd mmmm yyyy) }
  gtzwelcinfo
  if (%startsound = on) && (%numb != 1) { .splay %invinciblesound }
  if (%stlag.bar = on) { lag.start } | else { lag.stop }
  if (%tips == on) { tips }
  if (%sctips == on) { sckey }
  if (%auto.fserve = On) { fservx }
  if (%toolz.bs = on) { barz }
  gtacc
  if (%randomnix.start = on) { randomnix }
}
Gconnect {
  .remote on
  if (%connsound = on) { .splay %connect | else halt }
  if (%powdcc.conn = on) { powdcc }
  if (%randomnix.conn = on) { randomnix }
  if (%note.oncon = on) { notifylist }
  if (%toolz.bc = on) { barz }
  if ($_ch.rini(ch,ch) = on) {
    _ch.wini ch m $me
    _ch.wini ch c $time(HH:nn:ss ddd dd mmm yyyy)
    _ch.wini ch n $network
    _ch.wini ch s:p $server $+ : $+ $port
  }
  set %recserv3 %recserv2
  set %recserv2 %recserv1
  set %recserv1 $server
  inc %st.conx 1
  .ial on
  .mode $me +hiw
  gtzll
}
gdisconnect {
  .timeraping off
  if ( %disconnsound = on ) { .splay %disconnect }
  if ($_ch.rini(ch,ch) = on) {
    _ch.wini ch o $uptime(server,1)
    _ch.wini ch d $time(HH:nn:ss ddd dd mmm yyyy)
    _ch.write
  }
  inc %st.dconx 1
  gtzll
}
gtzsound {
  set %invinciblesound sounds/invincible.wav
  set %gtzintro sounds/gtz.wav
  set %medeop sounds/-o.wav
  set %meop sounds/+o.wav
  set %mevoice sounds/+v.wav
  set %medevoice sounds/-v.wav
  set %mejoin sounds/mejoin.wav
  set %mekick sounds/kicked.wav
  set %mepart sounds/mepart.wav
  set %clones sounds/clones_d.wav
  set %chat sounds/chat.wav
  set %dccsend sounds/dcc.wav
  set %pm sounds/pm.wav
  set %failed sounds/failed.wav
  set %sent sounds/xsend.wav
  set %downloaded sounds/downloaded.wav
  set %offline sounds/offline.wav
  set %online sounds/online.wav
  set %wb sounds/back.wav
  set %brb sounds/away.wav
  set %connect sounds/conestablished.wav
  set %disconnect sounds/conaborted.wav
  set %newmemo sounds/mailmaster.wav
  set %passprot sounds/password.wav
  set %incorrect sounds/Roguedie.wav
  set %ircop sounds/ircop.wav
  set %inviter sounds/inviter.wav
  set %hailai sounds/hailai.wav
  set %mekoc sounds/kicking.wav
  set %netsplitx sounds/netsplitx.wav
  set %x.pongtome sounds/ping.wav
  set %sofnote sounds/notice.wav
  set %autgtz sounds/gtzauthor.wav
  set %mebanned sounds/ban.wav
  set %emerignore sounds/ignore.wav
  set %err.wav sounds/err.wav
  set %alarm.wav sounds/alarm.wav
}
st.st {
  if (%st.ikick = $null) { set %st.ikick 0 }
  if (%st.kicki = $null) { set %st.kicki 0 }
  if (%st.iban = $null) { set %st.iban 0 }
  if (%st.bani = $null) { set %st.bani 0 }
  if (%st.iop = $null) { set %st.iop 0 }
  if (%st.opi = $null) { set %st.opi 0 }
  if (%st.ivo = $null) { set %st.ivo 0 }
  if (%st.voi = $null) { set %st.voi 0 }
  if (%st.conx = $null) { set %st.conx 0 }
  if (%st.dconx = $null) { set %st.dconx 0 }
  if (%st.joinx = $null) { set %st.joinx 0 }
  if (%st.partx = $null) { set %st.partx 0 }
}
st.reset {
  set %st.ikick 0
  set %st.kicki 0
  set %st.iban 0
  set %st.bani 0
  set %st.iop 0
  set %st.opi 0
  set %st.ivo 0
  set %st.voi 0
  set %st.conx 0
  set %st.dconx 0
  set %st.joinx 0
  set %st.partx 0
  set %st.timex $time(HH:nn:ss ddd dd mmm yyyy)
  echo -a $cxs(3) $+  $+ %xsbrack $+  $+ $cxs(2) Script Stats has been $+ $cxs(1) Reset
}
xsisnum { if ($1 xsisnum) && (($1 >= 1) || (($1 == $2) && ($2 xsisnum) && ($2 >= 0))) { return $true } | else { return $false } }
xsisset { if ($1 == $null) && ($2- == $null) { return n/a } | elseif ($1 == $null) && ($2 != $null) { return $2- } | else { return $1 } }
xstds { if ($1 isnum) { return $iif($len($1) == 1,0) $+ $1 } }
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 ] ] )) } }
xsw.set { if ($3 != $null) { writeini -n utilities/xscolorset.ini $1 $2 $strip($3-,burc) } }
xsr.set { if ($2 != $null) { return $readini -n utilities/xscolorset.ini $1 $2 } }
xsd.set { if ($2 != $null) { remini utilities/xscolorset.ini $1 $2 } }
xsr.Colors { return $readini -n " utilities/xscolor.ini $+ " $1 $2 }
xscolist1 {
  did -r $dname 2
  var %color.list = 0
  if ($xsr.Colors(Colors,%color.list) == 0) { did -a $dname 2 $xsr.Colors(Colors,%color.list) }
  :startlist
  if (%color.list == 16) { goto end }
  if ($xsr.Colors(Colors,%color.list) != $null) { did -a $dname 2 $xsr.Colors(Colors,%color.list) }
  inc %color.list 1
  goto startlist
  did -c $dname 2 1
  :end
  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)) }
}
xscolist2 {
  did -r $dname 6
  var %color.list = 0
  if ($xsr.Colors(Colors,%color.list) == 0) { did -a $dname 6 $xsr.Colors(Colors,%color.list) }
  :startlist
  if (%color.list == 16) { goto end }
  if ($xsr.Colors(Colors,%color.list) != $null) { did -a $dname 6 $xsr.Colors(Colors,%color.list) }
  inc %color.list 1
  goto startlist
  did -c $dname 6 1
  :end
  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)) }
}
xscolist3 {
  did -r $dname 10
  var %color.list = 0
  if ($xsr.Colors(Colors,%color.list) == 0) { did -a $dname 10 $xsr.Colors(Colors,%color.list) }
  :startlist
  if (%color.list == 16) { goto end }
  if ($xsr.Colors(Colors,%color.list) != $null) { did -a $dname 10 $xsr.Colors(Colors,%color.list) }
  inc %color.list 1
  goto startlist
  did -c $dname 10 1
  :end
  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)) }
}

;___________________________________________________________________________
; Copyright © 2000 - 2003 logos,scripts & codes. All rights reserved
; Reproduction/distribution/alteration of this material in part or in full without prior consent is forbidden
; Script author: Jay @ XeroCreative.
; mailto: BeatYourAss@JayOwns.net
;¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯