### light.irc script for bitchx by panasync
### written by shade (sk@dhp.com)   
### this script is mostly frivolous bullshit.  enjoy!

### stolen code: original fixsize alias by zircon 
### stolen code: original dccbar alias by zelix
### stolen code: country lookup table by srfrog
### stolen code: loading bar alias by openface

### check for bitchx and previously loaded script
if (!bitchx()) {echo >>> light requires BitchX.  get your copy from ftp.thirdwave.net.;//si no bitchx = no light}
if ([$light]) {echo >>> never load light more than once, dumbfuck :> now yer fuxed.}
if (V < 19961120) {echo >>> you need a newer version of bitchx (68f* or better);//quit my bitchx is old and senile}

### begin script

alias loading {
  if ([$0] <= [100]) {
    @loadcnt=0
    @loadarg=[$0] / 10
    @loadbar=[${CYN}]
    while (loadcnt < loadarg) {
      @loadbar=[$loadbar]##[²]
      @loadcnt=loadcnt+1}
  @loadbar=[$loadbar]##[${CYN}]
  @loadcnt=0
  while (loadcnt < ([10] - loadarg)) {
      @loadbar=[$loadbar]##[°]
      @loadcnt=loadcnt+1}
  @loadbar=[$loadbar]##[${CL}]
  ^set input_prompt ${HBLK}\(${HGRN}loading $light ${HBLK}[$loadbar${HBLK}]\)}}

@light=[-light2.20b-]
loading 0
### colors
assign BLNK 
assign CL 
assign BLK 
assign RED 
assign GRN 
assign YEL 
assign BLU 
assign MAG 
assign CYN 
assign WHT 
assign BBLK 
assign BRED 
assign BGRN 
assign BYEL 
assign BBLU 
assign BMAG 
assign BCYN 
assign BWHT 
assign HBLK 
assign HRED 
assign HGRN 
assign HYEL 
assign HBLU 
assign HMAG 
assign HCYN 
assign HWHT 
assign CT1 

### color setup
@hilite = [${HBLU}]
@dcolors = [${BBLU}${HBLU}]
loading 10
### variable declarations
@lig=[${HBLU}=${HYEL}|${HBLU}=${CL}]
@larrow=[${HWHT}®${HBLU}®${HBLK}®${CL}]
@rarrow=[${HBLK}¯${HBLU}¯${HWHT}¯${CL}]
@lightver=[$light by shade]
@G=[$lig]
@ccol=[:]
@memofile=[$HOME/.BitchX/light-memos]
@greetfile=[$HOME/.lightgreets]
@lightsave=[$HOME/.lightrc]
@memfl=open($memofile W T)
@defbootmsg=[do tha buh bye]
@defawaymsg=[there's nothing like giving the game away]
@defbackmsg=[still lookin' for that old fire]
@prtype=[norm]
@dtog=[1]
if (!sendz) {@sendz=[0]}
if (!getz) {@getz=[0]}
@clinfo=[my cat's breath smells like cat food]
@fkey[1] = [light help]
@fkey[2] = [user]
@fkey[3] = [sv]
@fkey[4] = [cdcc plist]
@fkey[5] = [readlog]
@fkey[6] = [uptime]
@fkey[7] = [chops]
@fkey[8] = [nops]
loading 20
### global aliases and functions
alias asecho echo $lig $0-
alias checkvoice {
  if ([$isvoice($nnchan $0)]) {@function_return=[+$0]} {@function_return=[$0 ]}}
alias country { 
  if (isalpha($fixhost($0))) {
  @cnt=mid(${rindex(. $fixhost($0))+1} 5 $fixhost($0))
  if (domain[$cnt]) {@function_return=[\[$domain[$cnt]\]]} {@function_return=[]}}
 {@function_return=[]}}
alias comchan {
  @tchans=[$mychannels()]
  @common=[]
  @comuser=[$0]
  fe ($tchans) curchan {
    if (onchannel($comuser $curchan)) {@common=[$common $curchan]}}
  @function_return=[$common]}
alias dccbar {
  @percentbar=[$0]
  @percentbar=percentbar + 10
  @rbar=percentbar / 10
  @lbar=11 - rbar
  @function_return=[$([$rbar]Space)$([$lbar]Space)]}
alias fixc {@function_return=[$center(34 $0-)]}
alias fixeta {
  if ([$strlen($0)]==[1]) {@function_return=[0$0]}{@function_return=[$0]}}
alias fixhost {
  if (isdigit($0)) {
    if (iptoname($0)) {@function_return=[$iptoname($0)]} {@function_return=[$0]}}
 {@function_return=[$0]}}
alias fixidle {
  if ([$0]) {@idlehr=[$0 hour$plural($0) ]}
  if ([$1]) {@idlemin=[$1 minute$plural($1) ]}
  if ([$2]) {@idlesec=[$2 second$plural($2)]}
  @function_return=[$idlehr$idlemin$idlesec]}
alias fixip {
  @function_return=[$useronly($0)@$fixhost($hostonly($0))]}
alias fixsize {
  if ([$0]) {
    @ sz1 = [$0]
    @ sz2 = sz1 / 1024
    if (sz2 > 0) {
      if (sz2 >= 1024) {
        @ function_return = [${sz2 / 1024}mb]}
       {@ function_return = [${sz2}kb]}}
     {@ function_return = [${sz1}b]}}
  {@ function_return = [0b]}}
alias fixtop {@function_return=[$0- ]}
alias fixuptime {
  @fuxed1=[];@fuxed2=[];@fuxed3=[]
  if ([$0]!=[0d]) {@fuxed1=[$0 ]}
  if ([$1]!=[0h]) {@fuxed2=[$1 ]}
  if ([$2]!=[0m]) {@fuxed3=[$2]}
  @fuxed=[$fuxed1$fuxed2$fuxed3]
  if ([$right(1 $fuxed)]==[ ]) {@crapp=strlen($fuxed);@crapp=crapp-2;@fuxed=[$left($crapp $fuxed)]}
  @function_return=[$fuxed]}
alias fuckup {@function_return=[$encode($rot13($reverse($0-)))]}
alias fuxit {@function_return=[$0!$1]}
alias hostonly {
  @function_return=mid(${index(@ $0)+1} ${@0-index(@ $0)+1} $0)}
alias isserver {if ([$opensocket($0 R)]>0) {@function_return=[1]} {@function_return=[0]}}
alias newuptime {
  @function_return=[$tdiff(${time() - F})]}
alias plural {if ([$0]!=[1]) {@function_return=[s]}}
alias unfuckup {@function_return=[$reverse($rot13($decode($0-)))]}
alias useronly {
  @function_return=left(${index(@ $0)} $0)}
loading 30     
### client setup
set hard_uh_notify on
set llook off
set beep on
set beep_on_msg msgs
eval set show_numerics_str $lig
set default_reason hi there
set deop_on_deopflood 20
set kick_on_deopflood 20
set kick_on_kickflood 10
set kick_on_nickflood 10
set kick_on_pubflood 5
set deopflood_time 5
set kickflood_time 5
set nickflood_time 5
set pubflood_time 5
set flood_after 15
set flood_rate 15

### status bar
eval set status_channel ${HBLK}\(${WHT}%C
eval set status_lag ${HBLK}\(${WHT}lag:${CYN}%L${HBLK}\)
eval set status_oper_kills ${HBLK}\(${WHT}nk ${CYN}%K${HBLK}|${WHT}ok ${CYN}%K${HBLK}\)
set status_chanop @
eval set status_away  ${HBLK}\[${CYN}away${HBLK}\]
set status_clock %T
eval set status_mail ${HBLK}\(${WHT}mail${CYN}\[%M\]${HBLK}\) 
eval set status_mode ${HBLK}\[${CYN}+%+${HBLK}\]
set status_oper *
set status_voice +
eval set status_query ${HBLK}\(${WHT}query:${CYN}%Q${HBLK}\) 
set status_hold [-press space-]
eval set status_user6 ${HBLK}\(${WHT}$S${HBLK}\)
eval set status_user2 !$useronly($X)@$before(1 . $hostonly($X))
eval set status_umode ${HBLK}\[${CYN}+%#${HBLK}\]
eval set status_users  ${CYN}o:%! n:%! i:%! v:%!${HBLK}\) ${HWHT}
eval set status_user5 ${HBLK}\(${WHT}$light${HBLK}\)
set -status_user4
eval window set status_channel ${HBLK}\(${WHT}%C
eval window set status_lag ${HBLK}\(${WHT}lag:${CYN}%L${HBLK}\)
eval window set status_oper_kills ${HBLK}\(${WHT}nk ${CYN}%K${HBLK}|${WHT}ok ${CYN}%K${HBLK}\)
window set status_chanop @
eval window set status_away  ${HBLK}\[${CYN}away${HBLK}\]
window set status_clock %T
eval window set status_mail ${HBLK}\(${WHT}mail${CYN}\[%M\]${HBLK}\) 
eval window set status_mode ${HBLK}\[${CYN}+%+${HBLK}\]
window set status_oper *
window set status_voice +
eval window set status_query ${HBLK}\(${WHT}query:${CYN}%Q${HBLK}\) 
window set status_hold [-press space-]
eval window set status_user6 ${HBLK}\(${WHT}$S${HBLK}\)
eval window set status_user2 !$useronly($X)@$before(1 . $hostonly($X))
eval window set status_umode ${HBLK}\[${CYN}+%#${HBLK}\]
eval window set status_users  ${CYN}o:%! n:%! i:%! v:%!${HBLK}\)${HWHT} 
eval window set status_user5 ${HBLK}\(${WHT}$light${HBLK}\)
window set -status_user4
loading 40
### binds
bind ^X switch_channels
bind ^Z stop_irc
bind meta1-I parse_command dcctoggle
bind meta3-A parse_command dokey 1
bind meta3-B parse_command dokey 2
bind meta3-C parse_command dokey 3
bind meta3-D parse_command dokey 4
bind meta3-E parse_command dokey 5
bind meta3-7 parse_command dokey 6
bind meta3-8 parse_command dokey 7
bind meta3-9 parse_command dokey 8
loading 50
### hooks
^on ^timer "*" {eval ^set status_user9 \${HBLK}\(${HWHT}up:$fixuptime($uptime())${HBLK}\);eval ^window set status_user9 \${HBLK}\(${HWHT}up:$fixuptime($uptime())${HBLK}\)}
^on ^332 "*" {
  @ttopic[$strip(# $1)]=[$2-]
  eval ^window set status_user8 \$fixtop($ttopic[$strip(# $1)])}
^on ^333 "*" {@cheader=[topic for $1 set by $2 at $stime($3)]
  if (!newcheck) {
  eval echo  \${HBLK}-----\(${HWHT}$[64]center(64 $cheader)${HBLK}\)-----
  eval echo  \${HBLK}--\(${HRED}$[70]center(70 $ttopic[$strip(# $1)])${HBLK}\)--}}
^on ^channel_switch "*" {eval ^window set status_user8 \$ttopic[$strip(# $0)] }
^on -topic "*" {@ttopic[$strip(# $1)]=[$2-];if ([$1]==[$C]) {eval ^window set status_user8 \$fixtop($ttopic[$strip(# $1)])}}
^on ^331 "*" {@ttopic[$strip(# $1)]=[no topic has been set];eval ^window set status_user8 \$fixtop($ttopic[$strip(# $1)])}
^on -leave "*" {
  if ([$0]==[$N]) {
    @chanzz=chanzz-1
    if ((!dccs)||(!dtog)) if (!chanzz) {^window set status_format3  %> %5 |}}}
on ^channel_signoff "% % %.% %.%" eval echo \$larrow $cparse("(%cnetsplit%K) %B$2%n split from $3")
on ^window "? % BitchX: *" asecho $3-
on ^window "? BitchX: *" asecho $2-
on ^window "? % Auto-getting file % from %" #
on ^window "? % You have been marked as being*" #
on ^mail * asecho you have new email! \(new: $0 total: $1\)
^on ^public "% % (!light!)*" {
  @damsg=[$3-]
  @frum=[$0]
  eval echo \${HBLK}\(${CL}$frum${HBLK}\) \${HGRN}\(encrypted\)\${CL} $unfuckup($damsg)}  
^on ^public_other "% % (!light!)*" {
  @damsg=[$3-]
  @frum=[$0]
  @chan=[$1]
  eval echo \${HBLK}\(${CL}$frum${HBLK}/\${CL}$chan\${HBLK}\) \${HGRN}\(encrypted\)\${CL} $unfuckup($damsg)}
^on ^001 "*" {asecho Welcome to the Internet Relay Network ${hilite}$7} 
^on ^002 "*" {asecho Your host is ${hilite}$4${cl} running ${hilite}$7}
^on ^003 "*" #
^on ^004 "*" #
^on ^255 * {@totcl=[$3];@totsr=[$6]}
^on ^251 "*" {asecho There are ${hilite}${[$3] + [$6]}${cl} users \($3 + $6 invisible\) on ${hilite}$9${cl} server$plural($9)}
^on ^252 "*" {asecho ${hilite}$1${cl} operators online}
^on ^254 "*" {asecho ${hilite}$1${cl} known channels have been formed}
^on ^250 "*" {asecho I have ${hilite}$totcl${cl} clients \(${hilite}$4${cl} max\) and ${hilite}$totsr${cl} server$plural($totsr) connected}
^on ^433 "*" {userhost $0 -cmd asecho $${HBLK}\[$${HBLU}$$0$${HBLK}\] $${CL}is already in use by $${HBLU}$$3@$$4$${CL}}
^on -join "*" {
  if ([$numgreet]) {
  @nskan=[$0]
  @cskan=[$1]
  @hskan=[$2]
  foreach greetuser xx {
    if (([$rmatch($nskan!$hskan $greetuser[$xx])])&&([$rmatch($cskan $greetchan[$xx])])) {
       send \[$nskan\] $greeting[$xx]}}}}
^on ^names "*" #
^on ^channel_synch * {@schan=[$0];@synchtime=[$1]
  @chanzz=chanzz+1
  if ((!dccs)||(!dtog)) ^window set status_format3  %C%+%! %8  
  @synching=[1];eval names $schan
  @synching=[0]
  @cheader=[total on $schan:$allfuxers  synch:$synchtime\s]
  eval echo  \${HBLK}---------------\(${HWHT}$[40]fixc2($cheader)${HBLK}\)-------------------}
alias fixc2 {@function_return=center(40 $0-)}
^on -dcc_statf "*" {
  @dcctype=[$1]
  @dccuser=[$2]}
^on -dcc_statf1 "*" {
  @dccpercent=[$0]
  @dccbytes=[${[$2] - [$1]}]
  @dcceta=[$3\:$fixeta($4)]}
^on -msg "*" {@lastmn=[$0];@lastmt=[$1-]}
^on -notice "*" {@lastnn=[$0];@lastnt=[$1-]}
^on -invite "*" {@lastin=[$0];@lastic=[$1]}
^on -connect "*" {eval ^window set status_user6 \${HBLK}\(${WHT}$S${HBLK}\)}
^on -disconnect "*" {eval ^window set status_user6 \${HBLK}\(${WHT}no server${HBLK}\)}
^on -dcc_connect "*" {
  if (([$1]==[SEND])||([$1]==[GET])) {
    @dccs=dccs + 1
    if (dtog) ^window set status_format3  %C%+ %>%4 |
    ^hook getdccstats}}
^on -dcc_lost "*" {
  if (([$1]==[SEND])||([$1]==[GET])) {
  @dccs=dccs - 1
  if ([$dccs]==[0]) {
    if ([$C]) {^window set status_format3  %C%+%! %8 %> }
    {^window set status_format3  %5 %> |}}
  if ([$5]==[COMPLETE]) {
    if ([$1]==[SEND]) {@sendz=sendz+1;refresh7}
    if ([$1]==[GET]) {@getz=getz+1;refresh7}}}}
^on ^cdcc_prepack * if ([$0]==[$C]) {
     send \(cdcc\) $2 file$plural($2) offered!  /ctcp $N\ cdcc send #n
     send \(cdcc\) slots open: $3/$4 - minspeed: $12kb/s - record: $fixsize($7)/s}
    {notice $0 \(cdcc\) $2 file$plural($2) offered!  /ctcp $N\ cdcc send #n
     notice $0 \(cdcc\) slots open: $3/$4 - minspeed: $12kb/s - record: $fixsize($7)/s}
^on ^cdcc_pack * if ([$0]==[$C]) {
     send \(\#$[2]1 $[-5]fixsize($3) $[-3]4x\) - $[40]5-}
     {notice $0 \(\#$[2]1 $[-5]fixsize($3) $[-3]4x\) - $[40]5-}
^on ^cdcc_postpack * if ([$0]==[$C]) {
     send \(   total offered: $fixsize($11)  -  total grabbed: $fixsize($8)\   )}
     {notice $0 \(   total offered: $fixsize($11)  -  total grabbed: $fixsize($8)\   )}
^on ^ctcp "* * PAGE" {asecho ${hblu}You have been paged by ${hyel}$0. ${hblk}[${hwht}$3-${hblk}];notice $0 Your request has been logged.}
^on ^hook getdccstats {
  if ([$dccs]!=[0]) {
    ^timer 1 dccstats
    ^timer 2 ^hook getdccstats}}
^on -exit "*" {asecho $light [Time wasted: $newuptime()]}
loading 60 
### aliases
alias 1 {window swap 1}
alias 2 {window swap 2}
alias 3 {window swap 3}
alias 4 {window swap 4}
alias addgreet {
  if ([$0]&&[$1]&&[$2]) {
    @numgreet=numgreet+1
    @greetuser[$numgreet]=[$0]
    @greetchan[$numgreet]=[$1]
    @greeting[$numgreet]=[$2-]
    eval echo \$lig greeting added for $greetuser[$numgreet] \(channels $greetchan[$numgreet]\) as [$greeting[$numgreet]]}
  {asecho (usage) /ADDGREET <nick!user@host pattern> <channel/*> <text>
   asecho (usage) + adds a greeting, send whenever someone with a matching
   asecho (usage) + nick!user@host pattern joins the specified channel.}}
alias away {^set msglog on
  if ([$0]) {
    if ([$0]==[-n]) {^set msglog off
      if ([$1]) {@awaymsg=[$1-]
        //away $1-}
       {//away $defawaymsg;@awaymsg=[$defawaymsg]}}
    {//away $0-;@awaymsg=[$1-]}}
   {//away $defawaymsg;@awaymsg=[$defawaymsg]}}
alias back {
  if ([$0]) {@backmsg=[$0-]} {@backmsg=[$defbackmsg]}
  @awaymsg=[]
  //back}
alias bitchkick {
  if ([$0]) {
    if ([$1]) {@bitchmsg=[$1-]} {@bitchmsg=[-bitchkick-]}
    mode $C +oooo $0 $0 $0 $0
    kick $C $0 $bitchmsg}
  {asecho (usage) /BITCHKICK <nick> [reason]
   asecho (usage) + 4ops nick on current channel then kicks them :>}}
alias boot {
  if ([$0]) {
  @bootnick=[$0]
  @bootchans=[$comchan($bootnick)]
  if ([$1]) {@bootres=[$1-]} {@bootres=[$defbootmsg]}
  fe ($bootchans) curchan {
    if (ischanop($N $curchan)) {
        wait -CMD kick $curchan $bootnick $bootres}}}
  {asecho (usage) /BOOT <nick>
   asecho (usage) + kicks nick from all channels you are opped in.}}
alias cluekick {
  if ([$0]) {
    if ([$1]) {@clueres=[$1-]} {@clueres=[-cluekick-]}
    mode $C +b $0!*
    kick $C $0 $clueres}
  {asecho (usage) /CLUEKICK <nick> [reason]
   asecho (usage) + "get a clue kick" - nickbans and kicks <nick>}}
alias coffers {
  if ([$0]) {@chan=[$0]} {@chan=[$C]}
  @niqz=onchannel($chan)
  fe ($niqz) nigzor {if ([$nigzor]!=[$N]) {ctcp $nigzor xdcc list}}}
alias convert {
  if ([$0]) {
  @resolved = [$convert($0)]
  if ([$resolved]) {
     asecho $0 is $resolved}
  {asecho cannot resolve $0}}
  {asecho (usage) /CONVERT <host>
   asecho (usage) + converts ip address to a name and vice versa.}}
alias crypt {
  if ([$0]) {
   send \(!light!\) $fuckup($0-)}
  {asecho (usage) /CRYPT <text>
   asecho (usage) + encrypts a message and sends it to the current channel
   asecho (usage) + this can only be read by other light users (its automatic)
   asecho (usage) + i know its lame but i had to do it :>}}
alias dcctoggle {
  if ([$dccs]) {
    if ([$dtog]) {@dtog=[0]
      if ([$C]) {^window set status_format3  %C%+%! %8 } {^window set status_format3  %5 %> |}}
      {@dtog=[1];^window set status_format3  %C%+) %>%4 |}}}
alias dokey {
  ^bind ~ nothing
  $fkey[$0]
  ^timer 1 ^bind ~ self_insert}
alias dccstats {
  //^dcc
  eval ^window set status_user4 $dcctype: $[9]dccuser \($[5]fixsize($dccbytes) ETA:$[-5]dcceta\) \[$dccbar($dccpercent)\$dcolors\]}   
alias frelm {
  if ([$0]) {
    say ${BBLU} ${HBLK}[${HGRN}$0${HBLK}] ${CL} $1-}
   {asecho (usage) /FRELM <nick> [message]
    asecho (usage) + sends a fake redirected message from <nick> to the channel.}}
alias freln {
  if ([$0]) {
    say ${HGRN}-${HWHT}$0${HGRN}- ${CL}$1-}
   {asecho (usage) /FRELN <nick> [message]
    asecho (usage) + sends a fake redirected notice from <nick> to the channel.}}
alias greetlist {
  if ([$numgreet]) {
  echo nick!user@host            channels   greeting text
  foreach greetuser xx {
    eval echo $[25]greetuser[$xx] $[10]greetchan[$xx] $greeting[$xx]}}
  {asecho no greetings are currently in memory.}}
alias idiotkick {
  if ([$0]) {@idiot=[$0]
    if ([$1]) {@idiotmsg=[$1-]} {@idiotmsg=[-idiotkick-]}
    ban $C $idiot
    kick $C $idiot $idiotmsg
    timer 5 ub $C $idiot}
  {asecho (usage) /IDIOTKICK <nick> [reason]
   asecho (usage) + bans & kicks <nick> with reason, then unbans in 5 seconds
   asecho (usage) + so they cant autorejoin :>}}
alias nick {
  if ([$0]) {
    //nick $0
    if ([$prtype]==[norm]) {wait -cmd normprompt}}
  {//nick}}
alias klm {boot $lastmn *$lastmn* $lastmt}
alias kln {boot $lastnn -$lastnn- $lastnt}
alias kli {boot $lastin $lastin invites you to $lastic}
alias l leave
alias leave part *
alias list {
  if ([$0]) {//list $0-}
    {if ([$firstlist]) {@firstlist=[0];//list}
      {asecho Type /list again if you really want to do that.
       @firstlist=[1]}}}
alias memo {
  if ([$0]) {
  @write($memfl [$strftime($time() %x @ %X)] $0-)
  @close($memfl)
  asecho memo saved in ${hilite}$memofile${cl}.}{
    asecho viewing memos stored in ${hilite}$memofile${cl}.
    ^on ^exec_error "mm *" {asecho memofile ${hilite}$memofile${cl} not found.}
    ^exec -name mm cat $memofile
    wait %mm
    ^on ^exec_error -"mm *"}}
alias names {
  if ([$0]) {@nnchan=[$0]} {@nnchan=[$C]}
  if (onchannel($N $nnchan)) {
  @allfuxers=onchannel($nnchan)
  @allfuxers=[$#allfuxers]
  @nnchops=chops($nnchan)
  @nnlame=nochops($nnchan)
  @choperz=sort($nnchops)
  @lamerz=sort($nnlame)
  @chopz[0]=[]
  @negnum=[0]
  @chopline=[0]
  fe ($choperz) negr0 {
      if ([$negnum]==[4]) {@chopz[$chopline]=[$chopz[$chopline] \${HWHT}þ \${HBLK}\(${HCYN}@$[9]negr0${HBLK}\) \${HWHT}þ];@chopline=chopline+1;@negnum=[0];@chopz[$chopline]=[]}
      {@chopz[$chopline]=[$chopz[$chopline] \${HWHT}þ \${HBLK}\(${HCYN}@$[9]negr0${HBLK}\)];@negnum=negnum+1}}
  @lamahz[0]=[]
  @fagnum=[0]
  @geekline=[0]
  fe ($lamerz) fuxor {
    if ([$fagnum]==[4]) {@lamahz[$geekline]=[$lamahz[$geekline] \${HWHT}þ \${HBLK}\(${HBLU}$[10]checkvoice($fuxor)${HBLK}\)\ \${HWHT}þ];@geekline=geekline+1;@fagnum=[0];@lamahz[$geekline]=[]}
    {@lamahz[$geekline]=[$lamahz[$geekline] \${HWHT}þ \${HBLK}\(${HBLU}$[10]checkvoice($fuxor)${HBLK}\)];@fagnum=fagnum+1}}
  if ([$#choperz]) {
  @cheader=[operators on $nnchan:$#choperz]
  eval echo  \${HBLK}------------------\(${HWHT}$[34]fixc($cheader)${HBLK}\)----------------------
  foreach chopz xx {
    eval echo $chopz[$xx]}}
  if ([$#lamerz]) {
  @cheader=[users on $nnchan:$#lamerz]
  eval echo  \${HBLK}------------------\(${HWHT}$[34]fixc($cheader)${HBLK}\)----------------------
  foreach lamahz xx {
    eval echo $lamahz[$xx]}}
  if (!synching) {@cheader=[total on $nnchan:$allfuxers]
  eval echo  \${HBLK}------------------\(${HWHT}$[34]fixc($cheader)${HBLK}\)----------------------}
  foreach chopz xx {@chopz[$xx]=[]}
  foreach lamahz xx {@lamahz[$xx]=[]}}  
  {asecho you're not on $nnchan!}}
alias normprompt {^set input_prompt ${HBLK}\(${HBLU}$N${HBLK}\) ${cl}} 
alias opers {
  if ([$0]) {@serv=[$0]} {@serv=[$S]}
  if ([$isserver($serv)]) {
  @shitz0r=[0]
  ^on ^243 "*" {
    @olinez[$shitz0r]=[$4]
    @shitz0r=shitz0r + 1}
  stats o $serv
  wait -cmd ^on -243 "*" #
  wait
  @operz=[]
  foreach olinez xq {
    if (!match($olinez[$xq] $operz)) {@operz=[$operz $olinez[$xq]]}}
  eval echo \$lig operators on $serv: $operz}
  {asecho $serv is not a valid server.}}
alias prompt {
  if ([$prtype]==[spin]) {
    asecho Normal prompt activated.
    @prtype=[norm]
    normprompt}
   {asecho Spinning prompt activated.
    @prtype=[spin]
    spinprompt}}
alias quit {
  if ([$0]) {//si $0-}
  {if ([$fsize(~/.BitchX/BitchX.quit)] > 0) {//si}
  {eval //si $light Time wasted: $newuptime()}}}
alias randkick {
  @nopprz=nochops($C)
  k $word($rand($#nopprzs) $nopprz) -randomkick-}
alias refresh7 {eval ^window set status_user7 \${HBLK}\(${HWHT}sends:${HCYN}$sendz${HBLK}|${HWHT}gets:${HCYN}$getz${HBLK}\)}
alias savegreet {
  if ([$numgreet]) {
    @rename($greetfile $greetfile.old)
    @gfl=open($greetfile W T)
    @write($gfl @numgreet=[$numgreet])
    foreach greetuser xx {
      @write($gfl @greetuser[$xx]=[$greetuser[$xx]])
      @write($gfl @greetchan[$xx]=[$greetchan[$xx]])
      @write($gfl @greeting[$xx]=[$greeting[$xx]])}
      @close($gfl)
      asecho all greetings have been saved.}
  {asecho no greetings are currently in memory.}}
alias spinprompt {
  if ([$prtype]==[spin]) {
  ^set input_prompt ${HBLK}[    ] ${CL}
  ^timer 1 ^set input_prompt ${HBLK}[    ] ${CL}
  ^timer 2 ^set input_prompt ${HBLK}[$HBLK>   ] ${CL}
  ^timer 3 ^set input_prompt ${HBLK}[${BLU}>${HBLK}>  ] ${CL}
  ^timer 4 ^set input_prompt ${HBLK}[${HBLU}>${BLU}>${HBLK}> ] ${CL}
  ^timer 5 ^set input_prompt ${HBLK}[${CYN}>${HBLU}>${BLU}>${HBLK}>] ${CL}
  ^timer 6 ^set input_prompt ${HBLK}[${HYEL}>${CYN}>${HBLU}>${BLU}>${HBLK}] ${CL}
  ^timer 7 ^set input_prompt ${HBLK}[${HGRN}>${HYEL}>${CYN}>${HBLU}>${HBLK}] ${CL}
  ^timer 8 ^set input_prompt ${HBLK}[${HWHT}>${HGRN}>${HYEL}>${CYN}>${HBLK}] ${CL}
  ^timer 8 ^set input_prompt ${HBLK}[ ${HWHT}>${HGRN}>${HYEL}>${HBLK}] ${CL}
  ^timer 9 ^set input_prompt ${HBLK}[  ${HWHT}>${HGRN}>$HBLK] ${CL}
  ^timer 10 ^set input_prompt ${HBLK}[   ${HWHT}>${HBLK}] ${CL}
  ^timer 11 spinprompt}
  {normprompt}}
alias sv eval me is running $lightver for $J: sex grease for the 21st century.
alias ungreet {
  if ([$0]) {
    @ungz=[$0]
    foreach greetuser xx {
      if ([$ungz]==[$greetuser[$xx]]) {eval echo \$lig greeting for \($greetuser[$xx]\) removed;@greetuser[$xx]=[];@greetchan[$xx]=[];@greeting[$xx]=[];@numgreet=numgreet-1}}}
  {asecho (usage) /UNGREET <nick!user@host pattern>
   asecho (usage) + removes a greeting for the specified nick!user@host pattern.}}
alias version {
   //version
   asecho Script: $lightver  ${hilite}d3h k0w s3z m00!?}

### script setup
alias _setup {
  asecho current changable script values:
  asecho startup prompt type     [$prtype]
  asecho default away message    [$defawaymsg]
  asecho default back message    [$defbackmsg]
  asecho default boot message    [$defbootmsg]
  asecho functionkey 1           [$fkey[1]]
  asecho functionkey 2           [$fkey[2]]
  asecho functionkey 3           [$fkey[3]]
  asecho functionkey 4           [$fkey[4]]
  asecho functionkey 5           [$fkey[5]]
  asecho functionkey 6           [$fkey[6]]
  asecho functionkey 7           [$fkey[7]]
  asecho functionkey 8           [$fkey[8]]
  asecho press enter to keep the current value
  input "startup prompt type (spin/norm): " if ([$0]!=[]) {@prtype=[$0]}
  input "default away message: " if ([$0]!=[]) {@defawaymsg=[$0-]}
  input "default back message: " if ([$0]!=[]) {@defbackmsg=[$0-]}
  input "default boot message: " if ([$0]!=[]) {@defbootmsg=[$0-]}
  input "functionkey 1:" if ([$0]!=[]) {@fkey[1]=[$0-]}
  input "functionkey 2:" if ([$0]!=[]) {@fkey[2]=[$0-]}
  input "functionkey 3:" if ([$0]!=[]) {@fkey[3]=[$0-]}
  input "functionkey 4:" if ([$0]!=[]) {@fkey[4]=[$0-]}
  input "functionkey 5:" if ([$0]!=[]) {@fkey[5]=[$0-]}
  input "functionkey 6:" if ([$0]!=[]) {@fkey[6]=[$0-]}
  input "functionkey 7:" if ([$0]!=[]) {@fkey[7]=[$0-]}
  input "functionkey 8:" if ([$0]!=[]) {@fkey[8]=[$0-]}
  input "save this info? (y/N): " if (([$0]!=[])&&([$0]==[Y])) {
    @rename($lightsave $lightsave.old)
    @savefile=open($lightsave W T)
    @write($savefile asecho loaded .lightrc created $stime($time()))
    @write($savefile @prtype=[$prtype])
    @write($savefile @defawaymsg=[$defawaymsg])
    @write($savefile @defbackmsg=[$defbackmsg])
    @write($savefile @defbootmsg=[$defbootmsg])
    @write($savefile @fkey[1]=[$fkey[1]])
    @write($savefile @fkey[2]=[$fkey[2]])
    @write($savefile @fkey[3]=[$fkey[3]])
    @write($savefile @fkey[4]=[$fkey[4]])
    @write($savefile @fkey[5]=[$fkey[5]])
    @write($savefile @fkey[6]=[$fkey[6]])
    @write($savefile @fkey[7]=[$fkey[7]])
    @write($savefile @fkey[8]=[$fkey[8]])
    @close($savefile)
    asecho startup options have been saved.}}
loading 70
### help alias
alias light {
  if (([$0]!=[setup])&&([$0]!=[help])) {
    asecho welcome to light version 2.00 (final #2).  you can read some help information
    asecho by typing /LIGHT HELP.  you can customize your script startup options
    asecho with /LIGHT SETUP.  enjoy the script.. 
    asecho report all bugs/suggestions to me on irc (shade) or email (sk@dhp.com)}
   {if ([$0]==[setup]) {_setup}
    if ([$0]==[help]) {_lhelp}}}

alias _lhelp {
  asecho light version 2.00 (final #2) commands and functions:
  asecho /ADDGREET <n!u@h> <#channel> <xxx> - add a greeting for a user.
  asecho /AWAY now accepts a -n flag to turn msglogging off
  asecho /BACK now accepts a line of text to echo with your back message.
  asecho /BITCHKICK - 4ops and kicks a person - type command for usage.
  asecho /BOOT <nick> - kicks nick from ALL channels you are opped in.
  asecho /CLUEKICK - nickbans and kicks a person - type command for usage.
  asecho /COFFERS <#chan> - requests xdcc list from each user on #channel.
  asecho /CONVERT <xxx> - converts ip to name and vice versa.
  asecho /CRYPT <xxx> - encrypts text and sends it to the channel
  asecho /FRELM <nick> <xxx> - fakes a redirected message from nick.
  asecho /FRELN <nick> <xxx> - fakes a redirected notice from nick.
  asecho /GREETLIST - list all greetings in memory.
  asecho /IDIOTKICK - ban, kick, and unban in 5 secs - type command for usage.
  asecho /KLI - boot the last person who sent you an invite with the info.
  asecho /KLM - boot the last person who msged you with the text.
  asecho /KLN - boot the last person who noticed you with the text.
  asecho /MEMO <xxx> - writes a memo.
  asecho /OPERS <serv> - lists operators on <serv> (defaults to current server)
  asecho /QUIT now quits with your time online if no bitchx.reasons
  asecho /RANDKICK - kicks people from your currents channel randomly.
  asecho /SAVEGREET - saves your greetings list.
  asecho /UNGREET <n!u@h> - removes a greeting from the list.}
loading 80
### country lookup table
@ domain[AD] = [Andorra]
@ domain[AE] = [United Arab Emirates]
@ domain[AF] = [Afghanistan]
@ domain[AG] = [Antigua and Barbuda]
@ domain[AI] = [Anguilla]
@ domain[AL] = [Albania]
@ domain[AM] = [Armenia]
@ domain[AN] = [Netherlands Antilles]
@ domain[AO] = [Angola]
@ domain[AQ] = [Antarctica]
@ domain[AR] = [Argentina]
@ domain[AS] = [American Samoa]
@ domain[AT] = [Austria]
@ domain[AU] = [Australia]
@ domain[AW] = [Aruba]
@ domain[AZ] = [Azerbaijan]
@ domain[BA] = [Bosnia and Herzegovina]
@ domain[BB] = [Barbados]
@ domain[BD] = [Bangladesh]
@ domain[BE] = [Belgium]
@ domain[BF] = [Burkina Faso]
@ domain[BG] = [Bulgaria]
@ domain[BH] = [Bahrain]
@ domain[BI] = [Burundi]
@ domain[BJ] = [Benin]
@ domain[BM] = [Bermuda]
@ domain[BN] = [Brunei Darussalam]
@ domain[BO] = [Bolivia]
@ domain[BR] = [Brazil]
@ domain[BS] = [Bahamas]
@ domain[BT] = [Bhutan]
@ domain[BV] = [Bouvet Island]
@ domain[BW] = [Botswana]
@ domain[BY] = [Belarus]
@ domain[BZ] = [Belize]
@ domain[CA] = [Canada]
@ domain[CC] = [Cocos (Keeling) Islands]
@ domain[CF] = [Central African Republic]
@ domain[CG] = [Congo]
@ domain[CH] = [Switzerland]
@ domain[CI] = [Cote D'Ivoire (Ivory Coast)]
@ domain[CK] = [Cook Islands]
@ domain[CL] = [Chile]
@ domain[CM] = [Cameroon]
@ domain[CN] = [China]
@ domain[CO] = [Colombia]
@ domain[CR] = [Costa Rica]
@ domain[CS] = [Czechoslovakia (former)]
@ domain[CU] = [Cuba]
@ domain[CV] = [Cape Verde]
@ domain[CX] = [Christmas Island]
@ domain[CY] = [Cyprus]
@ domain[CZ] = [Czech Republic]
@ domain[DE] = [Germany]
@ domain[DJ] = [Djibouti]
@ domain[DK] = [Denmark]
@ domain[DM] = [Dominica]
@ domain[DO] = [Dominican Republic]
@ domain[DZ] = [Algeria]
@ domain[EC] = [Ecuador]
@ domain[EE] = [Estonia]
@ domain[EG] = [Egypt]
@ domain[EH] = [Western Sahara]
@ domain[ER] = [Eritrea]
@ domain[ES] = [Spain]
@ domain[ET] = [Ethiopia]
@ domain[FI] = [Finland]
@ domain[FJ] = [Fiji]
@ domain[FK] = [Falkland Islands (Malvinas)]
@ domain[FM] = [Micronesia]
@ domain[FO] = [Faroe Islands]
@ domain[FR] = [France]
@ domain[FX] = [France, Metropolitan]
@ domain[GA] = [Gabon]
@ domain[GB] = [Great Britain (UK)]
@ domain[GD] = [Grenada]
@ domain[GE] = [Georgia]
@ domain[GF] = [French Guiana]
@ domain[GH] = [Ghana]
@ domain[GI] = [Gibraltar]
@ domain[GL] = [Greenland]
@ domain[GM] = [Gambia]
@ domain[GN] = [Guinea]
@ domain[GP] = [Guadeloupe]
@ domain[GQ] = [Equatorial Guinea]
@ domain[GR] = [Greece]
@ domain[GS] = [S. Georgia and S. Sandwich Isls.]
@ domain[GT] = [Guatemala]
@ domain[GU] = [Guam]
@ domain[GW] = [Guinea-Bissau]
@ domain[GY] = [Guyana]
@ domain[HK] = [Hong Kong]
@ domain[HM] = [Heard and McDonald Islands]
@ domain[HN] = [Honduras]
@ domain[HR] = [Croatia (Hrvatska)]
@ domain[HT] = [Haiti]
@ domain[HU] = [Hungary]
@ domain[ID] = [Indonesia]
@ domain[IE] = [Ireland]
@ domain[IL] = [Israel]
@ domain[IN] = [India]
@ domain[IO] = [British Indian Ocean Territory]
@ domain[IQ] = [Iraq]
@ domain[IR] = [Iran]
@ domain[IS] = [Iceland]
@ domain[IT] = [Italy]
@ domain[JM] = [Jamaica]
@ domain[JO] = [Jordan]
@ domain[JP] = [Japan]
@ domain[KE] = [Kenya]
@ domain[KG] = [Kyrgyzstan]
@ domain[KH] = [Cambodia]
@ domain[KI] = [Kiribati]
@ domain[KM] = [Comoros]
@ domain[KN] = [Saint Kitts and Nevis]
@ domain[KP] = [Korea (North)]
@ domain[KR] = [Korea (South)]
@ domain[KW] = [Kuwait]
@ domain[KY] = [Cayman Islands]
@ domain[KZ] = [Kazakhstan]
@ domain[LA] = [Laos]
@ domain[LB] = [Lebanon]
@ domain[LC] = [Saint Lucia]
@ domain[LI] = [Liechtenstein]
@ domain[LK] = [Sri Lanka]
@ domain[LR] = [Liberia]
@ domain[LS] = [Lesotho]
@ domain[LT] = [Lithuania]
@ domain[LU] = [Luxembourg]
@ domain[LV] = [Latvia]
@ domain[LY] = [Libya]
@ domain[MA] = [Morocco]
@ domain[MC] = [Monaco]
@ domain[MD] = [Moldova]
@ domain[MG] = [Madagascar]
@ domain[MH] = [Marshall Islands]
@ domain[MK] = [Macedonia]
@ domain[ML] = [Mali]
@ domain[MM] = [Myanmar]
@ domain[MN] = [Mongolia]
@ domain[MO] = [Macau]
@ domain[MP] = [Northern Mariana Islands]
@ domain[MQ] = [Martinique]
@ domain[MR] = [Mauritania]
@ domain[MS] = [Montserrat]
@ domain[MT] = [Malta]
@ domain[MU] = [Mauritius]
@ domain[MV] = [Maldives]
@ domain[MW] = [Malawi]
@ domain[MX] = [Mexico]
@ domain[MY] = [Malaysia]
@ domain[MZ] = [Mozambique]
@ domain[NA] = [Namibia]
@ domain[NC] = [New Caledonia]
@ domain[NE] = [Niger]
@ domain[NF] = [Norfolk Island]
@ domain[NG] = [Nigeria]
@ domain[NI] = [Nicaragua]
@ domain[NL] = [Netherlands]
@ domain[NO] = [Norway]
@ domain[NP] = [Nepal]
@ domain[NR] = [Nauru]
@ domain[NT] = [Neutral Zone]
@ domain[NU] = [Niue]
@ domain[NZ] = [New Zealand (Aotearoa)]
@ domain[OM] = [Oman]
@ domain[PA] = [Panama]
@ domain[PE] = [Peru]
@ domain[PF] = [French Polynesia]
@ domain[PG] = [Papua New Guinea]
@ domain[PH] = [Philippines]
@ domain[PK] = [Pakistan]
@ domain[PL] = [Poland]
@ domain[PM] = [St. Pierre and Miquelon]
@ domain[PN] = [Pitcairn]
@ domain[PR] = [Puerto Rico]
@ domain[PT] = [Portugal]
@ domain[PW] = [Palau]
@ domain[PY] = [Paraguay]
@ domain[QA] = [Qatar]
@ domain[RE] = [Reunion]
@ domain[RO] = [Romania]
@ domain[RU] = [Russian Federation]
@ domain[RW] = [Rwanda]
@ domain[SA] = [Saudi Arabia]
@ domain[Sb] = [Solomon Islands]
@ domain[SC] = [Seychelles]
@ domain[SD] = [Sudan]
@ domain[SE] = [Sweden]
@ domain[SG] = [Singapore]
@ domain[SH] = [St. Helena]
@ domain[SI] = [Slovenia]
@ domain[SJ] = [Svalbard and Jan Mayen Islands]
@ domain[SK] = [Slovak Republic]
@ domain[SL] = [Sierra Leone]
@ domain[SM] = [San Marino]
@ domain[SN] = [Senegal]
@ domain[SO] = [Somalia]
@ domain[SR] = [Suriname]
@ domain[ST] = [Sao Tome and Principe]
@ domain[SU] = [USSR (former)]
@ domain[SV] = [El Salvador]
@ domain[SY] = [Syria]
@ domain[SZ] = [Swaziland]
@ domain[TC] = [Turks and Caicos Islands]
@ domain[TD] = [Chad]
@ domain[TF] = [French Southern Territories]
@ domain[TG] = [Togo]
@ domain[TH] = [Thailand]
@ domain[TJ] = [Tajikistan]
@ domain[TK] = [Tokelau]
@ domain[TM] = [Turkmenistan]
@ domain[TN] = [Tunisia]
@ domain[TO] = [Tonga]
@ domain[TP] = [East Timor]
@ domain[TR] = [Turkey]
@ domain[TT] = [Trinidad and Tobago]
@ domain[TV] = [Tuvalu]
@ domain[TW] = [Taiwan]
@ domain[TZ] = [Tanzania]
@ domain[UA] = [Ukraine]
@ domain[UG] = [Uganda]
@ domain[UK] = [United Kingdom]
@ domain[UM] = [US Minor Outlying Islands]
@ domain[US] = [United States]
@ domain[UY] = [Uruguay]
@ domain[UZ] = [Uzbekistan]
@ domain[VA] = [Vatican City State (Holy See)]
@ domain[VC] = [Saint Vincent and the Grenadines]
@ domain[VE] = [Venezuela]
@ domain[VG] = [Virgin Islands (British)]
@ domain[VI] = [Virgin Islands (U.S.)]
@ domain[VN] = [Viet Nam]
@ domain[VU] = [Vanuatu]
@ domain[WF] = [Wallis and Futuna Islands]
@ domain[WS] = [Samoa]
@ domain[YE] = [Yemen]
@ domain[YT] = [Mayotte]
@ domain[YU] = [Yugoslavia]
@ domain[ZA] = [South Africa]
@ domain[ZM] = [Zambia]
@ domain[ZR] = [Zaire]
@ domain[ZW] = [Zimbabwe]
@ domain[COM] = [Commercial]
@ domain[EDU] = [Educational]
@ domain[GOV] = [Government]
@ domain[INT] = [International]
@ domain[MIL] = [Military]
@ domain[NET] = [Network]
@ domain[ORG] = [Non-Profit Organization]
@ domain[RPA] = [Old style Arpanet]
@ domain[ATO] = [Nato field]
loading 90
### formats
set format_mail $lig %K(%Yyou have new email!%K)%n
set format_public %K(%n$1%K)%n $3-
set format_public_ar %K(%G$1%K)%n $3-
set format_public_other %K(%n$1%K/%n$2%K)%n $3-
set format_public_other_ar %K(%G$1%K/%G$2%K)%n $3-
set format_send_public %K(%B$2%K)%n $3-
set format_send_public_other %K(%B$2%K/%n$1%K)%n $3-
set format_send_ctcp $rarrow %K(%bctcp%B[$1]%K)%n $2-
set format_send_msg $rarrow %K(%rmsg%R[$1]%K)%n $3-
set format_send_dcc_chat $rarrow %K(%gdcc%G[$1]%K)%n $2-
set format_invite_user $lig inviting %K(%P$1%K) %nto %Y$2-%n
set format_invite $lig %K[%P$1%K] %ninvites you to %Y$2-%n
set format_userlist_header %KÚÄÄ%Bnick!user@host%KÄÄÄÄÄÄÄÄÄÄÂ%Baop%KÂ%Bprt%KÂ%Blev%KÂÄ%Bpassword%KÄÂÄÄ%Bchannels%KÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿%n
set format_userlist %K³%W$[26]fuxit($3 $5)%K³%W$[-3]2%K³%W$[-3]1%K³%W$[-3]0%K³%W$[10]center(10 $4)%K³%W$[25]6-%K³%n
set format_userlist_footer %KÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ%n
set format_bot_header %KÚÄÄ%Gbotnick!user@host%KÄÄÄÄÄÄÄÄÄÄÄÂ%Gaop%KÂ%Gprt%KÂÄÄ%Gchannels%KÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿%n
set format_bot %K³%W$[30]fuxit($2 $4)%K³%W$[-3]0%K³%W$[-3]1%K³%W$[36]3%K³%n
set format_bot_footer %KÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ%n
set format_shitlist_header %KÚÄÄ%Rnick@user@host%KÄÄÄÄÄÄÄÄÄÄÂ%Rlev%KÂÄÄ%Rchannels%KÄÄÄÄÂÄÄ%Rreason%KÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿%n
set format_shitlist %K³%W$[26]1%K³%W$[-3]0%K³%W$[14]center(14 $2)%K³%W$[29]3-%K³%n
set format_shitlist_footer %KÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ%n
set format_nick_comp %K(%B$0%K): %n$1-
set format_nick_auto %K(%B$0%K): %n%1-
set format_473 $lig %K(%c$1%K)%n is %Binvite %Bonly.
set format_474 $lig %K(%c$1%K)%n You are %Bbanned%n from this channel.
set format_475 $lig %K(%c$1%K)%n Bad channel key.
set format_476 $lig %K(%c$1%K) You are not a channel operator.
set format_version ($0 + ${light}) : $2 $3 
set format_away is occupied. ($3-) [log/$tolower($msglog)]%n
set format_back has returned. ($backmsg) [gone $1min$plural($1) $2sec$plural($2)]
set format_netadd $rarrow new server %B$1$%n added to $2
set format_netsplit $larrow %K(%cnetsplit%K) %B$1%n split from $2
set format_netjoin $rarrow %K(%cnetjoined%K) %B$1%n joined to $2
set format_status3 %4%B$0-
set format_status2 %4%B$0-
set format_status1 %4%B$0-
set format_status %4%B$0-
set format_msg %4 %K[%G$1%K] %n $3-
set format_relm %4 %K[%G$1%K] %n $4-
set format_notice %G-%W$1%G-%n $3-
set format_join $rarrow %K(%gjoin%G[$3]%K) %W$ccol %K(%n$1!$fixip($2)%K)%n
set format_friend_join $rarrow %K(%gjoin%G[$3]%K) %W$ccol %K(%n$1!$fixip($2)%K)%n %K[%nfriend%K]%n
set format_leave $larrow %K(%bleave%B[$3]%K) %W$ccol %K(%n$1!$fixip($2)%K)%n
set format_mode $rarrow %K(%rmode%R[$3]%K) %W$ccol %K(%n$4-%K) %W$ccol %K[%n$1%K]%n
set format_mode_channel $rarrow %K(%rmode%R[$3]%K) %W$ccol %K(%n$4-%K) %W$ccol %K[%n$1%K]%n
set format_channel_signoff $larrow %K(%msignoff%M[$3]%K) %W$ccol %K(%n$1%K) %W$ccol %K[%n$4-%K]%n
set format_usermode $rarrow %K(%rusermode%R[$3]%K) %W$ccol %K(%n$4-%K)%n
set format_nickname $rarrow %K$1%n is now known as %c$3%n
set format_nickname_other $rarrow %K$1%n is now known as %c$3%n
set format_whois_header %BÉÍÍÍ%bÄ %Gwhois %bÄ%BÍÍÍÑÍÍÍÍÄÄÄ%bÄÄ%BÄÄ%bÄÄÄ%BÄ%bÄ ÄÄÄ Ä  ÄÄ Ä Ä
set format_whois_nick %Bº %Knick!user@host%B³ %W$0%C!$1@$fixhost($2) %K$country($2)
set format_whois_name %Bº %Kuserinfo..... %B³ %C$0-
set format_whois_server %Bº %Konserver..... %B³ %C$0 %K(%W$1-%K)
set format_whois_channels %Bº %Kchannels..... %B³ %C$0-
set format_whois_friend %Bº %Kfriend....... %B³ %Cl:%W$0 %Ca:%W$1 %Cp:%W$2
set format_whois_bot %Bº %Kbot.......... %B³ %Ca:%W$0 %Cp:%W$1
set format_whois_shit %Bº %Kshitlisted... %B³ %Cl:%W$0 %K(%W$1%K) %c$2-
set format_whois_away %Bº %Kaway......... %B³ %C$1-mðEã_.
set format_whois_idle %Bº %Kidletime..... %B³ %C$fixidle($0 $1 $2)
set format_whois_oper %Bº %Koperator..... %B³ %Cneeds to get out more often.
set format_whois_signon %Bº %Ksignon....... %B³ %C$0
set format_whois_footer %BÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÄÄÄÄ%bÄÄ%BÄÄ%bÄÄ%BÄÄÄÄ%bÄÄ %BÄ%bÄ Ä ÄÄÄ Ä ÄÄ  Ä
set format_whowas_header %BÉÍÍ%bÄ %Pwhowas %bÄ%BÍÍÍÑÍÍÍÍÄÄÄ%bÄÄ%BÄÄ%bÄÄÄ%BÄ%bÄ ÄÄÄ Ä  ÄÄ Ä Ä
set format_whowas_nick %Bº %Knick!user@host%B³ %W$0%C!$1@$fixhost($2) %K$country($2)
set format_whowas_footer %BÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÏÍÍÍÍÄÄÄÄ%bÄÄ%BÄÄ%bÄÄ%BÄÄÄÄ%bÄÄ %BÄ%bÄ Ä ÄÄÄ Ä ÄÄ  Ä
set -format_nickname_user
set -format_notify_signon
set -format_notify_signoff
set -format_send_notice
loading 100
### ending routines
eval set client_information $clinfo
eval set status_format  ${HBLK}\(${WHT}%T${HBLK}\)    \(${WHT}%*%=%@%N%2%#%A${HBLK}\) %Q%> |
eval set status_format1  ${HBLK}\(${WHT}%T${HBLK}\)    \(${WHT}%*%=%@%N%2%#%A${HBLK}\) %Q%> |
set status_format2  %L    %Q  %M %H%> %K  %9  %7 |
eval window set status_format  ${HBLK}\(${WHT}%T${HBLK}\)    \(${WHT}%*%=%@%N%2%#%A${HBLK}\) %> %6 |
eval window set status_format1  ${HBLK}\(${WHT}%T${HBLK}\)    \(${WHT}%*%=%@%N%2%#%A${HBLK}\) %> %6 |
window set status_format2  %L    %Q   %M %H%> %K  %9  %7 |
refresh7
clear
window split on
eval load $lightsave
eval load $greetfile
@tmpzz=[$mychannels()]
@chanzz=[$#tmpzz]
if ([$chanzz]) {@newcheck=[1];^topic $C;wait -cmd @newcheck=[0]} {
^window set status_format3  %5 %> |}
if ([$prtype]==[spin]) {spinprompt} {normprompt}
eval asecho $lightver now loaded. try /light fer help!

### END OF PHYLE. DIE. GO TO HELL. PHUCKZ0R OPH.