/ScriptServ

on *:load:{ 
  if ($version < 5.71) echo -a  $+ $colour(info2) $+ *** Error *** You need mirc 5.71 or greater in order to use this addon. | beep 
  /echo  -a  $+ $colour(info2) $+ *** Loaded Go To URL Addon v2.0 By SirNo3DfX | /echo  -a  $+ $colour(info2) $+ *** To start Press F3
}
menu status,query,channel,menubar,nicklist {
  -
  Go To URL
  .Go To URL [F3]:/gotourl
  .-
  .Visit The Sixth Sense
  ..With Explorer:/run iexplore http://www.6thsense.cjb.net
  ..With Netscape:/run netscape http://www.6thsense.cjb.net
  .. Other:/run http://www.6thsense.cjb.net
  .-
  .Unload Go To URL:/echo $active  $+ $colour(info2) $+ *** Unloading Go To URL addon by SirNo3DfX | /unload -rs cooltext2.mrc
}
alias /F3 { /gotourl }
alias /gotourl {
  dialog -m url url
  if ( %netscape == 1 ) { did -c  URL 5 1 }
  if ( %explorer == 1 ) { did -c  URL 6 1 }
  if ( %other == 1 ) { did -c  URL 7 1 }
  if ( %url.add2 != $null ) did -i url 1 1 %url.add2
  else { did -i url 1 1 http://www.6thsense.cjb.net | halt }
  if ( %url.add3 != $null ) did -i url 1 2 %url.add3
  else { did -i url 1 2 http://www.6thsense.cjb.net | halt }
  if ( %url.add4 != $null ) did -i url 1 3 %url.add4
  else { did -i url 1 3 http://www.6thsense.cjb.net | halt }
  if ( %url.add5 != $null ) did -i url 1 4 %url.add5
  else { did -i url 1 4 http://www.6thsense.cjb.net | halt }
  if ( %url.add6 != $null ) did -i url 1 5 %url.add6
  else { did -i url 1 5 http://www.6thsense.cjb.net | halt }
  if ( %url.add7 != $null ) did -i url 1 6 %url.add7
  else { did -i url 1 6 http://www.6thsense.cjb.net | halt }
  if ( %url.add8 != $null ) did -i url 1 7 %url.add8
  else { did -i url 1 7 http://www.6thsense.cjb.net | halt }
  if ( %url.add9 != $null ) did -i url 1 8 %url.add9
  else { did -i url 1 8 http://www.6thsense.cjb.net | halt }
  if ( %url.add10 != $null ) did -i url 1 9 %url.add10
  else { did -i url 1 9 http://www.6thsense.cjb.net | halt }
  did -i url 1 10 http://www.6thsense.cjb.net
}

dialog url {
  title "Go to URL with the Sixth Sense 2000"
  size -1 -1 420 100

  radio "Netscape", 5, 10 35 70 20
  radio "Explorer", 6, 10 55 70 20
  radio "Other", 7, 10 75 70 20
  combo 1,110 10 300 100,drop,edit
  button "&OK" 2,110 40 300 23,OK
  button "&Cancel" 3,110 69 300 23,Cancel
  text "Enter URL to go to:"4,5 13 100 20
}
on 1:dialog:URL:sclick:*:{
  if ( $did == 1 ) { halt }
  if ( $did == 3 ) { halt }
  if ( $did == 6 ) { if ( $did(6).state == 1 ) { set %url.user iexplore | set %explorer 1 | set %other 0 | set %netscape 0 | halt } }
  if ( $did == 5 ) {  if ( $did(5).state == 1 ) { set %url.user netscape | set %netscape 1 | set %other 0 | set %explorer 0 | halt } }
  if ( $did == 7 ) { if ( $did(7).state == 1 ) { unset %url.user | set %other 1 | set %explorer 0 | set %netscape 0 | halt } }
  :next
  if ($did == 2) { if ( $did(url,1).text == http://www.6thsense.cjb.net ) { goto sense }
    if ( $did(url,1).text == $null ) { echo $active  $+ $colour(info2) $+ *** Error you did not enter a URL to go to, try again... | halt }
    set %url.add0 $did(url,1).text
    if ($did(url,1).text == %url.add0) { goto end }
    if ($did(url,1).text == %url.add2) { goto end }
    if ($did(url,1).text == %url.add3) { goto end }
    if ($did(url,1).text == %url.add4) { goto end }
    if ($did(url,1).text == %url.add5) { goto end }
    if ($did(url,1).text == %url.add6) { goto end }
    if ($did(url,1).text == %url.add7) { goto end }
    if ($did(url,1).text == %url.add8) { goto end }
    if ($did(url,1).text == %url.add9) { goto end }
    if ($did(url,1).text == %url.add10) { goto end }
  }
  :sense {
    /run %nettleser http://www.6thsense.cjb.net | goto stop
  }
  :end {
    set %url.add10 %url.add9 
    set %url.add9 %url.add8 
    set %url.add8 %url.add7 
    set %url.add7 %url.add6 
    set %url.add6 %url.add5 
    set %url.add5 %url.add4 
    set %url.add4 %url.add3 
    set %url.add3 %url.add2 
    set %url.add2 %url.add0
    /run %nettleser %url.add0 
  }
  :stop
}

ctcp *:VERSION:*: .ctcpreply $nick VERSION <= The Sixth Sense => Go To URL Addon v2.0 <--> http://www.6thsense.cjb.net