;;; MTX Script: Startup dialog by JavaScript
;;; IRC.THAIIRC.COM:7000 > #TEST

alias icodir return icon\ $+ $1
alias sname return MTX Script
alias sver return 1.0

on *:LOAD:{
  if ($version < 6.3) {
    echo -at Sorry this script could not support this mirc version $version, and could you install mirc 6.3x upper. Get mirc the lateste version at http://www.mirc.com/get.html
   //unload -rs $shortfn($scriptdirstartup.mrc)
  }
  else { 
    mtx.set
   echo -a Welcom to MTX sCript Startup dialog v.1.0 by JavaScript
   echo -atThank you for your installation startup, you can use this add-on at every time and every things :).
   echo -a If found bug and any ploblems you can visite http://findfriend.freeforums.org/add-ons-for-mirc-f47.html to report bugs.
   echo -a You can find me sometime at irc.thaiirc.com:7000 then join #test, #scripter, #javascript
   .timer 1 1 dlgstartup
  }
}
on *:START: { if (%mtx.on == 1) dlgstartup | else halt }
alias mtx.set {
  if (%mtx.on == $null) set %mtx.on 1
  if (%mtx.selnet == $null) set %mtx.selnet 1
  if (%mtx.selserv == $null) set %mtx.selserv 1
  if (%mtx.servname == $null) set %mtx.servname irc.thaiirc.com
  if (%mtx.mygend == $null) set %mtx.mygend 1
  if (%mtx.nickcall == $null) set %mtx.nickcall mtx,javascript,thaiirc
  if (%mtx.soundcall == $null) set %mtx.soundcall misscall.wave
}

;dlls
alias dcx {
  if ($isid) returnex $dll(dlls\dcx.dll,$1,$2-)
  else dll " $+ dlls\dcx.dll" $1 $2-
}
alias xdid {
  if ( $isid ) returnex $dcx( _xdid, $1 $2 $prop $3- )
  dcx xdid $2 $3 $1 $4-
}
alias xdialog {
  if ( $isid ) returnex $dcx( _xdialog, $1 $prop $2- )
  dcx xdialog $2 $1 $3-
}

