rendered paste bodyalias nohtml {
var %x
var %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
var %x = $replace(%x,<,<,>,>,&,&,",", ,,æ,æ,ç,ç,©,©,®,®)
var %t = $regex(hfreg,%x,/&#(..|...);/g)
while ( %t > 0 ) {
var %x = $replace(%x,$+(&,$chr(35),$regml(hfreg,%t),;),$iif($chr($regml(hfreg,%t)),$chr($regml(hfreg,%t)),?))
dec %t
}
return %x
}
alias exp {
var %x = 1, %level = $calc($1 - 1), %xp = 0
while (%x <= %level) {
.dll DLLs\WhileFix.dll WhileFix .
var %TempXp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
inc %xp %TempXp
inc %x
}
return $int(%xp)
}
alias lvl {
var %a = 1
while (%a <= 100) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %nlvl = $calc(%a + 1)
if ($1 >= $exp(%a) && $1 < $exp(%nlvl)) { return %a }
else { inc %a }
}
return $iif(%a >= 100,1,%a)
}
alias mRSTK { .dialog -md mRSTK mRSTK }
menu * {
mRSTK:/mRSTK
}
dialog mRSTK {
title "mRSTK2 by Marius"
size -1 -1 347 261
option dbu
icon $shortfn($scriptdirRuneScape.ico), 0
tab "News", 1, 4 1 337 256
button "Play RuneScape!", 61, 17 208 57 9, tab 1 default
icon 62, 20 220 50 30, mirc.exe, 0, tab 1
text "mIRC RuneScape ToolKit", 63, 10 105 59 8, tab 1
text "v2", 64, 34 113 6 8, tab 1
text "Made by Marius", 65, 19 131 40 8, tab 1
box "News", 215, 84 17 254 238, tab 1
box "news2", 66, 87 24 247 227, tab 1
tab "Calculators", 2
box "Skill", 67, 10 72 50 25, tab 2
text "Current Exp/Level", 69, 10 20 50 8, tab 2 center
edit "", 70, 10 28 50 10, tab 2
text "Target Exp/Level", 71, 65 35 50 8, tab 2 center
edit "", 72, 65 43 50 10, tab 2
list 74, 62 75 277 180, tab 2 size
button "Calculate", 75, 12 223 45 12, tab 2
text "Double-Click For More Info", 76, 15 237 41 15, tab 2
text "Text Label", 77, 63 66 275 10, tab 2
text "", 101, 12 108 45 8, tab 2
text "", 102, 12 149 45 8, tab 2
text "", 103, 12 190 45 8, tab 2
combo 83, 11 81 47 45, tab 2 sort drop
box "Current Level", 4, 10 98 50 40, tab 2
box "Target Level", 5, 10 139 50 40, tab 2
box "Exp Needed", 7, 10 180 50 40, tab 2
text "", 39, 12 123 45 8, tab 2
text "", 40, 12 164 45 8, tab 2
text "", 41, 12 205 45 8, tab 2
box "Skill Stats", 42, 200 20 110 40, tab 2
text "OR", 43, 30 38 8 8, tab 2
text "RuneScape Name", 44, 10 46 50 8, tab 2 center
edit "", 45, 10 54 50 10, tab 2
text "Level:", 46, 202 28 30 8, tab 2
text "Experience:", 47, 202 38 30 8, tab 2
text "Rank:", 48, 202 48 30 8, tab 2
text "", 49, 235 28 70 8, tab 2
text "", 50, 235 38 70 8, tab 2
text "", 51, 235 48 70 8, tab 2
tab "Combat Calculator", 3
box "Combat Stats", 78, 12 35 70 130, tab 3
box "Max Hit Stats", 79, 12 165 70 85, tab 3
box " RSC Combat Information", 80, 105 35 115 75, tab 3
box "RSC Impurity Information", 81, 105 110 115 85, tab 3
box "RSC Item Inforamtion", 82, 105 195 115 60, tab 3
text "Attack", 104, 15 45 25 8, tab 3
edit "", 105, 50 44 25 10, tab 3
text "Defense", 106, 15 59 25 8, tab 3
text "Strength", 107, 15 73 25 8, tab 3
text "*Hits", 108, 15 87 25 8, tab 3
text "Range", 109, 15 101 25 8, tab 3
text "Magic", 110, 15 115 25 8, tab 3
text "Prayer", 111, 15 129 25 8, tab 3
text "* Hits are optional", 112, 24 148 44 8, tab 3
edit "", 113, 50 58 25 10, tab 3
edit "", 114, 50 72 25 10, tab 3
edit "", 115, 50 86 25 10, tab 3
edit "", 116, 50 100 25 10, tab 3
edit "", 117, 50 114 25 10, tab 3
edit "", 118, 50 128 25 10, tab 3
check "Wearing Gauntlets", 119, 17 173 60 10, tab 3
combo 120, 17 197 60 50, tab 3 size drop
combo 121, 17 236 60 50, tab 3 size drop
combo 122, 17 210 60 50, tab 3 size drop
combo 123, 17 223 60 50, tab 3 size drop
combo 124, 17 184 60 50, tab 3 size drop
box "RS Combat Information", 135, 225 35 115 75, tab 3
box "RS Impurity Information", 136, 225 110 115 85, tab 3
box "RS Item Inforamtion", 137, 225 195 115 60, tab 3
text "Combat Lvl:", 159, 107 50 29 8, tab 3
text "Exact Combat Lvl:", 160, 107 65 44 8, tab 3
text "Primary Lvl's left:", 161, 107 80 41 8, tab 3
text "Secondary Lvl's left:", 162, 107 95 49 8, tab 3
text "Pure Combat Lvl:", 167, 107 120 41 8, tab 3
text "Impurity Lvl's:", 168, 107 135 34 8, tab 3
text "Percent Pure:", 169, 107 150 33 8, tab 3
text "Percent Impure:", 170, 107 165 39 8, tab 3
text "Main Cause of Impurity:", 171, 107 180 58 8, tab 3
text "Magic Combat Lvl:", 172, 230 56 44 8, tab 3
text "Ranged Combat Lvl:", 173, 230 67 49 8, tab 3
text "Best Weapon Available:", 179, 107 205 57 8, tab 3
text "Best Armour Available:", 180, 107 217 55 8, tab 3
text "Maximum Hit:", 181, 107 231 32 8, tab 3
text "Maximum Ranged Hit:", 182, 107 244 52 8, tab 3
text "Melee Combat Lvl:", 163, 230 45 44 8, tab 3
text "Exact Combat Lvl:", 164, 230 78 44 8, tab 3
text "Primary Lvl's left:", 165, 230 89 41 8, tab 3
text "Secondary Lvl's left:", 166, 230 100 49 8, tab 3
text "Pure Combat Lvl:", 174, 230 120 41 8, tab 3
text "Impurity Lvl's:", 175, 230 135 34 8, tab 3
text "Percent Pure:", 176, 230 150 33 8, tab 3
text "Percent Impure:", 177, 230 165 39 8, tab 3
text "Main Cause of Impurity:", 178, 230 180 58 8, tab 3
text "Best Weapon Available:", 183, 230 205 57 8, tab 3
text "Best Armour Available:", 184, 230 217 55 8, tab 3
text "Maximum Hit:", 185, 230 231 32 8, tab 3
text "Maximum Ranged Hit:", 186, 230 244 52 8, tab 3
text "", 187, 160 50 50 8, tab 3
text "", 188, 160 64 50 8, tab 3
text "", 189, 160 80 50 8, tab 3
text "", 190, 160 95 50 8, tab 3
text "", 191, 167 180 50 8, tab 3
text "", 192, 167 165 50 8, tab 3
text "", 193, 167 150 50 8, tab 3
text "", 194, 167 135 50 8, tab 3
text "", 195, 167 120 50 8, tab 3
text "", 196, 167 205 50 8, tab 3
text "", 197, 167 217 50 8, tab 3
text "", 198, 167 231 50 8, tab 3
text "", 199, 167 244 50 8, tab 3
text "", 200, 285 45 50 8, tab 3
text "", 201, 285 56 50 8, tab 3
text "", 202, 285 67 50 8, tab 3
text "", 203, 285 78 50 8, tab 3
text "", 204, 285 89 50 8, tab 3
text "", 205, 285 100 50 8, tab 3
text "", 206, 289 180 50 8, tab 3
text "", 207, 289 165 50 8, tab 3
text "", 208, 289 150 50 8, tab 3
text "", 209, 289 135 50 8, tab 3
text "", 210, 289 120 50 8, tab 3
text "", 211, 288 205 50 8, tab 3
text "", 212, 288 217 50 8, tab 3
text "", 213, 288 231 50 8, tab 3
text "", 214, 288 244 50 8, tab 3
tab "Bestiary", 6
box "Search Panel", 138, 10 35 160 220, tab 6
list 139, 175 37 160 218, tab 6 size
text "0 Results Returned...", 140, 175 29 160 8, tab 6 center
text "Name:", 141, 30 75 25 8, tab 6
text "Level:", 142, 30 90 25 8, tab 6
text "Hits:", 143, 30 105 25 8, tab 6
text "Item Drops:", 144, 30 120 29 8, tab 6
text "Location:", 145, 30 135 25 8, tab 6
check "Force exact match for each return", 146, 40 155 95 10, tab 6
check "Freeplay world monsters only", 147, 40 169 95 10, tab 6
button "List All Monsters", 148, 35 205 45 8, tab 6
button "Rune Search...", 149, 105 205 45 8, tab 6
edit "", 150, 65 74 90 10, tab 6
edit "", 151, 65 89 90 10, tab 6
edit "", 152, 65 104 90 10, tab 6
edit "", 153, 65 119 90 10, tab 6
edit "", 154, 65 134 90 10, tab 6
menu "&File", 8
menu "&Options", 9, 8
item "S&ettings", 10, 9
item "&S/B Recorder", 11, 8
item "Run &Updater", 12, 8
item "E&xit", 13, 8, ok
menu "View", 14
menu "Folders", 15, 14
item "Screen Shots", 16, 15
item "Notepad", 17, 14
item "Information", 18, 14
item "RuneScape Window", 19, 14
menu "Information", 20
item "Quests", 21, 20
item break, 22, 20
item "Herblore", 23, 20
item "Thieving", 24, 20
item "Smithing && Mining", 25, 20
item "Cooking && Fishing", 26, 20
item "Agility", 27, 20
item "Crafting", 28, 20
item "Fletching", 29, 20
item "Experience", 30, 20
item "Skill Guides", 127, 20
menu "Links", 31
item "JaGeX Website", 32, 31
item "RuneScape Website", 33, 31
item break, 91, 31
menu "RuneScape ToolKit", 34, 31
item "Discussion Board", 35, 34
item "Download Page", 36, 34
item "Help Page", 37, 34
menu "SwiftSwitch", 68, 31
item "Discussion Board", 73, 68
item "Download Page", 84, 68
item "Help Page", 85, 68
item "mRSTK", 128, 31
item break, 52, 31
menu "RuneScape Communities", 38, 31
item "RuneScape Community", 86, 38
item "Zybez", 87, 38
item "RuneWeb", 88, 38
item "Tip.it", 89, 38
item "RuneHQ", 90, 38
item break, 129, 31
menu "Other Sites", 130, 31
item "Anoxs - Free Forum Host", 131, 130
item "RSBattle", 54, 130
menu "Images", 55
item "Maps", 56, 55
menu "Help", 57
item "Help", 58, 57
item "About", 59, 57
item "Report Bug", 60, 57
}
alias mRSTK_bstatus {
echo -s BStatus: $1-
}
on *:DIALOG:mRSTK_rs:init:o: {
.set %RSWindow $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll),find,RS2)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %RSWindow
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate http://runescape.com
}
alias dllcall2 {
.tokenize 32 $1-
return $dllcall($1,$2,$3,$4-)
}
on *:DIALOG:mRSTK:init:0: {
.did -g $dname 62 $shortfn($scriptdirmini.jpg)
.dll $shortfn($scriptdirDLLs\mdx.dll) SetMircVersion $version
.dll $shortfn($scriptdirDLLs\mdx.dll) MarkDialog mRSTK
.dll $shortfn($scriptdirDLLs\mdx.dll) SetControlMDX mRSTK 74 ListView report single grid > $shortfn($scriptdirDLLs\views.mdx)
.dll $shortfn($scriptdirDLLs\mdx.dll) SetControlMDX mRSTK 139 ListView report single grid > $shortfn($scriptdirDLLs\views.mdx)
.dll $shortfn($scriptdirDLLs\mdx.dll) SetControlMDX mRSTK 77 ProgressBar > $shortfn($scriptdirDLLs\Ctl_gen.mdx)
.did -i mRSTK 74 1 headerdims 175 75 100 100
.did -i mRSTK 139 1 headerdims 175 50 50
.did -i mRSTK 74 1 headertext Item $chr(9) Level $chr(9) Exp Gained $chr(9) $chr(35) required
.did -i mRSTK 139 1 headertext Monster $chr(9) Level $chr(9) Hits
.set %news $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll), find, news2)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %news
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate http://www.mrstk.com
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Div.ini),Skills,0)) {
.did -a mRSTK 83 $ini($shortfn($scriptdirData\Div.ini),Skills,%a)
inc %a
}
}
on *:DIALOG:mRSTK:sclick:149: {
var %a = 1
var %b = 0
.did -ra $dname 140 %b Results Returned...
.did -r $dname 139
while (%a <= $ini($shortfn($scriptdirData\Monsters.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
if ($did($dname,147).state == 1) && ($readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), Members) == Yes) { inc %a }
if ($did($dname,150).text != $null) {
if ($did($dname, 150).text isin $ini($shortfn($scriptdirData\Monsters.ini), %a)) { .did -a $dname 139 $replace($ini($shortfn($scriptdirData\Monsters.ini), %a),$chr(95),$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP) | inc %b | .did -ra $dname 140 %b Results Returned... | inc %a }
}
if ($did($dname,151).text != $null) {
if ($did($dname, 151).text == $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), Level)) { .did -a $dname 139 $replace($ini($shortfn($scriptdirData\Monsters.ini), %a),$chr(95),$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP) | inc %a | .did -ra $dname 140 %b Results Returned... | inc %a }
}
if ($did($dname,152).text != $null) {
if ($did($dname, 152).text == $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP)) { .did -a $dname 139 $replace($ini($shortfn($scriptdirData\Monsters.ini), %a),$chr(95),$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP) | inc %a | .did -ra $dname 140 %b Results Returned... | inc %a }
}
if ($did($dname,153).text != $null) {
if ($did($dname,153).text isin $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), Loot)) { .did -a $dname 139 $replace($ini($shortfn($scriptdirData\Monsters.ini), %a),$chr(95),$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP) | inc %a | .did -ra $dname 140 %b Results Returned... | inc %a }
}
if ($did($dname,154).text != $null) {
if ($did($dname,154).text isin $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), Location)) { .did -a $dname 139 $replace($ini($shortfn($scriptdirData\Monsters.ini), %a),$chr(95),$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP) | inc %a | .did -ra $dname 140 %b Results Returned... | inc %a }
}
inc %a
}
}
on *:DIALOG:mRSTK:menu:11: {
.dialog -md mRSTK_sbr mRSTK_sbr
}
on *:DIALOG:mRSTK:menu:17: {
.dialog -md mRSTK_notepad mRSTK_notepad
}
on *:DIALOG:mRSTK:menu:18: {
.dialog -md mRSTK_information mRSTK_information
}
on *:DIALOG:mRSTK:menu:19: {
.dialog -md mRSTK_rs mRSTK_rs
}
on *:DIALOG:mRSTK:menu:10: {
.dialog -md mRSTK_settings mRSTK_settings
}
on *:DIALOG:mRSTK:menu:56: {
.dialog -md mRSTK_maps mRSTK_maps
}
on *:DIALOG:mRSTK:sclick:148: {
.did -ra $dname 140 0 Results Returned...
.did -r $dname 139
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Monsters.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
.did -a $dname 139 $replace($ini($shortfn($scriptdirData\Monsters.ini), %a),$chr(95),$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini), $ini($shortfn($scriptdirData\Monsters.ini), %a), HP)
.did -ra $dname 140 %a Results Returned...
inc %a
}
}
on *:DIALOG:mRSTK:menu:21,23,24,25,26,27,28,29,30,127: {
if ($did == 21) { .set %mRSTK_temp 1 }
if ($did == 23) { .set %mRSTK_temp 2 }
if ($did == 24) { .set %mRSTK_temp 3 }
if ($did == 25) { .set %mRSTK_temp 4 }
if ($did == 26) { .set %mRSTK_temp 5 }
if ($did == 27) { .set %mRSTK_temp 6 }
if ($did == 28) { .set %mRSTK_temp 7 }
if ($did == 29) { .set %mRSTK_temp 8 }
if ($did == 30) { .set %mRSTK_temp 9 }
if ($did == 127) { .set %mRSTK_temp 10 }
.dialog -md mRSTK_information mRSTK_information
}
on *:DIALOG:mRSTK_information:init:0: {
.dll $shortfn($scriptdirDLLs\mdx.dll) SetMircVersion $version
.dll $shortfn($scriptdirDLLs\mdx.dll) MarkDialog $dname
.dll $shortfn($scriptdirDLLs\mdx.dll) SetControlMDX $dname 15,16,17,18,19,20,21 ListView report single grid > $shortfn($scriptdirDLLs\views.mdx)
.dll $shortfn($scriptdirDLLs\mdx.dll) SetControlMDX $dname 22,23,24,25,26 ListView report single grid > $shortfn($scriptdirDLLs\views.mdx)
.did -i $dname 15 1 headerdims 150 75 75 125 150 175
.did -i $dname 16 1 headerdims 150 75 75 150 300
.did -i $dname 17 1 headerdims 175 75 75 112 112 100 100
.did -i $dname 18 1 headerdims 150 100 75 75 100 100 150
.did -i $dname 19 1 headerdims 150 125 75 100 175 125
.did -i $dname 20 1 headerdims 150 60 60 150 150 175
.did -i $dname 21 1 headerdims 150 75 75 125 100 100 125
.did -i $dname 22,23,24,25,26 1 headerdims 40 75
.did -i $dname 15 1 headertext Item $chr(9) Skill $chr(9) Exp $chr(9) Herb $chr(9) Other Equipment $chr(9) Status Effect
.did -i $dname 16 1 headertext Item $chr(9) Skill $chr(9) Exp $chr(9) Location $chr(9) Loot
.did -i $dname 17 1 headertext Item $chr(9) Skill $chr(9) Exp $chr(9) Power $chr(9) Aim / Armour $chr(9) Buying Cost $chr(9) Selling Price
.did -i $dname 18 1 headertext Item $chr(9) Cooking Level $chr(9) Cook. Exp $chr(9) Fishing Exp $chr(9) Heals $chr(9) Fishing Level $chr(9) Equipment
.did -i $dname 19 1 headertext Item $chr(9) Skill $chr(9) Exp $chr(9) Possible Fall $chr(9) Item Needed $chr(9) Location
.did -i $dname 20 1 headertext Item $chr(9) Skill $chr(9) Exp $chr(9) Tools $chr(9) Crafting Item $chr(9) Item Effect
.did -i $dname 21 1 headertext Item $chr(9) Skill $chr(9) Exp $chr(9) Woodcutting Level $chr(9) Ranged Level $chr(9) Bow Required $chr(9) Smithing Level
.did -i $dname 22,23,24,25,26 1 headertext Lvl $chr(9) Exp
.set %mRSTK_quests $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll), find, quests)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %mRSTK_quests
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate http://www.runeweb.net/index.php?page=rs2-quest
.did -a $dname 12 ---Freeplay Quests---
.did -a $dname 12 $chr(32)
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Quests.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
if ($readini($shortfn($scriptdirData\Quests.ini),$ini($shortfn($scriptdirData\Quests.ini),%a),Type) == f2p) {
.did -a $dname 12 $replace($ini($shortfn($scriptdirData\Quests.ini),%a),$chr(95),$chr(32))
}
inc %a
}
.did -a $dname 12 $chr(32)
.did -a $dname 12 ---Members-Only Quests---
.did -a $dname 12 $chr(32)
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Quests.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
if ($readini($shortfn($scriptdirData\Quests.ini),$ini($shortfn($scriptdirData\Quests.ini),%a),Type) == p2p) {
.did -a $dname 12 $replace($ini($shortfn($scriptdirData\Quests.ini),%a),$chr(95),$chr(32))
}
inc %a
}
.set %mRSTK_skills $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll), find, skills)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %mRSTK_skills
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate http://nowhere-aswell.huh
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Herblore.ini),0)) {
.dll $shortfn($scriptdirDlls\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Herblore.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 15 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $readini(%dh,%dh2,Herb1) $chr(9) $readini(%dh,%dh2,Herb2) $chr(9) $readini(%dh,%dh2,Status)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Thieving.ini),0)) {
.dll $shortfn($scriptdirDlls\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Thieving.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 16 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $readini(%dh,%dh2,Location) $chr(9) $readini(%dh,%dh2,Loot)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Mining.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Mining.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 17 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Smithing.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Smithing.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 17 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $readini(%dh,%dh2,Power) $chr(9) $readini(%dh,%dh2,A) $chr(9) $readini(%dh,%dh2,Buy) $chr(9) $readini(%dh,%dh2,Sell)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Fishing.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Fishing.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 18 $replace(%dh2,_,$chr(32)) $chr(9) $chr(9) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Equip)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Cooking.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Cooking.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 18 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $chr(9) $readini(%dh,%dh2,Heal) $chr(9) $chr(9) $readini(%dh,%dh2,Equip)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Agility.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Agility.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 19 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $readini(%dh,%dh2,Fall) $chr(9) $readini(%dh,%dh2,Item) $chr(9) $readini(%dh,%dh2,Location)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Crafting.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Crafting.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 20 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $readini(%dh,%dh2,Equip) $chr(9) $readini(%dh,%dh2,Item) $chr(9) $readini(%dh,%dh2,Effect)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Woodcutting.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Woodcutting.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 21 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp)
inc %a
}
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Skills\Fletching.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
var %dh = $shortfn($scriptdirData\Skills\Fletching.ini)
var %dh2 = $ini(%dh,%a)
.did -a $dname 21 $replace(%dh2,_,$chr(32)) $chr(9) $readini(%dh,%dh2,Level) $chr(9) $readini(%dh,%dh2,Exp) $chr(9) $readini(%dh,%dh2,Wood) $chr(9) $readini(%dh,%dh2,Ranged) $chr(9) $readini(%dh,%dh2,Bow) $chr(9) $readini(%dh,%dh2,Smithing)
inc %a
}
var %a = 1
while (%a <= 99) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
if (%a <= 20) { .did -a $dname 22 $+($chr(30),%a) $chr(9) $bytes($exp(%a),b) }
if (%a <= 40 && %a > 20) { .did -a $dname 23 $+($chr(30),%a) $chr(9) $bytes($exp(%a),b) }
if (%a <= 60 && %a > 40) { .did -a $dname 24 $+($chr(30),%a) $chr(9) $bytes($exp(%a),b) }
if (%a <= 80 && %a > 60) { .did -a $dname 25 $+($chr(30),%a) $chr(9) $bytes($exp(%a),b) }
if (%a <= 100 && %a > 80) { .did -a $dname 26 $+($chr(30),%a) $chr(9) $bytes($exp(%a),b) }
inc %a
}
}
on *:DIALOG:mRSTK:sclick:61: {
.dialog -md mRSTK_rs mRSTK_rs
}
on *:DIALOG:mRSTK:sclick:73: {
.dialog -md mRSTK_calc mRSTK_calc
}
on *:DIALOG:mRSTK:sclick:68: {
if ($did($dname,68).state == 1) { .did -ra $dname 71 Number of Items: }
else { .did -ra $dname 71 Target Exp/Level }
}
on *:DIALOG:mRSTK_rs:sclick:2: {
if ($did($dname,2).state == 1) { .dialog -o $dname $dname }
else { .dialog -n $dname $dname }
}
on *:DIALOG:mRSTK_maps:sclick:4: {
.sockclose mRSTK_maps
.sockopen mRSTK_maps mrstk.com 80
}
on *:DIALOG:mRSTK_maps:dclick:1: {
if (!$did($dname,1).seltext) { halt }
.set %mRSTK_map $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll), find, Map2)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %mRSTK_map
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate $readini($scriptdirData\Div.ini,Maps,$replace($did($dname,1).seltext,$chr(32),_))
}
on *:SOCKOPEN:mRSTK_maps: {
if ($sockerr) {
.set %mRSTK_error_msg $sock($sockname).wsmsg
.set %mRSTK_error_area Looking For New Maps
.dialog -mdo mRSTK_error mRSTK_error
return
}
else {
.set %mRSTK_tmaps 0
.sockwrite -n mRSTK_maps GET /genie/maps.php HTTP/1.1
.sockwrite -n mRSTK_maps Host: mrstk.com $+ $crlf $+ $crlf
}
}
on *:SOCKREAD:mRSTK_maps: {
.sockread %mRSTK_maps
if ($+(*,$chr(124),*) !iswm %mRSTK_maps) || (%mRSTK_maps == $null) { halt }
.writeini -n $shortfn($scriptdirData\Div.ini) Maps $replace($gettok(%mRSTK_maps,1,124),$chr(32),_) $gettok(%mRSTK_maps,2,124)
}
on *:SOCKCLOSE:mRSTK_maps: {
if (!$dialog(mRSTK_maps)) { halt }
var %a = 1
.did -r mRSTK_maps 1
while (%a <= $ini($scriptdirData\Div.ini,Maps,0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
.did -a mRSTK_maps 1 $replace($ini($scriptdirData\Div.ini,Maps,%a),_,$chr(32))
inc %a
}
}
on *:DIALOG:mRSTK_error:init:0: {
.did -a $dname 2 %mRSTK_error_area
.did -a $dname 4 %mRSTK_error_msg
}
on *:DIALOG:mRSTK_maps:init:0: {
if ($ini($shortfn($scriptdirData\Div.ini),Maps,0) < 1) { .set -u1 %mRSTK_temp $input(You have curretly not fetched any map-data, you should do this.,wo,mRSTK Information) | halt }
var %a = 1
while (%a <= $ini($shortfn($scriptdirData\Div.ini),Maps,0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
.did -a $dname 1 $replace($ini($shortfn($scriptdirData\Div.ini),Maps,%a),_,$chr(32))
inc %a
}
}
on *:DIALOG:mRSTK_settings:sclick:21: {
if ($did($dname,3).state == 1) { .hadd mRSTK auto_mode on }
if ($did($dname,3).state == 0) { .hadd mRSTK auto_mode off }
if ($did($dname,5).text == $null) {
.hadd mRSTK auto_mode off
.hadd mRSTK auto_pass none
}
else {
.hadd mRSTK auto_pass $encode($did($dname,5).text)
}
if ($did($dname,6).state == 1) { .hadd mRSTK record_mode yes }
if ($did($dname,8).state == 1) { .hadd mRSTK record_sell yes }
else { .hadd mRSTK record_sell no }
if ($did($dname,9).state == 1) { .hadd mRSTK record_buy yes }
else { .hadd mRSTK record_buy off }
if ($did($dname,16).state == 1) { .hadd mRSTK update_check yes }
if ($did($dname,17).state == 1) { .hadd mRSTK update_mode startup }
if ($did($dname,18).state == 1) { .hadd mRSTK update_mode connect }
if ($did($dname,19).state == 1) { .hadd mRSTK update_mode mrstk }
if ($did($dname,2).state == 1) { .hadd mRSTK update_perform notify }
if ($did($dname,20).state == 1) { .hadd mRSTK update_perform auto }
.dialog -x $dname $dname
}
on *:DIALOG:mRSTK_settings:sclick:3: {
if ($did($dname,3).state == 1) { .did -e $dname 5 }
if ($did($dname,3).state == 0) { .did -b $dname 5 }
}
on *:DIALOG:mRSTK_settings:sclick:16: {
if ($did($dname,16).state == 1) {
.did -e $dname 17,18,19
}
if ($did($dname,16).state == 0) {
.did -b $dname 17,18,19
.did -u $dname 17,18,19
}
}
on *:DIALOG:mRSTK_settings:sclick:7: {
if ($did($dname,7).state == 1) {
.did -e $dname 11,12,13,14
}
if ($did($dname,7).state == 0) {
.did -b $dname 11,12,13,14
.did -u $dname 11,12,13,14
}
}
on *:DIALOG:mRSTK_settings:sclick:6: {
if ($did($dname,6).state == 1) {
.did -e $dname 8,9
}
if ($did($dname,6).state == 0) {
.did -b $dname 8,9
.did -u $dname 8,9
}
}
on *:DIALOG:mRSTK:menu:12: {
.sockclose mRSTK_update
.sockopen mRSTK_update http://www.home.no 80
}
on *:START: {
.hmake mRSTK 100
if ($exists(mRSTK.data)) { .hload mRSTK mRSTK.data }
.timermRSTK 0 1 .hsave -o mRSTK mRSTK.data
}
on *:LOAD: {
if ($version <= 6.02) {
echo -a mRSTK2 can not be loaded, all mIRC versions prior to v6.03 can not use all the commands.
echo -a Get the newest version of mIRC at www.mIRC.com ( www.mirc.com/get.html )
.unload -rs ToolKit.mrc
}
else {
echo -a mRSTK2 by Marius successfully loaded!
}
}
on *:SOCKOPEN:mRSTK_update: {
if ($sockerr) {
.set %mRSTK_error_msg $sock($sockname).wsmsg
.set %mRSTK_error_area Connecting to mRSTK Server
.dialog -mdo mRSTK_error mRSTK_error
return
}
else {
.sockwrite -n mRSTK_update GET /funman/mRSTK_div.txt HTTP/1.1
.sockwrite -n mRSTK_update Host: http://www.home.no $+ $crlf $+ $crlf
}
}
on *:SOCKREAD:mRSTK_update: {
.sockread %mRSTK_temp
if (Version: isin %mRSTK_temp) {
.set %mRSTK_version_new $gettok(%mRSTK_temp,2,32)
}
}
on*:SOCKCLOSE:mRSTK_version: {
if (%mRSTK_version_new == $null) {
.sockopen mRSTK_version http://www.home.no 80
return
}
.dialog -md mRSTK_version mRSTK_version
}
dialog mRSTK_version {
title "mRSTK :: Update Checker"
size -1 -1 235 156
option dbu
icon $shortfn($scriptdirRuneScape.ico)
box "Versions", 1, 80 0 70 36
text "Current:", 2, 87 9 21 8
text "Latest:", 3, 87 22 17 8
edit "", 4, 112 8 35 10, read center
edit "", 5, 112 21 35 10, read center
box "New in Latest Version", 6, 3 40 230 100
button "Cancel", 7, 55 143 50 12
button "Get Latest Version", 8, 130 143 50 12
box "version_news", 9, 5 47 226 91
}
on *:DIALOG:mRSTK_information:sclick:12: {
if ($left($did($dname,12).seltext,3) == ---) { halt }
if (!$did($dname,12).seltext) { halt }
if ($did($dname,12).seltext == $null) { halt }
.set %mRSTK_quest $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll), find, quests)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) detach %mRSTK_quest
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %mRSTK_quest
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate $readini($shortfn($scriptdirData\Quests.ini),$replace($did($dname,12).seltext,$chr(32),$chr(95)),Url)
}
on *:DIALOG:mRSTK_information:sclick:30: {
.rw
}
on *:DIALOG:mRSTK_sbr:init:0: {
if ($hget(mRSTK_sale,1).item != $null) {
var %a = 1
while (%a <= $hget(mRSTK_sale,0).item) {
.tokenize 124 $hget(mRSTK_sale,%a).data
.did -a $dname 6 $1
inc %a
}
}
if ($hget(mRSTK_buy,1).item != $null) {
var %a = 1
while (%a <= $hget(mRSTK_buy,0).item) {
.tokenize 124 $hget(mRSTK_buy,%a).data
.did -a $dname 7 $1
inc %a
}
}
.did -a $dname 4 $date
.did -a $dname 5 $time
.timerSBR 0 1 .sbr_ud
}
on *:DIALOG:mRSTK_sbr:sclick:6,7,28,29,30: {
if ($did == 6) {
.tokenize 124 $hget(mRSTK_sale,$did($dname,6).sel).data
.did -ra $dname 22 $1
.did -ra $dname 23 $2
.did -ra $dname 12 $3
.did -ra $dname 13 $4
.did -ra $dname 10 $5-
}
if ($did == 7) {
.tokenize 124 $hget(mRSTK_buy,$did($dname,7).sel).data
.did -ra $dname 26 $1
.did -ra $dname 27 $2
.did -ra $dname 18 $3
.did -ra $dname 19 $4
.did -ra $dname 17 $5-
}
if ($did == 28) { .dialog -x $dname }
if ($did == 29) {
var %who = $$?="Do you want to PM a Seller (S) or a Buyer (B)?"
if (%who == S) {
if (!$did($dname,22)) { halt }
var %msg = $$?="Enter your message for $did($dname,22) here:"
if (!%msg) { halt }
.msg $did($dname,22) %msg
}
if (%who == B) {
if (!$did($dname,26)) { halt }
var %msg = $$?="Enter your message for $did($dname,26) here:"
if (!%msg) { halt }
.msg $did($dname,26) %msg
}
}
if ($did == 30) {
var %who = $$?="Do you want to Memo a Seller (S) or a Buyer (B)?"
if (%who == S) {
if (!$did($dname,22)) { halt }
var %msg = $$?="Enter your message for $did($dname,22) here:"
if (!%msg) { halt }
.msg MemoServ send $did($dname,22) %msg
}
if (%who == B) {
if (!$did($dname,26)) { halt }
var %msg = $$?="Enter your message for $did($dname,26) here:"
if (!%msg) { halt }
.msg MemoServ send $did($dname,26) %msg
}
}
}
on *:DIALOG:mRSTK_sbr:close:0: {
.timerSBR off
}
alias sbr_ud {
if (!$dialog(mRSTK_sbr)) { .timerSBR off | halt }
.did -ra mRSTK_sbr 4 $date
.did -ra mRSTK_sbr 5 $time
}
dialog mRSTK_information {
title "mRSTK :: Information"
size -1 -1 400 215
option dbu
icon $shortfn($scriptdirRuneScape.ico), 0
tab "Quests", 1, 4 3 390 205
box "quests", 11, 115 26 275 181, tab 1
list 12, 6 28 105 160, tab 1 size
text "0 Quests Documented", 13, 7 20 105 8, tab 1 center
text "Click Guide to View", 14, 6 190 105 8, tab 1 center
tab "Herblore", 2
list 15, 6 17 387 190, tab 2 size
tab "Thieving", 3
list 16, 6 17 387 190, tab 3 size
tab "Smithing and Mining", 4
list 17, 6 17 387 190, tab 4 size
tab "Cooking and Fishing", 5
list 18, 6 17 387 190, tab 5 size
tab "Agility", 6
list 19, 6 17 387 190, tab 6 size
tab "Crafting", 7
list 20, 6 17 387 190, tab 7 size
tab "Flectching", 8
list 21, 6 17 387 190, tab 8 size
tab "Experience", 9
list 22, 12 48 70 125, tab 9 size
list 23, 87 48 70 125, tab 9 size
list 24, 162 48 70 125, tab 9 size
list 25, 237 48 70 125, tab 9 size
list 26, 313 48 70 125, tab 9 size
tab "Skill Guides", 10
list 27, 6 28 105 170, tab 10 size
box "skills", 28, 115 26 278 181, tab 10
text "Click Guide to View", 29, 6 200 105 8, tab 10 center
button "Get Guides", 30, 8 199 100 8, tab 1
}
dialog mRSTK_error {
title "mRSTK :: Error"
size -1 -1 170 49
option dbu
icon $shortfn($scriptdirRuneScape.ico)
button "OK", 5, 58 40 35 8, ok
text "mRSTK has encountered an error when performing the following task", 1, 2 2 165 8
edit "", 2, 2 12 165 10, read center
text "The error returned was:", 3, 2 30 58 8
edit "", 4, 67 29 100 10, read
}
dialog mRSTK_maps {
title "mRSTK :: MapViewer"
size -1 -1 398 241
option dbu
icon $shortfn($scriptdirRuneScape.ico)
list 1, 0 3 76 161, sort size
box "Map", 2, 76 0 321 240
box "Map2", 3, 78 5 317 233
button "Look For New Maps", 4, 1 165 74 74, multi
}
dialog mRSTK_rs {
title "mRSTK :: RuneScape PlayWindow"
size -1 -1 392 327
option dbu
icon $shortfn($scriptdirRuneScape.ico)
box "RS", 1, -1 8 394 319
box "RS2", 3, 3 15 386 312
check "Keep RuneScape Window On Top Of Other Windows", 2, 119 0 140 10
}
dialog mRSTK_calc {
title "mRSTK :: Calc"
size -1 -1 102 82
option dbu
icon $shortfn($scriptdirRuneScape.ico)
button "=", 18, 82 69 20 12
edit "0",1, 1 4 100 10, readright
button "Backspace", 2, 1 15 30 12
button "CE", 3, 36 15 30 12
button "C", 4, 71 15 30 12
button "9", 5, 41 30 20 12
button "8", 6, 21 30 20 12
button "7", 7, 1 30 20 12
button "/", 8, 62 30 20 12
button "+", 9, 82 30 20 38, multi
button "4", 10, 1 43 20 12
button "5", 11, 21 43 20 12
button "6", 12, 41 43 20 12
button "*", 13, 62 43 20 12
button "1", 14, 1 56 20 12
button "2", 15, 21 56 20 12
button "3", 16, 41 56 20 12
button "-", 17, 62 56 20 12
button "M", 19, 62 69 20 12
button "K", 20, 41 69 20 12
button ".", 21, 21 69 20 12
button "0", 22, 1 69 20 12
}
dialog mRSTK_monster {
title "mRSTK Monster Database"
size -1 -1 346 242
option dbu
icon $shortfn($scriptdirRuneScape.ico)
box "", 1, 2 2 342 228
box "Picture", 2, 204 6 135 140
box "Location", 4, 204 147 135 30
box "Description", 5, 204 178 135 50
box "Possible Drops", 6, 16 147 175 81
text "Name:", 7, 45 10 20 8, right
text "Level:", 8, 45 24 20 8, right
text "Hits:", 9, 45 38 20 8, right
text "Members Only:", 10, 25 52 40 8, right
text "EXP:", 11, 50 66 15 8, right
text "Controlled EXP:", 12, 25 80 40 8, right
text "Targetted EXP:", 13, 25 94 40 8, right
text "Aggressive:", 14, 30 108 35 8, right
text "Will Flee:", 15, 40 122 25 8, right
text "Quest Monster:", 16, 25 137 40 8, right
text "", 17, 70 10 130 8
text "", 18, 70 24 130 8
text "", 19, 70 38 130 8
text "", 20, 70 52 130 8
text "", 21, 70 66 130 8
text "", 22, 70 80 130 8
text "", 23, 70 94 130 8
text "", 24, 70 108 130 8
text "", 25, 70 122 130 8
text "", 26, 70 137 130 8
box "monsterpic", 3, 206 11 130 132
edit "", 30, 18 154 170 71, read multi vsbar
edit "", 27, 206 154 131 21, read multi vsbar
edit "", 28, 206 185 130 40, read multi vsbar
button "Done", 29, 3 230 340 12, default ok
}
dialog mRSTK_sbr {
title "Trade Recorder "
size -1 -1 292 175
option dbu
icon $shortfn($scriptdirRuneScape.ico), 0
box "Selling", 1, 1 0 113 175
box "Buying", 2, 178 0 113 175
box "Current Date/Time", 3, 115 1 62 25
text "", 4, 116 8 60 8, center
text "", 5, 116 16 60 8, center
list 6, 3 8 108 115, size
list 7, 180 8 108 115, size
text "Selling", 8, 3 125 15 8
text "Date", 9, 3 135 12 8
edit "", 10, 20 123 90 10
text "Time", 11, 3 145 11 8
edit "", 12, 20 134 90 10
edit "", 13, 20 144 90 10
text "Selling", 14, 180 125 15 8
text "Date", 15, 180 135 12 8
text "Time", 16, 180 145 11 8
edit "", 17, 197 124 90 10
edit "", 18, 197 134 90 10
edit "", 19, 197 144 90 10
text "Nick", 20, 3 155 10 8
text "Chan", 21, 3 165 13 8
edit "", 22, 20 154 90 10
edit "", 23, 20 164 90 10
text "Nick", 24, 180 155 10 8
text "Chan", 25, 180 165 13 8
edit "", 26, 197 154 90 10
edit "", 27, 197 164 90 10
button "Done", 28, 127 161 37 12
button "Private Message User", 29, 116 33 60 12
button "Memo User", 30, 116 47 60 12
}
dialog mRSTK_settings {
title "mRSTK :: Settings"
size -1 -1 230 110
option dbu
icon $shortfn($scriptdirRuneScape.ico), 0
box "Settings", 1, 6 6 218 85
check "Automatically Identify", 3, 11 20 65 10
box "Chat Options", 4, 9 13 70 73
edit "", 5, 19 31 55 10, disable pass
check "Record trading", 6, 11 45 50 10
check "Record Sales", 8, 24 57 50 10, disable
check "Record buys", 9, 24 67 50 10, disable
box "Updates", 15, 146 13 75 73
check "Check for updates on...", 16, 152 20 66 10, disable
radio "mIRC Startup", 17, 164 30 55 10, disable group
radio "Server Connect", 18, 164 40 55 10, disable
radio "mRSTK Opening", 19, 164 50 55 10, disable
radio "Notify on Update", 2, 152 64 50 10, disable group
radio "Auto-get Updates", 20, 152 74 67 10, disable
button "Save && Exit", 21, 55 95 50 12
button "Cancel", 22, 120 95 50 12, cancel
}
dialog mRSTK_notepad {
title "mRSTK :: Notepad"
size -1 -1 235 210
option dbu
icon $shortfn($scriptdirRuneScape.ico)
edit "", 17, 3 3 230 205, multi return autovs
menu "&File", 1
menu "&Save", 2, 1
item "&mRSTK Save", 15, 2
item "&Normal Save", 16, 2
item "&Clear", 4, 1
item break, 5, 1
item "E&xit", 6, 1, ok
menu "&Document", 7
item "&Open Other Document", 8, 7
menu "&Recent Documents", 9, 7
item "&1: No File", 10, 9
item "&2: No File", 11, 9
item "&3: No File", 12, 9
item "&4: No File", 13, 9
item "&5: No File", 14, 9
}
on *:DIALOG:mRSTK_notepad:menu:4: { .did -r $dname 17 }
on *:DIALOG:mRSTK_monster:init:0: {
.did -a $dname 1 $replace(%mRSTK_monstername,$chr(95),$chr(32))
.did -a $dname 17 $replace(%mRSTK_monstername,$chr(95),$chr(32))
.did -a $dname 18 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Level)
.did -a $dname 19 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, HP)
.did -a $dname 20 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Members)
.did -a $dname 21 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, EXP)
.did -a $dname 22 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, CEXP)
.did -a $dname 23 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, TEXP)
.did -a $dname 24 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Agg)
.did -a $dname 25 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, WF)
.did -a $dname 26 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, QM)
.did -a $dname 30 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Loot)
.did -a $dname 27 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Location)
.did -a $dname 28 $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Description)
.set %mRSTK_monsterpic $dll($shortfn($scriptdirDLLs\nHTMLn_2.95.dll), find, monsterpic)
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) attach %mRSTK_monsterpic
.dll $shortfn($scriptdirDLLs\nHTMLn_2.95.dll) navigate $readini($shortfn($scriptdirData\Monsters.ini), %mRSTK_monstername, Img)
.did -f $dname 29
}
on *:DIALOG:mRSTK:dclick:139: {
if ($did($dname,139).seltext == $null) { halt }
.set %mRSTK_monstername $gettok($gettok($did($dname,139).seltext,6-,32),1,9)
.set %mRSTK_monstername $replace(%mRSTK_monstername,$chr(32),$chr(95))
.dialog -md mRSTK_monster mRSTK_monster
}
alias RW {
.did -r mRSTK_information 12
.sockclose RW
.sockopen RW runeweb.net 80
}
on *:SOCKOPEN:RW: {
if ($sockerr) {
.set %mRSTK_error_msg $sock($sockname).wsmsg
.set %mRSTK_error_area Opening connection to RuneWeb.net
.dialog -mdo mRSTK_error mRSTK_error
return
}
.sockwrite -n RW GET /index.php?page=rs2-quest HTTP/1.1
.sockwrite -n RW Host: runeweb.net
.sockwrite -n RW $crlf
}
alias QuestAdd {
if (!$1) { return }
if ($1 == <br />) { return }
.writeini -n $shortfn($scriptdirData\Quests.ini) $replace($nohtml($1),$chr(32),$chr(95)) Url $gettok($1,2,34)
.writeini -n $shortfn($scriptdirData\Quests.ini) $replace($nohtml($1),$chr(32),$chr(95)) Type %rw_type
if (!$readini($shortfn($scritpdirData\Quests.ini), $replace($nohtml($1),$chr(32),$chr(95)), Completed)) {
.writeini -n $shortfn($scriptdirData\Quests.ini) $replace($nohtml($1),$chr(32),$chr(95)) Completed false
}
return $nohtml($1)
}
on *:SOCKREAD:RW: {
if ($sockerr) {
.set %mRSTK_error_msg $sock($sockname).wsmsg
.set %mRSTK_error_area Reading from RuneWeb.net
.dialog -mdo mRSTK_error mRSTK_error
return
}
.sockread %RW
if (*Back to Top* iswm %RW) { .set %rw_read no }
if (%rw_read == yes) {
if (*Members-Only* iswm %RW) { .did -a mRSTK_information 12 ---Members-Only Quests--- | .set %rw_type p2p }
else { .did -a mRSTK_information 12 $QuestAdd(%RW) }
}
if (Freeplay Quests isin $nohtml(%RW)) { .did -a mRSTK_information 12 ---Freeplay Quests--- | .set %rw_type f2p | .set %rw_read yes }
}
on *:SOCKOPEN:mRSTK_stats: {
if ($sockerr) {
.set %mRSTK_error_msg $sock($sockname).wsmsg
.set %mRSTK_error_area Connecting to RuneScape HiScores
.dialog -mdo mRSTK_error mRSTK_error
return
}
.unset %RSSsskill
.sockwrite -n mRSTK_stats GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $replace($did(mRSTK,45),$chr(32),_) HTTP/1.1
.sockwrite -n mRSTK_stats Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:mRSTK_stats: {
if ($sockerr) {
.set %mRSTK_error_msg $sock($sockname).wsmsg
.set %mRSTK_error_area Reading from RuneScape HiScores
.dialog -mdo mRSTK_error mRSTK_error
return
}
.sockread %RSStats
if ($+(*,%RSStatsnick,*,not,*) iswm %RSStats) {
.set %mRSTK_error_msg Username not found
.set %mRSTK_error_area Reading from RuneScape HiScores
.dialog -mdo mRSTK_error mRSTK_error
.sockclose mRSTK_stats
halt
}
if (%RSSslvl && !%RSSsexp && %RSSsread == 3) { .set %RSSsexp $nohtml(%RSStats) }
if (%RSSsrank && !%RSSslvl && %RSSsread == 3) { .set %RSSslvl $nohtml(%RSStats) }
if (%RSSsskill && !%RSSsrank && %RSSsread == 3) { .set %RSSsrank $nohtml(%RSStats) }
if (%RSSsread == 2) { inc %RSSsread 1 }
if (%RSSsread == 1) { .set %RSSsskill $nohtml(%RSStats) | inc %RSSsread 1 }
if ($+(*,a href,*,%RSStatsnick,*) iswm %RSStats) { .set %RSSsread 1 }
if (</tr> == %RSStats && %RSSsskill) {
if (!$dialog(mRSTK)) { halt }
.writeini -n $shortfn($scriptdirData\Div.ini) User %RSSsskill $+(%RSSslvl,$chr(124),%RSSsexp,$chr(124),%RSSsrank)
.unset %RSSs*
}
}
on *:SOCKCLOSE:mRSTK_stats: {
.mRSTK_sc_exe
}
alias mRSTK_sc_exe {
if (!$dialog(mRSTK)) { halt }
if (!$readini($shortfn($scriptdirData\Div.ini),User,$did(mRSTK,83).seltext)) { halt }
else { var %mRSTK_fs = $readini($shortfn($scriptdirData\Div.ini),User,$did(mRSTK,83).seltext) }
.did -ra mRSTK 70 $gettok(%mRSTK_fs,2,124)
.did -ra mRSTK 49 $gettok(%mRSTK_fs,1,124)
.did -ra mRSTK 50 $gettok(%mRSTK_fs,2,124)
.did -ra mRSTK 51 $gettok(%mRSTK_fs,3,124)
.did -ra mRSTK 101 $gettok(%mRSTK_fs,1,124)
.did -ra mRSTK 39 $gettok(%mRSTK_fs,2,124)
if (!$did(mRSTK,72)) || ($exp($did(mRSTK,72)) <= $remove($did(mRSTK,50),$chr(44))) { .did -ra mRSTK 72 $calc($gettok(%mRSTK_fs,1,124) +1) }
.did -ra mRSTK 102 $did(mRSTK,72)
.did -ra mRSTK 40 $bytes($exp($did(mRSTK,72)),b)
.did -ra mRSTK 103 $calc($did(mRSTK,102) - $did(mRSTK,49)) Level(s)
.did -ra mRSTK 41 $bytes($calc($iif($remove($did(mRSTK,72),$chr(44)) <= 99,$exp($did(mRSTK,72)),$remove($did(mRSTK,72),$chr(44))) - $iif($remove($did(mRSTK,70),$chr(44)) <= 99,$exp($did(mRSTK,70)),$remove($did(mRSTK,70),$chr(44)))),b)
var %a = 1
.did -r mRSTK 74
if ($did(mRSTK,83).seltext == Ranged || $did(mRSTK,83).seltext == Attack || $did(mRSTK,83).seltext == Defence || $did(mRSTK,83).seltext == Strength) {
.did -i mRSTK 74 1 headerdims 175 75 100 100 75
.did -i mRSTK 74 1 headertext NPC $chr(9) Level $chr(9) Hits $chr(9) Base Exp $chr(9) # Required
while (%a <= $ini($shortfn($scriptdirData\Monsters.ini),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
did -a mRSTK 74 $replace($ini($shortfn($scriptdirData\Monsters.ini),%a),_,$chr(32)) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini),$ini($shortfn($scriptdirData\Monsters.ini),%a),Level) $chr(9) $readini($shortfn($scriptdirData\Monsters.ini),$ini($shortfn($scriptdirData\Monsters.ini),%a),HP) $&
$chr(9) $readini($shortfn($scriptdirData\Monsters.ini),$ini($shortfn($scriptdirData\Monsters.ini),%a),EXP) $chr(9) $bytes($ceil($calc($remove($did(mRSTK, 41),$chr(44)) / $readini($shortfn($scriptdirData\Monsters.ini),$ini($shortfn($scriptdirData\Monsters.ini),%a),EXP))),b)
.inc %a
}
}
else {
.did -i mRSTK 74 1 headerdims 175 75 100 100
.did -i mRSTK 74 1 headertext Item $chr(9) Level $chr(9) Exp Gained $chr(9) # required
while (%a <= $ini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),0)) {
.dll $shortfn($scriptdirDLLs\WhileFix.dll) WhileFix .
.did -a mRSTK 74 $replace($ini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),%a),_,$chr(32)) $chr(9) $readini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),$ini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),%a),Level) $chr(9) $&
$readini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),$ini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),%a),Exp) $chr(9) $bytes($ceil($calc($remove($did(mRSTK,41),$chr(44)) / $readini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),$ini($shortfn($+($scriptdirData\Skills\,$did(mRSTK,83).seltext,.ini)),%a),Exp))),b)
inc %a
}
}
}
on *:DIALOG:mRSTK:sclick:75: {
if ($did(45)) {
.sockclose mRSTK_stats
.sockopen mRSTK_stats hiscore.runescape.com 80
}
else {
if (!$did($dname,70) || (!$did($dname,45) && !$did($dname,72))) { halt }
.did -ra $dname 101 $iif($did($dname,70) >= 99,$lvl($ifmatch),$ifmatch)
.did -ra $dname 39 $bytes($iif($did($dname,70) >= 99,$ifmatch,$exp($ifmatch)),b)
.did -ra $dname 102 $iif($did($dname,72) >= 99,$lvl($ifmatch),$ifmatch)
.did -ra $dname 40 $bytes($iif($did($dname,72) >= 99,$ifmatch,$exp($ifmatch)),b)
.did -ra $dname 103 $calc($did($dname,102) - $did($dname,101))
.did -ra $dname 41 $bytes($calc($remove($did($dname,40),$chr(44)) - $remove($did($dname,39),$chr(44))),b)
.did -r $dname 74
var %a = 1
while (%a <= $ini($shortfn($+($scriptdir,Data\Skills\,$did($dname,83).seltext,.ini)),0)) {
var %sc = $shortfn($+($scriptdir,Data\Skills\,$did($dname,83).seltext,.ini))
var %sc2 = $ini(%sc,%a)
.did -a $dname 74 $replace(%sc2,_,$chr(32)) $chr(9) $readini(%sc,%sc2,Level) $chr(9) $readini(%sc,%sc2,Exp) $chr(9) $bytes($calc($remove($did($dname,41),$chr(44)) / $readini(%sc,%sc2,Exp)),b)
inc %a
}
}
}
on *:TEXT:*:#: {
if ((Sell* iswm $1- || WTS* iswm $1- || sale* iswm $1-) && $mRSTKd(sale) == $true && $mRSTKd(record) == $true) { .hadd -m mRSTK_sale $tick $+($nick,$chr(124),$chan,$chr(124),$date,$chr(124),$time,$chr(124),$1-) }
if ((buy* iswm $1- || WTB* iswm $1-) && $mRSTKd(buy) == $true && $mRSTKd(record) == $true) { .hadd -m mRSTK_buy $tick $+($nick,$chr(124),$chan,$chr(124),$date,$chr(124),$time,$chr(124),$1-) }
}
alias mRSTKd {
return $iif($hget(mRSTK.data,$1),$ifmatch,$false)
}