;;;;Buzz-Zyrus SoulFly Multi-Gamer by d33j4y™  ©2010 EvolutionScriptz d0t c0m;;;;
;;;;;;;;;;;;Evolution Scriptz Website http://www.evolutionscriptz.com;;;;;;;;;;;;
;;;;;;;;;;;;;;;SoulFly Webchat by Travis - Original Code by av0ider;;;;;;;;;;;;;;

on *:start:{
  writeini soulfly.ini version $nopath($script) 1.6b
  if (!%wc_clr) set %wc_clr 110
}
on *:unload:remini soulfly.ini version $nopath($script)
menu channel {
  $iif($active = $chan,-)
  $iif($active = $chan,$iif($chan isin %wchat,$style(1)) Webchat Refresh Rate)
  .%wc_clr lines:{ var %v_ = $input(Amount of lines before clearing. $crlf $crlf Less lines give you better performance.,e,$v_ WebChat) | $iif(%v_ isnum,set %wc_clr %v_) }
  $iif($active = $chan,-)
}
;;Encoding functions stolen straight from mircscripts.org, cred to "nonprofessional"
;;Editted to support JavaScript "\uXXXX" outputs instead of standardised "U+XXXX"
alias utf8_unicode returnex $regsubex(utfuni, $1, /([Â-ß][€-¿]|[à-ï][€-¿]{2}|[ð-ô][€-ï]{3})/g, \u $+ $base($utf8_bin(\t), 2, 16, 4))
alias -l utf8_bin {
  var %wc_bits = $regsubex(utfbin, $1, /(.)/g, $+($base($asc(\t), 10, 2, 8),$chr(32)))
  %wc_bits = $regsubex(utfbin, %wc_bits, /\b110([01]{5})\s?10([01]{6})\b\s?/, 00000\1\2)
  %wc_bits = $regsubex(utfbin,%wc_bits, /\b1110([01]{4})\s?10([01]{6})\s?10([01]{6})\b\s?/, \1\2\3)
  %wc_bits = $regsubex(utfbin, %wc_bits, /\b11110([01]{3})\s?10([01]{6})\s?10([01]{6})\s?10([01]{6})\b\s?/, 000\1\2\3\4)
  returnex %wc_bits
}
alias ndll noop $dll(dlls\nHTMLn_2.95.dll,$1,$2-)
;LINK <a href=" $+ $linregex $+ " target="_blank">
alias necho {
  dll dlls\nHTMLn_2.95.dll select $window($1).hwnd
  dll dlls\nHTMLn_2.95.dll execScript echoTxt(' $+ $replace($utf8_unicode($strip($2-)),$chr(40),\u0028,$chr(41),\u0029,',&#39;) $+ ')
  dll dlls\nHTMLn_2.95.dll execScript scroll(0,9999999999)
}
alias wc_close {
  if ($1 isin %wchat) hvp wchat $1
  ndll detach $window($1).hwnd
  unset %wc [ $+ [ $1 ] ]
}
alias clr {
  set %wc_clr [ $+ [ $1 ] ] $true
  unset %wc [ $+ [ $1 ] ]
  ndll navigate http://www.washington-tech.com/SoulFly/wchat.html
  $+(.timerwc,$1) 1 2 /unset %wc_clr [ $+ [ $1 ] ]
}
on *:input:#:{
  if ($chan !isin %wchat) return
  if ($readini(soulfly.ini,version,sfb_conn.mrc) < 1.4) {
    if ($input(WebChat will not run on SoulFLy versions earlier than 1.4. Please update SoulFly.,doi,$v_ : [ Webchat - Update ])) { updateme | wc_close $chan | return }
  }
  if (%wc [ $+ [ $chan ] ] > %wc_clr) clr $chan
  inc %wc [ $+ [ $chan ] ]
  if ($1 = /me) $iif(%wc_clr [ $+ [ $chan ] ],$+(.timerwc,$ticks) 1 2) /necho # $mico($me) <i><font face="Arial" size="2" color="#9932CC"> $me $emotereplace($replace($2-,<,&lt;,>,&gt;)) </font></i>
  elseif ($left($1,1) != /) $iif(%wc_clr [ $+ [ $chan ] ],$+(.timerwc,$ticks) 1 2) /necho # $mico($me) <b><font face="Arial" size="2" color="#000099"> $+($me,:</b>,$mico(blank),$replace($hget(soulfly,style),b;,<b>,i;,<i>,u;,<u>),<font face=",$left($right($hget(soulfly,font),-3),-1),") $+(color=",$left($right($hget(soulfly,fcolor),-4),-1),">) $+($emotereplace($replace($1-,<,&lt;,>,&gt;)),$replace($hget(soulfly,style),b;,</b>,i;,</i>,u;,</u>)) </font>
}

