Stuff

on *:open:?: { 
  if ($nick == %qc.nick) { unset %qc.nick | halt } 
  else { 
    /MSG $nick 12[4Query Control12] - Please wait to be accepted by 15iSwift.
    /MSG $nick If I don't repond, i am away and may not get these messages.
    dialog -mdo qc qc      
    did -a qc 5 $nick 
    did -a qc 6 $asctime(hh:nn tt) 
    did -a qc 7 $1-  
    set %qc.nick $nick 
  } 
} 
dialog qc { 
  title "Query Control - iSwift Script" 
  size -1 -1 200 230 

  text "You Have Recieved a Message", 1, 1 1 198 25 
  box "From:", 2, 1 26 198 30 
  box "Time:", 3, 1 56 198 30 
  box "Message:", 4, 1 86 198 40 

  text "", 5, 50 37 100 25 
  text "", 6, 50 67 100 25 
  text "", 7, 50 107 200 25 

  radio "Accept", 8, 1 130 198 25, push 
  radio "Decline", 9, 1 155 198 25, push 

  text "Click Accept or Decline, Then Click Finish.", 10, 1 180 198 25 

  button "Finish", 11, 1 205 198 25, cancel 
} 
on *:dialog:qc:sclick:11: { 
  if ($did(8).state == 1) { 
    /msg %qc.nick [Query Control] - Your Message Has Been Accepted. I will now Reply To Your Messages. 
  } 
  elseif ($did(9).state == 1) { 
    /msg %qc.nick [Query Control] - You have been declined. You are not worty of King 15,14iSwift!. 
    unset %qc.nick 
    /close -m 
  } 
  else { 
    /msg %qc.nick [Query Control] - Sorry, No Answer. 
    unset %qc.nick 
    /close -m 
  } 
}