;Startup script
alias dlgstartup dialog $iif($dialog(dlgstartup) == $null,-m,-v) dlgstartup dlgstartup
dialog dlgstartup {
  title ""
  size -1 -1 187 200
  option dbu
  box "", 115, -1 135 190 4
  button "&Hide", 111, 0 0 0 0, hide Ok
}
on *:dialog:dlgstartup:init:*:{
  var %d = $dname, %w = $calc(($dialog(%d).w /2)-60), %ico = $icodir(mtx.icl), %color = $dcl
  dialog -t %d $sname StarUp!
  dcx Mark %d startup_call
  xdialog -T %d +bp
  xdialog -a %d $rand.dopen 700
  xdialog -b %d +t
  xdialog -c %d 0 image -1 0 377 84 group tabstop tooltips transparent
  xdid -i %d 0 +ab $icodir(startup.png)
  xdid -T %d 0 $sname $sver by JavaScript $crlf $+ Copy right (c) 2008 - $date(yyyy) WSN-JTK Corporation.
  ;left sidebar
  xdialog -c %d 44 panel 0 83 114 190 transparent
  xdid -c %d 44 1 image 0 0 114 190
  xdid -i %d 1 +abh $icodir(windowsvista.png)
  xdid -b %d 1
  xdid -c %d 44 900 image 0 147 114 40 transparent
  xdid -w %d 900 +aP 56 32 $icodir(mtx.ico)
  xdid -c %d 44 901 text 29 157 100 30 transparent
  xdid -a %d 901 $chr(9) fun It That!
  xdid -f %d 901 +ab ansi 10 Tahoma
  xdid -c %d 44 2 text 0 5 100 18 group tabstop transparent center
  xdid -a %d 2 $chr(9) Options..
  xdid -c %d 44 300 text 10 30 144 18 transparent
  xdid -a %d 300 $chr(9) Connections..
  xdid -C %d 300 +t $rgb(128,0,0)
  xdid -c %d 44 400 text 10 50 144 18 transparent
  xdid -a %d 400 $chr(9) Nick settings
  xdid -c %d 44 500 text 10 70 144 18 transparent
  xdid -a %d 500 $chr(9) Auto identify
  xdid -c %d 44 600 text 10 90 144 18 transparent
  xdid -a %d 600 $chr(9) Channel
  xdid -c %d 44 700 text 10 110 144 18 transparent
  xdid -a %d 700 $chr(9) Other..
  xdid -f %d 400,500,600,700 +a ansi 10 Tahoma
  xdid -f %d 2,300 +abu ansi 10 Tahoma
  ;leftsidebar
  ;Main panel General settings
  xdialog -c %d 6 panel 114 83 264 190
  xdid -C %d 6 +b $rgb(255,255,255)
  xdid -c %d 6 7 panel 0 0 264 20 hgradient
  xdid -C %d 7 +g $rgb(192,1,17)
  xdid -C %d 7 +G $rgb(255,255,255)
  xdid -c %d 7 8 text 30 1 200 20 transparent
  xdid -a %d 8 $chr(9) Connection selector
  xdid -C %d 8 +t $rgb(255,255,255)
  xdid -f %d 8 +ab ansi 10 Tahoma
  xdid -c %d 6 9 image 5 0 24 24 transparent
  xdid -w %d 9 +ap 56 18 %ico
  xdid -c %d 6 10 text 10 30 70 22 transparent
  xdid -t %d 10 Main Nick:
  xdid -c %d 6 11 text 10 50 70 22 transparent
  xdid -t %d 11 Alt Nick:
  xdid -c %d 6 12 text 10 70 70 22 transparent
  xdid -t %d 12 Password:
  xdid -c %d 6 13 text 10 95 70 22 transparent
  xdid -t %d 13 Network:
  xdid -c %d 6 14 text 10 120 70 22 transparent
  xdid -t %d 14 Server:

  xdid -c %d 6 16 edit 75 27 120 18 group tabstop autohs
  xdid -C %d 16 +t $rgb(0,255,0)
  xdid -C %d 16 +bk $rgb(0,0,0)
  xdid -c %d 6 17 edit 75 47 120 18 group tabstop autohs
  xdid -C %d 17 +t $rgb(0,255,0)
  xdid -C %d 17 +bk $rgb(0,0,0)
  xdid -c %d 6 18 edit 75 67 120 18 group tabstop autohs password
  xdid -C %d 18 +t $rgb(0,255,0)
  xdid -C %d 18 +bk $rgb(0,0,0)

  xdid -c %d 6 19 comboex 75 90 120 200 group tabstop transparent dropdown
  xdid -w %d 19 +ap 140 %ico
  xdid -w %d 19 +ap 11 %ico
  selnetwork
  if (%mtx.selnet != $null) { xdid -c %d 19 %mtx.selnet }
  xdid -c %d 6 20 comboex 75 115 120 120 group tabstop transparent dropdown dropedit disabled
  xdid -w %d 20 +ap 140 %ico
  xdid -w %d 20 +ap 184 %ico
  selserver
  if ($xdid(%d,19,1).text != เลือกเน็ตเวิร์ก && %mtx.servname != $null) { var %x = %mtx.selserv | xdid -e %d 20 | xdid -c %d 20 %x }

  xdid -c %d 6 22 button 75 150 87 32 group tabstop tooltips default
  xdid -c %d 22 +nd $rgb(255,0,0)
  xdid -l %d 22 16
  xdid -w %d 22 +nhds 3 %ico
  xdid -t %d 22 Connect
  xdid -T %d 22 Connect to server: %mtx.servname
  xdid -f %d 22 +ab 8 Tahoma
  xdid -C %d 22 +r $rgb(255,0,0)
  xdid -c %d 6 23 button 163 150 87 32 group tabstop tooltips disabled
  xdid -c %d 23 +nd $rgb(0,0,255)
  xdid -l %d 23 16
  xdid -w %d 23 +nhds 4 %ico
  xdid -t %d 23 Disconnect
  xdid -T %d 23 Disconnect from: %mtx.servname
  xdid -f %d 23 +ab 8 Tahoma

  xdid -c %d 6 24 button 200 89 24 24 group tabstop tooltips
  xdid -l %d 24 16
  xdid -w %d 24 +ndhs 28 %ico
  xdid -T %d 24 Add a network
  xdid -c %d 6 25 button 224 89 24 24 group tabstop tooltips
  xdid -l %d 25 16
  xdid -w %d 25 +ndhs 29 %ico
  xdid -T %d 25 Delete this network
  xdid -c %d 6 26 button 200 114 24 24 group tabstop tooltips
  xdid -l %d 26 16
  xdid -w %d 26 +ndhs 28 %ico
  xdid -T %d 26 Add a server
  xdid -c %d 6 27 button 224 114 24 24 group tabstop tooltips
  xdid -l %d 27 16
  xdid -w %d 27 +ndhs 29 %ico
  xdid -T %d 27 Delete this server

  xdialog -c %d 30 panel 114 83 264 190
  xdid -C %d 30 +b $rgb(255,255,255)
  xdid -c %d 30 31 panel 0 0 264 20 hgradient
  xdid -C %d 31 +g $rgb(0,128,0)
  xdid -C %d 31 +G $rgb(255,255,255)
  xdid -c %d 31 32 text 30 1 200 20 transparent
  xdid -a %d 32 $chr(9) Nick call settings
  xdid -C %d 32 +t $rgb(255,255,255)
  xdid -f %d 32 +ab ansi 10 Tahoma
  xdid -c %d 30 33 image 5 0 24 24 transparent
  xdid -w %d 33 +ap 56 18 %ico
  xdid -h %d 30

  xdid -c %d 30 34 text 10 30 70 22 transparent
  xdid -t %d 34 Gender:
  xdid -c %d 30 35 text 10 55 80 22 transparent
  xdid -t %d 35 Nick called:
  xdid -c %d 30 36 text 10 80 70 22 transparent
  xdid -t %d 36 Sound:

  xdid -c %d 30 37 comboex 75 26 100 80 group tabstop transparent dropdown
  xdid -w %d 37 +ap 127 %ico
  xdid -w %d 37 +ap 122 %ico
  xdid -w %d 37 +ap 54 %ico
  xdid -a %d 37 1 0 1 1 0 Male
  xdid -a %d 37 2 0 2 2 0 Female
  xdid -a %d 37 3 0 3 3 0 Twins
  if (%mtx.mygend != $null) { var %x = %mtx.mygend | xdid -c %d 37 %x }
  xdid -c %d 30 38 edit 75 53 100 18 group tabstop autohs
  xdid -C %d 38 +t $rgb(0,255,0)
  xdid -C %d 38 +bk $rgb(0,0,0)
  xdid -f %d 38 +ab 8 Tahoma
  if (%mtx.nickcall != $null) { var %x = %mtx.nickcall | xdid -a %d 38 %x }
  xdid -c %d 30 39 edit 75 77 100 18 group tabstop readonly autohs
  xdid -a %d 39 Select a sound
  xdid -C %d 39 +t $rgb(0,255,0)
  xdid -C %d 39 +bk $rgb(0,0,0)
  xdid -f %d 39 +ab 8 Tahoma
  if (%mtx.soundcall != $null) { xdid -r %d 39 | xdid -a %d 39 %mtx.soundcall }
  xdid -c %d 30 40 button 170 160 80 24 group tabstop tooltips
  xdid -l %d 40 16
  xdid -w %d 40 +nhds 176 %ico
  xdid -t %d 40 &Save
  xdid -T %d 40 Click here to save your called nick
  xdid -f %d 40 +ab 8 Tahoma
  xdid -c %d 40 +nd $rgb(0,128,0)
  xdid -c %d 30 41 button 177 74 24 24 group tabstop tooltips
  xdid -l %d 41 16
  xdid -w %d 41 +nhds 257 %ico
  xdid -T %d 41 Click here to browse a sound file
  xdid -c %d 30 42 button 203 74 24 24 group tabstop tooltips disabled
  xdid -l %d 42 16
  xdid -w %d 42 +nhds 273 %ico
  xdid -T %d 42 Click here to Play sound
  xdid -c %d 30 43 button 203 74 24 24 group tabstop tooltips disabled
  xdid -l %d 43 16
  xdid -w %d 43 +nhds 52 %ico
  xdid -T %d 43 Click here to stop sound
  if ($xdid(%d,39).text != $null && $xdid(%d,39).text != Select a sound) { xdid -e %d 42 }
  xdid -h %d 43

  xdialog -c %d 120 link 10 281 182 22 group transparent tooltips
  xdid -l %d 120 2 $rgb(0,128,128)
  xdid -w %d 120 + 9 %ico
  xdid -t %d 120 http://findfriend.freeforums.org
  xdid -T %d 120 Visit to $xdid(%d,120).text
  xdialog -c %d 121 button 295 283 70 24 group tabstop tooltips
  xdid -c %d 121 +nd $rgb(0,0,255)
  xdid -l %d 121 16
  xdid -w %d 121 +hdns 295 %ico
  xdid -t %d 121 Cl&ose
  xdid -T %d 121 Close
  xdialog -c %d 122 button 220 283 70 24 group tabstop tooltips
  xdid -c %d 122 +nd %color
  xdid -l %d 122 16
  xdid -w %d 122 +hdns 271 %ico
  xdid -t %d 122 Help
  xdid -T %d 122 Expand
  xdialog -c %d 123 button 220 283 70 24 group tabstop tooltips
  xdid -c %d 123 +nd %color
  xdid -l %d 123 16
  xdid -w %d 123 +hdns 270 %ico
  xdid -t %d 123 Help
  xdid -T %d 123 Collaps
  xdid -h %d 122
  ;Help panel
  xdialog -c %d 130 panel 0 315 $calc((%w *2)+120) 90
  xdid -C %d 130 +b $rgb(255,255,255)
  xdid -c %d 130 131 richedit 0 1 $calc((%w *2)+117) 83 transparent readonly vsbar multi
  xdid -C %d 131 +bk $rgb(255,192,255)
  xdid -C %d 131 +t $rgb(0,0,255)
  xdid -C %d 400,500,600,700 +t $rgb(255,255,255)
  xdid -C %d 2 +t $rgb(0,0,255)
  xdid -C %d 10,11,12,13,14,34,35,36,40,122,123 +t %color
  xdid -J %d 22,23,24,25,26,27,40,41,42,43,121,122,123,300,400,500,600,700 +r hand
  xdid -f %d 16,17,18,22,23 +ab ansi 8 Tahoma
  xdid -F %d 16

  ;Load data
  xdid -a %d 16 $mnick
  xdid -a %d 17 $anick
  if ($server != $null && $xdid(%d,20).seltext != $null) { xdid -e %d 22,23 }
}

