######:`'    cRACK pEBBLE     `':######
###"  title   -:- (c)rack(p)ebble  "###
##" version  -:- 0.2b               "##
#` comments  -:- s00per d00per       '#
##, author   -:- fiction            ,## 
###,  date    -:- 07/22            ,###
######:..                     ..:######

## HEY!!  this addon for crackrock is by FICTION!!
## not just edit the version and name and all the
## sudden its by you!  SO DONT EVEN EDIT THE SCRIPT
## WITHOUT TELLIN FICTION, or you'll feel guilty
## and then get depressed, reach out for help and
## no one will give you any, then you will take
## your own life.. JUST BECAUSE YOU EDITED THIS!
## CRACKPEBBLE by FICTION!

^assign CL 
^assign DG 
^assign BLU 
^assign MAG 
^assign CYN 
^assign WHT 
^assign HBLK 
^assign HGRN 
^assign HBLU 
^assign HMAG 
^assign HCYN 
^assign HWHT 
^assign BRED 
^assign BGRN 
^assign BBRN 
^assign BBLU 
^assign BMAG 
^assign BWHT 
^assign RCL 
^assign RED 

if (cp.ver) {
  eecho loaded.. again?? ugh.....
}

if (!crack.ver) {
  echo this is a CRACKROCK addon, stupid
  sleep 1
  //quit crackpebble is a CRACKROCK addon stupid
}

@ cp.logo = [(c)rackpebble]
@ cpv.logo = [(c)rackpebble[0.2b]]
@ cp.ver = [0.2b]
@ uline = []
@ bold = []
@ adead = [automatically dead]
@ G = [${dg}[${cl}${cyn}ì${cl}${dg}]${cl}]
@ cp.p = [${dg}[${cl}${cyn}ì${cl}${dg}]${cl}]

