Compatibility unverified
This community Razor script has not been tested in game by the Hub. Read its setup and client requirements before use.
Monster Shuffle Bot for UO Outlands, Version 1 by Alpha && Nevor - Automatically plays the casino game monster shuffle (you have to be in a range of 2 tiles towards the game keg to play) - This script will work without any change. There is…
MonsterShuffle-Bro.razor
1# This is an automated backup - check out https://outlands.uorazorscripts.com/script/eea8f6ea-5996-4836-ab2c-109ac341f9b3 for latest2# Automation by Jaseowns3## Script: MonsterShuffle-Bro4## Created by: nev0r#05#############################################6 7//////////////////////////////8//9// Monster Shuffle Bot for UO Outlands, Version 110// by Alpha && Nevor11// - Automatically plays the casino game monster shuffle (you have to be in a range of 2 tiles towards the game keg to play)12// - This script will work without any change. There is an optional setup section below where you can find and adjust some parameters according to your own preferences13// - By default it is set to autopilot and max runspeed14// - 'WARNING': server system messages are needed to determine necessary actions, make sure they are not filtered for scripts: 15// Razor -> Filters -> Text&Messages ->16// - "Enable text filter" and "Filter system messages" (list entry sub-menu) can be checked, however "Ignore filtered messages in overhead and scripts" (list entry sub-menu) has to be unchecked17//18//////////////////////////////19 20######## MANUAL SETUP ########21 22//Let the script or the user decide how to handle results:23 //0 ... You have to manually click which creatures to keep and which ones to reroll24 //1 ... The script decides how to handle results the best way possible25 setvar! msAutoResolve 126 27//Wait time between rolls (to see the results), duration in milliseconds (0 - indefinite)28 setvar! msShowResultDuration 029 30//What are we going to do if we need more gold to continue playing:31 //0 ... Do not add more gold automatically (rational choice)32 //1 ... MORE GOLD NOW!33 setvar! msAutoAddFunds 034 35//Show additional status information for easier debugging36 //0 ... Off37 //1 ... On38 setvar! msDebugMode 039 40###### END MANUAL SETUP ######41 42//////////////////////////////43// 44// Changelog45//46//////////////////////////////47 48setvar! globalWaitForServerResponse 50049setvar! globalWaitForObjectDelay 60050if not timerexists globalObjectDelayTimer51 settimer globalObjectDelayTimer globalWaitForObjectDelay52endif53 54@clearignore55setvar! msGumpID 131264121956if insysmsg "You are out of funds."57endif58 59while findtype 3711|20298 ground -1 -1 2 as localKeg and not insysmsg! "You are out of funds."60 61 if msDebugMode > 062 sysmsg "---- NEW GAME ----" 52 63 settimer msDebugTimer 064 endif65 66 while find localKeg ground -1 -1 2 and not gumpexists msGumpID67 while timer globalObjectDelayTimer < globalWaitForObjectDelay68 endwhile69 dclick localKeg70 settimer globalObjectDelayTimer 071 waitforgump msGumpID globalWaitForServerResponse72 endwhile73 74 if not ingump "Roll!" 131264121975 //Try to reopen gump once to exclude auto-refresh error due to high runspeed76 while timer globalObjectDelayTimer < globalWaitForObjectDelay77 endwhile78 dclick localKeg79 settimer globalObjectDelayTimer 080 waitforgump msGumpID globalWaitForServerResponse81 if not ingump "Roll!" 1312641219 82 overhead "�� FINISH GAME ��" 168083 sysmsg "�� FINISH GAME ��" 168084 stop85 endif86 endif87 88 //Set Jackpot89 removelist msJackpotList90 createlist msJackpotList91 92 if ingump "3x Otyugh" 131264121993 pushlist msJackpotList "Otyugh"94 elseif ingump "3x Colossal Poison Dart Frog" 131264121995 pushlist msJackpotList "Colossal Poison Dart Frog"96 elseif ingump "3x Colossal Black Widow" 131264121997 pushlist msJackpotList "Colossal Black Widow"98 elseif ingump "3x Wildwood Reaper" 131264121999 pushlist msJackpotList "Wildwood Reaper"100 elseif ingump "3x Hellhound" 1312641219101 pushlist msJackpotList "Hellhound"102 elseif ingump "3x Carrion Beetle" 1312641219103 pushlist msJackpotList "Carrion Beetle"104 elseif ingump "3x Daemon" 1312641219105 pushlist msJackpotList "Daemon"106 elseif ingump "3x Ratman" 1312641219107 pushlist msJackpotList "Ratman"108 elseif ingump "3x Dragon" 1312641219109 pushlist msJackpotList "Dragon"110 elseif ingump "3x Living Earth" 1312641219111 pushlist msJackpotList "Living Earth"112 elseif ingump "3x Horse" 1312641219113 pushlist msJackpotList "Horse"114 elseif ingump "3x Fey Spirit Matron" 1312641219115 pushlist msJackpotList "Fey Spirit Matron"116 elseif ingump "3x Deathstalk" 1312641219117 pushlist msJackpotList "Deathstalk"118 elseif ingump "3x Shadowguard" 1312641219119 pushlist msJackpotList "Shadowguard"120 elseif ingump "3x Sand Crawler" 1312641219121 pushlist msJackpotList "Sand Crawler"122 elseif ingump "3x Minotaur Runesmith" 1312641219123 pushlist msJackpotList "Minotaur Runesmith"124 elseif ingump "3x Ettin" 1312641219125 pushlist msJackpotList "Ettin"126 elseif ingump "3x Ophidian Matron" 1312641219127 pushlist msJackpotList "Ophidian Matron"128 elseif ingump "3x Opilion Conservator" 1312641219129 pushlist msJackpotList "Opilion Conservator"130 elseif ingump "3x Frenzied Ostard" 1312641219131 pushlist msJackpotList "Frenzied Ostard"132 elseif ingump "3x Abomination" 1312641219133 pushlist msJackpotList "Abomination"134 elseif ingump "3x Wyvern" 1312641219135 pushlist msJackpotList "Wyvern"136 elseif ingump "3x Molten Idol" 1312641219137 pushlist msJackpotList "Molten Idol"138 elseif ingump "3x Malform" 1312641219139 pushlist msJackpotList "Malform"140 elseif ingump "3x Skeletal Fiend" 1312641219141 pushlist msJackpotList "Skeletal Fiend"142 elseif ingump "3x Corpse Purger" 1312641219143 pushlist msJackpotList "Corpse Purger"144 elseif ingump "3x Temple Guardian" 1312641219145 pushlist msJackpotList "Temple Guardian"146 elseif ingump "3x Terathan Matron" 1312641219147 pushlist msJackpotList "Terathan Matron"148 elseif ingump "3x Lich Magus" 1312641219149 pushlist msJackpotList "Lich Magus"150 elseif ingump "3x Vampire" 1312641219151 pushlist msJackpotList "Vampire"152 endif153 154 //Creatures155 removelist msCreatureList156 createlist msCreatureList157 158 // 1 "Aberration"159 pushlist msCreatureList "Calamity"160 pushlist msCreatureList "Coagulator"161 pushlist msCreatureList "Otyugh"162 // 2 "Amphibian"163 pushlist msCreatureList "Giant Frog"164 pushlist msCreatureList "Chameleon"165 pushlist msCreatureList "Colossal Poison Dart Frog"166 // 3 "Arachnid"167 pushlist msCreatureList "Swamp Spider"168 pushlist msCreatureList "Giant Spider"169 pushlist msCreatureList "Colossal Black Widow"170 // 4 "Arboreal"171 pushlist msCreatureList "Myconid"172 pushlist msCreatureList "Wildwood Guardian"173 pushlist msCreatureList "Wildwood Reaper"174 // 5 "Canine"175 pushlist msCreatureList "Wolf"176 pushlist msCreatureList "Wolfhound"177 pushlist msCreatureList "Hellhound"178 // 6 "Carrion"179 pushlist msCreatureList "Giant Rat"180 pushlist msCreatureList "Corpse Eater"181 pushlist msCreatureList "Carrion Beetle"182 // 7 "Daemonic"183 pushlist msCreatureList "Imp"184 pushlist msCreatureList "Gargoyle"185 pushlist msCreatureList "Daemon"186 // 8 "Demihuman"187 pushlist msCreatureList "Headless"188 pushlist msCreatureList "Orc"189 pushlist msCreatureList "Ratman"190 // 9 "Draconic"191 pushlist msCreatureList "Dragon Whelp"192 pushlist msCreatureList "Drake"193 pushlist msCreatureList "Dragon"194 // 10 "Earthen"195 pushlist msCreatureList "Earth Elemental"196 pushlist msCreatureList "Volcanite"197 pushlist msCreatureList "Living Earth"198 // 11 "Farmland"199 pushlist msCreatureList "Pig"200 pushlist msCreatureList "Cow"201 pushlist msCreatureList "Horse"202 // 12 "Fey"203 pushlist msCreatureList "Dryad"204 pushlist msCreatureList "Faery"205 pushlist msCreatureList "Fey Spirit Matron"206 // 13 "Flora"207 pushlist msCreatureList "Corpser"208 pushlist msCreatureList "Noxweed"209 pushlist msCreatureList "Deathstalk"210 // 14 "Ghostly"211 pushlist msCreatureList "Ghoul"212 pushlist msCreatureList "Banshee"213 pushlist msCreatureList "Shadowguard"214 // 15 "Insectoid"215 pushlist msCreatureList "Scorpion"216 pushlist msCreatureList "Fire Ant"217 pushlist msCreatureList "Sand Crawler"218 // 16 "Minotaur"219 pushlist msCreatureList "Minotaur"220 pushlist msCreatureList "Minotaur Berserker"221 pushlist msCreatureList "Minotaur Runesmith"222 // 17 "Ogroid"223 pushlist msCreatureList "Ogre"224 pushlist msCreatureList "Troll"225 pushlist msCreatureList "Ettin"226 // 18 "Ophidian"227 pushlist msCreatureList "Ophidian Warrior"228 pushlist msCreatureList "Ophidian Mage"229 pushlist msCreatureList "Ophidian Matron"230 // 19 "Opilion"231 pushlist msCreatureList "Opilion Worker"232 pushlist msCreatureList "Opilion Attendant"233 pushlist msCreatureList "Opilion Conservator"234 // 20 "Ostard"235 pushlist msCreatureList "Desert Ostard"236 pushlist msCreatureList "Forest Ostard"237 pushlist msCreatureList "Frenzied Ostard"238 // 21 "Reanimated"239 pushlist msCreatureList "Flesh Hound"240 pushlist msCreatureList "Shambler"241 pushlist msCreatureList "Abomination"242 // 22 "Reptilian"243 pushlist msCreatureList "Primordial"244 pushlist msCreatureList "Lizardman"245 pushlist msCreatureList "Wyvern"246 // 23 "Sentinel"247 pushlist msCreatureList "Observer"248 pushlist msCreatureList "Overseer"249 pushlist msCreatureList "Molten Idol"250 // 24 "Shapeshifter"251 pushlist msCreatureList "Garou"252 pushlist msCreatureList "Lycanthrope"253 pushlist msCreatureList "Malform"254 // 25 "Skeletal"255 pushlist msCreatureList "Skeleton"256 pushlist msCreatureList "Skeletal Guardian"257 pushlist msCreatureList "Skeletal Fiend"258 // 26 "Spitter"259 pushlist msCreatureList "Giant Swamp Slug"260 pushlist msCreatureList "Colossal Swamp Slug"261 pushlist msCreatureList "Corpse Purger"262 // 27 "Stealther"263 pushlist msCreatureList "Jaguar"264 pushlist msCreatureList "Creeping Earth"265 pushlist msCreatureList "Temple Guardian"266 // 28 "Terathan"267 pushlist msCreatureList "Terathan Drone"268 pushlist msCreatureList "Terathan Warrior"269 pushlist msCreatureList "Terathan Matron"270 // 29 "Unliving"271 pushlist msCreatureList "Zombie"272 pushlist msCreatureList "Revenant"273 pushlist msCreatureList "Lich Magus"274 // 30 "Vampiric"275 pushlist msCreatureList "Vampire Bat"276 pushlist msCreatureList "Corpsebride"277 pushlist msCreatureList "Vampire"278 279 setvar! msCreatureMatch 0280 setvar! msJackpotFound 0281 removelist msFoundCreatureList282 createlist msFoundCreatureList283 284 setvar! msType_1 0285 setvar! msType_2 0286 setvar! msType_3 0287 setvar! msTypeMatch 0288 removelist msFoundTypeList289 createlist msFoundTypeList290 291 removelist msResponseList292 createlist msResponseList293 294 if insysmsg "You must finish your current roll before playing again."295 endif296 297 overhead "� ROLLING! � " 52298 gumpresponse 6 msGumpID299 waitforgump msGumpID 20000300 301 for 3302 if not find localKeg ground -1 -1 2 or insysmsg! "You are out of funds."303 break304 elseif ingump "Calamity" 1312641219 and inlist msCreatureList "Calamity"305 poplist msCreatureList "Calamity"306 pushlist msFoundCreatureList "Calamity"307 pushlist msFoundTypeList 1308 elseif ingump "Coagulator" 1312641219 and inlist msCreatureList "Coagulator"309 poplist msCreatureList "Coagulator"310 pushlist msFoundCreatureList "Coagulator"311 pushlist msFoundTypeList 1312 elseif ingump "Otyugh" 1312641219 and inlist msCreatureList "Otyugh" and not inlist msJackpotList "Otyugh"313 poplist msCreatureList "Otyugh"314 pushlist msFoundCreatureList "Otyugh"315 pushlist msFoundTypeList 1316 elseif ingump "Giant Frog" 1312641219 and inlist msCreatureList "Giant Frog"317 poplist msCreatureList "Giant Frog"318 pushlist msFoundCreatureList "Giant Frog"319 pushlist msFoundTypeList 2320 elseif ingump "Chameleon" 1312641219 and inlist msCreatureList "Chameleon"321 poplist msCreatureList "Chameleon"322 pushlist msFoundCreatureList "Chameleon"323 pushlist msFoundTypeList 2324 elseif ingump "Colossal Poison Dart Frog" 1312641219 and inlist msCreatureList "Colossal Poison Dart Frog" and not inlist msJackpotList "Colossal Poison Dart Frog"325 poplist msCreatureList "Colossal Poison Dart Frog"326 pushlist msFoundCreatureList "Colossal Poison Dart Frog"327 pushlist msFoundTypeList 2328 elseif ingump "Swamp Spider" 1312641219 and inlist msCreatureList "Swamp Spider"329 poplist msCreatureList "Swamp Spider"330 pushlist msFoundCreatureList "Swamp Spider"331 pushlist msFoundTypeList 3332 elseif ingump "Giant Spider" 1312641219 and inlist msCreatureList "Giant Spider"333 poplist msCreatureList "Giant Spider"334 pushlist msFoundCreatureList "Giant Spider"335 pushlist msFoundTypeList 3336 elseif ingump "Colossal Black Widow" 1312641219 and inlist msCreatureList "Colossal Black Widow" and not inlist msJackpotList "Colossal Black Widow"337 poplist msCreatureList "Colossal Black Widow"338 pushlist msFoundCreatureList "Colossal Black Widow"339 pushlist msFoundTypeList 3340 elseif ingump "Myconid" 1312641219 and inlist msCreatureList "Myconid"341 poplist msCreatureList "Myconid"342 pushlist msFoundCreatureList "Myconid"343 pushlist msFoundTypeList 4344 elseif ingump "Wildwood Guardian" 1312641219 and inlist msCreatureList "Wildwood Guardian"345 poplist msCreatureList "Wildwood Guardian"346 pushlist msFoundCreatureList "Wildwood Guardian"347 pushlist msFoundTypeList 4348 elseif ingump "Wildwood Reaper" 1312641219 and inlist msCreatureList "Wildwood Reaper" and not inlist msJackpotList "Wildwood Reaper"349 poplist msCreatureList "Wildwood Reaper"350 pushlist msFoundCreatureList "Wildwood Reaper"351 pushlist msFoundTypeList 4352 elseif ingump "Wolf" 1312641219 and not ingump "Wolfhound" 1312641219 and inlist msCreatureList "Wolf"353 poplist msCreatureList "Wolf"354 pushlist msFoundCreatureList "Wolf"355 pushlist msFoundTypeList 5356 elseif ingump "Wolfhound" 1312641219 and inlist msCreatureList "Wolfhound"357 poplist msCreatureList "Wolfhound"358 pushlist msFoundCreatureList "Wolfhound"359 pushlist msFoundTypeList 5360 elseif ingump "Hellhound" 1312641219 and inlist msCreatureList "Hellhound" and not inlist msJackpotList "Hellhound"361 poplist msCreatureList "Hellhound"362 pushlist msFoundCreatureList "Hellhound"363 pushlist msFoundTypeList 5364 elseif ingump "Giant Rat" 1312641219 and inlist msCreatureList "Giant Rat"365 poplist msCreatureList "Giant Rat"366 pushlist msFoundCreatureList "Giant Rat"367 pushlist msFoundTypeList 6368 elseif ingump "Corpse Eater" 1312641219 and inlist msCreatureList "Corpse Eater"369 poplist msCreatureList "Corpse Eater"370 pushlist msFoundCreatureList "Corpse Eater"371 pushlist msFoundTypeList 6372 elseif ingump "Carrion Beetle" 1312641219 and inlist msCreatureList "Carrion Beetle" and not inlist msJackpotList "Carrion Beetle"373 poplist msCreatureList "Carrion Beetle"374 pushlist msFoundCreatureList "Carrion Beetle"375 pushlist msFoundTypeList 6376 elseif ingump "Imp" 1312641219 and inlist msCreatureList "Imp"377 poplist msCreatureList "Imp"378 pushlist msFoundCreatureList "Imp"379 pushlist msFoundTypeList 7380 elseif ingump "Gargoyle" 1312641219 and inlist msCreatureList "Gargoyle"381 poplist msCreatureList "Gargoyle"382 pushlist msFoundCreatureList "Gargoyle"383 pushlist msFoundTypeList 7384 elseif ingump "Daemon" 1312641219 and not ingump "Imp" 1312641219 and not ingump "Gargoyle" 1312641219 and inlist msCreatureList "Daemon" and not inlist msJackpotList "Daemon"385 poplist msCreatureList "Daemon"386 pushlist msFoundCreatureList "Daemon"387 pushlist msFoundTypeList 7388 elseif ingump "Headless" 1312641219 and inlist msCreatureList "Headless"389 poplist msCreatureList "Headless"390 pushlist msFoundCreatureList "Headless"391 pushlist msFoundTypeList 8392 elseif ingump "Orc" 1312641219 and inlist msCreatureList "Orc"393 poplist msCreatureList "Orc"394 pushlist msFoundCreatureList "Orc"395 pushlist msFoundTypeList 8396 elseif ingump "Ratman" 1312641219 and inlist msCreatureList "Ratman" and not inlist msJackpotList "Ratman"397 poplist msCreatureList "Ratman"398 pushlist msFoundCreatureList "Ratman"399 pushlist msFoundTypeList 8400 elseif ingump "Dragon Whelp" 1312641219 and inlist msCreatureList "Dragon Whelp"401 poplist msCreatureList "Dragon Whelp"402 pushlist msFoundCreatureList "Dragon Whelp"403 pushlist msFoundTypeList 9404 elseif ingump "Drake" 1312641219 and inlist msCreatureList "Drake"405 poplist msCreatureList "Drake"406 pushlist msFoundCreatureList "Drake"407 pushlist msFoundTypeList 9408 elseif ingump "Dragon" 1312641219 and not ingump "Dragon Whelp" 1312641219 and inlist msCreatureList "Dragon" and not inlist msJackpotList "Dragon"409 poplist msCreatureList "Dragon"410 pushlist msFoundCreatureList "Dragon"411 pushlist msFoundTypeList 9412 elseif ingump "Earth Elemental" 1312641219 and inlist msCreatureList "Earth Elemental"413 poplist msCreatureList "Earth Elemental"414 pushlist msFoundCreatureList "Earth Elemental"415 pushlist msFoundTypeList 10416 elseif ingump "Volcanite" 1312641219 and inlist msCreatureList "Volcanite"417 poplist msCreatureList "Volcanite"418 pushlist msFoundCreatureList "Volcanite"419 pushlist msFoundTypeList 10420 elseif ingump "Living Earth" 1312641219 and inlist msCreatureList "Living Earth" and not inlist msJackpotList "Living Earth"421 poplist msCreatureList "Living Earth"422 pushlist msFoundCreatureList "Living Earth"423 pushlist msFoundTypeList 10424 elseif ingump "Pig" 1312641219 and inlist msCreatureList "Pig"425 poplist msCreatureList "Pig"426 pushlist msFoundCreatureList "Pig"427 pushlist msFoundTypeList 11428 elseif ingump "Cow" 1312641219 and inlist msCreatureList "Cow"429 poplist msCreatureList "Cow"430 pushlist msFoundCreatureList "Cow"431 pushlist msFoundTypeList 11432 elseif ingump "Horse" 1312641219 and inlist msCreatureList "Horse" and not inlist msJackpotList "Horse"433 poplist msCreatureList "Horse"434 pushlist msFoundCreatureList "Horse"435 pushlist msFoundTypeList 11436 elseif ingump "Dryad" 1312641219 and inlist msCreatureList "Dryad"437 poplist msCreatureList "Dryad"438 pushlist msFoundCreatureList "Dryad"439 pushlist msFoundTypeList 12440 elseif ingump "Faery" 1312641219 and inlist msCreatureList "Faery"441 poplist msCreatureList "Faery"442 pushlist msFoundCreatureList "Faery"443 pushlist msFoundTypeList 12444 elseif ingump "Fey Spirit Matron" 1312641219 and inlist msCreatureList "Fey Spirit Matron" and not inlist msJackpotList "Fey Spirit Matron"445 poplist msCreatureList "Fey Spirit Matron"446 pushlist msFoundCreatureList "Fey Spirit Matron"447 pushlist msFoundTypeList 12448 elseif ingump "Corpser" 1312641219 and inlist msCreatureList "Corpser"449 poplist msCreatureList "Corpser"450 pushlist msFoundCreatureList "Corpser"451 pushlist msFoundTypeList 13452 elseif ingump "Noxweed" 1312641219 and inlist msCreatureList "Noxweed"453 poplist msCreatureList "Noxweed"454 pushlist msFoundCreatureList "Noxweed"455 pushlist msFoundTypeList 13456 elseif ingump "Deathstalk" 1312641219 and inlist msCreatureList "Deathstalk" and not inlist msJackpotList "Deathstalk"457 poplist msCreatureList "Deathstalk"458 pushlist msFoundCreatureList "Deathstalk"459 pushlist msFoundTypeList 13460 elseif ingump "Ghoul" 1312641219 and inlist msCreatureList "Ghoul"461 poplist msCreatureList "Ghoul"462 pushlist msFoundCreatureList "Ghoul"463 pushlist msFoundTypeList 14464 elseif ingump "Banshee" 1312641219 and inlist msCreatureList "Banshee"465 poplist msCreatureList "Banshee"466 pushlist msFoundCreatureList "Banshee"467 pushlist msFoundTypeList 14468 elseif ingump "Shadowguard" 1312641219 and inlist msCreatureList "Shadowguard" and not inlist msJackpotList "Shadowguard"469 poplist msCreatureList "Shadowguard"470 pushlist msFoundCreatureList "Shadowguard"471 pushlist msFoundTypeList 14472 elseif ingump "Scorpion" 1312641219 and inlist msCreatureList "Scorpion"473 poplist msCreatureList "Scorpion"474 pushlist msFoundCreatureList "Scorpion"475 pushlist msFoundTypeList 15476 elseif ingump "Fire Ant" 1312641219 and inlist msCreatureList "Fire Ant"477 poplist msCreatureList "Fire Ant"478 pushlist msFoundCreatureList "Fire Ant"479 pushlist msFoundTypeList 15480 elseif ingump "Sand Crawler" 1312641219 and inlist msCreatureList "Sand Crawler" and not inlist msJackpotList "Sand Crawler"481 poplist msCreatureList "Sand Crawler"482 pushlist msFoundCreatureList "Sand Crawler"483 pushlist msFoundTypeList 15484 elseif ingump "Minotaur" 1312641219 and not ingump "Minotaur Berserker" 1312641219 and not ingump "Minotaur Runesmith" 1312641219 and inlist msCreatureList "Minotaur"485 poplist msCreatureList "Minotaur"486 pushlist msFoundCreatureList "Minotaur"487 pushlist msFoundTypeList 16488 elseif ingump "Minotaur Berserker" 1312641219 and inlist msCreatureList "Minotaur Berserker"489 poplist msCreatureList "Minotaur Berserker"490 pushlist msFoundCreatureList "Minotaur Berserker"491 pushlist msFoundTypeList 16492 elseif ingump "Minotaur Runesmith" 1312641219 and inlist msCreatureList "Minotaur Runesmith" and not inlist msJackpotList "Minotaur Runesmith"493 poplist msCreatureList "Minotaur Runesmith"494 pushlist msFoundCreatureList "Minotaur Runesmith"495 pushlist msFoundTypeList 16496 elseif ingump "Ogre" 1312641219 and inlist msCreatureList "Ogre"497 poplist msCreatureList "Ogre"498 pushlist msFoundCreatureList "Ogre"499 pushlist msFoundTypeList 17500 elseif ingump "Troll" 1312641219 and inlist msCreatureList "Troll"501 poplist msCreatureList "Troll"502 pushlist msFoundCreatureList "Troll"503 pushlist msFoundTypeList 17504 elseif ingump "Ettin" 1312641219 and inlist msCreatureList "Ettin" and not inlist msJackpotList "Ettin"505 poplist msCreatureList "Ettin"506 pushlist msFoundCreatureList "Ettin"507 pushlist msFoundTypeList 17508 elseif ingump "Ophidian Warrior" 1312641219 and inlist msCreatureList "Ophidian Warrior"509 poplist msCreatureList "Ophidian Warrior"510 pushlist msFoundCreatureList "Ophidian Warrior"511 pushlist msFoundTypeList 18512 elseif ingump "Ophidian Mage" 1312641219 and inlist msCreatureList "Ophidian Mage"513 poplist msCreatureList "Ophidian Mage"514 pushlist msFoundCreatureList "Ophidian Mage"515 pushlist msFoundTypeList 18516 elseif ingump "Ophidian Matron" 1312641219 and inlist msCreatureList "Ophidian Matron" and not inlist msJackpotList "Ophidian Matron"517 poplist msCreatureList "Ophidian Matron"518 pushlist msFoundCreatureList "Ophidian Matron"519 pushlist msFoundTypeList 18520 elseif ingump "Opilion Worker" 1312641219 and inlist msCreatureList "Opilion Worker"521 poplist msCreatureList "Opilion Worker"522 pushlist msFoundCreatureList "Opilion Worker"523 pushlist msFoundTypeList 19524 elseif ingump "Opilion Attendant" 1312641219 and inlist msCreatureList "Opilion Attendant"525 poplist msCreatureList "Opilion Attendant"526 pushlist msFoundCreatureList "Opilion Attendant"527 pushlist msFoundTypeList 19528 elseif ingump "Opilion Conservator" 1312641219 and inlist msCreatureList "Opilion Conservator" and not inlist msJackpotList "Opilion Conservator"529 poplist msCreatureList "Opilion Conservator"530 pushlist msFoundCreatureList "Opilion Conservator"531 pushlist msFoundTypeList 19532 elseif ingump "Desert Ostard" 1312641219 and inlist msCreatureList "Desert Ostard"533 poplist msCreatureList "Desert Ostard"534 pushlist msFoundCreatureList "Desert Ostard"535 pushlist msFoundTypeList 20536 elseif ingump "Forest Ostard" 1312641219 and inlist msCreatureList "Forest Ostard"537 poplist msCreatureList "Forest Ostard"538 pushlist msFoundCreatureList "Forest Ostard"539 pushlist msFoundTypeList 20540 elseif ingump "Frenzied Ostard" 1312641219 and inlist msCreatureList "Frenzied Ostard" and not inlist msJackpotList "Frenzied Ostard"541 poplist msCreatureList "Frenzied Ostard"542 pushlist msFoundCreatureList "Frenzied Ostard"543 pushlist msFoundTypeList 20544 elseif ingump "Flesh Hound" 1312641219 and inlist msCreatureList "Flesh Hound"545 poplist msCreatureList "Flesh Hound"546 pushlist msFoundCreatureList "Flesh Hound"547 pushlist msFoundTypeList 21548 elseif ingump "Shambler" 1312641219 and inlist msCreatureList "Shambler"549 poplist msCreatureList "Shambler"550 pushlist msFoundCreatureList "Shambler"551 pushlist msFoundTypeList 21552 elseif ingump "Abomination" 1312641219 and inlist msCreatureList "Abomination" and not inlist msJackpotList "Abomination"553 poplist msCreatureList "Abomination"554 pushlist msFoundCreatureList "Abomination"555 pushlist msFoundTypeList 21556 elseif ingump "Primordial" 1312641219 and inlist msCreatureList "Primordial"557 poplist msCreatureList "Primordial"558 pushlist msFoundCreatureList "Primordial"559 pushlist msFoundTypeList 22560 elseif ingump "Lizardman" 1312641219 and inlist msCreatureList "Lizardman"561 poplist msCreatureList "Lizardman"562 pushlist msFoundCreatureList "Lizardman"563 pushlist msFoundTypeList 22564 elseif ingump "Wyvern" 1312641219 and inlist msCreatureList "Wyvern" and not inlist msJackpotList "Wyvern"565 poplist msCreatureList "Wyvern"566 pushlist msFoundCreatureList "Wyvern"567 pushlist msFoundTypeList 22568 elseif ingump "Observer" 1312641219 and inlist msCreatureList "Observer"569 poplist msCreatureList "Observer"570 pushlist msFoundCreatureList "Observer"571 pushlist msFoundTypeList 23572 elseif ingump "Overseer" 1312641219 and inlist msCreatureList "Overseer"573 poplist msCreatureList "Overseer"574 pushlist msFoundCreatureList "Overseer"575 pushlist msFoundTypeList 23576 elseif ingump "Molten Idol" 1312641219 and inlist msCreatureList "Molten Idol" and not inlist msJackpotList "Molten Idol"577 poplist msCreatureList "Molten Idol"578 pushlist msFoundCreatureList "Molten Idol"579 pushlist msFoundTypeList 23580 elseif ingump "Garou" 1312641219 and inlist msCreatureList "Garou"581 poplist msCreatureList "Garou"582 pushlist msFoundCreatureList "Garou"583 pushlist msFoundTypeList 24584 elseif ingump "Lycanthrope" 1312641219 and inlist msCreatureList "Lycanthrope"585 poplist msCreatureList "Lycanthrope"586 pushlist msFoundCreatureList "Lycanthrope"587 pushlist msFoundTypeList 24588 elseif ingump "Malform" 1312641219 and inlist msCreatureList "Malform" and not inlist msJackpotList "Malform"589 poplist msCreatureList "Malform"590 pushlist msFoundCreatureList "Malform"591 pushlist msFoundTypeList 24592 elseif ingump "Skeleton" 1312641219 and inlist msCreatureList "Skeleton"593 poplist msCreatureList "Skeleton"594 pushlist msFoundCreatureList "Skeleton"595 pushlist msFoundTypeList 25596 elseif ingump "Skeletal Guardian" 1312641219 and inlist msCreatureList "Skeletal Guardian"597 poplist msCreatureList "Skeletal Guardian"598 pushlist msFoundCreatureList "Skeletal Guardian"599 pushlist msFoundTypeList 25600 elseif ingump "Skeletal Fiend" 1312641219 and inlist msCreatureList "Skeletal Fiend" and not inlist msJackpotList "Skeletal Fiend"601 poplist msCreatureList "Skeletal Fiend"602 pushlist msFoundCreatureList "Skeletal Fiend"603 pushlist msFoundTypeList 25604 elseif ingump "Giant Swamp Slug" 1312641219 and inlist msCreatureList "Giant Swamp Slug"605 poplist msCreatureList "Giant Swamp Slug"606 pushlist msFoundCreatureList "Giant Swamp Slug"607 pushlist msFoundTypeList 26608 elseif ingump "Colossal Swamp Slug" 1312641219 and inlist msCreatureList "Colossal Swamp Slug"609 poplist msCreatureList "Colossal Swamp Slug"610 pushlist msFoundCreatureList "Colossal Swamp Slug"611 pushlist msFoundTypeList 26612 elseif ingump "Corpse Purger" 1312641219 and inlist msCreatureList "Corpse Purger" and not inlist msJackpotList "Corpse Purger"613 poplist msCreatureList "Corpse Purger"614 pushlist msFoundCreatureList "Corpse Purger"615 pushlist msFoundTypeList 26616 elseif ingump "Jaguar" 1312641219 and inlist msCreatureList "Jaguar"617 poplist msCreatureList "Jaguar"618 pushlist msFoundCreatureList "Jaguar"619 pushlist msFoundTypeList 27620 elseif ingump "Creeping Earth" 1312641219 and inlist msCreatureList "Creeping Earth"621 poplist msCreatureList "Creeping Earth"622 pushlist msFoundCreatureList "Creeping Earth"623 pushlist msFoundTypeList 27624 elseif ingump "Temple Guardian" 1312641219 and inlist msCreatureList "Temple Guardian" and not inlist msJackpotList "Temple Guardian"625 poplist msCreatureList "Temple Guardian"626 pushlist msFoundCreatureList "Temple Guardian"627 pushlist msFoundTypeList 27628 elseif ingump "Terathan Drone" 1312641219 and inlist msCreatureList "Terathan Drone"629 poplist msCreatureList "Terathan Drone"630 pushlist msFoundCreatureList "Terathan Drone"631 pushlist msFoundTypeList 28632 elseif ingump "Terathan Warrior" 1312641219 and inlist msCreatureList "Terathan Warrior"633 poplist msCreatureList "Terathan Warrior"634 pushlist msFoundCreatureList "Terathan Warrior"635 pushlist msFoundTypeList 28636 elseif ingump "Terathan Matron" 1312641219 and inlist msCreatureList "Terathan Matron" and not inlist msJackpotList "Terathan Matron"637 poplist msCreatureList "Terathan Matron"638 pushlist msFoundCreatureList "Terathan Matron"639 pushlist msFoundTypeList 28640 elseif ingump "Zombie" 1312641219 and inlist msCreatureList "Zombie"641 poplist msCreatureList "Zombie"642 pushlist msFoundCreatureList "Zombie"643 pushlist msFoundTypeList 29644 elseif ingump "Revenant" 1312641219 and inlist msCreatureList "Revenant"645 poplist msCreatureList "Revenant"646 pushlist msFoundCreatureList "Revenant"647 pushlist msFoundTypeList 29648 elseif ingump "Lich Magus" 1312641219 and inlist msCreatureList "Lich Magus" and not inlist msJackpotList "Lich Magus"649 poplist msCreatureList "Lich Magus"650 pushlist msFoundCreatureList "Lich Magus"651 pushlist msFoundTypeList 29652 elseif ingump "Vampire Bat" 1312641219 and inlist msCreatureList "Vampire Bat"653 poplist msCreatureList "Vampire Bat"654 pushlist msFoundCreatureList "Vampire Bat"655 pushlist msFoundTypeList 30656 elseif ingump "Corpsebride" 1312641219 and inlist msCreatureList "Corpsebride"657 poplist msCreatureList "Corpsebride"658 pushlist msFoundCreatureList "Corpsebride"659 pushlist msFoundTypeList 30660 elseif ingump "Vampire" 1312641219 and not ingump "Vampire Bat" 1312641219 and inlist msCreatureList "Vampire" and not inlist msJackpotList "Vampire"661 poplist msCreatureList "Vampire"662 pushlist msFoundCreatureList "Vampire"663 pushlist msFoundTypeList 30664 else665 //This is not perfect.. if 1 or 2 is rare, and the other is a common or uncommon creature of the jackpot creature group it is assumed pick 3 is a jackpot creature (and we will check out as unknown type match without rerolling), however it also may be a non jackpot creature match666 //Checking for the actual name of a jackpot creature is useless, because the jackpot creature name is always shown in the gump667 if inlist msCreatureList "Otyugh" and inlist msJackpotList "Otyugh" and ingump "Aberration" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219668 poplist msCreatureList "Otyugh"669 poplist msJackpotList "Otyugh"670 pushlist msFoundCreatureList "Otyugh"671 pushlist msFoundTypeList 1672 elseif inlist msCreatureList "Colossal Poison Dart Frog" and inlist msJackpotList "Colossal Poison Dart Frog" and ingump "Amphibian" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219673 poplist msCreatureList "Colossal Poison Dart Frog"674 poplist msJackpotList "Colossal Poison Dart Frog"675 pushlist msFoundCreatureList "Colossal Poison Dart Frog"676 pushlist msFoundTypeList 2677 elseif inlist msCreatureList "Colossal Black Widow" and inlist msJackpotList "Colossal Black Widow" and ingump "Arachnid" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219678 poplist msCreatureList "Colossal Black Widow"679 poplist msJackpotList "Colossal Black Widow"680 pushlist msFoundCreatureList "Colossal Black Widow"681 pushlist msFoundTypeList 3682 elseif inlist msCreatureList "Wildwood Reaper" and inlist msJackpotList "Wildwood Reaper" and ingump "Arboreal" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219683 poplist msCreatureList "Wildwood Reaper"684 poplist msJackpotList "Wildwood Reaper"685 pushlist msFoundCreatureList "Wildwood Reaper"686 pushlist msFoundTypeList 4687 elseif inlist msCreatureList "Hellhound" and inlist msJackpotList "Hellhound" and ingump "Canine" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219688 poplist msCreatureList "Hellhound"689 poplist msJackpotList "Hellhound"690 pushlist msFoundCreatureList "Hellhound"691 pushlist msFoundTypeList 5692 elseif inlist msCreatureList "Carrion Beetle" and inlist msJackpotList "Carrion Beetle" and ingump "Carrion" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219693 poplist msCreatureList "Carrion Beetle"694 poplist msJackpotList "Carrion Beetle"695 pushlist msFoundCreatureList "Carrion Beetle"696 pushlist msFoundTypeList 6697 elseif inlist msCreatureList "Daemon" and inlist msJackpotList "Daemon" and ingump "Daemonic" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219698 poplist msCreatureList "Daemon"699 poplist msJackpotList "Daemon"700 pushlist msFoundCreatureList "Daemon"701 pushlist msFoundTypeList 7702 elseif inlist msCreatureList "Ratman" and inlist msJackpotList "Ratman" and ingump "Demihuman" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219703 poplist msCreatureList "Ratman"704 poplist msJackpotList "Ratman"705 pushlist msFoundCreatureList "Ratman"706 pushlist msFoundTypeList 8707 elseif inlist msCreatureList "Dragon" and inlist msJackpotList "Dragon" and ingump "Draconic" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219708 poplist msCreatureList "Dragon"709 poplist msJackpotList "Dragon"710 pushlist msFoundCreatureList "Dragon"711 pushlist msFoundTypeList 9712 elseif inlist msCreatureList "Living Earth" and inlist msJackpotList "Living Earth" and ingump "Earthen" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219713 poplist msCreatureList "Living Earth"714 poplist msJackpotList "Living Earth"715 pushlist msFoundCreatureList "Living Earth"716 pushlist msFoundTypeList 10717 elseif inlist msCreatureList "Horse" and inlist msJackpotList "Horse" and ingump "Farmland" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219718 poplist msCreatureList "Horse"719 poplist msJackpotList "Horse"720 pushlist msFoundCreatureList "Horse"721 pushlist msFoundTypeList 11722 elseif inlist msCreatureList "Fey Spirit Matron" and inlist msJackpotList "Fey Spirit Matron" and ingump "Fey" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219723 poplist msCreatureList "Fey Spirit Matron"724 poplist msJackpotList "Fey Spirit Matron"725 pushlist msFoundCreatureList "Fey Spirit Matron"726 pushlist msFoundTypeList 12727 elseif inlist msCreatureList "Deathstalk" and inlist msJackpotList "Deathstalk" and ingump "Flora" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219728 poplist msCreatureList "Deathstalk"729 poplist msJackpotList "Deathstalk"730 pushlist msFoundCreatureList "Deathstalk"731 pushlist msFoundTypeList 13732 elseif inlist msCreatureList "Shadowguard" and inlist msJackpotList "Shadowguard" and ingump "Ghostly" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219733 poplist msCreatureList "Shadowguard"734 poplist msJackpotList "Shadowguard"735 pushlist msFoundCreatureList "Shadowguard"736 pushlist msFoundTypeList 14737 elseif inlist msCreatureList "Sand Crawler" and inlist msJackpotList "Sand Crawler" and ingump "Insectoid" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219738 poplist msCreatureList "Sand Crawler"739 poplist msJackpotList "Sand Crawler"740 pushlist msFoundCreatureList "Sand Crawler"741 pushlist msFoundTypeList 15742 elseif inlist msCreatureList "Minotaur Runesmith" and inlist msJackpotList "Minotaur Runesmith" and ingump "Minotaur" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219743 poplist msCreatureList "Minotaur Runesmith"744 poplist msJackpotList "Minotaur Runesmith"745 pushlist msFoundCreatureList "Minotaur Runesmith"746 pushlist msFoundTypeList 16747 elseif inlist msCreatureList "Ettin" and inlist msJackpotList "Ettin" and ingump "Ogroid" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219748 poplist msCreatureList "Ettin"749 poplist msJackpotList "Ettin"750 pushlist msFoundCreatureList "Ettin"751 pushlist msFoundTypeList 17752 elseif inlist msCreatureList "Ophidian Matron" and inlist msJackpotList "Ophidian Matron" and ingump "Ophidian" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219753 poplist msCreatureList "Ophidian Matron"754 poplist msJackpotList "Ophidian Matron"755 pushlist msFoundCreatureList "Ophidian Matron"756 pushlist msFoundTypeList 18757 elseif inlist msCreatureList "Opilion Conservator" and inlist msJackpotList "Opilion Conservator" and ingump "Opilion" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219758 poplist msCreatureList "Opilion Conservator"759 poplist msJackpotList "Opilion Conservator"760 pushlist msFoundCreatureList "Opilion Conservator"761 pushlist msFoundTypeList 19762 elseif inlist msCreatureList "Frenzied Ostard" and inlist msJackpotList "Frenzied Ostard" and ingump "Ostard" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219763 poplist msCreatureList "Frenzied Ostard"764 poplist msJackpotList "Frenzied Ostard"765 pushlist msFoundCreatureList "Frenzied Ostard"766 pushlist msFoundTypeList 20767 elseif inlist msCreatureList "Abomination" and inlist msJackpotList "Abomination" and ingump "Reanimated" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219768 poplist msCreatureList "Abomination"769 poplist msJackpotList "Abomination"770 pushlist msFoundCreatureList "Abomination"771 pushlist msFoundTypeList 21772 elseif inlist msCreatureList "Wyvern" and inlist msJackpotList "Wyvern" and ingump "Reptilian" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219773 poplist msCreatureList "Wyvern"774 poplist msJackpotList "Wyvern"775 pushlist msFoundCreatureList "Wyvern"776 pushlist msFoundTypeList 22777 elseif inlist msCreatureList "Molten Idol" and inlist msJackpotList "Molten Idol" and ingump "Sentinel" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219778 poplist msCreatureList "Molten Idol"779 poplist msJackpotList "Molten Idol"780 pushlist msFoundCreatureList "Molten Idol"781 pushlist msFoundTypeList 23782 elseif inlist msCreatureList "Malform" and inlist msJackpotList "Malform" and ingump "Shapeshifter" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219783 poplist msCreatureList "Malform"784 poplist msJackpotList "Malform"785 pushlist msFoundCreatureList "Malform"786 pushlist msFoundTypeList 24787 elseif inlist msCreatureList "Skeletal Fiend" and inlist msJackpotList "Skeletal Fiend" and ingump "Skeletal" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219788 poplist msCreatureList "Skeletal Fiend"789 poplist msJackpotList "Skeletal Fiend"790 pushlist msFoundCreatureList "Skeletal Fiend"791 pushlist msFoundTypeList 25792 elseif inlist msCreatureList "Corpse Purger" and inlist msJackpotList "Corpse Purger" and ingump "Spitter" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219793 poplist msCreatureList "Corpse Purger"794 poplist msJackpotList "Corpse Purger"795 pushlist msFoundCreatureList "Corpse Purger"796 pushlist msFoundTypeList 26797 elseif inlist msCreatureList "Temple Guardian" and inlist msJackpotList "Temple Guardian" and ingump "Stealther" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219798 poplist msCreatureList "Temple Guardian"799 poplist msJackpotList "Temple Guardian"800 pushlist msFoundCreatureList "Temple Guardian"801 pushlist msFoundTypeList 27802 elseif inlist msCreatureList "Terathan Matron" and inlist msJackpotList "Terathan Matron" and ingump "Terathan" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219803 poplist msCreatureList "Terathan Matron"804 poplist msJackpotList "Terathan Matron"805 pushlist msFoundCreatureList "Terathan Matron"806 pushlist msFoundTypeList 28807 elseif inlist msCreatureList "Lich Magus" and inlist msJackpotList "Lich Magus" and ingump "Unliving" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219808 poplist msCreatureList "Lich Magus"809 poplist msJackpotList "Lich Magus"810 pushlist msFoundCreatureList "Lich Magus"811 pushlist msFoundTypeList 29812 elseif inlist msCreatureList "Vampire" and inlist msJackpotList "Vampire" and ingump "Vampiric" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219813 poplist msCreatureList "Vampire"814 poplist msJackpotList "Vampire"815 pushlist msFoundCreatureList "Vampire"816 pushlist msFoundTypeList 30817 818 //Correct potential mismatches (Wolf, Daemon, Dragon, Minotaur, Vampire)819 elseif ingump "Wolf" 1312641219 and ingump "Common (1x Match Bonus)" 1312641219 and inlist msCreatureList "Wolf" and msTypeMatch > 0820 poplist msCreatureList "Wolf"821 pushlist msFoundCreatureList "Wolf"822 pushlist msFoundTypeList 5823 elseif ingump "Daemon" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219 and inlist msCreatureList "Daemon" and msTypeMatch > 0824 poplist msCreatureList "Daemon"825 pushlist msFoundCreatureList "Daemon"826 pushlist msFoundTypeList 7827 elseif ingump "Dragon" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219 and inlist msCreatureList "Dragon" and msTypeMatch > 0828 poplist msCreatureList "Dragon"829 pushlist msFoundCreatureList "Dragon"830 pushlist msFoundTypeList 9831 elseif ingump "Minotaur" 1312641219 and ingump "Common (1x Match Bonus)" 1312641219 and inlist msCreatureList "Minotaur" and msTypeMatch > 0832 poplist msCreatureList "Minotaur"833 pushlist msFoundCreatureList "Minotaur"834 pushlist msFoundTypeList 16835 elseif ingump "Vampire" 1312641219 and ingump "Rare (5x Match Bonus)" 1312641219 and inlist msCreatureList "Vampire" and msTypeMatch > 0836 poplist msCreatureList "Vampire"837 pushlist msFoundCreatureList "Vampire"838 pushlist msFoundTypeList 30839 endif840 endif841 842 //Check jackpot creature gump position843 if 0 = index and list msJackpotList = 0844 setvar! msJackpotFound 2845 elseif 1 = index and list msJackpotList = 0 and msJackpotFound != 2846 setvar! msJackpotFound 3847 elseif 2 = index and list msJackpotList = 0 and msJackpotFound != 2 and msJackpotFound != 3848 setvar! msJackpotFound 4849 endif850 851 //Check for creature type match852 if list msFoundTypeList > 0853 if poplist msFoundTypeList front as localCreatureType854 if 0 = index855 setvar! msType_1 localCreatureType856 elseif 1 = index857 setvar! msType_2 localCreatureType858 elseif 2 = index859 setvar! msType_3 localCreatureType860 endif861 endif862 endif863 if msType_1 > 0 and msType_2 > 0 and msType_3 > 0 and msType_1 = msType_2 and msType_2 = msType_3864 setvar! msTypeMatch 123865 elseif msType_1 > 0 and msType_2 > 0 and msType_1 = msType_2866 setvar! msTypeMatch 12867 elseif msType_1 > 0 and msType_3 > 0 and msType_1 = msType_3868 setvar! msTypeMatch 13869 elseif msType_2 > 0 and msType_3 > 0 and msType_2 = msType_3870 setvar! msTypeMatch 23871 endif872 873 //Check outcome874 if 1 = index and list msFoundCreatureList = 1875 //Creature pair 1 & 2 -> Reroll 3 next run if it does not match876 if msDebugMode > 0877 sysmsg "[ MATCH FOUND 1&2 ]" 100878 endif879 if list msJackpotList = 0880 if msDebugMode > 0881 sysmsg "[ JACKPOT PAIR ]" 100882 endif883 setvar! msCreatureMatch 2884 else885 setvar! msCreatureMatch 1886 endif887 setvar! msTypeMatch 12888 setvar! msType_2 msType_1889 elseif 2 = index and list msFoundCreatureList = 1890 //Creature pair 1 & 2 & 3 -> Checkout891 if msDebugMode > 0892 sysmsg "[ MATCH FOUND 1&2&3 ]" 100893 endif894 pushlist msResponseList 2895 pushlist msResponseList 3896 pushlist msResponseList 4897 elseif 2 = index and list msFoundCreatureList = 2898 if msCreatureMatch > 0899 if msCreatureMatch = 1 and msTypeMatch = 123900 if msDebugMode > 0901 sysmsg "[ TYPE MATCH 3 ]" 100902 endif903 //Creature pair 1 & 2 (not jackpot), type match with 3 -> Checkout without rerolling904 pushlist msResponseList 2905 pushlist msResponseList 3906 pushlist msResponseList 4907 else908 //Creature pair 1 & 2, reroll 3909 pushlist msResponseList 2910 pushlist msResponseList 3911 endif912 elseif list msJackpotList = 0913 //Unknown creature pair -> Check for jackpot creature914 if msDebugMode > 0915 overhead "[ JACKPOT PAIR SUSPECTED ]" 33916 overhead "[ SAFETY BREAK ]" 33917 sysmsg "[ JACKPOT PAIR SUSPECTED ]" 33918 sysmsg "[ SAFETY BREAK ]" 33919 endif920 pushlist msResponseList 0921 else922 //Unknown creature pair -> Checkout without rerolling923 if msDebugMode > 0924 sysmsg "[ UNKNOWN PAIR ]" 100925 sysmsg "[ KEEPING ALL ]" 100926 endif927 pushlist msResponseList 2928 pushlist msResponseList 3929 pushlist msResponseList 4930 endif931 elseif 2 = index and msTypeMatch > 0932 if msTypeMatch = 123933 if msDebugMode > 0934 sysmsg "[ GROUP FOUND 1&2&3 ]" 100935 endif936 if list msJackpotList = 0937 if msDebugMode > 0938 overhead "[ TYPE MATCH WITH JACKPOT ]" 33939 overhead "[ SAFETY BREAK ]" 33 940 sysmsg "[ TYPE MATCH WITH JACKPOT ]" 33941 sysmsg "[ SAFETY BREAK ]" 33942 endif943 pushlist msResponseList 0944 endif945 //Checkout without rerolling946 pushlist msResponseList 2947 pushlist msResponseList 3948 pushlist msResponseList 4949 elseif list msJackpotList = 0950 if msDebugMode > 0951 sysmsg "[ TYPE MATCH WITH JACKPOT ]" 100952 sysmsg "[ KEEPING JACKPOT ]" 100953 endif954 elseif msTypeMatch = 12955 //Type pair 1 & 2 -> Reroll 3956 if msDebugMode > 0957 sysmsg "[ GROUP FOUND 1&2 ]" 100958 endif959 pushlist msResponseList 2960 pushlist msResponseList 3961 elseif msTypeMatch = 13962 //Type pair 1 & 3 -> Reroll 2963 if msDebugMode > 0964 sysmsg "[ GROUP FOUND 1&3 ]" 100965 endif966 pushlist msResponseList 2967 pushlist msResponseList 4968 elseif msTypeMatch = 23969 //Type pair 2 & 3 -> Reroll 1970 if msDebugMode > 0971 sysmsg "[ GROUP FOUND 2&3 ]" 100972 endif973 pushlist msResponseList 3974 pushlist msResponseList 4975 else976 //Unknown type pair -> Checkout977 if msDebugMode > 0978 sysmsg "[ UNKNOWN TYPE PAIR ]" 100979 sysmsg "[ KEEPING ALL ]" 100980 endif981 pushlist msResponseList 2982 pushlist msResponseList 3983 pushlist msResponseList 4984 endif985 endif986 987 //Always keep a jackpot creature988 if msJackpotFound > 0 and not inlist msResponseList msJackpotFound989 pushlist msResponseList msJackpotFound front990 endif991 992 //Runspeed management993 if 0 = index994 while not insysmsg "You must finish your current roll before playing again." and find localKeg ground -1 -1 2 and not insysmsg! "You are out of funds."995 gumpresponse 6 msGumpID996 waitforgump msGumpID 20000997 endwhile998 wait globalWaitForServerResponse999 elseif 1 = index1000 while timer globalObjectDelayTimer < globalWaitForObjectDelay1001 endwhile1002 dclick localKeg1003 settimer globalObjectDelayTimer 01004 settimer globalSafetyTimer 01005 waitforgump msGumpID 200001006 wait globalWaitForServerResponse1007 endif1008 1009 endfor1010 1011 if not gumpexists msGumpID or not find localKeg ground -1 -1 2 or insysmsg! "You are out of funds."1012 break1013 endif1014 1015 if msDebugMode > 01016 foreach localCreature in msFoundCreatureList1017 if 2 < index1018 break1019 endif1020 sysmsg "... {{index}}: {{localCreature}}" 1001021 if list msFoundCreatureList = 11022 sysmsg "... 2: {{localCreature}}" 1001023 sysmsg "... 3: {{localCreature}}" 1001024 break1025 elseif 1 = index and list msFoundCreatureList = 21026 sysmsg "... 3: unknown" 1001027 break1028 endif1029 endfor1030 sysmsg "... 1st set: {{msDebugTimer}} ms" 1001031 if msAutoResolve > 01032 wait msShowResultDuration1033 endif1034 endif1035 1036 if msAutoResolve > 01037 if list msResponseList > 01038 while timer globalSafetyTimer < 20001039 //wait until 2 s auto gump refresh is done, or we may lose some already executed selections1040 endwhile1041 getlabel backpack waitForPing1042 foreach localGumpButton in msResponseList1043 if 0 = localGumpButton1044 overhead "�� PLAYER NEEDED! ��" 27601045 overhead "�� SCRIPT STOPPED ��" 27601046 sysmsg "�� PLAYER NEEDED! ��" 27601047 sysmsg "�� SCRIPT STOPPED ��" 27601048 stop1049 endif1050 gumpresponse localGumpButton msGumpID1051 waitforgump msGumpID globalWaitForServerResponse1052 endfor1053 if list msResponseList > 0 and not ingump "Keep" 13126412191054 //Auto gump refresh hit us hard1055 overhead "�� GUMP ERROR ��" 16801056 overhead "�� SCRIPT STOPPED ��" 16801057 sysmsg "�� GUMP ERROR ��" 16801058 sysmsg "�� SCRIPT STOPPED ��" 16801059 endif1060 endif1061 gumpresponse 5 msGumpID1062 waitforgump msGumpID globalWaitForServerResponse1063 dclick localKeg1064 settimer globalObjectDelayTimer 01065 waitforgump msGumpID 200001066 else1067 overhead "[Press -RESOLVE- to Continue]" 901068 sysmsg "[Manual Mode: Awaiting RESOLVE Press]" 901069 endif1070 clearlist msResponseList1071 1072 //Wait for game to finish1073 settimer globalSafetyTimer 10001074 while find localKeg ground -1 -1 2 and not ingump "Roll!" 13126412191075 if msAutoResolve > 0 and timer globalSafetyTimer > 10001076 gumpresponse 5 msGumpID1077 waitforgump msGumpID globalWaitForServerResponse1078 while timer globalObjectDelayTimer < globalWaitForObjectDelay1079 endwhile1080 dclick localKeg1081 settimer globalObjectDelayTimer 01082 settimer globalSafetyTimer 01083 elseif msAutoResolve = 0 and not ingump "Resolve" 13126412191084 while timer globalObjectDelayTimer < globalWaitForObjectDelay1085 endwhile1086 dclick localKeg1087 settimer globalObjectDelayTimer 01088 endif1089 waitforgump msGumpID globalWaitForServerResponse1090 endwhile1091 1092 if ingump "You have won" 13126412191093 overhead "�� YOU HAVE WON! ��" 681094 if msDebugMode > 01095 sysmsg "... Game won: {{msDebugTimer}} ms" 681096 endif1097 else1098 overhead "�� NO MATCHES ��" 521099 if msDebugMode > 01100 sysmsg "... Game lost: {{msDebugTimer}} ms" 501101 endif1102 endif1103 1104 getlabel backpack waitForPing1105 1106 //User defined wait between rolls1107 wait msShowResultDuration1108 1109endwhile1110 1111if not findtype 3711|20298 ground -1 -1 21112 overhead "�� NO GAME FOUND ��" 16801113 sysmsg "�� NO GAME FOUND ��" 16801114elseif insysmsg "You are out of funds."1115 if msAutoAddFunds > 01116 overhead "�� ADDING GOLD ��" 521117 sysmsg "�� ADDING GOLD ��" 521118 gumpresponse 7 msGumpID1119 waitforgump msGumpID globalWaitForServerResponse1120 replay1121 else1122 overhead "�� NO GOLD ��" 16801123 sysmsg "�� NO GOLD ��" 16801124 endif1125endif1126 1127overhead "�� SCRIPT STOPPED ��" 16801128sysmsg "�� SCRIPT STOPPED ��" 1680