rendered paste bodydialog toolkit {
title RS toolkit
size -1 -1 197 167
option dbu
tab "Info", 1, -1 1 199 141
text "Rs Toolkit Verson 1.0", 38, 70 34 56 9, tab 1
text "Scripted By", 39, 83 45 29 8, tab 1
text "Roly", 40, 90 56 16 8, tab 1
tab "Stats", 2
button "Get Stats", 8, 80 30 37 12, tab 2
edit "", 7, 56 17 79 10, tab 2
list 9, 2 43 60 58, tab 2 size
list 15, 69 43 60 58, tab 2 size
list 16, 135 43 60 58, tab 2 size
list 36, 80 123 37 14, tab 2 size
text "Overall", 37, 89 113 20 8, tab 2
tab "Calcs Etc.", 3
edit "", 5, 6 24 16 10, tab 3
button "XP", 11, 25 23 20 12, tab 3
list 13, 48 24 50 10, tab 3 size
edit "", 17, 10 105 16 10, tab 3
edit "", 25, 10 116 16 10, tab 3
text "Attack", 26, 33 50 25 8, tab 3
text "Strength", 27, 33 61 25 8, tab 3
text "Defense", 28, 33 72 25 8, tab 3
text "Hitpoints", 29, 33 83 25 8, tab 3
text "Prayer", 30, 33 94 25 8, tab 3
text "Range", 31, 33 105 25 8, tab 3
text "Mage", 32, 33 116 25 8, tab 3
button "Calculate", 33, 71 81 37 12, tab 3
list 34, 115 78 66 16, tab 3 size
text "Estimated Combat Of:", 35, 118 68 57 10, tab 3
tab "Price", 14
list 12, 5 57 184 82, tab 14 size
button "Price", 4, 77 38 37 12, tab 14
edit "", 10, 60 24 67 11, tab 14
button "Done", 6, 79 148 42 15, ok cancel
text "By Roly", 20, 160 158 28 7
edit "", 24, 10 1116 16 10
edit "", 18, 10 94 16 10, tab 3
edit "", 19, 10 83 16 10, tab 3
edit "", 21, 10 72 16 10, tab 3
edit "", 22, 10 61 16 10, tab 3
edit "", 23, 10 50 16 10, tab 3
tab "Non RS Stuff" ,183
box "Calculator", 69, 68 25 88 77, tab 183
button "1", 70, 71 48 19 12, tab 183
edit "", 74, 78 33 68 13, tab 183
button "4", 75, 71 61 19 12, tab 183
button "7", 79, 71 74 19 12, tab 183
button "0", 83, 71 87 19 12, tab 183
button "Clear", 84, 92 87 19 12, tab 183
button "8", 80, 92 74 19 12, tab 183
button "5", 76, 92 61 19 12, tab 183
button "2", 71, 92 48 19 12, tab 183
button "3", 72, 113 48 19 12, tab 183
button "6", 77, 113 61 19 12, tab 183
button "9", 81, 113 74 19 12, tab 183
button "=", 85, 113 87 19 12, tab 183
button "+", 86, 134 87 19 12, tab 183
button "-", 82, 134 74 19 12, tab 183
button "*", 78, 134 61 19 12, tab 183
button "/", 73, 134 48 19 12, tab 183
}
alias toolkit {
dialog -ma toolkit toolkit
}
on *:dialog:toolkit:sclick:11:{
set %dia.xp $exp($did(toolkit,5).text)
did -a toolkit 13 %dia.xp
}
alias exp {
var %a = 1
.set %exp123 0
var %a1 = $eval($1)
while (%a < %a1) {
var %expvalue = $calc((%a + 300 * 2^(%a / 7)) /4)
inc %exp123 %expvalue
inc %a
}
return $floor(%exp123)
}
on *:dialog:toolkit:sclick:8:{
set %statsn.uname.alias $iif($did(toolkit,7),$replace($did(toolkit,7),$chr(32),$chr(43)),$nick)
sockopen statsalias slushpuppy.silverinterlocution.org 80
}
on *:sockopen:statsalias:{
if ($sockerr) { halt }
sockwrite -nt $sockname GET /rsstats.php?stats= $+ %statsn.uname.alias HTTP/1.1
sockwrite -nt $sockname Host: slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:statsalias:{
if ($sockerr) { halt }
else {
sockread %stats.output
if (*overall* iswm %stats.output) || (*strength* iswm %stats.output) || (*defense* iswm %stats.output) || (*fletching* iswm %stats.output) || (*cooking* iswm %stats.output) || (*firemaking* iswm %stats.output) || (*fishing* iswm %stats.output) {
tokenize 32 %stats.output
set %disp1 $2
set %disp2 $3 $4
set %disp3 $5 $6
set %disp4 $7 $8
set %disp5 $9 $10
set %disp6 $11 $12
set %disp7 $13 $14
set %disp8 $15 $16
set %disp9 $17 $18
set %disp10 $19 $20
set %disp11 $21 $22
set %disp12 $23 $24
set %disp13 $25 $26
set %disp14 $27 $28
set %disp15 $29 $30
set %disp16 $31 $32
set %disp17 $33 $34
set %disp18 $35 $36
set %disp19 $37 $38
set %disp20 $39 $40
set %disp21 $41 $42
set %disp22 $43 $44
set %disp23 $45 $46
set %disp24 $47 $48
}
did -r toolkit 9
did -r toolkit 15
did -r toolkit 16
did -r toolkit 36
did -a toolkit 9 $remove(%disp2,<br>)
did -a toolkit 9 $remove(%disp3,<br>)
did -a toolkit 9 $remove(%disp4,<br>)
did -a toolkit 9 $remove(%disp5,<br>)
did -a toolkit 9 $remove(%disp6,<br>)
did -a toolkit 9 $remove(%disp7,<br>)
did -a toolkit 9 $remove(%disp8,<br>)
did -a toolkit 15 $remove(%disp9,<br>)
did -a toolkit 15 $remove(%disp10,<br>)
did -a toolkit 15 $remove(%disp11,<br>)
did -a toolkit 15 $remove(%disp12,<br>)
did -a toolkit 15 $remove(%disp13,<br>)
did -a toolkit 15 $remove(%disp14,<br>)
did -a toolkit 15 $remove(%disp15,<br>)
did -a toolkit 15 $remove(%disp16,<br>)
did -a toolkit 16 $remove(%disp17,<br>)
did -a toolkit 16 $remove(%disp18,<br>)
did -a toolkit 16 $remove(%disp19,<br>)
did -a toolkit 16 $remove(%disp20,<br>)
did -a toolkit 16 $remove(%disp21,<br>)
did -a toolkit 16 $remove(%disp22,<br>)
did -a toolkit 16 $remove(%disp23,<br>)
did -a toolkit 16 $remove(%disp24,<br>)
did -a toolkit 36 %disp1
}
}
on *:dialog:toolkit:sclick:4:{
set %price.rs $iif($did(toolkit,10),$replace($did(toolkit,10),$chr(32),$chr(43)),$nick)
sockopen PRICE www.slushpuppy.silverinterlocution.org 80
}
on *:sockopen:PRICE:{
if ($sockerr) { halt }
sockwrite -nt $sockname GET /price.php?price= $+ %price.rs HTTP/1.1
sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $crlf $+ $crlf
}
on *:sockread:PRICE:{
if ($sockerr) { halt }
else {
sockread %x
if (*gp* iswm %x) {
did -a toolkit 12 $remove(%x,<br>)
}
}
}
on *:dialog:toolkit:sclick:33:{
did -a toolkit 34 $cmblevel($did(toolkit,23),$did(toolkit,22),$did(toolkit,21),$did(toolkit,19),$did(toolkit,18),$did(toolkit,17),$did(toolkit,25))
}
alias CmbLevel {
set %defence $calc($3 * 100)
set %hitpoints $calc($4 * 100)
set %prayer $5
if ($and(%prayer,1) == 1) {
set %prayer $calc((%prayer -1) * 50)
}
Else if ($and(%prayer,1) == 0) {
set %prayer $calc(%prayer * 50)
}
set %basecombat $calc((%defence + %hitpoints + %prayer) / 400)
set %attack $calc($1 * 130)
set %strength $calc($2 * 130)
set %ranged $6
set %mage $7
if ($and(%ranged,1) == 1) {
set %ranged $calc((%ranged - 1 + %ranged * 2) * 65)
}
Else if ($and(%ranged,1) == 0) {
set %ranged $calc(%ranged * 195)
}
if ($and(%mage,1) == 1) {
set %mage $calc((%mage - 1 + %mage * 2) * 65)
}
Else if ($and(%mage,1) == 0) {
set %mage $calc(%mage * 195)
}
set %meleecb $calc((%attack + %strength) / 400)
set %rangedcb $calc(%ranged / 400)
set %magecb $calc(%mage / 400)
if ((%meleecb > %rangedcb) && (%meleecb > %magecb)) {
return $calc(%meleecb + %basecombat) Melee Based
}
if ((%rangedcb > %meleecb) && (%rangedcb > %magecb)) {
Return $calc(%rangedcb + %basecombat) Ranged Based
}
if ((%magecb > %rangedcb) && (%magecb > %meleecb)) {
Return $calc(%magecb + %basecombat) Mage Based
}
unset %defence
unset %hitpoints
unset %prayer
unset %basecombat
unset %attack
unset %strength
unset %ranged
unset %mage
unset %meleecb
unset %rangedcb
unset %magecb
}
on *:dialog:toolkit:sclick:70: {
did -a toolkit 74 1
}
on *:dialog:toolkit:sclick:71: {
did -a toolkit 74 2
}
on *:dialog:toolkit:sclick:72: {
did -a toolkit 74 3
}
on *:dialog:toolkit:sclick:75: {
did -a toolkit 74 4
}
on *:dialog:toolkit:sclick:76: {
did -a toolkit 74 5
}
on *:dialog:toolkit:sclick:77: {
did -a toolkit 74 6
}
on *:dialog:toolkit:sclick:79: {
did -a toolkit 74 7
}
on *:dialog:toolkit:sclick:80: {
did -a toolkit 74 8
}
on *:dialog:toolkit:sclick:81: {
did -a toolkit 74 9
}
on *:dialog:toolkit:sclick:83: {
did -a toolkit 74 0
}
on *:dialog:toolkit:sclick:73: {
did -a toolkit 74 \\
}
on *:dialog:toolkit:sclick:78: {
did -a toolkit 74 *
}
on *:dialog:toolkit:sclick:86: {
did -a toolkit 74 +
}
on *:dialog:toolkit:sclick:82: {
did -a toolkit 74 -
}
on *:dialog:toolkit:sclick:85: {
did -ra toolkit 74 $calc($did(toolkit,74))
}
on *:dialog:toolkit:sclick:84: {
did -r toolkit 74
}