alias speak {
  var %% = aline @@
  window -h @@
  %% Dim Text 
  %% Set Text = Wscript.CreateObject("SAPI.SpVoice")
  %% Text.Speak $qt($1-)
  savebuf @@ sam.vbs
  window -c @@
  .comopen sapi wscript.shell 
  .comclose sapi $com(sapi,run,3,bstr,wscript sam.vbs,uint,5,bool,true)
  .remove sam.vbs
} 

dialog RIB {
  title "RIB (Roly's Internet Browser)"
  size 1 1 511 340
  button "Back", 4, 10 5 70 20
  button "Forward", 5, 100 5 70 20
  button "Go!", 7, 955 20 30 20
  button "Refresh", 8, 10 35 70 20
  button "Stop!", 9, 100 35 70 20
  button "Home", 11, 190 35 70 20
  button "Favourites", 12, 190 5 70 20
  menu "File", 13,
  item "Home", 14,
  item "Favourites", 17,
  item "Set Home As Current", 16
  menu "History", 18,
  item "Open History", 19,
  item "Clear History", 20,
  menu "Exit", 21,
  item "Close Favourites", 22,
  item "Close History", 23,
  item "Close All", 24,
  edit "", 6, 350 20 600 20
  list 25, 5 658 300 27, 
  option dbu
}
menu * { 
  RIB - Web Browser:/rib
}
alias rib { dialog -mnb rib rib }
on *:DIALOG:rib:init:0:{
  dcx Mark $dname norib 
  xdialog -a $dname +abh 500
  dialog -n rib
  did -m $dname 25
  xdialog -c $dname 26 pbar 800 657 150 20
  xdid -c $dname 26 $rgb(300,0,0)
  /xdid -i $dname 26 % $+ d % $+ %
  xdid -j $dname 26 p
  xdid -t $dname 26
  xdialog -b $dname +cmnytz
  xdialog -c $dname 1 webctrl 3 60 1013 590
  xdialog -g $dname +b $rgb(300,50,50)
  xdid -n $dname 1 $iif($read(ribhome.txt,1),$v1,http://google.com/)
  did -a $dname 6 $iif($read(ribhome.txt,1),$v1,http://google.com/)
  write -dl1 current.txt | write current.txt $iif($read(ribhome.txt,1),$v1,http://google.com/)
  write history.txt $iif($read(ribhome.txt,1),$v1,http://google.com/) $time $date
}
on *:DIALOG:rib:sclick:7:{
  xdid -n $dname 1 $did($dname,6)
  var %i $did($dname,6)
  did -r $dname 6
  did -a $dname 6 $iif(http isin %i,%i,$+(http://,%i))
  write -dl1 current.txt | write current.txt $iif(http isin %i,%i,$+(http://,%i))
  write history.txt $iif(http isin %i,%i,$+(http://,%i)) $time $date
}
on *:DIALOG:rib:sclick:4:{
  xdid -k $dname 1
}
on *:DIALOG:rib:sclick:5:{
  xdid -i $dname 1
}
on *:DIALOG:rib:sclick:8:{
  xdid -r $dname 1
}
on *:DIALOG:rib:sclick:9:{
  xdid -t $dname 1
}
on *:DIALOG:rib:MENU:14:{
  xdid -n $dname 1 $read(ribhome.txt,1)
  var %i $read(ribhome.txt,1)
  did -r $dname 6
  did -a $dname 6 $iif(http isin %i,%i,$+(http://,%i))
  write -dl1 current.txt | write current.txt $iif(http isin %i,%i,$+(http://,%i))
  write history.txt $iif(http isin %i,%i,$+(http://,%i)) $time $date
}
on *:DIALOG:rib:MENU:16:{
  write -dl1 ribhome.txt 
  write ribhome.txt $did($dname,6)
}
on *:DIALOG:rib:sclick:11:{
  xdid -n $dname 1 $read(ribhome.txt,1)
  var %i $read(ribhome.txt,1)
  did -r $dname 6
  did -a $dname 6 $iif(http isin %i,%i,$+(http://,%i))
  write -dl1 current.txt | write current.txt $iif(http isin %i,%i,$+(http://,%i))
  write history.txt $iif(http isin %i,%i,$+(http://,%i)) $time $date
}
on *:DIALOG:rib:mouse:*:{
  if ($mouse.x isnum 3-1012) && ($mouse.y isnum 60-630) {
    did -r $dname 25
    did -a $dname 25 $read(current.txt,1)
  }
  else { 
    did -r $dname 25
    did -a $dname 25 RIB - Web Browser
  }
}
on *:DIALOG:rib:menu:17:{
  dialog -m ribf ribf
}
on *:DIALOG:rib:sclick:12:{
  dialog -m ribf ribf
}
dialog ribf {
  title "RIB (Roly's Internet Browser) - Favourites"
  size 200 200 170 200
  option dbu
  button "Add To Favourites", 1, 10 10 50 20
  list 2, 10 40 150 150
  button "Done", 3, 100 10 50 20, ok
}
on *:DIALOG:ribf:init:0:{
  dialog -n $dname
  dcx Mark $dname norib 
  xdialog -a $dname +abh 500
  xdialog -b $dname +cmnytz
  xdialog -g $dname +b $rgb(66,66,66)
  var %x = 1 | while (%x <= $lines(favourites.txt)) { did -a $dname 2 $read(favourites.txt,%x) | inc %x }
}
on *:DIALOG:ribf:sclick:1:{
  write favourites.txt $read(current.txt,1)
  did -a $dname 2 $read(current.txt,1)
}
on *:DIALOG:ribf:dclick:2:{
  xdid -n rib 1 $did($dname,2).seltext
  var %i $did($dname,2).seltext
  did -r rib 6
  did -a rib 6 $iif(http isin %i,%i,$+(http://,%i))
  write -dl1 current.txt | write current.txt $iif(http isin %i,%i,$+(http://,%i)
  write history.txt $iif(http isin %i,%i,$+(http://,%i)) $time $date
}
on *:DIALOG:rib:MENU:19:{
  dialog -m ribh ribh
}
on *:DIALOG:rib:MENU:20:{
  var %x = 1
  while (%x <= $lines(history.txt)) {
  write $+(-,dl,%x) history.txt }
}
dialog ribh {
  title "RIB (Roly's Internet Browser) - History"
  size 200 200 170 200
  option dbu
  button "Clear History", 1, 10 10 50 20
  list 2, 10 40 150 150
  button "Done", 3, 100 10 50 20, ok
}
on *:DIALOG:ribh:init:0:{
  dialog -n $dname
  dcx Mark $dname norib 
  xdialog -a $dname +abh 500
  xdialog -b $dname +cmnytz
  xdialog -g $dname +b $rgb(66,66,66)
  var %x = 1
  while (%x <= $lines(history.txt)) {
    did -a $dname 2 $gettok($read(history.txt,%x),1,32) At $gettok($read(history.txt,%x),2,32) On $gettok($read(history.txt,%x),3,32)
  inc %x }
}
on *:DIALOG:ribh:sclick:1:{
  var %x = 1
  while (%x <= $lines(history.txt)) {
  write $+(-,dl,%x) history.txt }
  did -r $dname 2
}
on *:DIALOG:rib:close:0:{
  $iif($dialog(ribh),dialog -x ribh)
  $iif($dialog(ribf),dialog -x ribf)
}
on *:DIALOG:rib:MENU:22:{
  dialog -x ribf
}
on *:DIALOG:rib:MENU:23:{
  dialog -x ribh
}
on *:DIALOG:rib:Menu:24:{
  dialog -x rib
}
alias norib {
  return 

Alias openchan {
  set %OpenChan #$$iif($1,#$1,#$$?="Channel?") 
  if ($me ison %OpenChan) {
    window -zekodl15 +L @ $+ %OpenChan 6 560 604 173 Tahoma 12
    echo -t $+(@,%OpenChan) 03Topic for %OpenChan is ' $+ $chan(%OpenChan).topic $+ 03'
    var %i = 0
    while (%i < $nick(%OpenChan,0)) {
      inc %i
      aline -l $\chan $iif($nick(%OpenChan,%i) isop $\\chan,04@,$iif($nick(%OpenChan,%i) ishop $\\chan,07%,$iif($nick(%OpenChan,%i) isvoice $\\chan,02+,01))) $+ $nick(%OpenChan,%i)
    }
    renwin @ $+ %OpenChan @ $+ %OpenChan - $chan(%OpenChan).topic
  }
  else {
    echo -at Your not on %OpenChan
    unset %OpenChan
  }
}
Menu * {
  Channel Window:openchan $chan
  -
}
Menu @#* {
  .$iif($sline($active,1) isop $\\chan,@,$iif($sline($active,1) ishop $\\chan,%,$iif($sline($active,1) isvoice $\\chan,+))) $+ $strip($sline($active,1),bc) $+ :echo -s $strip($sline($active,1),bc)
  -
  Whois:whois $strip($regsubex($sline($active,1),[~&%@+],),bc)
  Query:Query $strip($regsubex($sline($active,1),[~&%@+],),bc)
  Control
  .Op:mode $\\chan +o $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .De-Op:mode $\\chan -o $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .Halfop:mode $\\chan +h $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .De-HalfOp:mode $\\chan -h $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .Voice:mode $\\chan +v $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .De-Voice:mode $\\chan -v $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .Kick:kick $\\chan $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .KickBan:ban -k $\\chan $strip($regsubex($sline($active,1),[~&%@+],),bc) 2
  .Ban:ban $\\chan $strip($regsubex($sline($active,1),[~&%@+],),bc) 2
  .Kick Why:kick $\\chan $strip($regsubex($sline($active,1),[~&%@+],),bc) $?="Why?"
  .KickBan Why:ban -k $\\chan $strip($regsubex($sline($active,1),[~&%@+],),bc) 2 $?="Why?"
  CTCP
  .PING:ctcp $strip($regsubex($sline($active,1),[~&%@+],),bc) PING
  .VERSION:ctcp $strip($regsubex($sline($active,1),[~&%@+],),bc) VERSION
  Actions
  .Slap:describe $\\chan slaps $strip($regsubex($sline($active,1),[~&%@+],),bc) around a bit with a trout
  .Hug:describe $\\chan huggles $strip($regsubex($sline($active,1),[~&%@+],),bc)
  Ignore
  .Ignore:ignore $strip($regsubex($sline($active,1),[~&%@+],),bc)
  .Unignore:ignore -r $strip($regsubex($sline($active,1),[~&%@+],),bc)
  -
  Change Chan:$iif($?!"Do you want to?" == $true,changechan $?="New Channel?")
  Close:close -@ $\chan | unset %OpenChan
  -
}
Alias changechan {
  if ($me ison $1) {
    renwin @ $+ %OpenChan @ $+ #$$1 - $chan($1).topic
    set %OpenChan #$$1
    Clear @ $+ $1
    echo -t $\chan 03Now talking in $\\chan
    echo -t $\chan 03The topic for $\\chan is ' $+ $chan($1).topic $+ 03'
    .timer 1 1 editppl
  }
  else {
    echo -at Your not on $1
  }
}
Alias \chan return $+(@,%OpenChan)
Alias \\chan return %OpenChan
ON *:TEXT:*:%OpenChan:{
  echo -t $\chan < $+ $iif($nick isop $chan,04@,$iif($nick ishop $chan,07%,$iif($nick isvoice $chan,02+,10))) $+ $nick $+ > $1-
}
ON *:NOTICE:*:%OpenChan:{
  echo -t $\chan 05-4 $+ $nick $+ 05: $+ $\\chan $+ -  $1-
}
ON *:NOTICE:*:?:{
  if (%OpenChan) {
    echo -t $\chan 05- $+ $nick $+ -  $1-
  }
}
ON *:ACTION:*:%OpenChan:{
  echo -t $\chan 06* $iif($nick isop $chan,@,$iif($nick ishop $chan,%,$iif($nick isvoice $chan,+))) $+ $nick $1-
}
ON *:MODE:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: $1-
}
ON *:RAWMODE:%OpenChan:{ 
  if ((a isincs $1 || e isincs $1 || I isincs $1) && (k !isincs $1 && f !isincs $1 && L !isincs $1 && l !isincs $1 $&
    && j !isincs $1 && p !isincs $1 && s !isincs $1 && m !isincs $1 && n !isincs $1 && t !isincs $1 && i !isincs $1 && $&
    r !isincs $1 && R !isincs $1 && c !isincs $1 && O !isincs $1 && A !isincs $1 && Q !isincs $1 && K !isincs $1 && V !isincs $&
    $1 && C !isincs $1 && u !isincs $1 && z !isincs $1 && N !isincs $1 && S !isincs $1 && M !isincs $1 && T !isincs $1 && G $&
    !isincs $1 && H !isincs $1 && F !isincs $1 && E !isincs $1 && o !isincs $1)) {
    echo -t $\chan 03* $nick sets mode: $1-
  }
}
Alias describe {
  if (%OpenChan == $1) {
    echo -t $\chan 06* $iif($me isop $2,@,$iif($me ishop $2,%,$iif($me isvoice $2,+))) $+ $me $2-
    describe $1-
  }
  else {
    describe $1-
  }
}
ON *:TOPIC:%OpenChan:{
  echo -t $\chan 03* $nick changes the topic to ' $+ $1- $+ 03'
}
ON *:KICK:%OpenChan:{
  echo -t $\chan 03* $iif($knick == $me,You were kicked from $chan by,$knick was kicked by) $nick ( $+ $1- $+ )
  .timer 1 1 editppl
}
ON *:BAN:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: +b $banmask
}
ON *:UNBAN:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: -b $banmask
}
ON *:JOIN:%OpenChan:{
  echo -t $\chan 03* $nick has joined $chan
  .timer 1 1 editppl
}
ON *:PART:%OpenChan:{
  echo -t $\chan 03* $nick has parted $chan
  .timer 1 1 editppl
}
Alias editppl {
  dline -l $\chan 1-
  var %i = 0
  while (%i < $nick(%OpenChan,0)) {
    inc %i
    $iif($nick(%OpenChan,%i) != $nick,aline -l $\chan $iif($nick(%OpenChan,%i) isop $\\chan,04@,$iif($nick(%OpenChan,%i) ishop $\\chan,07%,$iif($nick(%OpenChan,%i) isvoice $\\chan,02+,01)))) $+ $nick(%OpenChan,%i)
  }
}
ON *:OWNER:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: +q $opnick
  .timer 1 1 editppl 
}
ON *:DEOWNER:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: -q $opnick
  .timer 1 1 editppl 
}
ON *:OP:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: +o $opnick
  .timer 1 1 editppl 
}
ON *:DEOP:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: -o $opnick
  .timer 1 1 editppl 
}
ON *:HELP:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: +h $hnick
  .timer 1 1 editppl 
}
ON *:DEHELP:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: -h $hnick
  .timer 1 1 editppl 
}
ON *:VOICE:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: +v $vnick
  .timer 1 1 editppl 
}
ON *:DEVOICE:%OpenChan:{
  echo -t $\chan 03* $nick sets mode: -v $vnick
  .timer 1 1 editppl 
}
ON *:INPUT:@ $+ %OpenChan:{
  if (%OpenChan) {
    if ($left($1,1) == /) {
      tokenize 32 $replace($1-,$chr(35),±)
      if (*me iswm $1) {
        .describe $\\chan $replace($iif($left($1,2) == //,$($2-,2),$2-),$+($chr(32),$chr(177),$chr(32)),$+($chr(32),$\\chan,$chr(32)))
        echo -t $\chan 06* $iif($me isop $\\chan,@,$iif($me ishop $\\chan,%,$iif($me isvoice $\\chan,+))) $+ $me $replace($iif($left($1,2) == //,$($2-,2),$2-),$+($chr(32),$chr(177),$chr(32)),$+($chr(32),$\\chan,$chr(32)))
        halt    
      }
      else {
        $replace($iif($left($1,2) == //,$($1-,2),$1-),$+($chr(32),$chr(177),$chr(32)),$+($chr(32),$\\chan,$chr(32)),±,$chr(35))
        halt
      }
    }
    else {
      .msg %OpenChan $1-
      echo -t $\chan < $+ $iif($me isop $\\chan,04@,$iif($me ishop $\\chan,07%,$iif($me isvoice $\\chan,02+,10))) $+ $me $+ > $1-
      halt
    }
  }
}
ON *:NICK:{
  if ($newnick ison $\\chan) {
    echo -t $\chan 03* $nick is now known as $newnick
    .timer 1 1 editppl 
  }
}
ON *:QUIT:{
  if ($nick ison $\\chan) {
    echo -t $\chan 02* $nick has quit IRC ( $+ $1- $+ )
    .timer 1 1 editppl 
  }
}
ON *:CLOSE:@ $+ %OpenChan:{
  unset %OpenChan
}
ON *:INVITE:#:{
  if (%OpenChan) {
    echo -t $\chan 03 $+ $nick invited you to $chan
  }
}
ON *:TEXT:*:#:{
  if (%OpenChan && $me isin $1- && $chan != %OpenChan) {
    echo -t $\chan 04You have been highlighted in $chan by $nick
  }
}