alias startup_call {
  var %d = dlgstartup
  if ($1 == %d) && ($xdialog(%d).visible == $true) {
    if ($2 == edit) {
      if ($3 == 16) { if ($xdid(%d,16).text != $null || $xdid(%d,17).text != $null) { xdid -C %d 16 +t $rgb(0,255,0) |  xdid -C %d 16 +bk $rgb(0,0,0) | xdid -e %d 22 } | else { xdid -b %d 22 } }
      if ($3 == 17) { if ($xdid(%d,16).text != $null || $xdid(%d,17).text != $null) { xdid -C %d 17 +t $rgb(0,255,0) |  xdid -C %d 17 +bk $rgb(0,0,0) | xdid -e %d 22 } | else { xdid -b %d 22 } }
      if ($3 == 18) { if ($xdid(%d,18).text != $null) { xdid -C %d 18 +t $rgb(0,255,0) |  xdid -C %d 18 +bk $rgb(0,0,0) } }
      if ($3 == 39) {
        if ($xdid(%d,38).text != $null && $xdid(%d,38).text != %mtx.nickcall) {
          xdid -C %d 38 +t $rgb(0,255,0)
        }
        ;elseif ($xdid(%d,39).enabled == $false) { xdid -e %d 39 } | else { halt }
      }
      if ($3 == 39) {
        if ($xdid(%d,39).text != $null && $xdid(%d,39).text != %mtx.soundcall) {
          xdid -C %d 39 +t $rgb(0,255,0)
        }
        ;elseif ($xdid(%d,39).enabled == $false) { xdid -e %d 39 } | else { halt }
      }
    }
    if ($2 == sclick) {
      if ($3 == 19) { set %mtx.selnet $xdid(%d,19).sel | xdid -e %d 20 | xdid -r %d 20 | xdid -c %d 20 1 | selserver }
      if ($3 == 20) { set %mtx.servname $xdid(%d,20).seltext }
      if ($3 == 22) {
        var %warn
        if ($xdid(%d,16).text != $null && $xdid(%d,17).text != $null && $xdid(%d,20).seltext != $server) {
          if ($xdid(%d,19).seltext != $null && $xdid(%d,20).seltext != $null) {
            .mnick $xdid(%d,16).text
            .anick $xdid(%d,17).text
            .emailaddr $+($r(a,z),$mid($md5($+($sname,$time(H:nn:ss)),0),25),@IRC.NET)
            .nick $xdid(%d,16).text
            .server $xdid(%d,20).seltext
            xdid -e %d 23
            xdid -b %d 16,17,18,22
          }
          else {
            if ($xdid(%d,19).seltext == $null && $input(Warning! You must select a network,aok5w,Warning!) == $true) return
            elseif ($xdid(%d,20).seltext == $null && $input(Warning! You must select a server,aok5w,Warning!) == $true) return
          }
        }
        elseif ($xdid(%d,16).text == $null && $xdid(%d,17).text != $null) {
          .mnick $xdid(%d,17).text
          .emailaddr $+($r(a,z),$mid($md5($+($sname,$time(H:nn:ss)),0),25),@IRC.NET)
          .nick $xdid(%d,17).text
          .server $xdid(%d,20).seltext
          xdid -e %d 16,17,18,23
          xdid -b %d 22
        }
        elseif ($xdid(%d,20).seltext == $server) { %warn = $input(The selected server is now connected,aok5w,Warning!) | if (%warn == $true) { halt } }
        else {
          %warn = $input(คุณควรใส่ชื่อเล่นของคุณในช่องใส่ชื่อ หากไม่ใส่ จะไม่สามารถเข้าระบบได้ $crlf $+ ข้อแนะนำ : ให้ใส่ชื่อภาษาไทย หากคุณเชื่อมต่อเข้าสู่เซิร์ฟเวอร์ irc.thaiirc.com,aok7w,Warning!)
          if (%warn == $true) { halt }
        }
      }
      if ($3 == 23) {
        if ($scid($activecid).status == disconnected) && ($scid($activecid).server == $null) {
          scid $activecid disconnect
          scid -r
          showmirc -s
          xdid -e %d 16,17,18,22
          xdid -b %d 23
        }
        else { scid $activecid disconnect | scid -r | showmirc -s | xdid -e %d 16,17,18,22 | xdid -b %d 23 }
      }
      if ($3 == 24) { addnetworks }
      if ($3 == 25) { delnetworks }
      if ($3 == 26) { addservers }
      if ($3 == 27) { delservers }
      if ($3 == 40) {
        if ($xdid(%d,37).seltext != $null) { set %mtx.mygend $xdid(%d,37).sel }
        if ($xdid(%d,38).text != $null) { set %mtx.nickcall $xdid(dlgstartup,38).text }
        if ($xdid(%d,39).text != $null && $xdid(%d,39).text != Select a sound) { set %mtx.soundcall $xdid(%d,39).text }
      }
      if ($3 == 41) {
        var %soundfile = $sfile(sounds\ $+ *.wav,Choose a sound did you likes to called back,Select!), %sound = $remove(%soundfile,$mircdir)
        if (%sound != $null) { xdid -r %d 39 | xdid -a %d 39 %sound | xdid -e %d 42 }
      }     
      if ($3 == 42) { .splay $xdid(%d,39).text | xdid -h %d 42 | xdid -s %d 43 | xdid -e %d 43 }
      if ($3 == 43) { if ($insong) { .splay stop | xdid -s %d 42 | xdid -b %d 43 | xdid -h %d 43 } }
      if ($3 == 120) { url -n http://www.findfriend.freeforums.org }
      if ($3 == 121) { dialog -x %d }
      if ($3 == 122 || $3 == 123) {
        if ($3 == 122) { xdialog -S %d -1 -1 374 400 | xdid -h %d 122 | xdid -s %d 123 }
        else { xdialog -S %d -1 -1 374 314 | xdid -s %d 122 | xdid -h %d 123 }
      }
      if ($3 == 123) {  }
      if ($3 == 300) {
        xdid -h %d 30,300,400,500,600,700
        xdid -s %d 6
        xdid -f %d 400,500,600,700 +a ansi 10 Tahoma
        xdid -f %d 300 +abu ansi 10 Tahoma
        xdid -s %d 300,400,500,600,700
        xdid -C %d 300 +t $rgb(128,0,0)
        xdid -C %d 400 +t $rgb(255,255,255)
      }
      if ($3 == 400) {

        xdid -h %d 6,300,400,500,600,700
        xdid -s %d 30
        xdid -f %d 300,500,600,700 +a ansi 10 Tahoma
        xdid -f %d 400 +abu ansi 10 Tahoma
        xdid -s %d 300,400,500,600,700
        xdid -C %d 300 +t $rgb(255,255,255)
        xdid -C %d 400 +t $rgb(128,0,0)
      }
    }
    if ($2 == mouse) {
      if ($3 == 16) { xdid -C %d 16 +bk $rgb(255,255,255) | xdid -C %d 16 +t $rgb(0,0,255) }
      if ($3 == 17) { xdid -C %d 17 +bk $rgb(255,255,255) | xdid -C %d 17 +t $rgb(0,0,255) }
      if ($3 == 18) { xdid -C %d 18 +bk $rgb(255,255,255) | xdid -C %d 18 +t $rgb(0,0,255) }
      if ($3 == 38) { xdid -C %d 38 +bk $rgb(255,255,255) | xdid -C %d 38 +t $rgb(0,0,255) }
      if ($3 == 39) { xdid -C %d 39 +bk $rgb(255,255,255) | xdid -C %d 39 +t $rgb(0,0,255) }
    }
    if ($2 == mouseenter) {
      if ($3 == 16) { xdid -C %d 16 +r $rgb(255,0,0) | xdid -x %d 16 +s | xdid -a %d 131 Enter your favuorite Nick name in this form. }
      if ($3 == 17) { xdid -C %d 17 +r $rgb(255,0,0) | xdid -x %d 17 +s | xdid -a %d 131 Set the alternative Nick name in this form. }
      if ($3 == 18) { xdid -C %d 18 +r $rgb(255,0,0) | xdid -x %d 18 +s | xdid -a %d 131 Enter your password here. If your main Nick name. It just to be registered Nick name. }
      if ($3 == 19) { xdid -a %d 131 Select your gender. }
      if ($3 == 22) { xdid -a %d 131 Click to connect to a server that you selected. | xdid -T %d 22 Connect to server: $xdid(%d,20).seltext }
      if ($3 == 23) { xdid -a %d 131 Click to disconnect from server: $server | xdid -T %d 23 Disconnect from: %mtx.servname }
      if ($3 == 24) { xdid -a %d 131 Add your favuorite network. }
      if ($3 == 25) { xdid -a %d 131 Delete server: $xdid(%d,19).seltext from server list. }
      if ($3 == 27) { xdid -a %d 131 Delete server: $xdid(%d,20).seltext from server list. }
      if ($3 == 38) { xdid -C %d 38 +r $rgb(255,0,0) | xdid -x %d 38 +s | xdid -a %d 131 Set your Nickself, if you are misscalled it's look like here. You can use commas to separate a nick. }
      if ($3 == 39) { xdid -C %d 39 +r $rgb(255,0,0) | xdid -x %d 39 +s | xdid -a %d 131 Select a sound to want play when someone has called you. }
      if ($3 == 40) { xdid -a %d 131 Save your information nick call settings that you has edited. }
      if ($3 == 41) { xdid -a %d 131 Browse for select your sound, nick call's sound. }
      if ($3 == 42) { xdid -a %d 131 Play a selected sound. }
      if ($3 == 43) { xdid -a %d 131 Stop a selected sound. }
      if ($3 == 120) { xdid -a %d 131 Visit to my site }
      if ($3 == 121) { xdid -a %d 131 Close dialog StartUp! }
      if ($3 == 123) { xdid -a %d 131 Collapsed a help }
      if ($3 == 300) { xdid -a %d 131 General connection setup. You can choose Nick in that form and connect to server at here. }
      if ($3 == 400) { xdid -a %d 131 Nick name and other setup lets your specify and choose your likes a nick name, sound called and other. }
      if ($3 == 500) { xdid -a %d 131 NickServ Identifier }
      if ($3 == 600) { xdid -a %d 131 Your favuorites Channel. }
      if ($3 == 700) { xdid -a %d 131 Other first settings. }
    }
    if ($2 == mouseleave) {
      if ($3 == 16) { xdid -C %d 16 +bk $rgb(0,0,0) | xdid -C %d 16 +t $rgb(0,255,0) | xdid -x %d 16 +b | xdid -r %d 131 }
      if ($3 == 17) { xdid -C %d 17 +bk $rgb(0,0,0) | xdid -C %d 17 +t $rgb(0,255,0) | xdid -x %d 17 +b | xdid -r %d 131 }
      if ($3 == 18) { xdid -C %d 18 +bk $rgb(0,0,0) | xdid -C %d 18 +t $rgb(0,255,0) | xdid -x %d 18 +b | xdid -r %d 131 }
      if ($3 == 19) { xdid -r %d 131 }
      if ($3 == 38) { xdid -C %d 38 +bk $rgb(0,0,0) | xdid -C %d 38 +t $rgb(0,255,0) | xdid -x %d 38 +b | xdid -r %d 131 }
      if ($3 == 39) { xdid -C %d 39 +bk $rgb(0,0,0) | xdid -C %d 39 +t $rgb(0,255,0) | xdid -x %d 39 +b | xdid -r %d 131 }
      if ($3 isnum 22-27) { xdid -r %d 131 }
      if ($3 isnum 40-43) { xdid -r %d 131 }
      if ($3 isnum 120-123) { xdid -r %d 131 }
      if ($3 isnum 300-700) { xdid -r %d 131 }
    }
    if ($2 == dclick) {  }
  }
  else { halt }
}
alias dcl {
  var %d = $time(ddd)
  if (%d == Sun) return $rgb(255,0,50)
  if (%d == Mon) return $rgb(255,210,0)
  if (%d == Tue) return $rgb(255,0,255)
  if (%d == Wed) return $rgb(0,128,0)
  if (%d == Thu) return $rgb(255,100,0)
  if (%d == Fri) return $rgb(0,160,255)
  if (%d == Sat) return $rgb(128,0,130)
}
alias selnetwork {
  var %i = 1, %d = dlgstartup
  var %ii = $nopath($findfile(servers,*,0)), %ns
  xdid -a %d 19 1 0 1 1 0 เลือกเน็ตเวิร์ก
  while (%i <= %ii) {
    %ns = %i
    xdid -a %d 19 %i 0 2 2 0 $replace($nopath($findfile(servers\,*,%i)),.txt,$chr(32)))
    inc %i
  }
  ;xdid -r %d 19
  xdid -c %d 19 1
}
alias selserver {
  var %nl = %mtx.selnet, %net = $replace($nopath($findfile(servers,*,%nl)),.txt,$chr(256))
  var %d = dlgstartup, %i = 1, %ii = $lines(servers\ $+ %net $+ .txt)
  while (%i <= %ii) {     
    xdid -a %d 20 %i 0 2 2 0 $read(servers\ $+ %net $+ .txt,%i)
    inc %i
  }
}
alias addnetworks {
  var %d = dlgstartup, %addnet = $replace($input(Insert your favuorite network. e.g.: ThaiIRC,eyni,Insert Network),$chr(32),$chr(45))
  if (%addnet != $null) {
    var %i = 1, %ii = $nopath($findfile(servers,*,0))
    while (%i <= %ii) {
      set %nl $remove($nopath($findfile(servers,*,%i)),.txt)
      ;used this for checked %nl and %addnet to matching parameter: echo -s %addnet = %nl
      if (%nl == %addnet) { %warn = $input(Your network that you has specified already exists.,aok5w,Warning!) | halt }
      inc %i
    }
    if (%nl != %addnet) { .write servers\ $+ %addnet $+ .txt | xdid -r %d 19,20 | selnetwork | selserver }
  }
}
alias delnetworks {
  var %d = dlgstartup, %dn = $xdid(%d,19).seltext, %confirm = $input(Are you sure to delete %dn network?,yni,Delete Network)
  if (%dn != $null && %confirm == $true) {
    .remove servers\ $+ %dn $+ .txt
    xdid -r %d 19,20
    xdid -a %d 131 %dn has been delete from irc network list.
    selnetwork
  }
  elseif (%confirm == $false) { return | halt }
  else { if ($input(You're not select network to delete!,aok5w,Warning!) == $true) { return | halt } }
}
alias addservers {
  var %d = dlgstartup, %netid = $xdid(%d,19).sel, %net = $nopath($findfile(servers,*,%netid))
  var %addserv = $lower($replace($input(Insert your favuorite server. e.g.: $+(irc.,$xdid(%d,19).seltext,.com),eyni,Insert Server),$chr(32),$chr(46)))
  if (%addserv != $null) {
    var %i = 1, %ii = $linesservers\ $+ %net)
    while (%i <= %ii) {
      set %sl $read(servers\ $+ %net,%i)
      ;used this for checked %nl and %addnet to matching parameter:
      ;echo -s %addserv = %sl
      if (%sl != $null && %sl == %addserv) { if ($input(Your server that you has specified already exists. $crlf $+ Do you want to overwrite this server?,ynw,Warning!) == $true) { .write -l $+ %i servers\ $+ %net %addserv | xdid -r %d 20 | selserver } }
      inc %i
    }
    if (%sl == $null || %sl != %addserv) { .write servers\ $+ %net %addserv | xdid -r %d 20 | selserver }
  }
}
alias delservers {
  var %d = dlgstartup, %serv = $xdid(%d,20).sel, %ds = $xdid(%d,20).seltext, %net = $xdid(%d,19).seltext
  var %confirm = $input(Are you sure to delete %ds from %net server?,yni,Delete Server)
  if (%confirm == $true) {
    xdid -d %d 20 %serv
    xdid -r %d 20
    .write -dl $+ %serv servers\ $+ %net $+ .txt
    selserver
  }
}
alias rand.dopen {
  var %x = $rand(1,9)
  if %x == 1 return +a
  if %x == 2 return +b
  if %x == 3 return +ab
  if %x == 4 return +c
  if %x == 5 return +o
  if $x == 6 return +n
  if %x == 7 return +s
  if %x == 8 return +v
  if %x == 9 return +u
  else return +a
}
alias checkcon {
  if ($dialog(dlgstartup) != $null) {
    if ($scid($activecid).status == connecting) { xdid -b dlgstartup 16,17,18,22 }
    elseif ($scid($activecid).status == connected) { .timercheckcon off | xdid -e dlgstartup 16,17,18,22 }
    elseif ($scid($activecid).status == disconnected) { xdid -e dlgstartup 16,17,18,22 xdid dlgstartup -b 23 }
    else { halt }
  }
  else { halt }
}
on *:CONNECT:{
  var %d = dlgstartup
  ;.timer 1 1 vhost irc thaiirc
  if ($dialog(%d) != $null) {
    if ($xdid(%d,18).text != $null) { .timer 1 3 nickserv identify $mnick $xdid(%d,18).text  }
    ;  .timercheckcon 0 1 checkcon
    ;  if ($xdid(%d,23).enabled == $false) { xdid -e %d 23 } | else { halt }
    ;  if ($xdid(%d,16).enabled == $false) { xdid -e %d 16,17,18 }

  }
  xdid -e %d 16,17,18,22,23
}
on *:CONNECTFAIL:echo -s Unnable to connect as this time, please try again later..
on *:DISCONNECT:{
  var %d = dlgstartup
  if ($dialog(%d) != $null) {
    .timer 1 1 checkcon
    if ($xdid(%d,23).visible == $true) { xdid -b %d 23 } 
  }
  else { dlgstartup | xdid -b %d 23 }
}
on 1:WAVEEND:{
  var %d = dlgstartup
  if ($dialog(%d)) {
    xdid -s %d 42
    xdid -b %d 43
    xdid -h %d 43
  }
}
on 1:MP3END:{
  var %d = dlgstartup
  if ($dialog(%d)) {
    xdid -s %d 42
    xdid -b %d 43
    xdid -h %d 43
  }
}