menu status,query,nicklist,channel {
  Loan:/dialog -md loan loan
}
dialog Loan {
  title "Loan"
  size -1 -1 335 232
  option dbu
  edit "", 1, 20 63 50 10
  text "Loan?", 2, 20 53 25 8
  text "Income Per Year", 3, 80 53 46 8
  edit "", 4, 80 63 50 10
  text "Debt?", 5, 140 53 17 8
  edit "", 6, 140 63 50 10
  list 8, 73 111 80 80, size hsbar vsbar
  text "Intrest Per Year %", 7, 200 53 47 8
  edit "", 9, 200 63 50 10
  button "Done", 10, 21 108 37 12
}
on *:dialog:loan:sclick:10: {
  set %loan $did(1)
  if ($did(6) != null) { set %det $did(6) }
  set %incomeperyear $did(4)
  set %loandet $calc(%loan + %det)
  if (%incomeperyear isnum 1-6000) { set %income You only earn %incomeperyear Sorry we cannot give you a loan.
  set %type 1 }
  if (%incomeperyear isnum 6001-21600) { set %income $calc(%incomeperyear / 100 * 15 - %incomeperyear * 1 - 5000)
  set %type 2 }
  if (%incomeperyear isnum 21601-63000) { set %income $calc(%incomeperyear /100 * 30 - %incomeperyear * 1 - 5000)
  set %type 3 }
  if (%incomeperyear isnum 63001-95000) { set %income $calc(%incomeperyear /100 * 42 - %incomeperyear * 1 - 5000)
  set %type 4 }
  if (%incomeperyear >= 95001) set %income $calc(%incomeperyear /100 * 47 - %incomeperyear * 1 - 5000)
  set %intrest $calc(%loan * $did(9) / 100)
  set %cost It will cost you %loandet to pay back all the money you owe and you pay an extra %intrest with interest.
  if (%loandet isnum 1-10000) && if (%type == 1 || %type == 2 || %type == 3 || %type == 4)
  did -a loan 8 %cost Also you will get the loan.
}