on *:TEXT:*:#:{
  if ($chan !isin %wchat) return
  if (%wc [ $+ [ $chan ] ] > %wc_clr) clr $chan
  inc %wc [ $+ [ $chan ] ]
  $iif(%wc_clr [ $+ [ $chan ] ],$+(.timerwc,$ticks) 1 2) /necho # $mico($nick) <font face="Arial" size="2" color="#000099"> $+($nick,:,%wc_bu [ $+ [ $nick ] ],<font face=",$iif(%wc_ff [ $+ [ $nick ] ],%wc_ff [ $+ [ $nick ] ],Tahoma),") $+(color=",$iif(%wc_co [ $+ [ $nick ] ],%wc_co [ $+ [ $nick ] ],#000000),">) $+($emotereplace($replace($1-,<,&lt;,>,&gt;)),$replace(%wc_bu [ $+ [ $nick ] ],<,</)) </font>
  unset %wc_bu [ $+ [ $nick ] ] %wc_ff [ $+ [ $nick ] ] %wc_co [ $+ [ $nick ] ]
}
on *:kick:#:{
  if ($chan !isin %wchat) return
  ;if ($knick = $me) hvp wchat $chan
  necho # $str($mico(blank),2) <font face="Marlett" size="2" color="#DF120D">8<font face="Arial"> $knick was kicked by $nick ( $1- )
}
on *:JOIN:#:{
  if ($chan !isin %wchat) { unset %wc [ $+ [ $chan ] ] }
  else necho # $str($mico(blank),2) <font face="Marlett" size="2" color="#999999">8<font face="Arial"> $nick has joined the conversation.
}
on *:PART:#:{
  if ($chan !isin %wchat) return
  if ($nick = $ME) hvp wchat $chan
  else necho # $str($mico(blank),2) <font face="Marlett" size="2" color="#999999">8<font face="Arial"> $nick has left the conversation.
}
on *:RAWMODE:*:{
  if ($chan !isin %wchat) return
  necho # $str($mico(blank),2) <font face="Marlett" size="2" color="#999999">8<font face="Arial"> $nick set mode: $1-
}
on *:notice:*:#:{
  if ($chan !isin %wchat) return
  if ($chr(2) isin $1) necho # $str($mico(blank),2) <font face="Marlett" size="2" color="#999999">8<font face="Arial"> $+($nick,'s) local time: $removecs($1-,TIME)
  else necho # $mico($nick) <font face="Arial" size="2" color="#000099"> $nick <font face="Arial" size="2" color="#DF120D"> [Notice]: $mico(blank) <font face="Arial" size="2" color="#999999"> $emotereplace($replace($1-,<,&lt;,>,&gt;))
}
on *:Action:*:#:{
  if ($chan !isin %wchat) return
  if (%wc [ $+ [ $chan ] ] > %wc_clr) clr $chan
  inc %wc [ $+ [ $chan ] ]
  $iif(%wc_clr [ $+ [ $chan ] ],$+(.timerwc,$ticks) 1 2) /necho # $mico($nick) <font face="Arial" size="2" color="#9932CC"><i> $nick $emotereplace($replace($1-,<,&lt;,>,&gt;)) </i></font>
}
alias mico {
  if ($left($1,1) = ^) return <img src=http://buzzen.net/fui/buzzen3/Chat_files/listicons/staff.gif>
  else {
    var %mico = $left($nick(#,$1).pnick,1)
    if ($%mico = ') return <img src=http://buzzen.net/fui/buzzen3/Chat_files/listicons/superowner.gif>
    elseif (%mico = .) return <img src=http://buzzen.net/fui/buzzen3/Chat_files/listicons/owner.gif>
    elseif (%mico = @) return <img src=http://buzzen.net/fui/buzzen3/Chat_files/listicons/host.gif>
    elseif (%mico = %) return <img src=http://buzzen.net/fui/buzzen3/Chat_files/listicons/helpop.gif>
    else return <img src=http://www.washington-tech.com/SoulFly/images/blank.jpg>
  }
}
alias emotereplace {

  var %wc = $regsubex($1-,/(^|[\s\[\]\}\{\(\)\\'\\"<>])((https?:\/\/|www\.)[a-zA-Z0-9\.\-=;&%\?]+(:[0-9]+)?(\/?[a-zA-Z0-9_\.\-=;#&%\?]*)*)/gi,<a href="\\2" target="_blank">\\2</a>)
  ;var %wc = $regsubex(link,$1-,/(^|[\s\[\]\}\{\(\)\\'\\"<>])((https?:\/\/|www\.)[a-zA-Z0-9\.\-=;&%\?]+(:[0-9]+)?(\/?[a-zA-Z0-9_\.\-=;&%\?]*)*)/,<a $+(href=",$regml(link,1)," target="_blank">,$regml(link,1),</a>))
  ;var %wc = $regsubex(link,$1-,/(?<http>(http:[/][/]|www.)([a-z]|[A-Z]|[0-9]|[-]|[?]|[=]|[_]|[/.]|[~])*)/gi,<a $+(href=",$regml(link,1)," target="_blank">,$regml(link,1),</a>))
  %wc = $replace(%wc,|w,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/togetherness.gif>)
  %wc = $replace(%wc,$+($chr(40),::,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/smile-.gif>)
  %wc = $replace(%wc,$+(:,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/smile.gif>)
  %wc = $replace(%wc,$+(::,$chr(40)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/snotty-sad.gif>)
  %wc = $replace(%wc,:d,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/grin.gif>)
  %wc = $replace(%wc,$+(*-,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/mmm.gif>)
  %wc = $replace(%wc,$+(:,$chr(40)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/sad.gif>)
  %wc = $replace(%wc,$+(:',$chr(40)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/cry2.gif>)
  %wc = $replace(%wc,$+($chr(40),us,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/dont-know.gif>)
  %wc = $replace(%wc,$+($chr(40),a,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/angel.gif>)
  %wc = $replace(%wc,$+(^o,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/ugh.gif>)
  %wc = $replace(%wc,:|,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/not-amused.gif>)
  %wc = $replace(%wc,:s,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/confused.gif>)
  %wc = $replace(%wc,:o,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/shock.gif>)
  %wc = $replace(%wc,-o,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/shock-shake.gif>)
  %wc = $replace(%wc,$+(:^,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/garth.gif>)
  %wc = $replace(%wc,:p,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/tounge-wiggle.gif>)
  %wc = $replace(%wc,~o,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/drool.gif>)
  %wc = $replace(%wc,$+(;,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/wink.gif>)
  %wc = $replace(%wc,$+($chr(40),h,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/kool.gif>)
  %wc = $replace(%wc,$+(8o,$chr(124)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/grr.gif>)
  %wc = $replace(%wc,$+(ys,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/yes.gif>)
  %wc = $replace(%wc,$+($chr(124),n,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/no.gif>)
  %wc = $replace(%wc,$+($chr(124),^:),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/tart.gif>)
  %wc = $replace(%wc,$+(8-,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/roll_eyes.gif>)
  %wc = $replace(%wc,$+(8-,$chr(124)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/nerd.gif>)
  %wc = $replace(%wc,:@,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/angry.gif>)
  %wc = $replace(%wc,$+($chr(40),6,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/devil.gif>)
  %wc = $replace(%wc,$+($chr(124),-,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/sleep.gif>)
  %wc = $replace(%wc,:$,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/shy.gif>)
  %wc = $replace(%wc,:-#,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/shhh.gif>)
  %wc = $replace(%wc,$+(+o,$chr(40)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/sick.gif>)
  %wc = $replace(%wc,:~,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/wave.gif>)
  %wc = $replace(%wc,$+($chr(41),:~),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/sad_wave.gif>)
  %wc = $replace(%wc,$+(:g,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/giggle.gif>)
  %wc = $replace(%wc,$+(:h,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/hysterics.gif>)
  %wc = $replace(%wc,$+($chr(40),fl,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/whistling.gif>)
  %wc = $replace(%wc,$+($chr(40),i,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/thinking.gif>)
  %wc = $replace(%wc,$+($chr(40),hf,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/hearts.gif>)
  %wc = $replace(%wc,:rb,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/rabbling.gif>)
  %wc = $replace(%wc,:w:,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/wobble.gif>)
  %wc = $replace(%wc,#sp,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/spin.gif>)
  %wc = $replace(%wc,^^:,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/yay.gif>)//
  %wc = $replace(%wc,$+($chr(124),~),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/dance.gif>)
  %wc = $replace(%wc,$+($chr(40),bs,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/bull.gif>)
  %wc = $replace(%wc,$+($chr(40),mo,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/cow.gif>)
  %wc = $replace(%wc,$+($chr(40),gh,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/ghost.gif>)
  %wc = $replace(%wc,$+($chr(40),dk,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/drunk.gif>)
  %wc = $replace(%wc,$+($chr(40),omg,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/omg.gif>)
  %wc = $replace(%wc,$+($chr(40),al,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/alien.gif>)
  %wc = $replace(%wc,$+($chr(40),g,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/present.gif>)
  %wc = $replace(%wc,:br,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/brr.gif>)
  %wc = $replace(%wc,$+($chr(40),ed,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/egg_dance.gif>)
  %wc = $replace(%wc,$+($chr(40),brb,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/brb.gif>)
  %wc = $replace(%wc,$+($chr(40),as,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/ass.gif>)
  %wc = $replace(%wc,$+($chr(40),$chr(123),$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/male-hug.gif>)
  %wc = $replace(%wc,$+($chr(40),$chr(125),$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/fem-hug.gif>)
  %wc = $replace(%wc,$+($chr(40),ks,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/kisses.gif>)
  %wc = $replace(%wc,$+($chr(40),k,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/lips.gif>)
  %wc = $replace(%wc,$+($chr(40),l,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/heart_beat.gif>)
  %wc = $replace(%wc,$+($chr(40),u,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/broken-heart.gif>)
  %wc = $replace(%wc,$+($chr(40),au,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/car.gif>)
  %wc = $replace(%wc,$+($chr(40),@,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/cat.gif>)
  %wc = $replace(%wc,$+($chr(40),&,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/dog.gif>)
  %wc = $replace(%wc,$+($chr(40),tu,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/turtle.gif>)
  %wc = $replace(%wc,$+($chr(40),brb,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/brb.gif>)
  %wc = $replace(%wc,$+($chr(40),s,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/moon.gif>)
  %wc = $replace(%wc,$+($chr(40),r*,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/rainbow-stars.gif>)
  %wc = $replace(%wc,$+($chr(40),*,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/stars.gif>)
  %wc = $replace(%wc,$+($chr(123),$chr(125)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/hug.gif>)
  %wc = $replace(%wc,~#,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/peeky.gif>)
  %wc = $replace(%wc,$+($chr(40),x,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/female.gif>)
  %wc = $replace(%wc,$+($chr(40),z,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/male.gif>)
  %wc = $replace(%wc,$+($chr(40),f,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/flower.gif>)
  %wc = $replace(%wc,$+($chr(40),w,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/wilting.gif>)
  %wc = $replace(%wc,$+($chr(40),d,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/cocktail-x2.gif>)
  %wc = $replace(%wc,$+($chr(40),b,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/beer.gif>)
  %wc = $replace(%wc,$+($chr(40),c,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/cuppa.gif>)
  %wc = $replace(%wc,$+($chr(40),pi,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/pizza.gif>)
  %wc = $replace(%wc,$+($chr(40),$chr(37),$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/handcuffs.gif>)
  %wc = $replace(%wc,$+($chr(40),mp,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/mobile.gif>)
  %wc = $replace(%wc,$+($chr(40),so,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/football.gif>)
  %wc = $replace(%wc,$+($chr(40),8,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/music-note.gif>)
  %wc = $replace(%wc,$+($chr(40),e,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/email.gif>)
  %wc = $replace(%wc,$+($chr(40),p,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/camera.gif>)
  %wc = $replace(%wc,$+($chr(40),ci,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/ciggy.gif>)
  %wc = $replace(%wc,$+($chr(40),m,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/messenger.gif>)
  %wc = $replace(%wc,$+($chr(40),cd,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/cd.gif>)
  %wc = $replace(%wc,$+($chr(40),?,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/asl.gif>)
  %wc = $replace(%wc,$+($chr(40),pl,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/dinner.gif>)
  %wc = $replace(%wc,$+($chr(40),yn,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/fingers-crossed.gif>)
  %wc = $replace(%wc,$+($chr(40),y,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/thumb_up.gif>)
  %wc = $replace(%wc,$+($chr(40),n,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/thumb_down.gif>)
  %wc = $replace(%wc,$+($chr(40),o,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/clock.gif>)
  %wc = $replace(%wc,$+($chr(40),st,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/lightning2.gif>)
  %wc = $replace(%wc,$+($chr(40),rn,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/rain.gif>)
  %wc = $replace(%wc,$+($chr(40),**,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/snow2.gif>)
  %wc = $replace(%wc,$+($chr(40),um,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/umbrella.gif>)
  %wc = $replace(%wc,$+($chr(40),$chr(35),$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/sun2.gif>)
  %wc = $replace(%wc,$+($chr(40),ip,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/palm-tree.gif>)
  %wc = $replace(%wc,$+($chr(40),t,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/telephone.gif>)
  %wc = $replace(%wc,:[,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/bat2.gif>)
  %wc = $replace(%wc,$+($chr(40),ap,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/plane.gif>)
  %wc = $replace(%wc,$+($chr(40),ix,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/xmas.gif>)
  %wc = $replace(%wc,$+($chr(40),sm,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/snowman.gif>)
  %wc = $replace(%wc,$+($chr(124),x),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/xmas-tree.gif>)
  %wc = $replace(%wc,$+($chr(40),nw,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/new-year.gif>)
  %wc = $replace(%wc,$+($chr(40),rf,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/rudey.gif>)
  %wc = $replace(%wc,:x,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/santa.gif>)
  %wc = $replace(%wc,$+($chr(124),o),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/baubles.gif>)
  %wc = $replace(%wc,^x,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/snowflake.gif>)
  %wc = $replace(%wc,$+($chr(40),el,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/elf.gif>)
  %wc = $replace(%wc,$+($chr(40),r,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/rainbow2.gif>)
  %wc = $replace(%wc,$+($chr(40),bu,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/butterfly.gif>)
  %wc = $replace(%wc,-sc,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/scrub.gif>)
  %wc = $replace(%wc,$+($chr(40),^,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/ballons2.gif>)
  %wc = $replace(%wc,$+(-@,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/hammering.gif>)
  %wc = $replace(%wc,:y,<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/yahoo.gif>)
  %wc = $replace(%wc,$+($chr(40),sk,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/skype.gif>)
  %wc = $replace(%wc,$+($chr(40),wt,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/witch.gif>)
  %wc = $replace(%wc,$+($chr(40),tk,$chr(41)),<img src=http://buzzen.net/fui/buzzen3/Chat_files/emots/turkey.gif>)
  return %wc
}

;;;;Aliases for Buzz-Zyrus SoulFly Functions;;;;
alias bzwchat {
  hvp wchat $active
  if ($active isin %wchat) {
    dll dlls\nHTMLn_2.95.dll attach $window($active).hwnd
    dll dlls\nHTMLn_2.95.dll navigate http://www.washington-tech.com/SoulFly/wchat.html
  }
  else {
    wc_close $active
  }
}
