alias /openaim /dialog -md dial buddylistdia
alias /testbb /dialog -m im_luke`roo imwindow

dialog imwindow {
  title "Query Window"
  size -1 -1 200 90
  option dbu

  edit "", 1, 5 5 190 70, read vsbar autovs multi
  edit "", 2, 5 75 160 10, autohs
  text "sfgsfsg", 4, 1 1 25 4, hide
  button "Send", 6, 165 75 30 10, default
  button "Close", 3, 170 75 25 10, cancel hide

  menu "&Options", 50
  item "&Close Query", 52
  item break, 53
  item "&Save Chat As...", 54
  item "Clear Query Box", 55
  menu "&Direct Connect", 56
  item "DCC Send File", 57
  item "DCC Chat", 58
}
;/dcc send -c $did($dname,4).text *.*
on *:DIALOG:im_*:menu:*:{
  if ($did == 52) { dialog -x $dname }
  if ($did == 55) { did -r $dname 1 }
  if ($did == 57) { /timer 1 1 /dcc send -c $did($dname,4).text *.* }
  if ($did == 58) { /dcc chat $did($dname,4).text | /did -a $dname 1 Attempting to initiate DCC Chat with $did($dname,4).text $+ ... $+ $crlf }
  if ($did == 54) { /set %lastimX $dname | /timer 1 1 /wsf }
}

on *:ACTION:*:?:{
  if ($dialog(im_ $+ $nick).hwnd == $null) {
    var %newin = im_ $+ $nick
    /dialog -md %newin imwindow
    /did -r %newin 4
    /did -a %newin 4 $nick
    /dialog -t %newin $nick on $server
  }
  var %newin = im_ $+ $nick
  /did -a %newin 1 $nick $1- $+ $crlf
  /close -m $nick
}

on *:TEXT:*:?:{
  if ($dialog(im_ $+ $nick).hwnd == $null) {
    var %newin = im_ $+ $nick
    /dialog -md %newin imwindow
    /did -r %newin 4
    /did -a %newin 4 $nick
    /dialog -t %newin $nick on $server
  }
  var %newin = im_ $+ $nick
  /did -a %newin 1 $nick $+ : $1- $+ $crlf
  /close -m $nick
}


on *:dialog:im_*:sclick:6:{
  var %tts = $did(2).text, %temptts = $chr(47) $+ me, %newin = im_ $+ $did(4).text
  if ($left(%tts,4) == %temptts $+ $chr(32)) { 
    /describe $did(4).text $mid(%tts,5)
    /did -a %newin 1 $me $mid($did(2).text $+ $crlf, 5)
  }
  else {
    /msg $did(4).text $did(2).text
    /did -a %newin 1 $me $+ : $did(2).text $+ $crlf
  }
  /did -r %newin 2
}

dialog notifyonline {
  title "Notice!"
  size -1 -1 200 100
  option dbu 
  text "", 1, 5 5 190 80
  button "Ok!", 190 83 20 15, ok
}

dialog buddylistdia {

  title "Notify List Dialog"
  size -1 -1 90 110
  option dbu

  text "People Online", 1, 30 5 60 7, sort vsbar
  list  2, 2 15 86 100

  button "Exit", 5, 20 180 60 15, ok

  menu "&File", 50
  item "&Add Buddy", 51
  item break, 53
  item "&Update List", 54
  item "&Close This Window", 55
  item "&Return to Normal mIRC Functioning", 56
  item break, 57
  item "E&xit mIRC.", 58
  menu "&Buddy Options", 59
  item "&Private Message Buddy!", 65
  item "Send a Notice!", 66
  item "Send a CTCP message!", 67
  item break, 68
  item "CTCP Ping", 69
  item "CTCP Version", 70
  item "CTCP Time", 71
  item break, 72
  item "Delete Buddy", 73
  item "Ignore Buddy", 74
  item "Unignore Buddy", 75
  item break, 76
  item "&Whois Buddy?", 77
  item "&Info on Buddy!", 78
  item break, 79
  item "DCC Send to Buddy!", 80
  item "Initiate DCC Chat", 81
}


on *:dialog:dial:init:0: {
  set %bdylistcheckifon $true
  /notify
}

on *:dialog:dial:sclick:5:{
  set %bdylistcheckifon $false
}

on *:dialog:no1:init:0: {
  set %notifyonlinecheck $true

}

on *:dialog:dial:no1:5:{
  set %notifyonlinecheck $false
}


on *:Dialog:dial:dclick:2:{
  ;/did -a dial 4 $did(2,$did(2,1).sel).text
  var %elnicko = $did(2,$did(2,1).sel).text
  var %newin = im_ $+ %elnicko
  /dialog -md %newin imwindow
  /did -r %newin 4
  /did -a %newin 4 %elnicko
  /dialog -t %newin %elnicko on $server  
}

on *:NOTIFY:{
  if (%bdylistcheckifon == $true) {
    var %ty = 0, %foundit = $false
    echo $did(dial,2).lines $+ .
    while (%ty < $did(dial,2).lines) {
      /inc %ty 1
      if ($did(dial,2,%ty).text == $nick) {
        var %foundit = $true
      }
    }
    if (%foundit == $false) { /did -a dial 2 $nick }
  }
}



;var %ty = 0
;while (%ty < $did(dial,4).lines) {
;  /inc %ty 1
;  if ($did(dial,4,%ty).text == $nick) {
;    if ($notifyonlinecheck == $false) { 
;      /dialog -m NO1 notifyonline
;    }
;    /did -a no1 1 $nick $+ is online! $+ $chr(10) $+ $chr(13)
;  }
;}



on *:UNOTIFY:{
  if (%bdylistcheckifon == $true) {
    var %ty = 0
    while (%ty < $did(dial,2).lines) {
      /inc %ty 1
      if ($did(dial,2,%ty).text == $nick) {
        /did -d dial 2 %ty
      }
    }
  } 
}


alias /wsf {
  var %temptx = $sfile($mircdir,Save File As...,Save)
  echo %temptx $+ []
  echo $did(%lastimX,1).text  $+ .
  /write -a %temptx Session Recorded on $chr(91) $+ $date $time $+ ]
  var %xtemp = 1
  while (%xtemp <= $did(%lastimX,1).lines) {
    /write -a %temptx $did(%lastimX,1,%xtemp).text 
    inc %xtemp 1
  }     
  /write -a %temptx Session Ended.
  /write -a %temptx $chr(32) $+ $crlf