@ wop.0 = [fondles himself while staring at the wall]
@ wop.1 = [reads Reader's Digest in the Bathroom]
@ wop.2 = [gets aroused by tree frogs]
@ wop.3 = [is a fruity llama]
@ wop.4 = [is his own mother]
@ wop.5 = [is a iRC wh0re]
@ wop.6 = [thinks that an 'erection' refers to his erector set]
@ wop.7 = [thinks that a 'boner' is his grandpa's name]

^set input_protection off
@ englishwords = [i are am is pretty ask alright hi hello friend man girl \
people suck cool neat awesome and my don't friends you more for everyone \
this work beautiful were thing anything something there door anymore \
have about the get warez shit having using fool hey good with white \
a shoot went guys them boys girls fuck best dude dood no that was \
you're woman oh doesn't doesnt isn't isnt your to stuff ebonics they \
question script i'm i'll does because better again of saw rocks dev \
core linux host isp linus porn kernel bored nep neptho think dna bash \
gun help suck oj intellect kha0s marcia clark cochran johnnie bitchx \
pot time girl bud friend mindstrm revmind mkfs unix gnu make gcc \
date shower X windows computer readme faq quota rtfm perl food \
ok unzip gunzip zip beer magazine call women nuts house pants rad \
swern fear oakland hack bitch yeah docs box
]

@ ebonicswords = [ah be be be fine ax aight werd peace homey nig bitch \
brothas wack phat phat phat an' muh don' homies ya mo' fo' brothas \
dis werk fine was thin' anythin' somethin' dere do' anymo' \
gots 'bout de git juarez sheeit havin' usin' foo' yo pimp-tight wiff whitey \
uh sheeeyit go pimpz dem nigs bitches fuq bawmb nigga nigga nahh dat been \
you bitch awww don' don' ain't ain't yo' ta sheeit ebonix dey \
queshun scrip' ah'm ah'll do cuz bettah ag'in o' seen roxors dehv \
coah leeunax hewstah dapimp brolinus pr0n kernah mastabatin pent \
godnepmahn th'o't bullsheeit whup cap weh'fare blow bro'thahoj branez \
kang'o'da'brothahs beeitch beeitch gawd gawd da'beeitchx codin'flowah \
tyme ho brothah brothah brainrain revbrainz maykefs dickless camel sex \
dakompiler lay jiz'bath malcom squeegy geekbox read'dis fuq de'call \
read'dathang oystershit chitlins otay drop'ya'draws drop'ya'draws \
button'jo'fly 40oz EbonyJet page bitchez bizzawz hizzy drizzawz krad \
swoin pheer ebonix-world hawc beeotch jaa dox bawx
]

eval $srand(23134234)
@ ephrasenum = [29]
@ ephrase[0] = [. Ya' know what I be sayin'?]
@ ephrase[1] = [, and yoo be all up in minez beotch.]
@ ephrase[3] = [. Honkey beotch. ]
@ ephrase[4] = [. Jus' like Orenthawl James.]
@ ephrase[5] = [, an dat boil on mah ass.]
@ ephrase[6] = [, just like mammy.]
@ ephrase[7] = [, and git Testeefa Kaleema's ass back ova' heeah.]
@ ephrase[8] = [. Don't make me come ovah there beotch... ]
@ ephrase[9] = [, and what's that oil on my nuts?]
@ ephrase[10] = [, NOW what mo' fo'?!]
@ ephrase[11] = [, sho 'nuff!]
@ ephrase[12] = [, slap mah fro!]
@ ephrase[13] = [, and wheah did eye put mah fr0 jooce?!]
@ ephrase[14] = [, w0rd!]
@ ephrase[15] = [, don't make me shank ya!]
@ ephrase[16] = [, you know das right!]
@ ephrase[17] = [, an don't make me pull mah gat!]
@ ephrase[18] = [, son pleeze!]
@ ephrase[19] = [, what the fuck sup now]
@ ephrase[20] = [, what 'chew trippin foo']
@ ephrase[21] = [, rollin up on yah]
@ ephrase[22] = [, word to yo motha]
@ ephrase[23] = [, joo got some beef for yo greel?]
@ ephrase[24] = [, what 'chew thinking man]
@ ephrase[25] = [, and shit]
@ ephrase[26] = [, in the hood]
@ ephrase[27] = [, with muh beeotch]
@ ephrase[28] = [, cuz eye be growed up in da getto]
@ ephrase[29] = [, AND yo weave is fallin out!]

alias ebsay {
   @ ebonics.str = [$*]
   @ ebonicsnumwords = [$#ebonics.str]
   @ ebonparse = [1]
   while (ebonparse <= ebonicsnumwords) {
      @ currentword = [$word(${ebonparse - 1} $ebonics.str)]
      if (rmatch($currentword $englishwords)) {
         @ ebonwd[$ebonparse] = [$ebontrans($currentword)]
      }{
         @ ebonwd[$ebonparse] = [$word(${ebonparse - 1} ${ebonics.str})]
      }
      @ ebonparse = ebonparse + 1
   }
   @ ebonnew = [1]
   while (ebonnew <= ebonicsnumwords) {
      if ([$ebonnew]==[1]) {
         @ ebonicsstring = [$ebonwd[$ebonnew]]
     }{
         @ ebonicsstring = [$ebonicsstring $ebonwd[$ebonnew]]
      }
      @ ebonnew = ebonnew + 1
   }
@ function_return = [${ebonicsstring}${ephrase[$rand($ephrasenum)]}]
purge ebonwd;^assign -ebonicsstring
}
alias purge {
  foreach $0 ii {purge $0.$ii}
  ^assign -ii
  ^assign -$0
}

alias ebontrans if (rmatch($0 ${englishwords})){
   @ word_to_trans = [$0]
   @ searchidx = [0]
   while ([$word($searchidx $englishwords)] != [$word_to_trans]) {
      @ searchidx = searchidx + 1
   }
   if ([$word($searchidx $englishwords)] == [$word_to_trans]) {@ function_return = [$word($searchidx $ebonicswords)]}
   ^assign -search_idx
}
alias emsg if ([$1]) {msg $0 $ebsay($1-)}{echo *** USAGE /emsg <nick> message}
alisa es if ([$0]) {say $ebsay($0-)}
alias ebon_on {
eecho $mmfunky(ebonix mode on)
^on ^input "*" {
if (([$[1]0]!=[/])&&([$0]!=[])) {send $ebsay($*);type }{
if ([$0]==[/me]) {//me $ebsay($1-);type }{SENDLINE $*}
}
}}
alias ebon_off {
eecho $mmfunky(ebonics mode off)
^on -input "*"
}


@ funny.0 = ["theres this guy on the news called the pillowcase raper.. i mean, if i wouldve known that raping pillowcases was illegal, i wouldve stopped when i was 11"]
@ funny.1 = ["what about the sand the beaches where their not exactly strict on the dress code wink wink"]

^do set show_numerics_str $cp.p
^assign c.ml [ì]
^assign a.s ùûù
^assign c.s [û]
^assign loadbar_color ${red}
^assign loadbar_logo ${cl}ù${hwht}c${cl}RACK${cl}${hwht}p${cl}EBBLE${dg}/${cl}b${hwht}X${cl}ù

loadbar 10
if (!cp.loaded) {
eval $setitem(addon $numitems(addon) crackpebble configuration)
eval $setitem(addoncfg $numitems(addoncfg) cpconfig)
}

^on -timer "*" {
^window set status_format2 ${cl}${dg}ù[ ${cl}${cyn}%T${hblu}ù ${hwht}s${cl}erv${hblu}:${cl}${cyn} $S ${dg}]ù${cl} %> ${dg}ù[${cl} %Q%4 ${hblu}ù %L ${dg}]ù${cl}
^set status_format2 ${cl}${dg}ù[ ${cl}${cyn}%T${hblu}ù ${hwht}s${cl}erv${hblu}:${cl}${cyn} $T ${dg}]ù${cl} %> ${dg}ù[${cl} %Q%4 ${hblu}ù %L ${dg}]ù${cl}
}

set status_window [þ]
set default_reason $cfunky(weee!) $cfunky(i pee!) $cfunky( on yew!!)
set shitlist_reason SHiTLiSTeD! PuNK!
set cdcc_prompt %K[%Wc%ndcc%K]%n
set server_prompt [server[2]

# on ^connect * {
# ^window set status_format2 ${cl}%T \( ${hwht}s${cl}erv${hblu}:${cl}${cyn} $S ${dg}\)${cl}%>${hcyn}${cl}%4 %A%L
# ^set status_format2 ${cl}%T \( ${hwht}s${cl}erv${hblu}:${cl}${cyn} $S ${dg}\)${cl}%>${hcyn}${cl}%4 %A%L
# }


loadbar 20
loadbar 30

^on ^send_public - *
^on ^send_public * echo ${HCYN}\(${CL}$N${HCYN}\)${CL} $1-

alias eecho echo $c.ml $0-
^set STATUS_NO_REPEAT off

^set STATUS_NO_REPEAT off

^on -timer "*" {
^window set status_user6 ${hwht}u${cl}p${hblu}:${cl} ${cyn}$fixuptime($uptime())
^set status_user6 ${hwht}u${cl}p${hblu}:${cl} ${cyn}$fixuptime($uptime())
^window set status_format2 ${cl}${dg}ù[ ${cl}${cyn}%T${hblu}ù ${hwht}s${cl}erv${hblu}: ${cl}${cyn}$S ${dg}]ù${cl} %>${dg}ù[${cl} %Q%4 ${hblu}ù %L ${dg}]ù
^set status_format2 ${cl}${dg}ù[ ${cl}${cyn}%T${hblu}ù ${hwht}s${cl}erv${hblu}: ${cl}${cyn}$S ${dg}]ù${cl} %>${dg}ù[${cl} %Q%4 ${hblu}ù %L ${dg}]ù
}

alias setstatus {
^set STATUS_FORMAT1 ${cl}${dg}ù[${cl}${cyn} %*%@%=%N%#%C%+ ${cl}${dg}]ù${cl}${cyn} %>  ${cl}${dg}ù[${cl} %A${hwht}d${cl}cc${hblu}: ${cl}${cyn}%D ${hblu}ù ${cl}%6 ${cl}${dg}]ù${cl}
^set STATUS_FORMAT2 ${cl}${dg}ù[ ${cl}${cyn}%T${hblu}ù ${cl}${hwht}s${cl}erv${hblu}:${cl}${cyn} $S ${dg}]ù${cl}${cyn} %> ${dg}ù[${cl} %Q%4 ${hblu}ù %L ${dg}]ù${cl}
^set STATUS_FORMAT3 ${dg}ù[${hwht}%- %>${dg}]ù

^window set status_format1 ${status_format1}
^window set status_format2 ${status_format2}
^window set status_format3 ${status_format3}
^window set status_user4 ${cl}win${dg}: ${cl}${hwht}$winnum()

^window set status_user6 ${cl}up${dg}:${cl} ${hwht}$fixuptime($uptime())
^set status_user6 ${cl}up${dg}:${cl} ${hwht}$fixuptime($uptime())

^set status_query ${cl}q${dg}:${cl}${hwht} %Q${dg} ù
^set status_away ${cl}gone ${dg}ù
^set status_channel ${dg}/${cl}%C
^set status_mode ${dg}\(${hwht}+${cl}%+${dg}\)
^set status_clock %T
^set status_lag ${cl}lag${dg}:${cl}${hwht}%L
^set status_oper ${CYN}*${HCYN}
^set status_chanop ${hwhT}@${CL}
^set status_umode ${dg}\(${hwht}+${CL}%#${CL}${dg}\)${cl}
^set status_voice ${HWHT}+${CL}
^set status_query ${cl}q${dg}:${cl}${hwht} %Q${cl} ${dg}ù${cl}
^set status_users ${HWHT}o${Hblu}/${CL}${CYN}%! ${HWHT}n${HBLu}/${CL}${CYN}%! ${HWHT}i${HBLu}/${CL}${CYN}%! ${HWHT}v${HBLu}/${CL}${CYN}%! ${HWHT}f${HBLu}/${CL}${CYN}%!
^window set status_topic ${status_topic}
^window set status_away ${status_away}
^window set status_channel ${status_channel}
^window set status_mode ${status_mode}
^window set status_clock ${status_clock}
^window set status_lag ${status_lag}
^window set status_mail ${status_mail}
^window set status_notify ${status_notify}
^window set status_oper ${status_oper}
^window set status_chanop ${status_chanop}
^window set status_umode ${status_umode}
^window set status_format3 ${status_format3}
^window set status_format1 ${status_format1}
^window set status_format2 ${status_format2}
^window set status_users ${status_users}
^window set status_query ${status_query}
}

timer 3 ^window double on
timer 3 ^window split on

loadbar 40
alias randwerd {
  @function_return=[$wop[$rand(7)]]
}
alias randemsg { @function_returm=[$ebon[$rand(4)]] }

loadbar 50
^on ^301 * {echo ${dg}³ ${CL}\(${HCYN}a${cl}${CYN}way${CL}\)ÄÄÄÄ${cyn}¯ ${cl}$0 - $1-}
set FORMAT_WHOIS_AWAY %K³ %n(%Ca%cway%n)ÄÄÄÄ%c¯ %w$0 - $1-
set FORMAT_WHOIS_BOT %K³ %n(%Cb%cot%n)ÄÄÄÄÄ%c¯ %wA:$0 P:$1 [$2] $3-
set FORMAT_WHOIS_CHANNELS %K³ %n(%Cc%channels%n)%c¯ %w$0-
set FORMAT_WHOIS_FRIEND %K³ %n(%Cf%criend%n)ÄÄ%c¯ %wL:$0 A:$1 P:$2 $3-
set FORMAT_WHOIS_HEADER %KÚÄÄÄÄÄÄÄÄÄ[ ú%nù%W( %cWHOIS%W )%nù%Kú ]ÄÄÄÄÄÄÄÄÄÄÄ%nÄ%KÄ%nÄÄ %KÄ%nÄ Ä  %KÄ    Ä%n   Ä
set FORMAT_WHOIS_IDLE %K³ %n(%Ci%cdle%n)ÄÄÄÄ%c¯ %w$0 hours $1 mins $2 secs
set FORMAT_WHOIS_SHIT %K³ %n(%Cs%chit%n)ÄÄÄÄ%c¯ %wL:$0 [$1] $2 $3-
set FORMAT_WHOIS_SIGNON %K³ %n(%Cs%cignon%n)ÄÄ%c¯ %w$0-
set FORMAT_WHOIS_NAME %K³ %n(%Ci%crcname%n)Ä%c¯ %w$0-
set FORMAT_WHOIS_NICK %K³ %W$0 %c(%n$1@$2%c) $cunt($1@$2)
set FORMAT_WHOIS_OPER %K³ %n(%Co%cperator%n)%c¯ %w$0 $randwerd()
set FORMAT_WHOIS_SERVER %K³ %n(%Cs%cerver%n)ÄÄ%c¯ %w$0 ($1-)
set FORMAT_WHOIS_FOOTER %KÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ%nÄ%KÄ%nÄÄ %KÄÄÄÄ%nÄÄ Ä%K  Ä

loadbar 60
set format_public %c<%n$1%n%c>%n $3-
set format_notice %C-%c$1%C(%n$2%C)-%n $3-
set format_msg %n¯ %K(%Cm%csg%K) ù[%W$1%n%C(%c$2%C)%K]:%n $3-
set format_send_notice %nÄ%c¯ %C[%cnotice%C(%n$1%C)]%n $3-
set format_send_msg %nÄ%c¯ %C[%cmsg%C(%n$1%C)]%n $3-
set format_381 %n¯ %C[%cj00 now an %WiRC wh0re%C]
set format_473 $G %C[%c$1%C]%n %WI%nnvite %Wo%nnly %Wc%nhannel.
set format_474 $G %C[%c$1%C]%n %WB%nanned %Wf%nrom %Wc%nhannel.
set format_475 $G %C[%c$1%C]%n %WI%nnvalid %Wc%nhannel %Wk%ney.
set format_476 $G %C[%c$1%C]%n %WY%nou %Wa%nre %Wn%not a %Wc%nhannel %Wo%np.
set format_send_ctcp ¯ %K(%Cc%ctcp%w(%C$1%w)%K)%n $2-
set format_send_dcc_chat ${blu}-${hblu}>${cl} %K(%Wd%ncc%w(%B$1%w)%K)%n $2-
set format_dcc_request $G DCC $1 %K(%n$2%K)%n request from %W$3%K[%c%K(%n$5:$6%
set format_dcc_chat %nÄ[%W$1%n]Ä(%Cd%ccc%w)Ä%c¯%n $3-
set format_dcc_error $G %WDCC $toupper($1)%n lost to $2 %K[%c$3-%K]
set format_nickname_user $G %cYou %C(%n$1%C)%c are now known as %W$3
set format_usage $G SYNTAX%K:%n /$0 $1-
set format_names_botcolor %B$0%Y$[10]1%K ù
set format_names_friendcolor %B$0%P$[10]1%K ù
set format_names_nickcolor %B %c$[10]1%K ù
set format_names_voicecolor %P+%c$[10]1%K ù
set format_names_shitcolor %B$0%R$[10]1%K ù
set format_names_opcolor %B$0%C$[10]1%K ù
set format_public_ar %c<%Y$1%c>%n $3-

alias cch { @function_return=[${cl}${dg}[${cl}${hcyn}$0-${cl}${dg}]${cl}] }
alias cpconfig {
eecho $mmfunky(crackpebble MAIN configuration)
echo              
eecho $cch(1) the TOGGLES menu
eecho $cch(2) change string values
eecho $cch(3) save crackpebble settings
echo              
input_char "selection: " if ([$0]==[1]) {tog_menu} if ([$0]==[2]) {str_menu} if ([$0]==[3]) {cpsave}}
alias tog_menu {
eecho $mmfunky(crackpebble TOGGLES configuration)
echo              
eecho $cch(1) Toggle eLEET mODE
eecho $cch(2) Toggle EBONICS mode
echo              
input_char "selection to configure: " if ([$0]==[1]) {tog_eleetmode} if ([$0]==[2]) {tog_ebonixmode}}
alias tog_ebonixmode {
input_char "Toggle ebonics mode ON/OFF[o|N] " if ([$0]==[o]) {ebon_on} if ([$0]==[n]) {ebon_off}}
alias tog_eleetmode {
input_char "Toggle eleet mode ON/OFF[o|N] " if ([$0]==[o]) {eleet_on} if ([$0]==[n]) {eleet_off}}
alias str_menu {
eecho $mmfunky(crackpebble strings menu)
echo 
eecho $cch(1) prompt string
eecho $cch(2) status bars
echo 
input_char "selection: " if ([$0]==[1]) {prmptstr_menu} if ([$0]==[2]) {statbar_menu}}
alias prmptstr_menu { 
eecho $mmfunky(prompt string menu)
echo 
eecho $cch(1) ${dg}[${cl}${cyn}ì${cl}${dg}]${cl}
eecho $cch(2) ${dg}:${cl}${cyn}è${cl}${dg}:${cl}
eecho $cch(3) ${dg}[${cl}${hwht}û${cl}${dg}]${cl}
eecho $cch(4) ${cyn}ù${cl}${hcyn}ë${cl}${cyn}ù${cl}
echo 
input_char "selection: " if ([$0]==[1]) {@ cp.p = [${dg}[${cl}${cyn}ì${cl}${dg}]${cl}]} if ([$0]==[2]) {@ cp.p = [${dg}:${cl}${cyn}è${cl}${dg}:${cl}]} if ([$0]==[3]) {@ cp.p = [${dg}[${cl}${hwht}û${cl}${dg}]${cl}]} if ([$0]==[4]) {@ cp.p = [${cyn}ù${cl}${hcyn}ë${cl}${cyn}ù${cl}]}
@ G = [$cp.p]
^do set show_numerics_str $cp.p
^assign c.ml $cp.p
}
alias statbar_menu { }

loadbar 70
alias fuxit {
if ([$strlen($0-)] > 1) {
    @ function_return = [$left(1 $0-)$mid(1 ${strlen($0-) - 1} $0-)]
  }{
   @ function_return = [$0-]
  }
}
alias cpsave {
@rename($load_path/.cp.sav $load_path/.cp.sav~)
csave
@savecp = open($load_path/.cp.sav W T)
@write($savecp # crackpebble configuration, saved on $strftime($time() %x))
@write($savecp @G = [$G])
@write($savecp @cp.p = [$cp.p])
@close($savecp)
eecho BitchX: CrackPebble settings saved to $load_path/.cp.sav
}


loadbar 80
alias luc {
 ^local texttoreturn
 fe ($0-) word {
  (texttoreturn=[$texttoreturn$tolower($left(1 $word))$toupper($right(${strlen($word) - 1} $word)) ])
 }
 (function_return=[$texttoreturn])
}
alias esay {
 eval say $luc($0-) }
alias eleet_on {
eecho $mmfunky(eLEET mODE tOGGLED oN)
^on ^input "*" {
if (([$[1]0]!=[/])&&([$0]!=[])) {send $esay($*);type }{
if ([$0]==[/me]) {//me $esay($1-);type }{SENDLINE $*}
}
}}
alias eleet_off {
eecho $mmfunky(eleet mode toggled off) 
^on -input "*"
}

alias penis if (C) {
        @ oldnick = [$N]
        msg $C penis damnit;sleep 1;msg $C PENiS!;nick PENiS;wait;mode $C +k PeNiS
        wait;msg $C $annoy(penis);sleep 1;msg $C $cool(penis penis!)
        topic $C PENiS PENiS PENiS PENiS PENiS!!;wait;mode $C -k PeNiS
        nick $oldnick;wait;topic $C .;@ oldnick = []
}


@ sys.0 = [#&#*##@&*&!@#!#@#&!@#@#*&]
@ sys.1 = [*&*@#&#*&@#1@!@@@!@@!*&*&@#*&]
@ sys.2 = [*@#&*&@#*&#@*&#!@#!@#!@!@!@]
@ sys.3 = [*@&*#&*@#&*@#&*@#&]
@ sys.4 = [#@#!@#!#!!@#*&@##!!@#!@###@@##]
@ sys.5 = [@##@!!@!@##!@#@#@#!@#!@!#!]
@ sys.6 = [!@!&@!@*!@&!@*&@!*&!]
@ sys.7 = [!@!@**&&&&*&@#!*!**@*@#@!#!@#!@#@!!]
@ sys.8 = [!$*!@&#*&#@1@#*&!@##@!#@&]
@ sys.9 = [@!*!&@#*!@&#*!&@#*&!@#!@##!@*!&@#*@&!#]

loadbar 90
alias funny {
eval say $funny[$rand(2)] }

alias bxv {
  @ function_return = [bX\($fuxit($right(${strlen($J) - 7} $J))]
}
if (!cp.loaded) {
eval addver $cpv.logo }

loadbar 100
alias finish.load {

}
^finish.load

^load cp0.ans

alias bk {
   //ban $0
   //kick $C $0 ya!bky $1-}



alias k {
 if ([$1]) {
  if ([$clkick]==[y]) {
   quote kick $C $0 :ùa%kù $fadeul($1-)}{
   quote kick $C $0 :ùa%kù $1-}}{
   quote kick $C $0 :ùa%kù $default_reason}
}

^set input_prompt %Kð%n 

^setstatus
@ cp.loaded = [LOADED]
eval echo $G $cpv.logo ${cl}by ${hwht}fiction${cl} -- any bugs email fictionite@phantasy.com
##$a eof.