Unnamed

2F*
This was written by Preppysob99
And edited by Foshizzle
*/

alias QT {
  if (!$dialog(chat)) {
    dialog -md chat chat
  }
  else /echo 4 -m You already have QuickTalk Deluxe open!
}
alias Quiktalk {
  if (!$dialog(chat)) {
    dialog -md chat chat
  }
  else /echo 4 -m You already have QuickTalk Deluxe open!
}
menu * {
  QuikTalk Deluxe: {
    if (!$dialog(chat)) {
      /dialog -md chat chat
    }
    else /echo 4 -m You already have QuickTalk Deluxe open!
  }
}

dialog chat {
  title "QuikTalk Deluxe"
  size -1 -1 98 81
  option dbu
  button "Add", 1, 4 67 25 12
  button "Delete", 2, 35 67 26 12
  button "Close", 3, 66 67 27 12, okay
  list 4, 1 1 96 72, autohs vsbar
}

on *:dialog:chat:init:0: {
  did -r chat 4
  var %x 1000 | while (%x >= 0) { did -i chat 4 1 $read(flist.txt, $calc($lines(flist.txt) - %x)) | dec %x }
}

on *:dialog:chat:sclick:1: {
  dialog -am add add
}

on *:dialog:chat:sclick:2: {
  dialog -am del del
}

on *:dialog:chat:sclick:4: {
  if (%chatwin1 == OFF || %chatwin1 == $null) {
    dialog -md chatwin1 chatwin1
    set %chatwin1 ON
    set %chat1target $did($dname,4).seltext
  }
  else {
    if (%chatwin2 == OFF || %chatwin2 == $null) {
      dialog -md chatwin2 chatwin2
      set %chatwin2 ON
      set %chat2target $did($dname,4).seltext
    }
    else {
      if (%chatwin3 == OFF || %chatwin3 == $null) {
        dialog -md chatwin3 chatwin3
        set %chatwin3 ON
        set %chat3target $did($dname,4).seltext
      }
      else {
        if (%chatwin4 == OFF || %chatwin4 == $null) {
          dialog -md chatwin4 chatwin4
          set %chatwin4 ON
          set %chat4target $did($dname,4).seltext
        }
        else {
          if (%chatwin5 == OFF || %chatwin5 == $null) {
            dialog -md chatwin5 chatwin5
            set %chatwin5 ON
            set %chat5target $did($dname,4).seltext
          }
          else {
            if (%chatwin6 == OFF || %chatwin6 == $null) {
              dialog -md chatwin6 chatwin6
              set %chatwin6 ON
              set %chat6target $did($dname,4).seltext
            }
            else {
              if (%chatwin7 == OFF || %chatwin7 == $null) {
                dialog -md chatwin7 chatwin7
                set %chatwin7 ON
                set %chat7target $did($dname,4).seltext
              }
              else {
                if (%chatwin8 == OFF || %chatwin8 == $null) {
                  dialog -md chatwin8 chatwin8
                  set %chatwin8 ON
                  set %chat8target $did($dname,4).seltext
                }
                else {
                  if (%chatwin9 == OFF || %chatwin9 == $null) {
                    dialog -md chatwin9 chatwin9
                    set %chatwin9 ON
                    set %chat9target $did($dname,4).seltext
                  }
                  else {
                    if (%chatwin10 == OFF || %chatwin10 == $null) {
                      dialog -md chatwin10 chatwin10
                      set %chatwin10 ON
                      set %chat10target $did($dname,4).seltext
                    }
                  }
                }
              }
            }
          }
        }
      }
    }
  }
}




dialog add {
  title "Add Friend"
  size -1 -1 99 30
  option dbu
  button "Add to Friends List", 1, 17 16 65 12, default
  edit "", 2, 8 2 82 13, autohs
}

on *:dialog:add:sclick:1: {
  write flist.txt $did($dname,2)
  dialog -x add
  did -r chat 4
  var %x 1000 | while (%x >= 0) { did -i chat 4 1 $read(flist.txt, $calc($lines(flist.txt) - %x)) | dec %x }
}

dialog del {
  title "Delete Friend"
  size -1 -1 99 30
  option dbu
  button "Delete from Friends List", 1, 17 16 65 12, default
  edit "", 2, 8 2 82 13, autohs
}

on *:dialog:del:sclick:1: {
  $iif($?!="Are you sure you want to delete $did(2).text from your friends list?" == $true, write -ds $+ $did($dname,2) flist.txt, dialog -x del)
  dialog -x del
  did -r chat 4
  var %x 1000 | while (%x >= 0) { did -i chat 4 1 $read(flist.txt, $calc($lines(flist.txt) - %x)) | dec %x }
}

dialog chatwin1 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin1:close:0: {
  set %chatwin1 OFF
  unset %chat1target
}

on *:dialog:chatwin1:sclick:3: {
  msg %chat1target $did($dname,2)
  did -i chatwin1 1 1 $me $+ : $did($dname,2)
  did -r chatwin1 2
}

dialog chatwin2 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin2:close:0: {
  set %chatwin2 OFF
  unset %chat2target
}

on *:dialog:chatwin2:sclick:3: {
  msg %chat2target $did($dname,2)
  did -i chatwin2 1 1 $me $+ : $did($dname,2)
  did -r chatwin2 2
}

dialog chatwin3 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12
}

on *:dialog:chatwin3:close:0: {
  set %chatwin3 OFF
  unset %chat3target
}

