rendered paste bodymenu * {
-
Raichu's Multi-Purpose Toolkit: dialog -md tab tab
-
}
dialog tab {
title "Raichu's Multi-Purpose Toolkit"
size -1 -1 905 430
option pixel
}
on *:dialog:*:*:*: {
if ($dname == tab) {
if ($devent == Close) {
unset %klink.*
unset %ggglink.*
unset %ytlink.*
unset %dcxchannel
}
if ($devent == init) {
noop $dcx( Mark, $dname tabb )
xdialog -b tab +tyzsn
xdialog -c tab 2 button 425 390 100 20 tabstop
xdid -t tab 2 Finish
xdialog -c tab 1 tab 0 0 905 430 multiline
xdid -w tab 1 + 0 $scriptdirclan.ico
xdid -w tab 1 + 0 $scriptdirprice.ico
xdid -w tab 1 + 0 $scriptdirrunescape.ico
xdid -w tab 1 + 0 $scriptdirtipit.ico
xdid -w tab 1 + 0 $scriptdirgoogle.ico
xdid -w tab 1 + 0 $scriptdirfreetranslation.ico
xdid -w tab 1 + 0 $scriptdiryoutube.ico
xdid -w tab 1 + 0 $scriptdirmIRC.ico
;Stat Tab
xdid -a tab 1 0 3 Stats $chr(9) 48 panel 10 10 100 25
xdid -x tab 48 +f
xdid -c tab 48 49 edit 10 10 100 20
xdid -E tab 49 Runescape Name
xdid -q tab 49 12
xdid -c tab 48 50 button 10 35 100 20 tabstop
xdid -t tab 50 Search
xdid -c tab 50 +hs $rgb(255,255,0)
xdid -c tab 48 51 listview 10 60 604 200 report grid fullrow
xdid -t tab 51 + 0 0 $chr(9) +c 0 150 Skill $chr(9) +c 0 150 Rank $chr(9) +c 0 150 Level $chr(9) +c 0 150 Xp
;Skill Tab
xdid -a tab 1 0 3 Skill $chr(9) 52 panel 10 10 100 25
xdid -x tab 52 +f
xdid -c tab 52 53 edit 10 10 100 20
xdid -E tab 53 Runescape Name
xdid -q tab 53 12
xdid -c tab 52 54 button 10 35 100 20 tabstop
xdid -t tab 54 Search
xdid -c tab 54 +hs $rgb(0,255,255)
xdid -c tab 52 55 text 115 10 100 20 center
xdid -t tab 55 Skill
xdid -c tab 52 56 comboex 115 35 100 500 dropdown
var %dcxskillll 1
while (%dcxskillll <= 23) {
xdid -a tab 56 0 0 0 0 0 $getskill(%dcxskillll)
inc %dcxskillll
}
xdid -c tab 56 1
xdid -c tab 52 57 text 220 10 100 20 center
xdid -t tab 57 Target Level
xdid -c tab 52 58 edit 220 35 100 20 number center
xdid -q tab 58 2
xdid -c tab 52 59 text 10 70 100 20
xdid -t tab 59 Level:
xdid -c tab 52 60 text 115 70 100 20
xdid -c tab 52 61 text 10 95 100 20
xdid -t tab 61 Rank:
xdid -c tab 52 62 text 115 95 100 20
xdid -c tab 52 63 text 10 120 100 20
xdid -t tab 63 Exp:
xdid -c tab 52 64 text 115 120 100 20
xdid -c tab 52 65 text 10 150 100 20
xdid -t tab 65 Target Level:
xdid -c tab 52 66 text 115 150 100 20
xdid -c tab 52 67 text 10 175 100 20
xdid -t tab 67 Exp to Target Level:
xdid -c tab 52 68 text 115 175 100 20
xdid -c tab 52 69 listview 220 70 424 200 grid report fullrow
xdid -t tab 69 0 + 0 0 $chr(9) +c 0 140 Item $chr(9) +c 0 140 Exp Gained $chr(9) +c 0 140 Required
;Combat Tab
xdid -a tab 1 0 3 Combat $chr(9) 70 panel 10 10 100 25
xdid -x tab 70 +f
xdid -c tab 70 71 edit 10 10 100 20
xdid -E tab 71 Runescape Name
xdid -q tab 71 12
xdid -c tab 70 72 button 10 35 100 20 tabstop
xdid -t tab 72 Search
xdid -c tab 72 +hs $rgb(255,0,255)
xdid -c tab 70 73 listview 130 10 634 50 report grid fullrow
xdid -t tab 73 0 + 0 0 $chr(9) +c 0 90 Attack $chr(9) +c 0 90 Defence $chr(9) +c 0 90 Strength $chr(9) +c 0 90 Hitpoints $chr(9) +c 0 90 Ranged $chr(9) +c 0 90 Prayer $chr(9) +c 0 90 Magic
xdid -c tab 70 74 text 10 90 115 20
xdid -t tab 74 Overall Combat Level:
xdid -c tab 70 75 text 130 90 115 20
xdid -c tab 70 76 text 10 115 115 20
xdid -t tab 76 Melee Combat Level:
xdid -c tab 70 77 text 130 115 115 20
xdid -c tab 70 78 text 10 140 115 20
xdid -t tab 78 Range Combat Level:
xdid -c tab 70 79 text 130 140 115 20
xdid -c tab 70 80 text 10 165 115 20
xdid -t tab 80 Mage Combat Level:
xdid -c tab 70 81 text 130 165 115 20
xdid -c tab 70 82 text 300 90 115 20
xdid -t tab 82 Combat Levels to up:
xdid -c tab 70 83 text 300 115 50 50
xdid -c tab 70 84 listview 80 190 684 95 grid fullrow report
xdid -t tab 84 0 + 0 0 $chr(9) +c 0 120 Pest Control Points $chr(9) +c 0 80 Attack $chr(9) +c 0 80 Defence $chr(9) +c 0 80 Strength $chr(9) +c 0 80 Hitpoints $chr(9) +c 0 80 Ranged $chr(9) +c 0 80 Prayer $chr(9) +c 0 80 Magic
;Compare Tab
xdid -a tab 1 0 3 Compare $chr(9) 85 panel 10 10 100 20
xdid -x tab 85 +f
xdid -c tab 85 86 edit 10 10 100 20
xdid -E tab 86 Runescape Name
xdid -q tab 86 12
xdid -c tab 85 87 edit 10 35 100 20
xdid -E tab 87 Runescape Name
xdid -q tab 87 12
xdid -c tab 85 88 button 10 60 100 20 tabstop
xdid -t tab 88 Search
xdid -c tab 88 +hs $rgb(255,125,0)
xdid -c tab 85 89 radio 115 10 100 20
xdid -c tab 89
xdid -t tab 89 Level
xdid -c tab 85 90 radio 115 35 100 20
xdid -t tab 90 Rank
xdid -c tab 85 91 radio 115 60 100 20
xdid -t tab 91 Exp
xdid -c tab 85 92 listview 10 85 604 200 report grid fullrow
xdid -t tab 92 0 + 0 0 $chr(9) +c 0 150 Skill $chr(9) +c 0 150 User 1 $chr(9) +c 0 150 User 2 $chr(9) +c 0 150 Difference
;RS Forum Tab
xdid -a tab 1 0 3 Forums $chr(9) 93 panel 10 10 100 25
xdid -x tab 93 +f
xdid -c tab 93 94 edit 10 10 100 20 autohs
xdid -E tab 94 Thread Name
xdid -c tab 93 95 button 10 35 100 20 tabstop
xdid -t tab 95 Search
xdid -c tab 95 +hs $rgb(255,0,125)
xdid -c tab 93 96 text 115 10 175 20 center
xdid -t tab 96 In Forum:
xdid -c tab 93 97 comboex 115 35 175 500 dropdown
xdid -a tab 97 0 0 0 0 0 All
xdid -a tab 97 0 0 0 0 0 News and Announcements
xdid -a tab 97 0 0 0 0 0 General
xdid -a tab 97 0 0 0 0 0 Recent Updates
xdid -a tab 97 0 0 0 0 0 Future Updates
xdid -a tab 97 0 0 0 0 0 Item Discussion
xdid -a tab 97 0 0 0 0 0 Locations
xdid -a tab 97 0 0 0 0 0 Monsters
xdid -a tab 97 0 0 0 0 0 Quests
xdid -a tab 97 0 0 0 0 0 Clue Scrolls
xdid -a tab 97 0 0 0 0 0 Skills
xdid -a tab 97 0 0 0 0 0 Off Topic
xdid -a tab 97 0 0 0 0 0 Suggestoions
xdid -a tab 97 0 0 0 0 0 Tech Support
xdid -a tab 97 0 0 0 0 0 Compliments
xdid -a tab 97 0 0 0 0 0 Rants
xdid -a tab 97 0 0 0 0 0 Forum Feedback
xdid -a tab 97 0 0 0 0 0 Website Feedback
xdid -a tab 97 0 0 0 0 0 Crafting
xdid -a tab 97 0 0 0 0 0 Fletching
xdid -a tab 97 0 0 0 0 0 Farming
xdid -a tab 97 0 0 0 0 0 Food
xdid -a tab 97 0 0 0 0 0 Herblore
xdid -a tab 97 0 0 0 0 0 Ores and Bars
xdid -a tab 97 0 0 0 0 0 Construction
xdid -a tab 97 0 0 0 0 0 Discontinued Items
xdid -a tab 97 0 0 0 0 0 Runes
xdid -a tab 97 0 0 0 0 0 Weapons
xdid -a tab 97 0 0 0 0 0 Armour
xdid -a tab 97 0 0 0 0 0 Treasure Trail Items
xdid -a tab 97 0 0 0 0 0 Miscellaneous
xdid -a tab 97 0 0 0 0 0 Events
xdid -a tab 97 0 0 0 0 0 Forum Games
xdid -a tab 97 0 0 0 0 0 Clans Recruitment
xdid -a tab 97 0 0 0 0 0 Clans Discussion
xdid -a tab 97 0 0 0 0 0 Duelling
xdid -a tab 97 0 0 0 0 0 Roleplaying
xdid -a tab 97 0 0 0 0 0 PK-Ing
xdid -a tab 97 0 0 0 0 0 Goals and Achievement
xdid -a tab 97 0 0 0 0 0 Stories
xdid -a tab 97 0 0 0 0 0 RSC General
xdid -a tab 97 0 0 0 0 0 RSC Marketplace
xdid -a tab 97 0 0 0 0 0 RSC PK-Ing
xdid -a tab 97 0 0 0 0 0 RSC Clans
xdid -a tab 97 0 0 0 0 0 RSC Rants
xdid -c tab 97 1
xdid -c tab 93 98 listview 10 60 604 200 report grid fullrow
xdid -t tab 98 0 + 0 0 $chr(9) +c 0 200 Title $chr(9) +c 0 200 Last Post at $chr(9) +c 0 200 In Forum
;Kbase Tab
xdid -a tab 1 0 3 Knowledge Base $chr(9) 99 panel 10 10 100 20
xdid -x tab 99 +f
xdid -c tab 99 100 edit 10 10 100 20 autohs
xdid -E tab 100 Helpfile Name
xdid -c tab 99 101 button 10 35 100 20 tabstop
xdid -t tab 101 Search
xdid -c tab 101 +hs $rgb(125,255,0)
xdid -c tab 99 102 text 115 10 175 20 center
xdid -t tab 102 Category
xdid -c tab 99 103 comboex 115 35 175 500 dropdown
xdid -a tab 103 0 0 0 0 0 All
xdid -a tab 103 0 0 0 0 0 Manual
xdid -a tab 103 0 0 0 0 0 Customer Support
xdid -a tab 103 0 0 0 0 0 Rules of Conduct
xdid -a tab 103 0 0 0 0 0 News
xdid -a tab 103 0 0 0 0 0 Safety and Security Guidelines
xdid -c tab 103 1
xdid -c tab 99 104 check 295 10 100 20
xdid -t tab 104 Title
xdid -c tab 104
xdid -c tab 99 105 check 295 35 100 20
xdid -t tab 105 Keywords
xdid -c tab 105
xdid -c tab 99 106 check 400 10 100 20
xdid -t tab 106 Description
xdid -c tab 106
xdid -c tab 99 107 check 400 35 100 20
xdid -t tab 107 Body
xdid -c tab 107
xdid -c tab 99 108 radio 505 10 100 20
xdid -t tab 108 All
xdid -c tab 108
xdid -c tab 99 109 radio 505 35 100 20
xdid -t tab 109 Any
xdid -c tab 99 110 text 10 70 350 20
xdid -c tab 99 111 text 365 70 350 20
xdid -c tab 99 112 text 10 180 350 20
xdid -c tab 99 113 text 365 180 350 20
xdid -c tab 99 114 text 10 95 350 50
xdid -c tab 99 115 text 365 95 350 50
xdid -c tab 99 116 text 10 205 350 50
xdid -c tab 99 117 text 365 205 350 50
xdid -c tab 99 118 link 10 150 350 20
xdid -c tab 99 119 link 365 150 350 20
xdid -c tab 99 120 link 10 260 350 20
xdid -c tab 99 121 link 365 260 350 20
;RsWorld Tab
xdid -a tab 1 0 3 World List $chr(9) 122 panel 10 10 100 25
xdid -x tab 122 +f
xdid -c tab 122 123 button 10 35 100 20 tabstop
xdid -t tab 123 Refresh
xdid -c tab 123 +hs $rgb(0,255,125)
xdid -c tab 122 124 listview 135 10 604 250 report grid fullrow
xdid -t tab 124 0 + 0 0 $chr(9) +c 0 100 World $chr(9) +c 0 100 Players $chr(9) +c 0 100 Location $chr(9) +c 0 100 Type $chr(9) +c 0 200 Link
;Item Tab
xdid -a tab 1 0 4 Item $chr(9) 125 panel 10 10 100 25
xdid -x tab 125 +f
xdid -c tab 125 126 edit 10 10 100 20 autohs
xdid -E tab 126 Item name
xdid -c tab 125 127 button 10 35 100 20 tabstop
xdid -t tab 127 Search
xdid -c tab 127 +hs $rgb(125,0,255)
xdid -c tab 125 128 text 115 10 100 20 center
xdid -t tab 128 Available to
xdid -c tab 125 129 comboex 115 35 100 500 dropdown
xdid -a tab 129 0 0 0 0 0 All Players
xdid -a tab 129 0 0 0 0 0 Free Only
xdid -a tab 129 0 0 0 0 0 Members Only
xdid -c tab 129 1
xdid -c tab 125 130 text 220 10 100 20 center
xdid -t tab 130 Category
xdid -c tab 125 131 comboex 220 35 100 500 dropdown
xdid -a tab 131 0 0 0 0 0 All
xdid -a tab 131 0 0 0 0 0 Ammunition
xdid -a tab 131 0 0 0 0 0 Armour
xdid -a tab 131 0 0 0 0 0 Book
xdid -a tab 131 0 0 0 0 0 Clothing
xdid -a tab 131 0 0 0 0 0 Currency
xdid -a tab 131 0 0 0 0 0 Discontinued Item
xdid -a tab 131 0 0 0 0 0 Drinks
xdid -a tab 131 0 0 0 0 0 Food
xdid -a tab 131 0 0 0 0 0 Jewellery
xdid -a tab 131 0 0 0 0 0 Keys
xdid -a tab 131 0 0 0 0 0 Other
xdid -a tab 131 0 0 0 0 0 Quest
xdid -a tab 131 0 0 0 0 0 Raw Materials
xdid -a tab 131 0 0 0 0 0 Runes
xdid -a tab 131 0 0 0 0 0 Tools
xdid -a tab 131 0 0 0 0 0 Useless
xdid -a tab 131 0 0 0 0 0 Weapon
xdid -c tab 131 1
xdid -c tab 125 132 listview 10 70 129 150 grid report fullrow
xdid -t tab 132 0 + 0 0 $chr(9) +c 0 125 Item name
xdid -c tab 125 133 text 145 70 100 20
xdid -c tab 125 134 text 250 70 100 20
xdid -c tab 125 135 text 145 95 100 20
xdid -c tab 125 136 text 250 95 100 20
xdid -c tab 125 137 text 145 120 100 20
xdid -c tab 125 138 text 250 120 100 20
xdid -c tab 125 139 text 145 145 100 20
xdid -c tab 125 140 text 250 145 100 20
xdid -c tab 125 141 text 145 170 100 20
xdid -c tab 125 142 text 250 170 100 20
xdid -c tab 125 143 text 145 195 100 20
xdid -c tab 125 144 text 250 195 100 20
xdid -c tab 125 145 text 145 220 100 20
xdid -c tab 125 146 text 250 220 250 40
xdid -c tab 125 147 text 145 265 100 20
xdid -c tab 125 148 text 250 265 250 70
xdid -c tab 125 149 text 505 95 125 20
xdid -c tab 125 150 text 635 95 125 20
xdid -c tab 125 151 text 505 120 125 20
xdid -c tab 125 152 text 635 120 125 20
xdid -c tab 125 153 text 505 145 125 20
xdid -c tab 125 154 text 635 145 125 20
xdid -c tab 125 155 text 505 170 125 20
xdid -c tab 125 156 text 635 170 125 20
xdid -c tab 125 157 text 505 195 125 20
xdid -c tab 125 158 text 635 195 125 20
xdid -c tab 125 159 text 505 220 125 60
xdid -c tab 125 160 text 635 220 250 20
xdid -c tab 125 161 text 505 265 125 20
xdid -c tab 125 162 text 635 265 250 70
;Monster Tab
xdid -a tab 1 0 4 Monster $chr(9) 163 panel 10 10 100 25
xdid -x tab 163 +f
xdid -c tab 163 164 edit 10 10 100 20 autohs
xdid -E tab 164 Monster Name
xdid -c tab 163 165 button 10 35 100 20 tabstop
xdid -t tab 165 Search
xdid -c tab 165 +hs $rgb(0,125,255)
xdid -c tab 163 166 text 115 10 100 20 center
xdid -t tab 166 Level
xdid -c tab 163 167 comboex 115 35 100 500 dropdown
xdid -a tab 167 0 0 0 0 0 All
xdid -a tab 167 0 0 0 0 0 0-30
xdid -a tab 167 0 0 0 0 0 30-60
xdid -a tab 167 0 0 0 0 0 60-90
xdid -a tab 167 0 0 0 0 0 90-120
xdid -a tab 167 0 0 0 0 0 120+
xdid -c tab 167 1
xdid -c tab 163 168 text 220 10 100 20 center
xdid -t tab 168 Race
xdid -c tab 163 169 comboex 220 35 100 500 dropdown
xdid -a tab 169 0 0 0 0 0 All
xdid -a tab 169 0 0 0 0 0 Animal
xdid -a tab 169 0 0 0 0 0 Demon
xdid -a tab 169 0 0 0 0 0 Dragon
xdid -a tab 169 0 0 0 0 0 Dwarf
xdid -a tab 169 0 0 0 0 0 Undead
xdid -a tab 169 0 0 0 0 0 Giant
xdid -a tab 169 0 0 0 0 0 Goblin
xdid -a tab 169 0 0 0 0 0 Elemental
xdid -a tab 169 0 0 0 0 0 Human
xdid -a tab 169 0 0 0 0 0 Arachnid
xdid -a tab 169 0 0 0 0 0 Plant
xdid -a tab 169 0 0 0 0 0 Animated
xdid -a tab 169 0 0 0 0 0 Gnome
xdid -a tab 169 0 0 0 0 0 Elven
xdid -a tab 169 0 0 0 0 0 Troll
xdid -a tab 169 0 0 0 0 0 Beetle
xdid -a tab 169 0 0 0 0 0 Ogre
xdid -a tab 169 0 0 0 0 0 Insect
xdid -a tab 169 0 0 0 0 0 TzHaar
xdid -c tab 169 1
xdid -c tab 163 170 listview 10 70 154 200 grid fullrow report
xdid -t tab 170 + 0 0 $chr(9) +c 0 150 Name
xdid -c tab 163 171 text 170 70 100 20
xdid -c tab 163 172 text 170 95 100 20
xdid -c tab 163 173 text 170 120 100 20
xdid -c tab 163 174 text 170 145 100 20
xdid -c tab 163 175 text 170 170 100 20
xdid -c tab 163 176 text 275 70 150 20
xdid -c tab 163 177 text 275 95 150 20
xdid -c tab 163 178 text 275 120 150 20
xdid -c tab 163 179 text 275 145 150 20
xdid -c tab 163 180 text 275 170 150 20
xdid -c tab 163 181 text 430 70 100 20
xdid -c tab 163 182 text 430 95 100 20
xdid -c tab 163 183 text 430 120 100 20
xdid -c tab 163 184 text 430 145 100 20
xdid -c tab 163 185 text 430 170 100 20
xdid -c tab 163 186 text 535 70 100 20
xdid -c tab 163 187 text 535 95 100 20
xdid -c tab 163 188 text 535 120 100 20
xdid -c tab 163 189 text 535 145 100 20
xdid -c tab 163 190 text 535 170 100 20
xdid -t tab 171 Monster Name:
xdid -t tab 172 Race:
xdid -t tab 173 Level:
xdid -t tab 174 Hits:
xdid -t tab 175 Ratio:
xdid -t tab 181 Aggressive:
xdid -t tab 182 Retreats:
xdid -t tab 183 Quest:
xdid -t tab 184 Members:
xdid -t tab 185 Poisonous:
xdid -c tab 163 191 listview 170 200 404 125 fullrow grid report
xdid -t tab 191 + 0 0 $chr(9) +c 0 400 Location
xdid -c tab 163 192 listview 650 70 204 250 grid fullrow report
xdid -t tab 192 + 0 0 $chr(9) +c 0 200 Droplist
;Clan Member Tab
xdid -a tab 1 0 1 Clan Member $chr(9) 12 panel 10 10 100 25
xdid -x tab 12 +f
xdid -c tab 12 13 edit 10 10 100 20
xdid -E tab 13 Runescape Name
xdid -q tab 13 12
xdid -c tab 12 14 button 10 35 100 20 tabstop
xdid -c tab 14 +hs $rgb(0,255,0)
xdid -t tab 14 Search
xdid -c tab 12 15 comboex 115 35 100 100 dropdown
xdid -a tab 15 0 0 0 0 0 All
xdid -a tab 15 0 0 0 0 0 Clans
xdid -a tab 15 0 0 0 0 0 Non-Clans
xdid -c tab 15 1
xdid -c tab 12 16 text 115 10 100 20 center
xdid -t tab 16 Search in
xdid -c tab 12 17 radio 220 10 100 20
xdid -t tab 17 Exact
xdid -c tab 17
xdid -c tab 12 18 radio 220 35 100 20
xdid -t tab 18 Partial
xdid -c tab 12 19 listview 10 60 754 200 grid report fullrow
xdid -t tab 19 + 0 0 $chr(9) +c 0 250 Clanname $chr(9) +c 0 250 Username $chr(9) +c 0 250 Rank
;Memberlist Tab
xdid -a tab 1 0 1 Memberlist $chr(9) 34 panel 110 10 100 25
xdid -x tab 34 +f
xdid -c tab 34 35 edit 10 10 100 20 tooptip autohs
xdid -E tab 35 Clan Name
xdid -c tab 34 36 button 10 35 100 20 tabstop
xdid -t tab 36 Search
xdid -c tab 36 +hs $rgb(255,0,0)
xdid -c tab 34 37 text 115 10 175 20 center
xdid -t tab 37 Memberlist Category
xdid -c tab 34 38 comboex 115 35 175 500 dropdown
xdid -a tab 38 0 0 0 0 0 Any
xdid -a tab 38 0 0 0 0 0 Official Clan List
xdid -a tab 38 0 0 0 0 0 All Non-Clans
xdid -a tab 38 0 0 0 0 0 Future Applicant List
xdid -a tab 38 0 0 0 0 0 Pest Control Group
xdid -a tab 38 0 0 0 0 0 Castle Wars Group
xdid -a tab 38 0 0 0 0 0 Country Listing
xdid -a tab 38 0 0 0 0 0 Website Staff / Members
xdid -a tab 38 0 0 0 0 0 Miscellaneous
xdid -c tab 38 1
xdid -c tab 34 39 text 295 10 100 20 center
xdid -t tab 39 F2P or P2P based
xdid -c tab 34 40 comboex 295 35 100 500 dropdown
xdid -a tab 40 0 0 0 0 0 Any
xdid -a tab 40 0 0 0 0 0 F2P Based
xdid -a tab 40 0 0 0 0 0 P2P Based
xdid -a tab 40 0 0 0 0 0 F2P & P2P Based
xdid -c tab 40 1
xdid -c tab 34 41 text 400 10 100 20 center
xdid -t tab 41 Timebase
xdid -c tab 34 42 comboex 400 35 100 500 dropdown
xdid -a tab 42 0 0 0 0 0 Any
xdid -a tab 42 0 0 0 0 0 America
xdid -a tab 42 0 0 0 0 0 Europe
xdid -a tab 42 0 0 0 0 0 Asia-Pacific
xdid -c tab 42 1
xdid -c tab 34 43 text 505 10 100 20 center
xdid -t tab 43 Cape Colour
xdid -c tab 34 44 comboex 505 35 100 500 dropdown
xdid -a tab 44 0 0 0 0 0 Any
xdid -a tab 44 0 0 0 0 0 Black
xdid -a tab 44 0 0 0 0 0 Blue
xdid -a tab 44 0 0 0 0 0 Green
xdid -a tab 44 0 0 0 0 0 Orange
xdid -a tab 44 0 0 0 0 0 Purple
xdid -a tab 44 0 0 0 0 0 Red
xdid -a tab 44 0 0 0 0 0 Yellow
xdid -c tab 44 1
xdid -c tab 34 45 text 610 10 100 20 center
xdid -t tab 45 Home World
xdid -c tab 34 46 edit 610 35 100 20 center number
xdid -q tab 46 3
xdid -c tab 34 47 listview 10 60 704 200 grid report fullrow
xdid -t tab 47 + 0 0 $chr(9) +c 0 220 Name $chr(9) +c 0 80 Members $chr(9) +c 0 80 Combat $chr(9) +c 0 80 Hp $chr(9) +c 0 80 Magic $chr(9) +c 0 80 Ranged $chr(9) +c 0 80 Overall
;Price Tab
xdid -a tab 1 0 2 Price $chr(9) 20 panel 110 10 100 25
xdid -x tab 20 +f
xdid -c tab 20 21 edit 10 10 100 20 autohs
xdid -E tab 21 Item Name
xdid -c tab 20 22 button 10 35 100 20 tabstop
xdid -t tab 22 Search
xdid -c tab 22 +hs $rgb(0,0,255)
xdid -c tab 20 23 text 115 10 175 20 center
xdid -t tab 23 Search Area
xdid -c tab 20 24 comboex 115 35 175 500 dropdown
xdid -a tab 24 0 0 0 0 0 All Categories
xdid -a tab 24 0 0 0 0 0 Unstable & Popular Items
xdid -a tab 24 0 0 0 0 0 Armour & Weapons
xdid -a tab 24 0 0 0 0 0 Magic, Runecraft & Prayer
xdid -a tab 24 0 0 0 0 0 Archery Equipment
xdid -a tab 24 0 0 0 0 0 Mining, Smithing and & Crafting
xdid -a tab 24 0 0 0 0 0 Herblore, Hunter & Farming
xdid -a tab 24 0 0 0 0 0 Cooking, Food & Apparel
xdid -a tab 24 0 0 0 0 0 Construction & Flecthing
xdid -a tab 24 0 0 0 0 0 Miscellaneous
xdid -c tab 24 1
xdid -c tab 20 25 text 295 10 100 20 center
xdid -t tab 25 Minimum Price
xdid -c tab 20 26 edit 295 35 100 20 autohs number center
xdid -c tab 20 27 text 400 10 100 20 center
xdid -t tab 27 Maximum Price
xdid -c tab 20 28 edit 400 35 100 20 autohs number center
xdid -c tab 20 29 text 505 10 100 20 center
xdid -t tab 29 Type
xdid -c tab 20 30 comboex 505 35 100 100 dropdown
xdid -a tab 30 0 0 0 0 0 All Items
xdid -a tab 30 0 0 0 0 0 Only Free Items
xdid -c tab 30 1
xdid -c tab 20 31 listview 10 60 764 200 grid report fullrow
xdid -t tab 31 + 0 0 $chr(9) +c 0 190 Name $chr(9) +c 0 190 Price Per $chr(9) +c 0 190 Category $chr(9) +c 0 190 Total
xdid -c tab 20 32 text 610 10 100 20 center
xdid -t tab 32 Ammount
xdid -c tab 20 33 edit 610 35 100 20 autohs number center
;Google Search Tab
xdid -a tab 1 0 5 Google Search $chr(9) 193 panel 110 10 100 25
xdid -x tab 193 +f
xdid -c tab 193 194 edit 10 10 100 20 autohs
xdid -E tab 194 Thread Name
xdid -c tab 193 195 button 10 35 100 20 tabstop
xdid -t tab 195 Search
xdid -c tab 195 +hs $rgb(125,125,255)
xdid -c tab 193 196 text 10 70 400 20
xdid -c tab 193 197 text 420 70 400 20
xdid -c tab 193 198 text 10 195 400 20
xdid -c tab 193 199 text 420 195 400 20
xdid -c tab 193 200 text 10 95 400 50
xdid -c tab 193 201 text 420 95 400 50
xdid -c tab 193 202 text 10 220 400 50
xdid -c tab 193 203 text 420 220 400 50
xdid -c tab 193 204 link 10 150 400 20
xdid -c tab 193 205 link 420 150 400 20
xdid -c tab 193 206 link 10 275 400 20
xdid -c tab 193 207 link 420 275 400 20
;Translate Tab
xdid -a tab 1 0 6 Translator $chr(9) 208 panel 100 10 100 20
xdid -x tab 208 +f
xdid -c tab 208 209 edit 10 70 350 200 multi vsbar
xdid -c tab 208 210 button 385 70 115 20 tabstop
xdid -t tab 210 Translate
xdid -c tab 210 +hs $rgb(125,125,125)
xdid -c tab 208 211 edit 525 70 350 200 readonly multi vsbar
xdid -c tab 208 212 text 385 105 115 20 center
xdid -t tab 212 Language
xdid -c tab 208 213 comboex 385 130 115 500 dropdown
xdid -a tab 213 0 0 0 0 0 English to Spanish
xdid -a tab 213 0 0 0 0 0 English to French
xdid -a tab 213 0 0 0 0 0 English to German
xdid -a tab 213 0 0 0 0 0 English to Italian
xdid -a tab 213 0 0 0 0 0 English to Dutch
xdid -a tab 213 0 0 0 0 0 English to Portuguese
xdid -a tab 213 0 0 0 0 0 Spanish to English
xdid -a tab 213 0 0 0 0 0 French to English
xdid -a tab 213 0 0 0 0 0 German to English
xdid -a tab 213 0 0 0 0 0 Italian to English
xdid -a tab 213 0 0 0 0 0 Dutch to English
xdid -a tab 213 0 0 0 0 0 Portuguese to English
xdid -c tab 213 1
;Youtube Tab
xdid -a tab 1 0 7 Youtube $chr(9) 214 panel 100 10 100 20
xdid -x tab 214 +f
xdid -c tab 214 215 edit 10 10 100 20 autohs
xdid -E tab 215 Video Name
xdid -c tab 214 216 button 10 35 100 20 tabstop
xdid -t tab 216 Search
xdid -c tab 216 +hs $rgb(255,125,125)
xdid -c tab 214 217 text 10 70 400 20
xdid -c tab 214 218 text 420 70 400 20
xdid -c tab 214 219 text 10 205 400 20
xdid -c tab 214 220 text 420 205 400 20
xdid -c tab 214 221 text 10 95 400 60
xdid -c tab 214 222 text 420 95 400 60
xdid -c tab 214 223 text 10 230 400 60
xdid -c tab 214 224 text 420 230 400 60
xdid -c tab 214 225 text 10 160 100 20
xdid -c tab 214 226 text 420 160 100 20
xdid -c tab 214 227 text 10 295 100 20
xdid -c tab 214 228 text 420 295 100 20
xdid -c tab 214 229 link 115 160 100 20
xdid -c tab 214 230 link 525 160 100 20
xdid -c tab 214 231 link 115 295 100 20
xdid -c tab 214 232 link 525 295 100 20
;Channel Mode Tab
xdid -a tab 1 0 8 Channel Modes $chr(9) 233 panel 100 10 100 20
xdid -x tab 233 +f
xdid -c tab 233 234 comboex 10 10 150 500 dropdown
var %dcxchan 1
while (%dcxchan <= $comchan($me,0)) {
xdid -a tab 234 0 0 0 0 0 $comchan($me,%dcxchan)
inc %dcxchan
}
xdid -c tab 234 1
xdid -c tab 233 235 button 165 10 100 20
xdid -t tab 235 Get Info
xdid -c tab 235 +hs $rgb(125,255,125)
xdid -c tab 233 236 list 10 45 150 250 vsbar
xdid -c tab 233 237 button 165 45 100 20 disabled
xdid -t tab 237 Masskick
xdid -c tab 237 +hs $rgb(255,125,255)
xdid -c tab 233 238 button 165 70 100 20 disabled
xdid -t tab 238 Massop
xdid -c tab 238 +hs $rgb(125,255,255)
xdid -c tab 233 239 button 165 95 100 20 disabled
xdid -t tab 239 Massvoice
xdid -c tab 239 +hs $rgb(255,255,125)
xdid -c tab 233 240 button 165 120 100 20 disabled
xdid -t tab 240 Massdeop
xdid -c tab 240 +hs $rgb(200,0,0)
xdid -c tab 233 241 button 165 145 100 20 disabled
xdid -t tab 241 Massdevoice
xdid -c tab 241 +hs $rgb(0,200,0)
xdid -c tab 233 242 button 270 45 100 20 disabled
xdid -t tab 242 Kick
xdid -c tab 242 +hs $rgb(0,0,200)
xdid -c tab 233 243 button 270 70 100 20 disabled
xdid -t tab 243 Op
xdid -c tab 243 +hs $rgb(200,0,200)
xdid -c tab 233 244 button 270 95 100 20 disabled
xdid -t tab 244 Deop
xdid -c tab 244 +hs $rgb(0,200,200)
xdid -c tab 233 245 button 270 120 100 20 disabled
xdid -t tab 245 Halfop
xdid -c tab 245 +hs $rgb(200,200,0)
xdid -c tab 233 246 button 270 145 100 20 disabled
xdid -t tab 246 Dehalfop
xdid -c tab 246 +hs $rgb(200,125,0)
xdid -c tab 233 247 button 270 170 100 20 disabled
xdid -t tab 247 Voice
xdid -c tab 247 +hs $rgb(0,125,200)
xdid -c tab 233 248 button 270 195 100 20 disabled
xdid -t tab 248 Devoice
xdid -c tab 248 +hs $rgb(125,200,0)
xdid -c tab 233 249 button 270 220 100 20 disabled
xdid -t tab 249 Mute
xdid -c tab 249 +hs $rgb(125,0,200)
xdid -c tab 233 250 button 270 245 100 20 disabled
xdid -t tab 250 Unmute
xdid -c tab 250 +hs $rgb(200,0,125)
xdid -c tab 233 251 text 375 45 200 20 center
xdid -t tab 251 Reason Here
xdid -c tab 233 252 edit 375 70 200 70 vsbar multi disabled
xdid -c tab 233 253 button 375 145 100 20 disabled
xdid -t tab 253 Ban
xdid -c tab 253 +hs $rgb(0,200,125)
xdid -c tab 233 254 radio 375 195 100 20 disabled group
xdid -t tab 254 Seconds
xdid -c tab 233 255 radio 480 195 100 20 disabled
xdid -t tab 255 Minutes
xdid -c tab 233 257 edit 375 220 50 20 readonly disabled
xdid -a tab 257 1
xdid -c tab 233 256 updown 425 220 50 20 hottrack nothousands buddyint
xdid -r tab 256 1 60
xdid -v tab 256 1
xdid -c tab 256 257
xdid -c tab 233 258 radio 480 220 100 20 disabled
xdid -t tab 258 Unlimited
xdid -c tab 258
xdid -c tab 233 259 button 375 170 100 20 disabled
xdid -t tab 259 Kickban
xdid -c tab 259 +hs $rgb(200,200,125)
xdid -c tab 233 260 check 585 45 100 20 disabled
xdid -t tab 260 Invite Only?
xdid -c tab 233 261 check 585 70 100 20 disabled
xdid -t tab 261 Moderated?
xdid -c tab 233 262 check 585 95 100 20 disabled
xdid -t tab 262 Limited Users?
xdid -c tab 233 263 edit 690 95 100 20 disabled number
xdid -E tab 263 Ammount
xdid -c tab 233 264 check 585 120 100 20 disabled
xdid -t tab 264 Key?
xdid -c tab 233 265 edit 690 120 100 20 disabled
xdid -E tab 265 Key
xdid -c tab 233 266 radio 585 145 100 20 disabled group
xdid -t tab 266 Secret?
xdid -c tab 233 267 radio 585 170 100 20 disabled
xdid -t tab 267 Private?
xdid -c tab 233 268 radio 585 195 100 20 disabled
xdid -t tab 268 Neither
xdid -c tab 233 269 check 585 220 100 20 disabled
xdid -t tab 269 Word Filter?
xdid -c tab 233 270 check 585 245 100 20 disabled
xdid -t tab 270 No kicks?
xdid -c tab 233 271 check 585 270 100 20 disabled
xdid -t tab 271 Strip Colours?
xdid -c tab 233 272 check 585 295 100 20 disabled
xdid -t tab 272 Register Users?
}
}
elseif ($dname == Noresult) {
if ($devent == Close) {
dialog -v tab
}
}
elseif ($dname == Statn) {
if ($devent == Close) {
dialog -v tab
}
}
elseif ($dname == Comparen) {
if ($devent == Close) {
dialog -v tab
}
if ($devent == init) {
did -a Comparen 2 Unfortunately $(%compare.error,2) was not on runescape highscores, please check your spellings and search again.
}
}
}
alias tabb {
if ($2 == sclick && $3 == 2) {
xdialog -x tab
unset %klink.*
unset %ggglink.*
unset %ytlink.*
unset %dcxchannel
}
if ($2 == sclick && $3 == 14) {
if ($xdid(tab,13).text) {
xdid -r tab 19
tokenize 32 $xdid(tab,13).text
unset %clan.*
set %clan.type $clantype($xdid(tab, 15).seltext)
set %clan.exact $iif($xdid(tab ,17).state == 1,exact,partial)
set %clan.search $replace($1-,$chr(32),+)
sockclose dcxclan
sockopen dcxclan www.runehead.com 80
}
}
if ($2 == sclick && $3 == 22) {
if ($xdid(tab,21).text) {
xdid -r tab 31
tokenize 32 $xdid(tab,21).text
unset %price.*
set %price.area $pricearea($xdid(tab,24).sel)
set %price.min $iif($xdid(tab,26).text,$v1)
set %price.max $iif($xdid(tab,28).text,$v1)
set %price.search $replace($1-,$chr(32),+)
set %price.type $iif($xdid(tab,30).sel == 1,1,0)
set %price.ammount $iif($xdid(tab,33).text,$v1,1)
sockclose dcxprice
sockopen dcxprice www.zybez.net 80
}
}
if ($2 == sclick && $3 == 36) {
if ($xdid(tab,35).text) {
xdid -r tab 47
tokenize 32 $xdid(tab,35).text
unset %sclan.*
$iif($timezone($xdid(tab,42).sel),set %sclan.time $v1)
$iif($clancate($xdid(tab,38).sel),set %sclan.cate $v1)
$iif($p2p($xdid(tab,40).sel),set %sclan.p2p $v1)
$iif($cape($xdid(tab,44).sel),set %sclan.cape $v1)
set %sclan.search $replace($1-,$chr(32),+)
sockclose dcxsclan
sockopen dcxsclan www.runehead.com 80
}
}
if ($2 == sclick && $3 == 50) {
if ($xdid(tab,49).text) {
xdid -r tab 51
tokenize 32 $xdid(tab,49).text
unset %stat.*
set %stat.search $replace($1-,$chr(32),+)
sockclose dcxstat
sockopen dcxstat hiscore.runescape.com 80
}
}
if ($2 == sclick && $3 == 54) {
if ($xdid(tab,53).text) {
xdid -t tab 60
xdid -t tab 62
xdid -t tab 64
xdid -t tab 66
xdid -t tab 68
xdid -r tab 69
tokenize 32 $xdid(tab,53).text
unset %skill.*
$iif($xdid(tab,58).text,set %skill.level $v1)
set %skill.skill $xdid(tab,56).seltext
set %skill.search $replace($1-,$chr(32),+)
sockclose dcxskill
sockopen dcxskill hiscore.runescape.com 80
}
}
if ($2 == sclick && $3 == 72) {
if ($xdid(tab,71).text) {
xdid -r tab 73
xdid -t tab 75
xdid -t tab 77
xdid -t tab 79
xdid -t tab 81
xdid -t tab 83
xdid -r tab 84
unset %cmb.*
tokenize 32 $xdid(tab,71).text
set %cmb.search $replace($1-,$chr(32),+)
sockclose dcxcmb
sockopen dcxcmb hiscore.runescape.com 80
}
}
if ($2 == sclick && $3 == 88) {
if ($xdid(tab,86).text && $xdid(tab,87).text) {
xdid -r tab 92
unset %compare.*
tokenize 32 $xdid(tab,86).text
set %compare.type $iif($xdid(tab,89).state == 1,level,$iif($xdid(tab,90).state == 1,rank,exp))
set %compare.1 $replace($1-,$chr(32),+)
set %compare.2 $replace($xdid(tab,87).text,$chr(32),+)
sockclose dcxcompare
sockopen dcxcompare hiscore.runescape.com 80
}
}
if ($2 == sclick && $3 == 95) {
if ($xdid(tab,94).text) {
xdid -r tab 98
unset %forum.*
tokenize 32 $xdid(tab,94).text
set %forum.forum $forum($xdid(tab,97).sel)
set %forum.search $replace($1-,$chr(32),+)
sockclose dcxforum
sockopen dcxforum forum.runescape.com 80
}
}
if ($2 == sclick && $3 == 101) {
if ($xdid(tab,100).text) {
xdid -t tab 110
xdid -t tab 111
xdid -t tab 112
xdid -t tab 113
xdid -t tab 114
xdid -t tab 115
xdid -t tab 116
xdid -t tab 117
xdid -t tab 118
xdid -t tab 119
xdid -t tab 120
xdid -t tab 121
unset %kbase.* %klink.*
tokenize 32 $xdid(tab,100).text
set %kbase.cate $kbase($xdid(tab,103).sel)
$iif($xdid(tab,104).state == 1,set %kbase.title &title_chk=1)
$iif($xdid(tab,105).state == 1,set %kbase.keywords &keywords_chk=1)
$iif($xdid(tab,106).state == 1,set %kbase.descript &description_chk=1)
$iif($xdid(tab,107).state == 1,set %kbase.body &body_chk=1)
set %kbase.ran $iif($xdid(tab,108).state == 1,1,0)
set %kbase.search $replace($1-,$chr(32),+)
sockclose dcxkbase
sockopen dcxkbase www.runescape.com 80
}
}
if ($2 == sclick && $3 == 123) {
xdid -r tab 124
sockclose dcxrsworld
sockopen dcxrsworld www.runescape.com 80
}
if ($2 == sclick && $3 == 127) {
if ($xdid(tab,126).text) {
xdid -r tab 132
xdid -t tab 134
xdid -t tab 136
xdid -t tab 138
xdid -t tab 140
xdid -t tab 142
xdid -t tab 144
xdid -t tab 146
xdid -t tab 148
xdid -t tab 150
xdid -t tab 152
xdid -t tab 154
xdid -t tab 156
xdid -t tab 158
xdid -t tab 160
xdid -t tab 162
unset %item.*
tokenize 32 $xdid(tab,126).text
set %item.players $itemp($xdid(tab,129).sel)
set %item.category $item($xdid(tab,131).sel)
set %item.search $replace($1-,$chr(32),+)
sockclose dcxitema
sockclose dcxitem
sockopen dcxitem www.tip.it 80
}
}
if ($2 == dclick && $3 == 132) {
xdid -t tab 134
xdid -t tab 136
xdid -t tab 138
xdid -t tab 140
xdid -t tab 142
xdid -t tab 144
xdid -t tab 146
xdid -t tab 148
xdid -t tab 150
xdid -t tab 152
xdid -t tab 154
xdid -t tab 156
xdid -t tab 158
xdid -t tab 160
xdid -t tab 162
unset %itema.*
set %itema.id $xdid(tab,132,0).seltext
sockclose dcxitema
sockopen dcxitema www.tip.it 80
}
if ($2 == sclick && $3 == 165) {
if ($xdid(tab,164).text) {
xdid -r tab 170
xdid -t tab 176
xdid -t tab 177
xdid -t tab 178
xdid -t tab 179
xdid -t tab 180
xdid -t tab 186
xdid -t tab 187
xdid -t tab 188
xdid -t tab 189
xdid -t tab 190
xdid -r tab 191
xdid -r tab 192
unset %monsta.* %monster.*
tokenize 32 $xdid(tab,164).text
set %monster.search $replace($1-,$chr(32),+)
set %monster.level $monstacmb($xdid(tab,167).sel)
set %monster.race $monstarace($xdid(tab,169).sel)
sockclose dcxmonsta
sockclose dcxmonster
sockopen dcxmonster www.tip.it 80
}
}
if ($2 == dclick && $3 == 170) {
xdid -t tab 176
xdid -t tab 177
xdid -t tab 178
xdid -t tab 179
xdid -t tab 180
xdid -t tab 186
xdid -t tab 187
xdid -t tab 188
xdid -t tab 189
xdid -t tab 190
xdid -r tab 191
xdid -r tab 192
unset %monsta.*
set %monsta.id $xdid(tab,170,0).seltext
sockclose dcxmonsta
sockopen dcxmonsta www.tip.it 80
}
if ($2 == sclick && $3 == 195) {
if ($xdid(tab,194).text) {
xdid -t tab 196
xdid -t tab 197
xdid -t tab 198
xdid -t tab 199
xdid -t tab 200
xdid -t tab 201
xdid -t tab 202
xdid -t tab 203
xdid -t tab 204
xdid -t tab 205
xdid -t tab 206
xdid -t tab 207
unset %google.*
tokenize 32 $xdid(tab,194).text
set %google.search $replace($1-,$chr(32),+)
sockclose dcxgoogle
sockopen dcxgoogle www.google.com 80
}
}
if ($2 == sclick && $3 == 210) {
if ($xdid(tab,209,1).text) {
xdid -r tab 211
unset %translate.*
tokenize 32 $xdid(tab,209,1).text
set %translate.search $replace($1-,$chr(32),+)
set %translate.lang $language($xdid(tab,213).sel)
sockclose dcxtranslate
sockopen dcxtranslate ets.freetranslation.com 80
}
}
if ($2 == sclick && $3 == 216) {
if ($xdid(tab,215).text) {
xdid -t tab 217
xdid -t tab 218
xdid -t tab 219
xdid -t tab 220
xdid -t tab 221
xdid -t tab 222
xdid -t tab 223
xdid -t tab 224
xdid -t tab 225
xdid -t tab 226
xdid -t tab 227
xdid -t tab 228
xdid -t tab 229
xdid -t tab 230
xdid -t tab 231
xdid -t tab 232
unset %youtube.*
tokenize 32 $xdid(tab,215).text
set %youtube.search $replace($1-,$chr(32),+)
sockclose dcxyoutube
sockopen dcxyoutube ie.youtube.com 80
}
}
if ($2 == sclick && $3 == 235) {
xdid -r tab 236
xdid -r tab 265
xdid -r tab 263
unset %dcxchannel
set %dcxchannel $xdid(tab,234).seltext
var %dcxnick 1
while (%dcxnick <= $nick(%dcxchannel,0)) {
xdid -a tab 236 0 $nick(%dcxchannel,%dcxnick).pnick
inc %dcxnick
}
if (*l* iswmcs $token($chan(%dcxchannel).mode,1,32)) {
xdid -a tab 263 $token($chan(%dcxchannel).mode,2,32)
xdid -c tab 262
if (*k* iswmcs $token($chan(%dcxchannel).mode,1,32)) {
xdid -a tab 265 $token($chan(%dcxchannel).mode,3,32)
xdid -c tab 264
}
else {
xdid -u tab 264
}
}
else {
xdid -u tab 262
}
if (*k* iswmcs $token($chan(%dcxchannel).mode,1,32) && *l* !iswmcs $token($chan(%dcxchannel).mode,1,32)) {
xdid -a tab 265 $token($chan(%dcxchannel).mode,2,32)
xdid -c tab 264
}
else {
xdid -u tab 264
}
xdid $iif(*i* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 260
xdid $iif(*m* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 261
xdid $iif(*l* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 262
xdid $iif(*k* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 264
xdid -c tab $iif(*s* iswmcs $token($chan(%dcxchannel).mode,1,32),266,$iif(*p* iswmcs $v2,267,268))
xdid $iif(*G* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 269
xdid $iif(*Q* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 270
xdid $iif(*S* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 271
xdid $iif(*R* iswmcs $token($chan(%dcxchannel).mode,1,32),-c,-u) tab 272
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 237
xdid $iif($me !isop %dcxchannel,-b,-e) tab 238
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 239
xdid $iif($me !isop %dcxchannel,-b,-e) tab 240
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 241
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 242
xdid $iif($me !isop %dcxchannel,-b,-e) tab 243
xdid $iif($me !isop %dcxchannel,-b,-e) tab 244
xdid $iif($me !isop %dcxchannel,-b,-e) tab 245
xdid $iif($me !isop %dcxchannel,-b,-e) tab 246
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 247
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 248
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 249
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 250
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 252
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 253
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 259
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 260
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 261
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 254
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 255
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 258
xdid $iif($me !isop %dcxchannel,-b,-e) tab 263
xdid $iif($me isop %dcxchannel && $xdid(tab,263).text,-e,-b) tab 262
xdid $iif($me !ishop %dcxchannel && $me !isop %dcxchannel,-b,-e) tab 265
xdid $iif(($me ishop %dcxchannel || $me isop %dcxchannel) && $xdid(tab,265).text,-e,-b) tab 264
xdid $iif($me !isop %dcxchannel,-b,-e) tab 266
xdid $iif($me !isop %dcxchannel,-b,-e) tab 267
xdid $iif($me !isop %dcxchannel,-b,-e) tab 268
xdid $iif($me !isop %dcxchannel,-b,-e) tab 269
xdid $iif($me !isop %dcxchannel,-b,-e) tab 270
xdid $iif($me !isop %dcxchannel,-b,-e) tab 271
xdid $iif($me !isop %dcxchannel,-b,-e) tab 272
}
if ($2 == sclick && $3 == 236) {
if ($me ishop %dcxchannel) {
xdid $iif($remove($xdid(tab,236,$4).text,~,@,&,%,+) isop %dcxchannel || $remove($xdid(tab,236,$4).text,~,@,&,%,+) ishop %dcxchannel,-b,-e) tab 242
xdid $iif($remove($xdid(tab,236,$4).text,~,@,&,%,+) isop %dcxchannel || $remove($xdid(tab,236,$4).text,~,@,&,%,+) ishop %dcxchannel,-b,-e) tab 249
xdid $iif($remove($xdid(tab,236,$4).text,~,@,&,%,+) isop %dcxchannel || $remove($xdid(tab,236,$4).text,~,@,&,%,+) ishop %dcxchannel,-b,-e) tab 252
xdid $iif($remove($xdid(tab,236,$4).text,~,@,&,%,+) isop %dcxchannel || $remove($xdid(tab,236,$4).text,~,@,&,%,+) ishop %dcxchannel,-b,-e) tab 253
xdid $iif($remove($xdid(tab,236,$4).text,~,@,&,%,+) isop %dcxchannel || $remove($xdid(tab,236,$4).text,~,@,&,%,+) ishop %dcxchannel,-b,-e) tab 259
}
}
if ($2 == sclick && $3 == 237) {
var %dcxmkick 1
while (%dcxmkick <= $nick(%dcxchannel,0)) {
if ($nick(%dcxchannel,%dcxmkick) != $me) {
kick %dcxchannel $nick(%dcxchannel,%dcxmkick)
}
inc %dcxmkick
}
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 238) {
var %dcxmop 1
while (%dcxmop <= $nick(%dcxchannel,0)) {
if ($nick(%dcxchannel,%dcxmop) != $me) {
mode %dcxchannel +o $nick(%dcxchannel,%dcxmop)
}
inc %dcxmop
}
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 239) {
var %dcxmvoice 1
while (%dcxmvoice <= $nick(%dcxchannel,0)) {
if $nick(%dcxchannel,%dcxmvoice) != $me) {
mode %dcxchannel +v $nick(%dcxchannel,%dcxmvoice)
}
inc %dcxmvoice
}
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 240) {
var %dcxmdeop 1
while (%dcxmdeop <= $nick(%dcxchannel,0)) {
if ($nick(%dcxchannel,%dcxmdeop) != $me) {
mode %dcxchannel -o $nick(%dcxchannel,%dcxmdeop)
}
inc %dcxmdeop
}
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 241) {
var %dcxmdev 1
while (%dcxmdev <= $nick(%dcxchannel,0)) {
if ($nick(%dcxchannel,%dcxmdev) != $me) {
mode %dcxchannel -v $nick(%dcxchannel,%dcxmdev)
}
inc %dcxmdev
}
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 242) {
kick %dcxchannel $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+) $iif($xdid(tab,252,1).text,$v1)
$iif($xdid(tab,252,1).text,xdid -r tab 252)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 243) {
mode %dcxchannel +o $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 244) {
mode %dcxchannel -o $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 245) {
mode %dcxchannel +h $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 246) {
mode %dcxchannel -h $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 247) {
mode %dcxchannel +v $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 248) {
mode %dcxchannel -v $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 249) {
mode %dcxchannel +b-ohv ~q: $+ $address($remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+),2) $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+) $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+) $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 250) {
mode %dcxchannel -b ~q: $+ $address($remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+),2)
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 254) xdid -e tab 257
if ($2 == sclick && $3 == 255) xdid -e tab 257
if ($2 == sclick && $3 == 258) xdid -b tab 257
if ($2 == sclick && $3 == 253) {
ban $iif($xdid(tab,254).state == 1,-u $+ $xdid(tab,257).text,$iif($xdid(tab,255).state,-u $+ $calc($xdid(tab,257).text *60))) %dcxchannel $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+) 2
xdid -r tab 252
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 259) {
ban $iif($xdid(tab,254).state == 1,-ku $+ $xdid(tab,257).text,$iif($xdid(tab,255).state,-ku $+ $calc($xdid(tab,257).text *60),-k)) %dcxchannel $remove($xdid(tab,236,$xdid(tab,236).sel).text,~,&,@,%,+) 2 $iif($xdid(tab,252,1).text,$v1)
xdid -r tab 252
.timerdcxchan 1 1 dcxchan
}
if ($2 == sclick && $3 == 260) {
mode %dcxchannel $iif($xdid(tab,260).state == 0,-,+) $+ i
}
if ($2 == sclick && $3 == 261) {
mode %dcxchannel $iif($xdid(tab,261).state == 0,-,+) $+ m
}
if ($2 == keyup && $3 == 263) xdid $iif($xdid(tab,263).text,-e,-b) tab 262
if ($2 == sclick && $3 == 262) {
mode %dcxchannel $iif($xdid(tab,262).state == 0,-l,+l $xdid(tab,263).text)
}
if ($2 == keyup && $3 == 265) xdid $iif($xdid(tab,265).text,-e,-b) tab 264
if ($2 == sclick && $3 == 264) {
mode %dcxchannel $iif($xdid(tab,264).state == 0,-k $xdid(tab,265).text,+k $xdid(tab,265).text)
}
if ($2 == sclick && $3 == 266) mode %dcxchannel $iif($xdid(tab,266).state == 1,+s-p)
if ($2 == sclick && $3 == 267) mode %dcxchannel $iif($xdid(tab,267).state == 1,+p-s)
if ($2 == sclick && $3 == 268) mode %dcxchannel $iif($xdid(tab,268).state == 1,-sp)
if ($2 == sclick && $3 == 269) {
mode %dcxchannel $iif($xdid(tab,269).state == 1,+G,-G)
}
if ($2 == sclick && $3 == 270) {
mode %dcxchannel $iif($xdid(tab,270).state == 1,+Q,-Q)
}
if ($2 == sclick && $3 == 271) {
mode %dcxchannel $iif($xdid(tab,271).state == 1,+S,-S)
}
if ($2 == sclick && $3 == 272) {
mode %dcxchannel $iif($xdid(tab,272).state == 1,+R,-R)
}
if ($2 == sclick && $3 == 118) url -an %klink.1
if ($2 == sclick && $3 == 119) url -an %klink.2
if ($2 == sclick && $3 == 120) url -an %klink.3
if ($2 == sclick && $3 == 121) url -an %klink.4
if ($2 == sclick && $3 == 204) url -an %ggglink.1
if ($2 == sclick && $3 == 205) url -an %ggglink.2
if ($2 == sclick && $3 == 206) url -an %ggglink.3
if ($2 == sclick && $3 == 207) url -an %ggglink.4
if ($2 == sclick && $3 == 229) url -an %ytlink.1
if ($2 == sclick && $3 == 230) url -an %ytlink.2
if ($2 == sclick && $3 == 231) url -an %ytlink.3
if ($2 == sclick && $3 == 232) url -an %ytlink.4
}
on *:sockopen:dcxclan: {
sockwrite -nt $sockname GET $+(/clans/search.php?search=,%clan.search,&mltype=,%clan.type,&searchtype=,%clan.exact) HTTP/1.0
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxclan: {
if ($sockerr) { echo -a Runehead.com is currently not working | unset %clan.* | sockclose $sockname | halt }
else {
var %sockreader
sockread %sockreader
if (*No results were* iswm %sockreader) {
dialog -m Noresult Noresult
unset %clan.*
sockclose $sockname
}
elseif (*<tr class='hovertr'>* iswm %sockreader) {
sockread %sockreader
set %clan.username $nohtml(%sockreader)
}
if $regex(%sockreader,/<td class='tableborder'><a href='(.*)' title='(.*)'>(.*)<\/a><\/td>/) {
set %clan.link $regml(1)
set %clan.clan $regml(3)
}
if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreader) {
sockread %sockreader
xdid -a tab 19 0 + 0 1 0 0 0 -1 $rgb(170,213,255) %clan.link $chr(9) + 0 %clan.clan $chr(9) + 0 $iif(%clan.username,$v1,$replace(%clan.search,+,$chr(32))) $chr(9) + 0 $nohtml(%sockreader)
}
if (*</body>* iswm %sockreader) {
unset %clan.*
sockclose $sockname
}
}
}
on *:sockopen:dcxprice: {
sockwrite -nt $sockname GET $+(/priceguide.php?search_terms=,%price.search,&search_area=,%price.area,&price_low=,$iif(%price.min,$v1),&price_high=,$iif(%price.max,$v1),&member=,%price.type,&w13=rules) HTTP/1.0
sockwrite -nt $sockname Host: www.zybez.net
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxprice: {
if ($sockerr) { echo -a Zybez.net is currently not working | unset %price.* | sockclose $sockname | halt }
else {
var %sockreader
sockread %sockreader
if (*did not return any results* iswm %sockreader) {
dialog -m Noresult Noresult
unset %price.*
sockclose $sockname
}
elseif (<!--name-->* iswm %sockreader) {
set %price.name $remove($nohtml(%sockreader),$v1)
}
if (<!--price-->* iswm %sockreader) {
var %pricer $remove($nohtml(%sockreader),$v1,$chr(32))
set %price.1 $gettok(%pricer,1,45)
set %price.2 $gettok(%pricer,2,45)
}
if (*<a href="/priceguide.php?category=* iswm %sockreader) {
xdid -a tab 31 0 0 + 0 0 0 0 $rgb(255,255,255) 0 $chr(9) + 0 %price.name $chr(9) + 0 %price.1 $iif(%price.2,- $v1) $chr(9) + 0 $nohtml(%sockreader) $chr(9) + 0 $comma($calc($remove($left(%price.1,-2),$chr(44)) * %price.ammount)) $+ gp $iif(%price.2,- $comma($calc($remove($left($v1,-2),$chr(44)) * %price.ammount)) $+ gp)
}
if (*</body>* iswm %sockreader) {
unset %price.*
sockclose $sockname
}
}
}
on *:sockopen:dcxsclan: {
sockwrite -nt $sockname GET $+(/clans/clansearch.php?nameSearch=,%sclan.search,&mlType=,%sclan.cate,&playbase=,%sclan.p2p,&timebase=,%sclan.time,&capecolour=,%sclan.cape,&homeworld=&nummembers=&cmbavg=&hpavg=&magicavg=&rangedavg=&overallavg=&search=true) HTTP.1/1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxsclan: {
if ($sockerr) { echo -a Runehead is currently not working | unset %sclan.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &sclan
if ($bfind(&sclan,1,</html>)) {
if ($bfind(&sclan,1,No matching memberlists)) {
dialog -m Noresult Noresult
}
else {
var %sname1 1
while ($bfind(&sclan,$calc(%sname1 +1),<td style='width:34%;' class='tableborder'><a href='ml.php?)) {
var %sname1 = $v1
var %sname2 = $bfind(&sclan,%sname1,</td>)
var %sname3 = $bvar(&sclan,%sname1,$calc(%sname2 - %sname1)).text
var %smember1 = $bfind(&sclan,%sname1,<td style='width:10%;)
var %smember2 = $bfind(&sclan,%smember1,</td>)
var %smember3 = $bvar(&sclan,%smember1,$calc(%smember2 - %smember1)).text
var %scombat1 = $bfind(&sclan,%smember2,<td style='width:10%;)
var %scombat2 = $bfind(&sclan,%scombat1,</td>)
var %scombat3 = $bvar(&sclan,%scombat1,$calc(%scombat2 - %scombat1)).text
var %shp1 = $bfind(&sclan,%scombat2,<td style='width:10%;)
var %shp2 = $bfind(&sclan,%shp1,</td>)
var %shp3 = $bvar(&sclan,%shp1,$calc(%shp2 - %shp1)).text
var %smage1 = $bfind(&sclan,%shp2,<td style='width:10%;)
var %smage2 = $bfind(&sclan,%smage1,</td>)
var %smage3 = $bvar(&sclan,%smage1,$calc(%smage2 - %smage1)).text
var %srange1 = $bfind(&sclan,%smage2,<td style='width:10%;)
var %srange2 = $bfind(&sclan,%srange1,</td>)
var %srange3 = $bvar(&sclan,%srange1,$calc(%srange2 - %srange1)).text
var %sover1 = $bfind(&sclan,%srange2,<td style='width:10%;)
var %sover2 = $bfind(&sclan,%sover1,</td>)
var %sover3 = $bvar(&sclan,%sover1,$calc(%sover2 - %sover1)).text
noop $regex(sclan,%sname3,/<td style='width:34%;' class='tableborder'><a href='(.*?)' title='(.*?)'>(.*?)<\/a>/)
xdid -a tab 47 0 0 + 0 0 0 0 0 0 $regml(sclan,1) $chr(9) + 0 $regml(sclan,3) $chr(9) + 0 $nohtml(%smember3) $chr(9) + 0 $nohtml(%scombat3) $chr(9) + 0 $nohtml(%shp3) $chr(9) + 0 $nohtml(%smage3) $chr(9) + 0 $nohtml(%srange3) $chr(9) + 0 $nohtml(%sover3)
}
}
unset %sclan.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxstat: {
sockwrite -nt $sockname GET $+(/hiscorepersonal.ws?user1=,%stat.search,&submit=Search) HTTP/1.0
sockwrite -nt $sockname Host: hiscore.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxstat: {
if ($sockerr) { echo -a RuneScape.com is currently not working | unset %stat.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &stats
if ($bfind(&stats,1,</html>)) {
if ($bfind(&stats,1,does not feature)) {
.remove $sockname
dialog -m Statn Statn
}
else {
var %stats 1
while (%stats) {
var %stats = $bfind(&stats,$calc(%stats +1),<a href="overall.ws?table=)
tokenize 10 $nohtml($bvar(&stats,%stats,200).text)
hadd -m $sockname $1 $2 $3 $4
}
var %state 0
while (%state <= 23) {
tokenize 32 $hget($sockname,$getskill(%state))
xdid -a tab 51 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%state) $chr(9) + 0 $iif($1,$1,-) $chr(9) + 0 $iif($2,$2,-) $chr(9) + 0 $iif($3,$3,-)
inc %state
}
hfree $sockname
.remove $sockname
}
unset %stat.*
sockclose $sockname
}
}
}
on *:sockopen:dcxskill: {
sockwrite -nt $sockname GET $+(/hiscorepersonal.ws?user1=,%skill.search,&submit=Search) HTTP/1.0
sockwrite -nt $sockname Host: hiscore.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxskill: {
if ($sockerr) { echo -a RuneScape.com is currently not working | unset %skill.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &skill
if ($bfind(&skill,1,</html>)) {
if ($bfind(&skill,1,does not feature)) {
.remove $sockname
dialog -m Statn Statn
}
else {
var %skill = $bfind(&skill,1,%skill.skill), %object 1
tokenize 10 $nohtml($bvar(&skill,%skill,250).text)
xdid -t tab 60 $3 | xdid -t tab 62 $2 | xdid -t tab 64 $4
xdid -t tab 66 $iif(%skill.level,$v1,$calc($3 +1)) | xdid -t tab 68 $comma($xp2next($iif(%skill.level,$calc($v1 -1),$3) $4))
while (%object <= $ini($scriptdirobject.ini,%skill.skill,0)) {
var %nnn = $ini($scriptdirobject.ini,%skill.skill,%object)
xdid -a tab 69 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace(%nnn,-,$chr(32)) $chr(9) + 0 $readini($scriptdirobject.ini,%skill.skill,%nnn) $chr(9) + 0 $comma($ceil($calc($xp2next($iif(%skill.level,$calc($v1 -1),$3) $4) / $readini($scriptdirobject.ini,%skill.skill,%nnn))))
inc %object
}
.remove $sockname
}
unset %skill.*
sockclose $sockname
}
}
}
on *:sockopen:dcxcmb: {
sockwrite -nt $sockname GET $+(/hiscorepersonal.ws?user1=,%cmb.search,&submit=Search) HTTP/1.0
sockwrite -nt $sockname Host: hiscore.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxcmb: {
if ($sockerr) { echo -a RuneScape.com is currently not working | unset %cmb.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &cmb
if ($bfind(&cmb,1,</html>)) {
if ($bfind(&cmb,1,1 million)) {
dialog -m Statn Statn
}
else {
var %cmbloop 1, %cmbpoop 1, %cmbline + 0 0 0 0 0 0, %pc1 + 0 0 0 0 0 0 $chr(9) + 0 1, %pc10 + 0 0 0 0 0 0 $chr(9) + 0 10, %pc100 + 0 0 0 0 0 0 $chr(9) + 0 100
while ($bfind(&cmb,$calc(%cmbloop +1),<a href="overall.ws?table=)) {
var %cmbloop = $v1
var %cmbp1 = $bfind(&cmb,%cmbloop,</tr>)
var %cmbp2 = $nohtml($bvar(&cmb,%cmbloop,$calc(%cmbp1 - %cmbloop)).text)
tokenize 10 %cmbp2
hadd -m cmb $1 $3 $4
}
while (%cmbpoop <= 7) {
tokenize 32 $hget(cmb,$getskill(%cmbpoop))
var %cmbline = %cmbline $chr(9) + 0 $iif($1,$1,-)
var %cmbline2 = %cmbline2 $iif($1,$1,$iif($getskill(%cmbpoop) == Hitpoints,10,1))
var %pc1 = %pc1 $chr(9) + 0 $single($getskill(%cmbpoop) $calc($xp2next($1) - $remove($2,$chr(44))) $calc($1 +1))
var %pc10 = %pc10 $chr(9) + 0 $ten($getskill(%cmbpoop) $calc($xp2next($iif($1,$1,1)) - $remove($2,$chr(44))) $calc($iif($1,$1,1) +1))
var %pc100 = %pc100 $chr(9) + 0 $hundred($getskill(%cmbpoop) $calc($xp2next($iif($1,$1,1)) - $remove($2,$chr(44))) $calc($iif($1,$1,1) +1))
inc %cmbpoop
}
xdid -a tab 73 %cmbline
xdid -t tab 75 $cmbformula(%cmbline2)
xdid -t tab 77 $melee(%cmbline2)
xdid -t tab 79 $range(%cmbline2)
xdid -t tab 81 $magic(%cmbline2)
xdid -t tab 83 $cmblvl2up(%cmbline2)
xdid -a tab 84 %pc1
xdid -a tab 84 %pc10
xdid -a tab 84 %pc100
hfree cmb
}
unset %cmb.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxcompare: {
sockwrite -nt $sockname GET $+(/compare.ws?user1=,%compare.1,&user2=,%compare.2,&submit=Compare) HTTP/1.0
sockwrite -nt $sockname Host: hiscore.runescape.cpm
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxcompare: {
if ($sockerr) { echo -a RuneScape.com is currently not working | unset %compare.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &compare
if ($bfind(&compare,1,</html>)) {
if ($bfind(&compare,1,1 million)) {
var %cerror1 = $calc($bfind(&compare,1,<i>) +4)
var %cerror2 = $bfind(&compare,%cerror1, does not feature in the hiscores)
var %cerror3 = $bvar(&compare,%cerror1,$calc(%cerror2 - %cerror1)).text
set %compare.error %cerror3
dialog -m Comparen Comparen
}
else {
var %comparecount = $bfind(&compare,1,<td> </td>)
var %compareno 0
while ($bfind(&compare,$calc(%comparecount +1),<tr>)) {
var %comparecount = $v1
var %compareee = $bfind(&compare,%comparecount,</tr>)
tokenize 10 $remove($nohtml($bvar(&compare,%comparecount,$calc(%compareee - %comparecount)).text), ,$chr(44))
hadd -m Compare $1 $+($2,-,$3,-,$4,-,$5,-,$6,-,$7,-,$8)
}
while (%compareno <= 23) {
tokenize 45 $hget(Compare,$getskill(%compareno))
if (%compare.type == Level) {
if ($1 == Not ranked && $3 = Not ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 - $chr(9) + 0 - $chr(9) + 0 -
}
elseif ($1 == Not ranked && $3 != Not ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 - $chr(9) + 0 $comma($4) $chr(9) + 0 - $+ $comma($4)
}
elseif ($1 != Not ranked && $5 == Not Ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 $comma($2) $chr(9) + 0 - $chr(9) + 0 $comma($2)
}
else {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 $comma($2) $chr(9) + 0 $comma($6) $chr(9) + 0 $comma($calc($2 - $6))
}
}
elseif (%compare.type == Rank) {
if ($1 == Not ranked && $3 = Not ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 - $chr(9) + 0 - $chr(9) + 0 -
}
elseif ($1 == Not ranked && $3 != Not ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 - $chr(9) + 0 $comma($3) $chr(9) + 0 - $+ $comma($3)
}
elseif ($1 != Not ranked && $5 == Not Ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 $comma($1) $chr(9) + 0 - $chr(9) + 0 $comma($1)
}
else {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 $comma($1) $chr(9) + 0 $comma($5) $chr(9) + 0 $comma($calc($1 - $5))
}
}
elseif (%compare.type == Exp) {
if ($1 == Not ranked && $3 = Not ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 - $chr(9) + 0 - $chr(9) + 0 -
}
elseif ($1 == Not ranked && $3 != Not ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 - $chr(9) + 0 $comma($5) $chr(9) + 0 - $+ $comma($5)
}
elseif ($1 != Not ranked && $5 == Not Ranked) {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 $comma($3) $chr(9) + 0 - $chr(9) + 0 $comma($3)
}
else {
xdid -a tab 92 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $getskill(%compareno) $chr(9) + 0 $comma($3) $chr(9) + 0 $comma($7) $chr(9) + 0 $comma($calc($3 - $5)) 7
}
}
inc %compareno
}
hfree compare
}
unset %compare.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxforum: {
sockwrite -nt $sockname GET $+(/searchthreads.ws?srcstr=,%forum.search,&srcfrm=,%forum.forum,&serch=Search&search=search) HTTP/1.0
sockwrite -nt $sockname Host: forum.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxforum: {
if ($sockerr) { echo -a RuneScape.com is currently not working | unset %forum.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &forum
if ($bfind(&forum,1,</html>)) {
if ($bfind(&forum,1,There were no threads)) {
dialog -m Noresult Noresult
}
else {
var %forumo 1
while ($bfind(&forum,$calc(%forumo +1), )) {
var %forumo = $v1
var %date1 = $calc(%forumo +19)
var %date2 = $calc($bfind(&forum,%date1, ) -1)
var %date3 = $bvar(&forum,%date1,$calc(%date2 - %date1)).text
var %ftitle1 = $bfind(&forum,%date2,<A href=")
var %ftitle2 = $calc($bfind(&forum,%ftitle1,</A>) +4)
var %ftitle3 = $bvar(&forum,%ftitle1,$calc(%ftitle2 - %ftitle1)).text
noop $regex(proper,%ftitle3,/<A href="(.*?)">(.*?)<\/A>/i)
var %fforum1 = $bfind(&forum,%ftitle2,in forum)
var %fforum2 = $bfind(&forum,%fforum1,</A>)
var %fforum3 = $nohtml($remove($bvar(&forum,%fforum1,$calc(%fforum2 - %fforum1)).text,in forum))
var %forumo = %fforum2
hadd -m Forum $+(http://forum.runescape.com/,$regml(proper,1)) $regml(proper,1)
xdid -a tab 98 0 0 + 0 0 0 0 0 0 $regml(proper,1) $chr(9) + 0 $regml(proper,2) $chr(9) + 0 %date3 $chr(9) + 0 $replace(%fforum3,&,and)
}
}
unset %forum.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxkbase: {
sockwrite -nt $sockname GET $+(/kbase/search.ws?search_query=,%kbase.search,&category=,%kbase.cate,&subcat=null,%kbase.title,%kbase.keywords,%kbase.descript,%kbase.body,&and_rad=,%kbase.ran,&submit=Search+Again) HTTP/1.0
sockwrite -nt $sockname Host: www.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxkbase: {
if ($sockerr) { echo -a RuneScape.com is currently not working | unset %kbase.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &kbase
if ($bfind(&kbase,1,</html>)) {
if ($bfind(&kbase,1,did not return any results)) {
dialog -m Noresult Noresult
}
else {
var %kres1 = $calc($bfind(&kbase,1,<p><b>) +6)
var %kres2 = $bfind(&kbase,%kres1,</b>)
var %kres3 = $bvar(&kbase,%kres1,$calc(%kres2 - %kres1)).text
var %kres4 = $iif(%kres3 <= 4,%kres3,4)
var %kres5 1, %ktopic2 1
while (%kres5 <= %kres4) {
var %ktopic1 = $bfind(&kbase,$calc(%ktopic2 +1),<a style="margin-left:)
var %ktopic2 = $bfind(&kbase,%ktopic1,</a>)
var %ktopic3 = $bvar(&kbase,%ktopic1,$calc(%ktopic2 - %ktopic1)).text
var %kprev1 = $calc($bfind(&kbase,%ktopic2,<tr>) +5)
var %kprev2 = $bfind(&kbase,%kprev1,</td>)
var %kprev3 = $nohtml($bvar(&kbase,%kprev1,$calc(%kprev2 - %kprev1)).text)
noop $regex(%ktopic3,/<a style="margin-left: 6px" href="(.*)">(.*)/)
set %klink. [ $+ [ %kres5 ] ] $+(http://www.runescape.com/kbase/,$regml(1))
xdid -t tab $calc(109 + %kres5) $regml(2)
xdid -t tab $calc(113 + %kres5) %kprev3
xdid -t tab $calc(117 + %kres5) Read More
inc %kres5
}
}
unset %kbase.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxrsworld: {
sockwrite -nt $sockname GET /lang/en/aff/runescape/sln.ws?plugin=0&lores.x=127&lores.y=93 HTTP/1.0
sockwrite -nt $sockname Host: www.runescape.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxrsworld: {
if ($sockerr) { echo -a RuneScape.com is currently not working | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &rsworld
if ($bfind(&rsworld,1,</html>)) {
var %world 1
while (%world <= 144) {
if ($bfind(&rsworld,$bfind(&rsworld,1, Type),World %world $+ <)) {
var %link. [ $+ [ %world ] ] $bvar(&rsworld,$bfind(&rsworld,$calc($v1 -50),http:),$calc($calc($v1 -2) - $bfind(&rsworld,$calc($v1 -50),http:))).text
tokenize 166 $regsubex($replace($htmlfree($bvar(&rsworld,$v1,$calc($bfind(&rsworld,$v1,</tr>) - $v1)).text),$chr(10),¦),/¦+¦?/g,¦)
}
elseif ($bfind(&rsworld,$bfind(&rsworld,1, Type),World %world $+ $chr(10))) {
tokenize 166 $regsubex($replace($htmlfree($bvar(&rsworld,$v1,$calc($bfind(&rsworld,$v1,</tr>) - $v1)).text),$chr(10),¦),/¦+¦?/g,¦)
}
$iif(%world == $token($1,2,32),xdid -a tab 124 0 0 + 0 0 0 0 0 0 $chr(9) +c 0 $1 $chr(9) +c 0 $comma($remove($2,players)) $chr(9) +c 0 $3 $chr(9) +c 0 $5 $chr(9) +c 0 $iif(%link. [ $+ [ %world ] ],$v1,-))
inc %world
}
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxitem: {
sockwrite -nt $sockname GET $+(/runescape/index.php?rs2item=&orderby=0&keywords=,%item.search,&Players=,%item.players,&category=,%item.category,&subcategory=0&cmd=8&action=Manage_Items&search=1&submit=Simple+Search) HTTP/1.0
sockwrite -nt $sockname Host: www.tip.it
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxitem: {
if ($sockerr) { echo -a Tip.It is currently not working | unset %item.* | sockclose $sockname | halt }
else {
var %sockreader
sockread %sockreader
if (*No items matched your search* iswm %sockreader) {
dialog -m Noresult Noresult
unset %item.*
sockclose $sockname
}
elseif $regex(%sockreader,/<td><a href="(.*)">(.*)<\/a><\/td>/) {
xdid -a tab 132 0 0 + 0 0 0 0 0 0 $regml(1) $chr(9) +c 0 $regml(2)
}
if (*</body>* iswm %sockreader) {
unset %item.*
sockclose $sockname
}
}
}
on *:sockopen:dcxitema: {
sockwrite -nt $sockname GET $+(/runescape/,%itema.id) HTTP/1.0
sockwrite -nt $sockname Host: www.tip.it
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxitema: {
if ($sockerr) { echo -a Tip.It is currently not working | unset %itema.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &itema
if ($bfind(&itema,1,</html>)) {
var %name1 = $calc($bfind(&itema,1,<td class="header" colspan="3">) +31)
var %name2 = $bfind(&itema,%name1,</td>)
var %name3 = $regsubex($bvar(&itema,%name1,$calc(%name2 - %name1)).text,/\n|\r|\t/g,$null)
var %member1 = $calc($bfind(&itema,%name2,<b>Members?</b>) +16)
var %member2 = $bfind(&itema,%member1,</td>)
var %member3 = $regsubex($bvar(&itema,%member1,$calc(%member2 - %member1)).text,/\n|\t|\r/g,$null)
var %quest1 = $calc($bfind(&itema,%member2,<b>Quest?</b>) +14)
var %quest2 = $bfind(&itema,%quest1,</td>)
var %quest3 = $regsubex($bvar(&itema,%quest1,$calc(%quest2 - %quest1)).text,/\n|\t|\r/g,$null)
var %trade1 = $calc($bfind(&itema,%quest2,<b>Tradeable?</b>) +18)
var %trade2 = $bfind(&itema,%trade1,</td>)
var %trade3 = $regsubex($bvar(&itema,%trade1,$calc(%trade2 - %trade1)).text,/\t|\n|\r/g,$null)
var %stack1 = $calc($bfind(&itema,%trade2,<b>Stackable?</b>) +18)
var %stack2 = $bfind(&itema,%stack1,</td>)
var %stack3 = $regsubex($bvar(&itema,%stack1,$calc(%stack2 - %stack1)).text,/\n|\r|\t/g,$null)
var %examine1 = $calc($bfind(&itema,%stack2,<b>Examine:</b>) +15)
var %examine2 = $bfind(&itema,%examine1,</td>)
var %examine3 = $regsubex($bvar(&itema,%examine1,$calc(%examine2 - %examine1)).text,/\t|\n|\r/g,$null)
var %weight1 = $calc($bfind(&itema,%examine2,<b>Weight:</b>) +14)
var %weight2 = $bfind(&itema,%weight1,</td>)
var %weight3 = $regsubex($bvar(&itema,%weight1,$calc(%weight2 - %weight1)).text,/\t|\n|\r/g,$null)
var %cate1 = $calc($bfind(&itema,%weight2,<td width="25%">) +17)
var %cate2 = $bfind(&itema,%cate1,</td>)
var %cate3 = $regsubex($bvar(&itema,%cate1,$calc(%cate2 - %cate1)).text,/\t|\n|\r/g,$null)
var %subc1 = $calc($bfind(&itema,%cate2,<td width="25%">) +17)
var %subc2 = $bfind(&itema,%subc1,</td>)
var %subc3 = $regsubex($bvar(&itema,%subc1,$calc(%subc2 - %subc1)).text,/\t|\n|\r/g,$null)
var %hialch1 = $calc($bfind(&itema,%subc2,<td width="25%">) +17)
var %hialch2 = $bfind(&itema,%hialch1,</td>)
var %hialch3 = $regsubex($bvar(&itema,%hialch1,$calc(%hialch2 - %hialch1)).text,/\t|\n|\r/g,$null)
var %ssell1 = $calc($bfind(&itema,%hialch2,<td width="25%">) +17)
var %ssell2 = $bfind(&itema,%ssell1,</td>)
var %ssell3 = $regsubex($bvar(&itema,%ssell1,$calc(%ssell2 - %ssell1)).text,/\t|\n|\r/g,$null)
var %gsell1 = $calc($bfind(&itema,%ssell2,<td width="25%">) +17)
var %gsell2 = $bfind(&itema,%gsell1,</td>)
var %gsell3 = $regsubex($bvar(&itema,%gsell1,$calc(%gsell2 - %gsell1)).text,/\t|\n|\r/g,$null)
var %lalch1 = $calc($bfind(&itema,%gsell2,<td width="25%">) +17)
var %lalch2 = $bfind(&itema,%lalch1,</td>)
var %lalch3 = $regsubex($bvar(&itema,%lalch1,$calc(%lalch2 - %lalch1)).text,/\t|\n|\r/g,$null)
var %loca1 = $calc($bfind(&itema,%lalch2,Location</td>) +13)
var %loca2 = $bfind(&itema,%loca1,</td>)
var %loca3 = $nohtml($regsubex($bvar(&itema,%loca1,$calc(%loca2 - %loca1)).text,/\t|\n|\r/g,$null))
var %user1 = $calc($bfind(&itema,%loca2,Uses</td>) +9)
var %user2 = $bfind(&itema,%user1,</td>)
var %user3 = $nohtml($regsubex($bvar(&itema,%user1,$calc(%user2 - %user1)).text,/\t|\n|\r/g,$null))
xdid -t tab 133 Name:
xdid -t tab 134 %name3
xdid -t tab 135 Member:
xdid -t tab 136 %member3
xdid -t tab 137 Quest:
xdid -t tab 138 %quest3
xdid -t tab 139 Tradeable:
xdid -t tab 140 %trade3
xdid -t tab 141 Stackable:
xdid -t tab 142 %stack3
xdid -t tab 143 Weight:
xdid -t tab 144 %weight3
xdid -t tab 145 Examine:
xdid -t tab 146 %examine3
xdid -t tab 147 Uses:
xdid -t tab 148 %user3
xdid -t tab 149 Category:
xdid -t tab 150 %cate3
xdid -t tab 151 Sub-Category::
xdid -t tab 152 %subc3
xdid -t tab 153 High-Alchemy:
xdid -t tab 154 %hialch3
xdid -t tab 155 Speciality Shop Sells:
xdid -t tab 156 %ssell3
xdid -t tab 157 General Shop Sells:
xdid -t tab 158 %gsell3
xdid -t tab 159 Low Alchemy:
xdid -t tab 160 %lalch3
xdid -t tab 161 Location:
xdid -t tab 162 %loca3
unset %itema.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxmonster: {
sockwrite -nt $sockname GET $+(/runescape/index.php?rs2monster=&orderby=&keywords=,%monster.search,&levels=,%monster.level,&race=,%monster.race) HTTP/1.1
sockwrite -nt $sockname Host: www.tip.it
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxmonster: {
if ($sockerr) { echo -a Tip.It is currently not working | unset %monster.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &monster
if ($bfind(&monster,1,</html>)) {
if ($bfind(&monster,1,Quest</a></td>)) {
if ($bvar(&monster,$calc($v1 +37),$calc($bfind(&monster,$calc($v1 +37),>) - $calc($v1 +36))).text == <!-- Page Content End -->) {
dialog -m Noresult Noresult
unset %monster.*
}
else {
var %while 1
while ($bfind(&monster,$calc(%while +1),<td><a href="?rs2monster_id=)) {
var %while = $v1
var %binary = $bvar(&monster,%while,$calc($bfind(&monster,%while,</td>) - %while)).text
noop $regex(%binary,/<td><a href="\?rs2monster_id=(.*?)">(.*?)<\/a>/)
xdid -a tab 170 0 0 + 0 0 0 0 0 0 $regml(1) $chr(9) + 0 $regml(2)
}
}
}
unset %monster.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxmonsta: {
sockwrite -nt $sockname GET $+(/runescape/index.php?rs2monster_id=,%monsta.id) HTTP/1.0
sockwrite -nt $sockname Host: www.tip.it
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxmonsta: {
if ($sockerr) { echo -a Tip.It is currently not working | unset %monsta.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname) &monsta
if ($bfind(&monsta,1,</html>)) {
var %name1 = $bfind(&monsta,1,<b>Name:</b>)
var %name2 = $calc($bfind(&monsta,%name1,<td width="20%">) +16)
var %race1 = $bfind(&monsta,1,<b>Race:</b>)
var %race2 = $calc($bfind(&monsta,%race1,<td width="20%">) +16)
var %lvl1 = $bfind(&monsta,1,<b>Level:</b>)
var %lvl2 = $calc($bfind(&monsta,%lvl1,<td width="20%">) +16)
var %hp1 = $bfind(&monsta,1,<b>Hits:</b>)
var %hp2 = $calc($bfind(&monsta,%hp1,<td width="20%">) +16)
var %ratio1 = $bfind(&monsta,1,<b>Ratio:</b>)
var %ratio2 = $calc($bfind(&monsta,%ratio1,<td width="20%">) +16)
var %agg1 = $calc($bfind(&monsta,1,<b>Aggressive?</b>) +18)
var %ret1 = $calc($bfind(&monsta,1,<b>Retreats?</b>) +16)
var %qu1 = $calc($bfind(&monsta,1,<b>Quest?</b>) +13)
var %mem1 = $calc($bfind(&monsta,1,<b>Members?</b>) +15)
var %mem2 = $remove($bvar(&monsta,%mem1,$calc($bfind(&monsta,%mem1,</td>) - %mem1)).text, )
var %dds1 = $calc($bfind(&monsta,1,<b>Poisonous?</b>) +17)
var %habit1 = $bfind(&monsta,1,<b>Habitat:</b>)
var %habit2 = $nohtml($bvar(&monsta,$bfind(&monsta,%habit1,<ul>),$calc($bfind(&monsta,$bfind(&monsta,%habit1,<ul>),</ul>) - $bfind(&monsta,%habit1,<ul>))).text)
var %habit3 = 1, %habit4 = 1, %wep4 = 1, %wep5 = 1, %arm4 = 1, %arm5 = 1, %arrow4 = 1, %arrow5 = 1, %misc4 = 1, %misc5 = 1
while (%habit3 <= $token(%habit2,0,10)) {
hadd -m Habitat $replace($token(%habit2,%habit3,10),$chr(32),_)
inc %habit3
}
var %drop1 = $calc($bfind(&monsta,1,<b>P2P Only drops:</b>) +22)
var %wep1 = $calc($bfind(&monsta,%drop1,<li><b>Weapon:</b>) +18)
var %wep2 = $bfind(&monsta,%wep1,</li>)
var %wep3 = $bvar(&monsta,%wep1,$calc(%wep2 - %wep1)).text
var %arm1 = $calc($bfind(&monsta,%drop1,<li><b>Armour:</b>) +18)
var %arm2 = $bfind(&monsta,%arm1,</li>)
var %arm3 = $bvar(&monsta,%arm1,$calc(%arm2 - %arm1)).text
var %arrow1 = $calc($bfind(&monsta,%drop1,<li><b>Runes/Arrows:</b>) +24)
var %arrow2 = $bfind(&monsta,%arrow1,</li>)
var %arrow3 = $regsubex($bvar(&monsta,%arrow1,$calc(%arrow2 - %arrow1)).text,/(\d+)(\Q $+ $chr(44) $+ \E)(\d+)/g,\1-\3)
var %misc1 = $calc($bfind(&monsta,%drop1,<li><b>Misc:</b>) +16)
var %misc2 = $bfind(&monsta,%misc1,</li>)
var %misc3 = $regsubex($bvar(&monsta,%misc1,$calc(%misc2 - %misc1)).text,/(\d+)(\Q $+ $chr(44) $+ \E)(\d+)/g,\1-\3)
while (%wep4 <= $gettok(%wep3,0,44)) {
hadd -m P2Pwep $iif($token(%wep3,%wep4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %wep4
}
while (%arm4 <= $gettok(%arm3,0,44)) {
hadd -m P2Parm $iif($token(%arm3,%arm4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %arm4
}
while (%arrow4 <= $gettok(%arrow3,0,44)) {
hadd -m P2Parrow $iif($token(%arrow3,%arrow4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %arrow4
}
while (%misc4 <= $gettok(%misc3,0,44)) {
hadd -m P2Pmisc $iif($token(%misc3,%misc4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %misc4
}
if ($bfind(&monsta,%drop1,<li><b>Seeds:</b>)) {
var %seed4 = 1, %seed5 = 1
var %seed1 = $calc($v1 +17)
var %seed2 = $bfind(&monsta,%seed1,</li>)
var %seed3 = $regsubex($bvar(&monsta,%seed1,$calc(%seed2 - %seed1)).text,/(\d+)(\Q $+ $chr(44) $+ \E)(\d+)/g,\1-\3)
while (%seed4 <= $token(%seed3,0,44)) {
hadd -m P2Pseed $iif($token(%seed3,%seed4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %seed4
}
}
if (%mem2 == No) {
var %drop2 = $calc($bfind(&monsta,1,<b>F2P/P2P drops:</b>) +21)
var %fwep1 = $calc($bfind(&monsta,%drop2,<li><b>Weapon:</b>) +18)
var %fwep2 = $bfind(&monsta,%fwep1,</li>)
var %fwep3 = $bvar(&monsta,%fwep1,$calc(%fwep2 - %fwep1)).text
var %farm1 = $calc($bfind(&monsta,%drop2,<li><b>Armour:</b>) +18)
var %farm2 = $bfind(&monsta,%farm1,</li>)
var %farm3 = $bvar(&monsta,%farm1,$calc(%farm2 - %farm1)).text
var %farrow1 = $calc($bfind(&monsta,%drop2,<li><b>Runes/Arrows:</b>) +24)
var %farrow2 = $bfind(&monsta,%farrow1,</li>)
var %farrow3 = $regsubex($bvar(&monsta,%farrow1,$calc(%farrow2 - %farrow1)).text,/(\d+)(\Q $+ $chr(44) $+ \E)(\d+)/g,\1-\3)
var %fmisc1 = $calc($bfind(&monsta,%drop2,<li><b>Misc:</b>) +16)
var %fmisc2 = $bfind(&monsta,%fmisc1,</li>)
var %fmisc3 = $regsubex($bvar(&monsta,%fmisc1,$calc(%fmisc2 - %fmisc1)).text,/(\d+)(\Q $+ $chr(44) $+ \E)(\d+)/g,\1-\3)
var %fwep4 = 1, %fwep5 = 1, %farm4 = 1, %farm5 = 1, %farrow4 = 1, %farrow5 = 1, %fmisc4 = 1, %fmisc5 = 1
while (%fwep4 <= $gettok(%fwep3,0,44)) {
hadd -m F2Pwep $iif($token(%fwep3,%fwep4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %fwep4
}
while (%farm4 <= $gettok(%farm3,0,44)) {
hadd -m F2Parm $iif($token(%farm3,%farm4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %farm4
}
while (%farrow4 <= $gettok(%farrow3,0,44)) {
hadd -m F2Parrow $iif($token(%farrow3,%farrow4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %farrow4
}
while (%fmisc4 <= $gettok(%fmisc3,0,44)) {
hadd -m F2Pmisc $iif($token(%fmisc3,%fmisc4,44) != $chr(32),$replace($v1,$chr(32),_),-)
inc %fmisc4
}
}
xdid -t tab 176 $bvar(&monsta,%name2,$calc($bfind(&monsta,%name2,</td>) - %name2)).text
xdid -t tab 177 $bvar(&monsta,%race2,$calc($bfind(&monsta,%race2,</td>) - %race2)).text
xdid -t tab 178 $bvar(&monsta,%lvl2,$calc($bfind(&monsta,%lvl2,</td>) - %lvl2)).text
xdid -t tab 179 $bvar(&monsta,%hp2,$calc($bfind(&monsta,%hp2,</td>) - %hp2)).text
xdid -t tab 180 $bvar(&monsta,%ratio2,$calc($bfind(&monsta,%ratio2,</td>) - %ratio2)).text
xdid -t tab 186 $remove($bvar(&monsta,%agg1,$calc($bfind(&monsta,%agg1,</td>) - %agg1)).text, )
xdid -t tab 187 $remove($bvar(&monsta,%ret1,$calc($bfind(&monsta,%ret1,</td>) - %ret1)).text, )
xdid -t tab 188 $remove($bvar(&monsta,%qu1,$calc($bfind(&monsta,%qu1,</td>) - %qu1)).text, )
xdid -t tab 189 %mem2
xdid -t tab 190 $remove($bvar(&monsta,%dds1,$calc($bfind(&monsta,%dds1,</td>) - %dds1)).text, )
while (%habit4 <= $hget(Habitat,0).item) {
xdid -a tab 191 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(Habitat,%habit4).item,_,$chr(32))
inc %habit4
}
$iif(%mem2 == No,xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 P2P Drops:)
$iif(%mem2 == No,xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10))
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Weapon Drops:
while (%wep5 <= $hget(P2Pwep,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(P2Pwep,%wep5).item,_,$chr(32))
inc %wep5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Armour Drops:
while (%arm5 <= $hget(P2Parm,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(P2Parm,%arm5).item,_,$chr(32))
inc %arm5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Runes/Arrow Drops:
while (%arrow5 <= $hget(P2Parrow,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(P2Parrow,%arrow5).item,_,$chr(32))
inc %arrow5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Misc:
while (%misc5 <= $hget(P2Pmisc,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(P2Pmisc,%misc5).item,_,$chr(32))
inc %misc5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
if ($hget(P2Pseed)) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Seeds:
while (%seed5 <= $hget(P2Pseed,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(P2Pseed,%seed5).item,_,$chr(32))
inc %seed5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
}
if (%mem2 == No) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 F2P Drops:
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Weapon Drops:
while (%fwep5 <= $hget(F2Pwep,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(F2Pwep,%fwep5).item,_,$chr(32))
inc %fwep5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Armour Drops:
while (%farm5 <= $hget(F2Parm,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(F2Parm,%farm5).item,_,$chr(32))
inc %farm5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Runes/Arrow Drops:
while (%farrow5 <= $hget(F2Parrow,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(F2Parrow,%farrow5).item,_,$chr(32))
inc %farrow5
}
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $chr(10)
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 Misc:
while (%fmisc5 <= $hget(F2Pmisc,0).item) {
xdid -a tab 192 0 0 + 0 0 0 0 0 0 $chr(9) + 0 $replace($hget(F2Pmisc,%fmisc5).item,_,$chr(32))
inc %fmisc5
}
}
hfree Habitat | hfree -w P2P* | hfree -w F2P*
unset %monsta.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxgoogle: {
sockwrite -nt $sockname GET $+(/search?client=opera&rls=en&q=,%google.search,&sourceid=opera&ie=utf-8&oe=utf-8) HTTP/1.0
sockwrite -nt $sockname Host: www.google.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxgoogle: {
if ($sockerr) { echo -a Google is currently not working | unset %google.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &google
if ($bfind(&google,1,</html>)) {
if ($bfind(&google,1,did not match any documents.)) {
dialog -m Noresult Noresult
}
else {
var %result1 = $calc($bfind(&google,1,of about) +9)
var %result2 = $calc($bfind(&google,%result1,for) -5)
var %result3 = $nohtml($remove($bvar(&google,%result1,$calc(%result2 - %result1)).text,$chr(44)))
var %googa = 1, %goog2 = $bfind(&google,1,<div class=g>)
while (%googa <= $iif(%result3 <= 4,$v1,4)) {
var %goog1 = $bfind(&google,$calc(%goog2 +1),<h2 class=r>)
var %goog2 = $bfind(&google,%goog1,</h2>)
var %goog3 = $symbol($bvar(&google,%goog1,$calc(%goog2 - %goog1)).text)
var %gdesc1 = $bfind(&google,%goog2,<font size=-1>)
var %gdesc2 = $bfind(&google,%gdesc1,<span class=a>)
var %gdesc3 = $symbol($nohtml($bvar(&google,%gdesc1,$calc(%gdesc2 - %gdesc1)).text))
noop $regex(google,%goog3,/<h2 class=r><a href="(.*)" class=l>(.*)<\/a>/)
set %ggglink. [ $+ [ %googa ] ] $regml(google,1)
xdid -t tab $calc(195 + %googa) $nohtml($regml(google,2))
xdid -f tab $calc(195 + %googa) +u ansi 10 Tahoma
xdid -t tab $calc(199 + %googa) %gdesc3
xdid -t tab $calc(203 + %googa) Read More...
inc %googa
}
}
unset %google.*
.remove $sockname
sockclose $sockname
}
}
}
on *:sockopen:dcxtranslate: {
sockwrite -nt $sockname GET $+(/.htm?sequence=core&mode=html&charset=UTF-8&template=results_en-us.htm&language=,%translate.lang,&srctext=,%translate.search,&a=a&e=e&i=i&o=o&u=u&misc=misc&Submit=FREE+Translation) HTTP/1.0
sockwrite -nt $sockname Host: ets.freetranslation.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxtranslate: {
if ($sockerr) { echo -a FreeTranslation.com is currently not working | unset %translate.* | sockclose $sockname | halt }
else {
var %sockreader
sockread %sockreader
if $regex(%sockreader,/<textarea name="dsttext" cols="40" rows="6">(.*?)<\/textarea><br \/>/) {
xdid -a tab 211 $symbol($regml(1))
unset %translate.*
sockclose $sockname
}
}
}
on *:sockopen:dcxyoutube: {
sockwrite -nt $sockname GET $+(/results?search_query=,%youtube.search,&search=Search) HTTP/1.0
sockwrite -nt $sockname Host: ie.youtube.com
sockwrite -nt $sockname $crlf
}
on *:sockread:dcxyoutube: {
if ($sockerr) { echo -a Youtube is currently not working | unset %youtube.* | sockclose $sockname | halt }
else {
while ($sock($sockname).rq) {
sockread &sockreader
bwrite $sockname -1 -1 &sockreader
}
bread $sockname 0 $file($sockname).size &youtube
if ($bfind(&youtube,1,</html>)) {
if ($bfind(&youtube,1,No videos found)) {
dialog -m Noresult Noresult
}
else {
var %ytamm1 = $bfind(&youtube,1,</strong)
var %ytamm2 = $bfind(&youtube,%ytamm1,<strong>)
var %ytamm3 = $bfind(&youtube,%ytamm2,</strong>)
var %ytamm4 = $remove($nohtml($bvar(&youtube,%ytamm2,$calc(%ytamm3 - %ytamm2)).text),$chr(44))
var %yinc 1, %ytlink2 = $bfind(&youtube,1,<div class="vSnippetTitle">)
while (%yinc <= $iif(%ytamm4 <= 4,$v1,4)) {
var %ytlink1 = $calc($bfind(&youtube,$calc(%ytlink2 + 1),<a class="newvtitlelink" href=") +31)
var %ytlink2 = $bfind(&youtube,%ytlink1," rel="nofollow")
var %ytlink3 = $bvar(&youtube,%ytlink1,$calc(%ytlink2 - %ytlink1)).text
var %ytname2 = $bfind(&youtube,%ytlink1,</a><br/>)
var %ytname3 = $nohtml($bvar(&youtube,$calc(%ytlink1 -31),$calc(%ytname2 - $calc(%ytlink1 -31))).text)
var %ytdesc1 = $bfind(&youtube,%ytlink1,<span id="BeginvidDesc)
var %ytdesc2 = $bfind(&youtube,%ytdesc1,</span>)
var %ytdesc3 = $remove($nohtml($symbol($bvar(&youtube,%ytdesc1,$calc(%ytdesc2 - %ytdesc1)).text)),$chr(9))
var %yttime1 = $bfind(&youtube,%ytlink2,<span class="smgrayText" style="font-size: 12px;">)
var %yttime2 = $bfind(&youtube,%yttime1,</span>)
var %yttime3 = $bfind(&youtube,$calc(%yttime2 +1),</span>)
var %yttime4 = $nohtml($bvar(&youtube,%yttime1,$calc(%yttime3 - %yttime1)).text)
set %ytlink. [ $+ [ %yinc ] ] ie.youtube.com $+ %ytlink3
xdid -t tab $calc(216 + %yinc) %ytname3
xdid -f tab $calc(216 + %yinc) +u ansi 10 Tahoma
xdid -t tab $calc(220 + %yinc) %ytdesc3
xdid -t tab $calc(224 + %yinc) %yttime4
xdid -t tab $calc(228 + %yinc) View
inc %yinc
}
}
unset %youtube.*
.remove $sockname
sockclose $sockname
}
}
}
dialog Noresult {
size -1 -1 110 50
title "No results were found"
option dbu
text "No results for your search was found, please check your spelling and try again." 1, 5 5 100 30
button "Close" 2, 40 35 30 10, cancel
}
dialog Statn {
size -1 -1 110 50
title "User was not on highscores"
option dbu
text "Unfortunately the user you searched for was not on runescape highscores, please check your spellings and search again." 2, 5 5 100 30
button "Close" 1,40 35 30 10, Cancel
}
dialog Comparen {
size -1 -1 110 50
title "User not on highscores"
option dbu
text "" 2, 5 5 100 30
button "Close" 1,40 35 30 10, Cancel
}
alias dcx {
if ($isid) return $dll($scriptdirdcx.dll,$1,$2-)
else dll " $+ $scriptdirdcx.dll" $1 $2-
}
alias udcx {
if ($dcx(IsUnloadSafe)) $iif($menu, .timer 1 0) dll -u dcx.dll
else echo 4 -qmlbfti2 [DCX] Unable to Unload Dll.
}
alias xdid {
if ( $isid ) return $dcx( _xdid, $1 $2 $prop $3- )
dcx xdid $2 $3 $1 $4-
}
alias xdialog {
if ( $isid ) return $dcx( _xdialog, $1 $prop $2- )
dcx xdialog $2 $1 $3-
}
alias xpop {
if ( $isid ) return $dcx( _xpop, $1 $prop $2- )
dcx xpop $2 $1 $3-
}
alias xpopup {
if ( $isid ) return $dcx( _xpopup, $1 $prop $2- )
dcx xpopup $2 $1 $3-
}
alias mpopup {
dcx mpopup $1 $2
}
alias xdock {
if ($isid) return $dcx( _xdock, $1 $prop )
dcx xdock $1-
}
alias xtray {
if ($isid) return $dcx(TrayIcon, $1 $prop $2-)
dcx TrayIcon $1-
}
alias tab {
var %i = 1, %tab
while (%i <= $0) {
if ($eval($+($,%i),2) != $null) {
%tab = $instok(%tab,$eval($+($,%i),2),$calc($numtok(%tab,9) + 1),9)
}
inc %i
}
return %tab
}
alias -l clantype {
if ($1 == All) return 0
elseif ($1 == Clans) return 1
elseif ($1 == Non-clans) return 2
}
alias -l pricearea {
if ($1 == 1) return 1
elseif ($1 == 2) return 2
elseif ($1 == 3) return 4
elseif ($1 == 4) return 5
elseif ($1 == 5) return 8
elseif ($1 == 6) return 7
elseif ($1 == 7) return 6
elseif ($1 == 8) return 3
elseif ($1 == 9) return 9
elseif ($1 == 10) return 10
}
alias -l clancate {
if ($1 == 1) return $null
elseif ($1 == 2) return clan
elseif ($1 == 3) return non-clan
elseif ($1 == 4) return 2
elseif ($1 == 5) return 3
elseif ($1 == 6) return 4
elseif ($1 == 7) return 5
elseif ($1 == 8) return 6
elseif ($1 == 9) return 7
}
alias -l timezone {
if ($1 == 1) return $null
elseif ($1 == 2) return 1
elseif ($1 == 3) return 2
elseif ($1 == 4) return 3
}
alias -l p2p {
if ($1 == 1) return $Null
elseif ($1 == 2) return 1
elseif ($1 == 3) return 2
elseif ($1 == 4) return 3
}
alias -l cape {
if ($1 == 1) return $null
elseif ($1 == 2) return 1
elseif ($1 == 3) return 2
elseif ($1 == 4) return 3
elseif ($1 == 5) return 4
elseif ($1 == 6) return 5
elseif ($1 == 7) return 6
elseif ($1 == 8) return 7
}
alias -l getskill {
if ($1 == 0) || ($regex($1,/^(st|(skill)?total|over(all)?)$/Si)) return Overall
elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
elseif ($1 == 22) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter
elseif ($1 == 23) || ($regex($1,/^(con|construct)(ion|ing)?$/Si)) return Construction
}
alias -l xp {
if ($isid) {
var %e, %x = 1, %y = $1
while (%x < %y) {
inc %e $floor($calc(%x + 300 * 2 ^ (%x / 7)))
inc %x
}
return $floor($calc(%e / 4))
}
}
alias -l xp2Next {
tokenize 32 $1-
var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
return $calc(%nextxp - %xp)
}
alias -l cmbformula {
tokenize 32 $1-
var %base = $calc( $2 + $4 + $floor($calc( $6 /2)))
var %melee = $calc( $1 + $3 )
var %mage = $calc( $7 + $floor($calc( $7 /2)))
var %range = $calc( $5 + $floor($calc( $5 /2)))
if (%melee > %mage && %melee > %range) {
var %result = $calc(( %base *100+ %melee *130)/400)
}
elseif (%mage > %melee && %mage > %range) {
var %result = $calc(( %base *100+ %mage *130)/400)
}
elseif (%range > %mage && %range > %melee) {
var %result = $calc(( %base *100+ %range * 130)/400)
}
return %result
}
alias -l magic {
tokenize 32 $1-
var %base = $calc( $2 + $4 + $floor($calc( $6 /2)))
var %melee = $calc( $1 + $3 )
var %mage = $calc( $7 + $floor($calc( $7 /2)))
var %range = $calc( $5 + $floor($calc( $5 /2)))
return $calc(( %base *100+ %mage *130)/400)
}
alias -l melee {
tokenize 32 $1-
var %base = $calc( $2 + $4 + $floor($calc( $6 /2)))
var %melee = $calc( $1 + $3 )
var %mage = $calc( $7 + $floor($calc( $7 /2)))
var %range = $calc( $5 + $floor($calc( $5 /2)))
return $calc(( %base *100+ %melee *130)/400)
}
alias -l range {
tokenize 32 $1-
var %base = $calc( $2 + $4 + $floor($calc( $6 /2)))
var %melee = $calc( $1 + $3 )
var %mage = $calc( $7 + $floor($calc( $7 /2)))
var %range = $calc( $5 + $floor($calc( $5 /2)))
return $calc(( %base *100+ %range * 130)/400)
}
alias -l cmblvl2up {
tokenize 32 $1-
var %base = $calc( $2 + $4 + $floor($calc( $6 /2)))
var %melee = $calc( $1 + $3 )
var %mage = $calc( $7 + $floor($calc( $7 /2)))
var %range = $calc( $5 + $floor($calc( $5 /2)))
if (%melee > %mage && %melee > %range) {
var %result = $calc(( %base *100+ %melee *130)/400)
var %nxtlvlxp = $calc(($floor(%result) +1) - %result)
var %nxtlvl = Att/Str: $ceil($calc(%nxtlvlxp /0.325535)) Hp/Def: $ceil($calc(%nxtlvlxp /0.25)) Pray: $ceil($calc(%nxtlvlxp /0.124))
}
elseif (%mage > %melee && %mage > %range) {
var %result = $calc(( %base *100+ %mage *130)/400)
var %nxtlvlxp = $calc(($floor(%result) +1) - %result)
var %nxtlvl = Mage: $ceil($calc(%nxtlvlxp /0.487)) Hp/Def: $ceil($calc(%nxtlvlxp /0.25)) Pray: $ceil($calc(%nxtlvlxp /0.124))
}
elseif (%range > %mage && %range > %melee) {
var %result = $calc(( %base *100+ %range * 130)/400)
var %nxtlvlxp = $calc(($floor(%result) +1) - %result)
var %nxtlvl = Range: $ceil($calc(%nxtlvlxp /0.487)) Hp/Def: $ceil($calc(%nxtlvlxp /0.25)) Pray: $ceil($calc(%nxtlvlxp /0.124))
}
return %nxtlvl
}
alias -l Single {
tokenize 32 $1-
var %1p = $comma($round($calc($2 /((($3 ^2))/ $iif($1 == Prayer,12,6))),0))
return %1p
}
alias -l Ten {
tokenize 32 $1-
var %10 = $comma($round($calc($2 /((($3 ^2)/ $iif($1 == Prayer,12,6))+((($3 ^2)/ $iif($1 == Prayer,12.22,6.12))*.01))),0))
return %10
}
alias -l Hundred {
tokenize 32 $1-
var %100p = $comma($round($calc($2 /((($3 ^2)/ $iif($1 == Prayer,12,6))+((($3 ^2)/ $iif($1 == Prayer,12.22,6.12))*.10))),0))
return %100p
}
alias -l forum {
if ($1 == 1) return -1
elseif ($1 == 2) return 13
elseif ($1 == 3) return 14
elseif ($1 == 4) return 15
elseif ($1 == 5) return 16
elseif ($1 == 6) return 17
elseif ($1 == 7) return 18
elseif ($1 == 8) return 19
elseif ($1 == 9) return 20
elseif ($1 == 10) return 21
elseif ($1 == 11) return 22
elseif ($1 == 12) return 23
elseif ($1 == 13) return 24
elseif ($1 == 14) return 25
elseif ($1 == 15) return 26
elseif ($1 == 16) return 27
elseif ($1 == 17) return 28
elseif ($1 == 18) return 29
elseif ($1 == 19) return 30
elseif ($1 == 20) return 31
elseif ($1 == 21) return 32
elseif ($1 == 22) return 33
elseif ($1 == 23) return 34
elseif ($1 == 24) return 35
elseif ($1 == 25) return 56
elseif ($1 == 26) return 36
elseif ($1 == 27) return 37
elseif ($1 == 28) return 38
elseif ($1 == 29) return 39
elseif ($1 == 30) return 40
elseif ($1 == 31) return 41
elseif ($1 == 32) return 42
elseif ($1 == 33) return 55
elseif ($1 == 34) return 43
elseif ($1 == 35) return 44
elseif ($1 == 36) return 45
elseif ($1 == 37) return 46
elseif ($1 == 38) return 47
elseif ($1 == 39) return 48
elseif ($1 == 40) return 49
elseif ($1 == 41) return 50
elseif ($1 == 42) return 51
elseif ($1 == 43) return 52
elseif ($1 == 44) return 53
elseif ($1 == 45) return 54
}
alias -l kbase {
if ($1 == 1) return null
elseif ($1 == 2) return 775
elseif ($1 == 3) return 9
elseif ($1 == 4) return 823
elseif ($1 == 5) return 852
elseif ($1 == 6) return 827
}
alias -l itemp {
if ($1 == 1) return all
elseif ($1 == 2) return 1
elseif ($1 == 3) return 2
}
alias -l item {
if ($1 == 1) return 0
elseif ($1 == 2) return 18
elseif ($1 == 3) return 9
elseif ($1 == 4) return 16
elseif ($1 == 5) return 10
elseif ($1 == 6) return 19
elseif ($1 == 7) return 13
elseif ($1 == 8) return 4
elseif ($1 == 9) return 5
elseif ($1 == 10) return 11
elseif ($1 == 11) return 2
elseif ($1 == 12) return 14
elseif ($1 == 13) return 7
elseif ($1 == 14) return 1
elseif ($1 == 15) return 12
elseif ($1 == 16) return 15
elseif ($1 == 17) return 6
elseif ($1 == 18) return 3
elseif ($1 == 19) return 8
}
alias -l monstacmb {
if ($1 == 1) return All
elseif ($1 == 2) return 0-30
elseif ($1 == 3) return 30-60
elseif ($1 == 4) return 60-90
elseif ($1 == 5) return 90-120
elseif ($1 == 6) return 120
}
alias -l monstarace {
if ($1 == 1) return 0
elseif ($1 == 2) return 1
elseif ($1 == 3) return 2
elseif ($1 == 4) return 3
elseif ($1 == 5) return 4
elseif ($1 == 6) return 7
elseif ($1 == 7) return 5
elseif ($1 == 8) return 6
elseif ($1 == 9) return 8
elseif ($1 == 10) return 9
elseif ($1 == 11) return 11
elseif ($1 == 12) return 12
elseif ($1 == 13) return 13
elseif ($1 == 14) return 15
elseif ($1 == 15) return 16
elseif ($1 == 16) return 17
elseif ($1 == 17) return 18
elseif ($1 == 18) return 19
elseif ($1 == 19) return 20
elseif ($1 == 20) return 21
}
alias -l language {
if ($1 == 1) return English%2FSpanish
elseif ($1 == 2) return English%2FFrench
elseif ($1 == 3) return English%2FGerman
elseif ($1 == 4) return English%2FItalian
elseif ($1 == 5) return English%2FDutch
elseif ($1 == 6) return English%2FPortuguese
elseif ($1 == 7) return Spanish%2FEnglish
elseif ($1 == 8) return French%2FEnglish
elseif ($1 == 9) return German%2FEnglish
elseif ($1 == 10) return Italian%2FEnglish
elseif ($1 == 11) return Dutch%2FEnglish
elseif ($1 == 12) return Portuguese%2FEnglish
}
alias -l dcxchan {
xdid -r tab 236
var %dcxnick 1
while (%dcxnick <= $nick(%dcxchannel,0)) {
xdid -a tab 236 0 $nick(%dcxchannel,%dcxnick).pnick
inc %dcxnick
}
}
alias symbol {
var %x = $regsubex($1-,/&#([0-9]+)(;)?/g,$chr(\t))
var %x = $regsubex(%x,/&(amp)(;)?/gSi,$chr(38))
var %x = $regsubex(%x,/&(middot)(;)?/gSi,$chr(183))
var %x = $regsubex(%x,/&(quot)(;)?/gSi,$chr(34))
var %x = $regsubex(%x,/&(apos)(;)?/gSi,$chr(39))
var %x = $regsubex(%x,/&(lt)(;)?/gSi,$chr(60))
var %x = $regsubex(%x,/&(gt)(;)?/gSi,$chr(62))
var %x = $regsubex(%x,/&(nbsp)(;)?/gSi,$chr(32))
var %x = $regsubex(%x,/&(pound)(;)?/gSi,$chr(163))
var %x = $regsubex(%x,/&(section)(;)?/gSi,$chr(32))
var %x = $regsubex(%x,/&(copy)(;)?/gSi,$chr(169))
var %x = $regsubex(%x,/&(reg)(;)?/gSi,$chr(174))
var %x = $regsubex(%x,/&(trade)(;)?/gSi,$chr(153))
var %x = $regsubex(%x,/&(curren)(;)?/gSi,$chr(164))
var %x = $regsubex(%x,/&(deg)(;)?/gSi,$chr(176))
return %x
}
alias -l comma return $regsubex($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44))
alias -l nohtml { return $regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null) }