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.
}