on *:dialog:chatwin3:sclick:3: {
  msg %chat1target $did($dname,2)
  did -i chatwin3 1 1 $me $+ : $did($dname,2)
  did -r chatwin3 2
}

dialog chatwin4 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin4:close:0: {
  set %chatwin4 OFF
  unset %chat4target
}

on *:dialog:chatwin4:sclick:3: {
  msg %chat4target $did($dname,2)
  did -i chatwin4 1 1 $me $+ : $did($dname,2)
  did -r chatwin4 2
}

dialog chatwin5 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin5:close:0: {
  set %chatwin5 OFF
  unset %chat5target
}

on *:dialog:chatwin5:sclick:3: {
  msg %chat5target $did($dname,2)
  did -i chatwin5 1 1 $me $+ : $did($dname,2)
  did -r chatwin5 2
}

dialog chatwin6 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin6:close:0: {
  set %chatwin6 OFF
  unset %chat6target
}

on *:dialog:chatwin6:sclick:3: {
  msg %chat1target $did($dname,2)
  did -i chatwin6 1 1 $me $+ : $did($dname,2)
  did -r chatwin6 2
}

dialog chatwin7 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin7:close:0: {
  set %chatwin7 OFF
  unset %chat7target
}

on *:dialog:chatwin7:sclick:3: {
  msg %chat1target $did($dname,2)
  did -i chatwin7 1 1 $me $+ : $did($dname,2)
  did -r chatwin7 2
}

dialog chatwin8 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin8:close:0: {
  set %chatwin8 OFF
  unset %chat8target
}

on *:dialog:chatwin8:sclick:3: {
  msg %chat1target $did($dname,2)
  did -i chatwin8 1 1 $me $+ : $did($dname,2)
  did -r chatwin8 2
}

dialog chatwin9 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin9:close:0: {
  set %chatwin9 OFF
  unset %chat9target
}

on *:dialog:chatwin9:sclick:3: {
  msg %chat1target $did($dname,2)
  did -i chatwin9 1 1 $me $+ : $did($dname,2)
  did -r chatwin9 2
}

dialog chatwin10 {
  title "QuikTalk Chat Window"
  size -1 -1 158 100
  option dbu
  edit "", 1, 2 2 154 81, vsbar hsbar read multi
  edit "", 2, 2 85 110 12, autohs
  button "Send", 3, 117 85 37 12, default
}

on *:dialog:chatwin10:close:0: {
  set %chatwin10 OFF
  unset %chat10target
}

on *:dialog:chatwin10:sclick:3: {
  msg %chat10target $did($dname,2)
  did -i chatwin10 1 1 $me $+ : $did($dname,2)
  did -r chatwin10 2
}

on *:text:*:?: {
  if ($nick == %chat1target) did -i chatwin1 1 1 $nick $+ : $strip($1-,burc)
  else {
    if ($nick == %chat2target) did -i chatwin2 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat3target) did -i chatwin3 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat4target) did -i chatwin4 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat5target) did -i chatwin5 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat6target) did -i chatwin6 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat7target) did -i chatwin7 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat8target) did -i chatwin8 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat9target) did -i chatwin9 1 1 $nick $+ : $strip($1-,burc)
    elseif ($nick == %chat10target) did -i chatwin10 1 1 $nick $+ : $strip($1-,burc)
    elseif (%chatwin1 == OFF || %chatwin1 == $null) {
      dialog -md chatwin1 chatwin1
      did -i chatwin1 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin1 ON
      set %chat1target $nick
    }
    elseif (%chatwin2 == OFF || %chatwin2 == $null) {
      dialog -md chatwin2 chatwin2
      did -i chatwin2 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin2 ON
      set %chat2target $nick
    }
    elseif (%chatwin3 == OFF || %chatwin3 == $null) {
      dialog -md chatwin3 chatwin3
      did -i chatwin3 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin3 ON
      set %chat3target $nick
    }
    elseif (%chatwin4 == OFF || %chatwin4 == $null) {
      dialog -md chatwin4 chatwin4
      did -i chatwin4 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin4 ON
      set %chat4target $nick
    }
    elseif (%chatwin5 == OFF || %chatwin5 == $null) {
      dialog -md chatwin5 chatwin5
      did -i chatwin5 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin5 ON
      set %chat5target $nick
    }
    elseif (%chatwin6 == OFF || %chatwin6 == $null) {
      dialog -md chatwin6 chatwin6
      did -i chatwin6 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin6 ON
      set %chat6target $nick
    }
    elseif (%chatwin7 == OFF || %chatwin7 == $null) {
      dialog -md chatwin7 chatwin7
      did -i chatwin7 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin7 ON
      set %chat7target $nick
    }
    elseif (%chatwin8 == OFF || %chatwin8 == $null) {
      dialog -md chatwin8 chatwin8
      did -i chatwin8 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin8 ON
      set %chat8target $nick
    }
    elseif (%chatwin9 == OFF || %chatwin9 == $null) {
      dialog -md chatwin9 chatwin9
      did -i chatwin9 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin9 ON
      set %chat9target $nick
    }
    elseif (%chatwin10 == OFF || %chatwin10 == $null) {
      dialog -md chatwin10 chatwin10
      did -i chatwin10 1 1 $nick $+ : $strip($1-,burc)
      set %chatwin10 ON
      set %chat10target $nick
    }
  }
}