ver 2.0
Auto Splitter Reagents Potions Bandages Ropes.razor
1# This is an automated backup - check out https://outlands.uorazorscripts.com/script/d8f50c97-3d9c-468b-9114-0a0623003e19 for latest2# Automation by Jaseowns3## Script: Auto Splitter Reagents, Potions, Bandages, Ropes4## Created by: dennozz#05#############################################6 7#Auto Splitter Reagents, Potions, Bandages, Ropes ver 2.08 9#********** INFORMATION **********# 10 11# Made by @dennozz12 on discord. 12# Inspired/learned by other scrips in https://outlands.uorazorscripts.com/13 14# Split your reagents and recall scrolls into groups to prevent thiefs from stealing all at once15 16# If you like my work and wish to buy me a coffee: https://buymeacoffee.com/dennoz17 18# Splatter: Added Potions (Greater/Total/Leathal), Bandages and Rope19 20#********** SET YOUR SETTINGS **********# 21 22 23#--- Set auto select bag ---#24# 0 - will let you pick the bag25# 1 - will auto select in order : satchel > pouch > backpack bag > rounded bag > main backpack26 27@setvar! autoSelectRegBag 128 29#--- Set auto select Potion bag ---#30# 0 - will let you pick the bag31# 1 - will auto select in order : Potions satchel > pouch > backpack bag > rounded bag > main backpack32@setvar! autoSelectPotionBag 133 34#--- Set auto select bandage/rope bag ---#35# 0 - will let you pick the bag36# 1 - will auto select in order : satchel > pouch > backpack bag > rounded bag > main backpack37@setvar! autoSelectMiscBag 138 39#********** DO NOT EDIT FROM HERE UNLESS YOU KNOW HOW TO SCRIPT **********#40 41clearignore 42 43@setvar! amount 044@setvar! myRegBag 045@setvar! myPotionBag 046@setvar! myBandageBag 047 48@setvar! maxwaittimeinms 65049 50 51if autoSelectRegBag = 152 if findtype 30765 self as b53 @setvar! myRegBag b54 elseif findtype 3705 self as b55 @setvar! myRegBag b56 elseif findtype 3701 self as b57 @setvar! myRegBag b58 elseif findtype 3702 self as b59 @setvar! myRegBag b60 else 61 @setvar! myRegBag backpack62 endif63else 64 clearsysmsg65 overhead "Select bag:" 6866 @setvar! myRegBag67 wait 20068 while not targetexists and not insysmsg "Select"69 @setvar! myRegBag 70 endwhile71 72 if find myRegBag self73 getlabel myRegBag bagLabel74 75 if "wizard's satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel76 sysmsg "new bag set" 5577 else 78 @setvar! myRegBag 079 overhead "That is not a bag" 3480 sysmsg "That is not a bag" 3481 stop82 endif83 else 84 overhead "No bag found!" 3485 stop 86 endif87endif88 89 90if autoSelectPotionBag = 191 if findtype 31262 self as b92 @setvar! myPotionBag b93 elseif findtype 3705 self as b94 @setvar! myPotionBag b95 elseif findtype 3701 self as b96 @setvar! myPotionBag b97 elseif findtype 3702 self as b98 @setvar! myPotionBag b99 else 100 @setvar! myPotionBag backpack101 endif102else 103 clearsysmsg104 overhead "Select Potion bag:" 68105 @setvar! myPotionBag106 wait 200107 while not targetexists and not insysmsg "Select"108 @setvar! myPotionBag 109 endwhile110 111 if find myPotionBag self112 getlabel myPotionBag bagLabel113 114 if "alchemists satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel115 sysmsg "new bag set" 55116 else 117 @setvar! myPotionBag 0118 overhead "That is not a bag" 34119 sysmsg "That is not a bag" 34120 stop121 endif122 else 123 overhead "No bag found!" 34124 stop 125 endif126endif127 128#***** Misc Items *****129 130if autoSelectMiscBag = 1131 if findtype 30765 self as b132 @setvar! myMiscBag b133 elseif findtype 3705 self as b134 @setvar! myMiscBag b135 elseif findtype 3701 self as b136 @setvar! myMiscBag b137 elseif findtype 3702 self as b138 @setvar! myMiscBag b139 else 140 @setvar! myMiscBag backpack141 endif142else 143 clearsysmsg144 overhead "Select Misc bag:" 68145 @setvar! myMiscBag146 wait 200147 while not targetexists and not insysmsg "Select"148 @setvar! myMiscBag 149 endwhile150 151 if find myMiscBag self152 getlabel myMiscBag bagLabel153 154 if "wizard's satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel155 sysmsg "new bag set" 55156 else 157 @setvar! myMiscBag 0158 overhead "That is not a bag" 34159 sysmsg "That is not a bag" 34160 stop161 endif162 else 163 overhead "No bag found!" 34164 stop 165 endif166endif167 168overhead "Splitter Begin.." 55169 170#***** SPIDER SILK 3981 *****171 172@setvar! regsID 3981173@setvar! myCounter 0174 175while findtype regsID self as r 176 @setvar! myCounter index177 @ignore r178endwhile179@clearignore180 181if counttype regsID self <= 10182 @setvar! amount 2183elseif counttype regsID self <= 20184 @setvar! amount 4 185elseif counttype regsID self <= 50186 @setvar! amount 10 187elseif counttype regsID self <= 100188 @setvar! amount 20 189elseif counttype regsID self <= 150190 @setvar! amount 30191elseif counttype regsID self <= 200192 @setvar! amount 40193else 194 @setvar! amount 50195endif196 197while findtype regsID self as regs198 @setvar! moveRegs 0 199 200 if myCounter = 0201 @setvar! moveRegs 1202 elseif myCounter != 0 and not find regs myRegBag203 @setvar! moveRegs 1204 endif205 206 if moveRegs = 1 207 overhead "splitting silks.." 0208 if index = 0209 lift regs amount210 drop myRegBag 44 65 0 211 elseif index = 1212 lift regs amount213 drop myRegBag 68 65 0 214 elseif index = 2215 lift regs amount216 drop myRegBag 96 65 0 217 elseif index = 3218 lift regs amount219 drop myRegBag 121 65 0 220 else221 lift regs amount222 drop myRegBag 142 65 0 223 endif224 endif225 226 @ignore regs 227 228 if moveRegs = 1229 wait maxwaittimeinms230 endif231 232endwhile233 234#***** BLACK PEARL 3962 *****235 236@setvar! regsID 3962237@setvar! myCounter 0238 239while findtype regsID self as r 240 @setvar! myCounter index241 @ignore r242endwhile243@clearignore244 245if counttype regsID self <= 10246 @setvar! amount 2247elseif counttype regsID self <= 20248 @setvar! amount 4 249elseif counttype regsID self <= 50250 @setvar! amount 10 251elseif counttype regsID self <= 100252 @setvar! amount 20 253elseif counttype regsID self <= 150254 @setvar! amount 30255elseif counttype regsID self <= 200256 @setvar! amount 40257else 258 @setvar! amount 50259endif260 261while findtype regsID self as regs262 @setvar! moveRegs 0 263 264 if myCounter = 0265 @setvar! moveRegs 1266 elseif myCounter != 0 and not find regs myRegBag267 @setvar! moveRegs 1268 endif269 270 if moveRegs = 1 271 overhead "splitting pearls.." 11272 if index = 0273 lift regs amount274 drop myRegBag 44 65 0 275 elseif index = 1276 lift regs amount277 drop myRegBag 68 65 0 278 elseif index = 2279 lift regs amount280 drop myRegBag 96 65 0 281 elseif index = 3282 lift regs amount283 drop myRegBag 121 65 0 284 else285 lift regs amount286 drop myRegBag 142 65 0 287 endif288 endif289 290 @ignore regs 291 292 if moveRegs = 1293 wait maxwaittimeinms294 endif295 296endwhile297 298 299#***** NIGHTSHADE 3976 *****300 301@setvar! regsID 3976302@setvar! myCounter 0303 304while findtype regsID self as r 305 @setvar! myCounter index306 @ignore r307endwhile308@clearignore309 310if counttype regsID self <= 10311 @setvar! amount 2312elseif counttype regsID self <= 20313 @setvar! amount 4 314elseif counttype regsID self <= 50315 @setvar! amount 10 316elseif counttype regsID self <= 100317 @setvar! amount 20 318elseif counttype regsID self <= 150319 @setvar! amount 30320elseif counttype regsID self <= 200321 @setvar! amount 40322else 323 @setvar! amount 50324endif325 326while findtype regsID self as regs327 @setvar! moveRegs 0 328 329 if myCounter = 0330 @setvar! moveRegs 1331 elseif myCounter != 0 and not find regs myRegBag332 @setvar! moveRegs 1333 endif334 335 if moveRegs = 1 336 overhead "splitting shades.." 66337 if index = 0338 lift regs amount339 drop myRegBag 44 88 0 340 elseif index = 1341 lift regs amount342 drop myRegBag 68 88 0 343 elseif index = 2344 lift regs amount345 drop myRegBag 96 88 0 346 elseif index = 3347 lift regs amount348 drop myRegBag 121 88 0 349 else350 lift regs amount351 drop myRegBag 142 88 0 352 endif353 endif354 355 @ignore regs 356 357 if moveRegs = 1358 wait maxwaittimeinms359 endif360 361endwhile362 363#***** MANDRAKE ROOT 3974 *****364 365@setvar! regsID 3974366@setvar! myCounter 0367 368while findtype regsID self as r 369 @setvar! myCounter index370 @ignore r371endwhile372@clearignore373 374if counttype regsID self <= 10375 @setvar! amount 2376elseif counttype regsID self <= 20377 @setvar! amount 4 378elseif counttype regsID self <= 50379 @setvar! amount 10 380elseif counttype regsID self <= 100381 @setvar! amount 20 382elseif counttype regsID self <= 150383 @setvar! amount 30384elseif counttype regsID self <= 200385 @setvar! amount 40386else 387 @setvar! amount 50388endif389 390while findtype regsID self as regs391 @setvar! moveRegs 0 392 393 if myCounter = 0394 @setvar! moveRegs 1395 elseif myCounter != 0 and not find regs myRegBag396 @setvar! moveRegs 1397 endif398 399 if moveRegs = 1 400 overhead "splitting roots.." 439401 if index = 0402 lift regs amount403 drop myRegBag 44 88 0 404 elseif index = 1405 lift regs amount406 drop myRegBag 68 88 0 407 elseif index = 2408 lift regs amount409 drop myRegBag 96 88 0 410 elseif index = 3411 lift regs amount412 drop myRegBag 121 88 0 413 else414 lift regs amount415 drop myRegBag 142 88 0 416 endif417 endif418 419 @ignore regs 420 421 if moveRegs = 1422 wait maxwaittimeinms423 endif424 425endwhile426 427#***** SULFUROUS ASH 3980 *****428 429@setvar! regsID 3980430@setvar! myCounter 0431 432while findtype regsID self as r 433 @setvar! myCounter index434 @ignore r435endwhile436@clearignore437 438if counttype regsID self <= 10439 @setvar! amount 2440elseif counttype regsID self <= 20441 @setvar! amount 4 442elseif counttype regsID self <= 50443 @setvar! amount 10 444elseif counttype regsID self <= 100445 @setvar! amount 20 446elseif counttype regsID self <= 150447 @setvar! amount 30448elseif counttype regsID self <= 200449 @setvar! amount 40450else 451 @setvar! amount 50452endif453 454while findtype regsID self as regs455 @setvar! moveRegs 0 456 457 if myCounter = 0458 @setvar! moveRegs 1459 elseif myCounter != 0 and not find regs myRegBag460 @setvar! moveRegs 1461 endif462 463 if moveRegs = 1 464 overhead "splitting ashes.." 56465 if index = 0466 lift regs amount467 drop myRegBag 44 112 0 468 elseif index = 1469 lift regs amount470 drop myRegBag 68 112 0 471 elseif index = 2472 lift regs amount473 drop myRegBag 96 112 0 474 elseif index = 3475 lift regs amount476 drop myRegBag 121 112 0 477 else478 lift regs amount479 drop myRegBag 142 112 0 480 endif481 endif482 483 @ignore regs 484 485 if moveRegs = 1486 wait maxwaittimeinms487 endif488 489endwhile490 491#***** GINSENG 3973 *****492 493@setvar! regsID 3973494@setvar! myCounter 0495 496while findtype regsID self as r 497 @setvar! myCounter index498 @ignore r499endwhile500@clearignore501 502if counttype regsID self <= 10503 @setvar! amount 2504elseif counttype regsID self <= 20505 @setvar! amount 4 506elseif counttype regsID self <= 50507 @setvar! amount 10 508elseif counttype regsID self <= 100509 @setvar! amount 20 510elseif counttype regsID self <= 150511 @setvar! amount 30512elseif counttype regsID self <= 200513 @setvar! amount 40514else 515 @setvar! amount 50516endif517 518while findtype regsID self as regs519 @setvar! moveRegs 0 520 521 if myCounter = 0522 @setvar! moveRegs 1523 elseif myCounter != 0 and not find regs myRegBag524 @setvar! moveRegs 1525 endif526 527 if moveRegs = 1 528 overhead "splitting gings.." 149529 if index = 0530 lift regs amount531 drop myRegBag 44 112 0 532 elseif index = 1533 lift regs amount534 drop myRegBag 68 112 0 535 elseif index = 2536 lift regs amount537 drop myRegBag 96 112 0 538 elseif index = 3539 lift regs amount540 drop myRegBag 121 112 0 541 else542 lift regs amount543 drop myRegBag 142 112 0 544 endif545 endif546 547 @ignore regs 548 549 if moveRegs = 1550 wait maxwaittimeinms551 endif552 553endwhile554 555#***** BLOSSMOSS 3963 *****556 557@setvar! regsID 3963558@setvar! myCounter 0559 560while findtype regsID self as r 561 @setvar! myCounter index562 @ignore r563endwhile564@clearignore565 566if counttype regsID self <= 10567 @setvar! amount 2568elseif counttype regsID self <= 20569 @setvar! amount 4 570elseif counttype regsID self <= 50571 @setvar! amount 10 572elseif counttype regsID self <= 100573 @setvar! amount 20 574elseif counttype regsID self <= 150575 @setvar! amount 30576elseif counttype regsID self <= 200577 @setvar! amount 40578else 579 @setvar! amount 50580endif581 582while findtype regsID self as regs583 @setvar! moveRegs 0 584 585 if myCounter = 0586 @setvar! moveRegs 1587 elseif myCounter != 0 and not find regs myRegBag588 @setvar! moveRegs 1589 endif590 591 if moveRegs = 1 592 overhead "splitting bloods.." 35593 if index = 0594 lift regs amount595 drop myRegBag 44 130 0 596 elseif index = 1597 lift regs amount598 drop myRegBag 68 130 0 599 elseif index = 2600 lift regs amount601 drop myRegBag 96 130 0 602 elseif index = 3603 lift regs amount604 drop myRegBag 121 130 0 605 else606 lift regs amount607 drop myRegBag 142 130 0 608 endif609 endif610 611 @ignore regs 612 613 if moveRegs = 1614 wait maxwaittimeinms615 endif616 617endwhile618 619#***** GARILIC 3972 *****620 621@setvar! regsID 3972622@setvar! myCounter 0623 624while findtype regsID self as r 625 @setvar! myCounter index626 @ignore r627endwhile628@clearignore629 630if counttype regsID self <= 10631 @setvar! amount 2632elseif counttype regsID self <= 20633 @setvar! amount 4 634elseif counttype regsID self <= 50635 @setvar! amount 10 636elseif counttype regsID self <= 100637 @setvar! amount 20 638elseif counttype regsID self <= 150639 @setvar! amount 30640elseif counttype regsID self <= 200641 @setvar! amount 40642else 643 @setvar! amount 50644endif645 646while findtype regsID self as regs647 @setvar! moveRegs 0 648 649 if myCounter = 0650 @setvar! moveRegs 1651 elseif myCounter != 0 and not find regs myRegBag652 @setvar! moveRegs 1653 endif654 655 if moveRegs = 1 656 overhead "splitting garlics.." 910657 if index = 0658 lift regs amount659 drop myRegBag 44 130 0 660 elseif index = 1661 lift regs amount662 drop myRegBag 68 130 0 663 elseif index = 2664 lift regs amount665 drop myRegBag 96 130 0 666 elseif index = 3667 lift regs amount668 drop myRegBag 121 130 0 669 else670 lift regs amount671 drop myRegBag 142 130 0 672 endif673 endif674 @ignore regs 675 676 if moveRegs = 1677 wait maxwaittimeinms678 endif679 680endwhile681 682#***** RECALL SCROLL 8012 *****683 684@setvar! regsID 8012685@setvar! myCounter 0686 687while findtype regsID self as r 688 @setvar! myCounter index689 @ignore r690endwhile691@clearignore692 693if counttype regsID self <= 5694 @setvar! amount 1695elseif counttype regsID self <= 10696 @setvar! amount 2 697elseif counttype regsID self <= 20698 @setvar! amount 4 699elseif counttype regsID self <= 40700 @setvar! amount 8 701else 702 @setvar! amount 15703endif704 705while findtype regsID self as regs706 @setvar! moveRegs 0 707 708 if myCounter = 0709 @setvar! moveRegs 1710 elseif myCounter != 0 and not find regs myRegBag711 @setvar! moveRegs 1712 endif713 if moveRegs = 1 714 overhead "splitting scrolls.." 0715 if index = 0716 lift regs amount717 drop myRegBag 44 88 0 718 elseif index = 1719 lift regs amount720 drop myRegBag 68 88 0 721 elseif index = 2722 lift regs amount723 drop myRegBag 96 88 0 724 elseif index = 3725 lift regs amount726 drop myRegBag 121 88 0 727 else728 lift regs amount729 drop myRegBag 142 88 0 730 endif731 endif732 733 @ignore regs 734 735 if moveRegs = 1736 wait maxwaittimeinms737 endif738endwhile739 740 741#***** Greater Heal 3852 *****742 743@setvar! regsID 3852744@setvar! myCounter 0745 746while findtype regsID self as r 747 @setvar! myCounter index748 @ignore r749endwhile750@clearignore751 752if counttype regsID self <= 10753 @setvar! amount 2754elseif counttype regsID self <= 20755 @setvar! amount 4 756elseif counttype regsID self <= 50757 @setvar! amount 10 758elseif counttype regsID self <= 100759 @setvar! amount 20 760elseif counttype regsID self <= 150761 @setvar! amount 30762elseif counttype regsID self <= 200763 @setvar! amount 40764else 765 @setvar! amount 50766endif767 768while findtype regsID self as regs769 @setvar! moveRegs 0 770 771 if myCounter = 0772 @setvar! moveRegs 1773 elseif myCounter != 0 and not find regs myPotionBag774 @setvar! moveRegs 1775 endif776 777 if moveRegs = 1 778 overhead "splitting Greater Heal.." 48779 if index = 0780 lift regs amount781 drop myPotionBag 44 65 0 782 elseif index = 1783 lift regs amount784 drop myPotionBag 68 65 0 785 elseif index = 2786 lift regs amount787 drop myPotionBag 96 65 0 788 elseif index = 3789 lift regs amount790 drop myPotionBag 121 65 0 791 else792 lift regs amount793 drop myPotionBag 142 65 0 794 endif795 endif796 797 @ignore regs 798 799 if moveRegs = 1800 wait maxwaittimeinms801 endif802 803endwhile804 805#***** Greater Cure 3847 *****806 807@setvar! regsID 3847808@setvar! myCounter 0809 810while findtype regsID self as r 811 @setvar! myCounter index812 @ignore r813endwhile814@clearignore815 816if counttype regsID self <= 10817 @setvar! amount 2818elseif counttype regsID self <= 20819 @setvar! amount 4 820elseif counttype regsID self <= 50821 @setvar! amount 10 822elseif counttype regsID self <= 100823 @setvar! amount 20 824elseif counttype regsID self <= 150825 @setvar! amount 30826elseif counttype regsID self <= 200827 @setvar! amount 40828else 829 @setvar! amount 50830endif831 832while findtype regsID self as regs833 @setvar! moveRegs 0 834 835 if myCounter = 0836 @setvar! moveRegs 1837 elseif myCounter != 0 and not find regs myPotionBag838 @setvar! moveRegs 1839 endif840 841 if moveRegs = 1 842 overhead "splitting Greater Cure.." 44843 if index = 0844 lift regs amount845 drop myPotionBag 44 65 0 846 elseif index = 1847 lift regs amount848 drop myPotionBag 68 65 0 849 elseif index = 2850 lift regs amount851 drop myPotionBag 96 65 0 852 elseif index = 3853 lift regs amount854 drop myPotionBag 121 65 0 855 else856 lift regs amount857 drop myPotionBag 142 65 0 858 endif859 endif860 861 @ignore regs 862 863 if moveRegs = 1864 wait maxwaittimeinms865 endif866 867endwhile868 869 870#***** Greater Agility 3848 *****871 872@setvar! regsID 3848873@setvar! myCounter 0874 875while findtype regsID self as r 876 @setvar! myCounter index877 @ignore r878endwhile879@clearignore880 881if counttype regsID self <= 10882 @setvar! amount 1883elseif counttype regsID self <= 20884 @setvar! amount 2 885elseif counttype regsID self <= 50886 @setvar! amount 4 887elseif counttype regsID self <= 100888 @setvar! amount 10 889elseif counttype regsID self <= 150890 @setvar! amount 20891elseif counttype regsID self <= 200892 @setvar! amount 30893else 894 @setvar! amount 40895endif896 897while findtype regsID self as regs898 @setvar! moveRegs 0 899 900 if myCounter = 0901 @setvar! moveRegs 1902 elseif myCounter != 0 and not find regs myPotionBag903 @setvar! moveRegs 1904 endif905 906 if moveRegs = 1 907 overhead "splitting Greater Agility.." 93908 if index = 0909 lift regs amount910 drop myPotionBag 44 88 0 911 elseif index = 1912 lift regs amount913 drop myPotionBag 68 88 0 914 elseif index = 2915 lift regs amount916 drop myPotionBag 96 88 0 917 elseif index = 3918 lift regs amount919 drop myPotionBag 121 88 0 920 else921 lift regs amount922 drop myPotionBag 142 88 0 923 endif924 endif925 926 @ignore regs 927 928 if moveRegs = 1929 wait maxwaittimeinms930 endif931 932endwhile933 934 935#***** Total Refresh 3851 *****936 937@setvar! regsID 3851938@setvar! myCounter 0939 940while findtype regsID self as r 941 @setvar! myCounter index942 @ignore r943endwhile944@clearignore945 946if counttype regsID self <= 10947 @setvar! amount 2948elseif counttype regsID self <= 20949 @setvar! amount 4 950elseif counttype regsID self <= 50951 @setvar! amount 10 952elseif counttype regsID self <= 100953 @setvar! amount 20 954elseif counttype regsID self <= 150955 @setvar! amount 30956elseif counttype regsID self <= 200957 @setvar! amount 40958else 959 @setvar! amount 50960endif961 962while findtype regsID self as regs963 @setvar! moveRegs 0 964 965 if myCounter = 0966 @setvar! moveRegs 1967 elseif myCounter != 0 and not find regs myPotionBag968 @setvar! moveRegs 1969 endif970 971 if moveRegs = 1 972 overhead "splitting Total Refresh.." 38973 if index = 0974 lift regs amount975 drop myPotionBag 44 88 0 976 elseif index = 1977 lift regs amount978 drop myPotionBag 68 88 0 979 elseif index = 2980 lift regs amount981 drop myPotionBag 96 88 0 982 elseif index = 3983 lift regs amount984 drop myPotionBag 121 88 0 985 else986 lift regs amount987 drop myPotionBag 142 88 0 988 endif989 endif990 991 @ignore regs 992 993 if moveRegs = 1994 wait maxwaittimeinms995 endif996 997endwhile998 999 1000 1001#***** Greater Magic Resist 3846 *****1002 1003@setvar! regsID 38461004@setvar! myCounter 01005 1006while findtype regsID self as r 1007 @setvar! myCounter index1008 @ignore r1009endwhile1010@clearignore1011 1012if counttype regsID self <= 101013 @setvar! amount 11014elseif counttype regsID self <= 201015 @setvar! amount 2 1016elseif counttype regsID self <= 501017 @setvar! amount 5 1018elseif counttype regsID self <= 1001019 @setvar! amount 10 1020elseif counttype regsID self <= 1501021 @setvar! amount 201022elseif counttype regsID self <= 2001023 @setvar! amount 301024else 1025 @setvar! amount 401026endif1027 1028while findtype regsID self as regs1029 @setvar! moveRegs 0 1030 1031 if myCounter = 01032 @setvar! moveRegs 11033 elseif myCounter != 0 and not find regs myPotionBag1034 @setvar! moveRegs 11035 endif1036 1037 if moveRegs = 1 1038 overhead "splitting Greater Magic Resist.." 8971039 if index = 01040 lift regs amount1041 drop myPotionBag 44 112 0 1042 elseif index = 11043 lift regs amount1044 drop myPotionBag 68 112 0 1045 elseif index = 21046 lift regs amount1047 drop myPotionBag 96 112 0 1048 elseif index = 31049 lift regs amount1050 drop myPotionBag 121 112 0 1051 else1052 lift regs amount1053 drop myPotionBag 142 112 0 1054 endif1055 endif1056 1057 @ignore regs 1058 1059 if moveRegs = 11060 wait maxwaittimeinms1061 endif1062 1063endwhile1064 1065 1066#***** Greater Strength 3849 *****1067 1068@setvar! regsID 38491069@setvar! myCounter 01070 1071while findtype regsID self as r 1072 @setvar! myCounter index1073 @ignore r1074endwhile1075@clearignore1076 1077if counttype regsID self <= 101078 @setvar! amount 21079elseif counttype regsID self <= 201080 @setvar! amount 4 1081elseif counttype regsID self <= 501082 @setvar! amount 10 1083elseif counttype regsID self <= 1001084 @setvar! amount 20 1085elseif counttype regsID self <= 1501086 @setvar! amount 301087elseif counttype regsID self <= 2001088 @setvar! amount 401089else 1090 @setvar! amount 501091endif1092 1093while findtype regsID self as regs1094 @setvar! moveRegs 0 1095 1096 if myCounter = 01097 @setvar! moveRegs 11098 elseif myCounter != 0 and not find regs myPotionBag1099 @setvar! moveRegs 11100 endif1101 1102 if moveRegs = 1 1103 overhead "splitting Greater Strength.." 20411104 if index = 01105 lift regs amount1106 drop myPotionBag 44 112 0 1107 elseif index = 11108 lift regs amount1109 drop myPotionBag 68 112 0 1110 elseif index = 21111 lift regs amount1112 drop myPotionBag 96 112 0 1113 elseif index = 31114 lift regs amount1115 drop myPotionBag 121 112 0 1116 else1117 lift regs amount1118 drop myPotionBag 142 112 0 1119 endif1120 endif1121 1122 @ignore regs 1123 1124 if moveRegs = 11125 wait maxwaittimeinms1126 endif1127 1128endwhile1129 1130 1131#***** Greater Explode 3853 *****1132 1133@setvar! regsID 38531134@setvar! myCounter 01135 1136while findtype regsID self as r 1137 @setvar! myCounter index1138 @ignore r1139endwhile1140@clearignore1141 1142if counttype regsID self <= 101143 @setvar! amount 21144elseif counttype regsID self <= 201145 @setvar! amount 4 1146elseif counttype regsID self <= 501147 @setvar! amount 10 1148elseif counttype regsID self <= 1001149 @setvar! amount 20 1150elseif counttype regsID self <= 1501151 @setvar! amount 301152elseif counttype regsID self <= 2001153 @setvar! amount 401154else 1155 @setvar! amount 501156endif1157 1158while findtype regsID self as regs1159 @setvar! moveRegs 0 1160 1161 if myCounter = 01162 @setvar! moveRegs 11163 elseif myCounter != 0 and not find regs myPotionBag1164 @setvar! moveRegs 11165 endif1166 1167 if moveRegs = 1 1168 overhead "splitting Greater Explode.." 12751169 if index = 01170 lift regs amount1171 drop myPotionBag 44 130 0 1172 elseif index = 11173 lift regs amount1174 drop myPotionBag 68 130 0 1175 elseif index = 21176 lift regs amount1177 drop myPotionBag 96 130 0 1178 elseif index = 31179 lift regs amount1180 drop myPotionBag 121 130 0 1181 else1182 lift regs amount1183 drop myPotionBag 142 130 0 1184 endif1185 endif1186 1187 @ignore regs 1188 1189 if moveRegs = 11190 wait maxwaittimeinms1191 endif1192 1193endwhile1194 1195 1196 1197#***** Lethal Poison 3850 *****1198 1199@setvar! regsID 38501200@setvar! myCounter 01201 1202while findtype regsID self as r 1203 @setvar! myCounter index1204 @ignore r1205endwhile1206@clearignore1207 1208if counttype regsID self <= 101209 @setvar! amount 21210elseif counttype regsID self <= 201211 @setvar! amount 4 1212elseif counttype regsID self <= 501213 @setvar! amount 10 1214elseif counttype regsID self <= 1001215 @setvar! amount 20 1216elseif counttype regsID self <= 1501217 @setvar! amount 301218elseif counttype regsID self <= 2001219 @setvar! amount 401220else 1221 @setvar! amount 501222endif1223 1224while findtype regsID self as regs1225 @setvar! moveRegs 0 1226 1227 if myCounter = 01228 @setvar! moveRegs 11229 elseif myCounter != 0 and not find regs myPotionBag1230 @setvar! moveRegs 11231 endif1232 1233 if moveRegs = 1 1234 overhead "splitting Lethal Poison.." 12671235 if index = 01236 lift regs amount1237 drop myPotionBag 44 130 0 1238 elseif index = 11239 lift regs amount1240 drop myPotionBag 68 130 0 1241 elseif index = 21242 lift regs amount1243 drop myPotionBag 96 130 0 1244 elseif index = 31245 lift regs amount1246 drop myPotionBag 121 130 0 1247 else1248 lift regs amount1249 drop myPotionBag 142 130 0 1250 endif1251 endif1252 @ignore regs 1253 1254 if moveRegs = 11255 wait maxwaittimeinms1256 endif1257endwhile1258 1259 1260#***** Bandages 3617 *****1261 1262@setvar! regsID 36171263@setvar! myCounter 01264 1265while findtype regsID self as r 1266 @setvar! myCounter index1267 @ignore r1268endwhile1269@clearignore1270 1271if counttype regsID self <= 101272 @setvar! amount 21273elseif counttype regsID self <= 201274 @setvar! amount 4 1275elseif counttype regsID self <= 501276 @setvar! amount 10 1277elseif counttype regsID self <= 1001278 @setvar! amount 20 1279elseif counttype regsID self <= 1501280 @setvar! amount 301281elseif counttype regsID self <= 2001282 @setvar! amount 401283else 1284 @setvar! amount 501285endif1286 1287while findtype regsID self as regs1288 @setvar! moveRegs 0 1289 1290 if myCounter = 01291 @setvar! moveRegs 11292 elseif myCounter != 0 and not find regs myMiscBag1293 @setvar! moveRegs 11294 endif1295 1296 if moveRegs = 1 1297 overhead "splitting Bandages.." 01298 if index = 01299 lift regs amount1300 drop myMiscBag 44 65 0 1301 elseif index = 11302 lift regs amount1303 drop myMiscBag 68 65 0 1304 elseif index = 21305 lift regs amount1306 drop myMiscBag 96 65 0 1307 elseif index = 31308 lift regs amount1309 drop myMiscBag 121 65 0 1310 else1311 lift regs amount1312 drop myMiscBag 142 65 0 1313 endif1314 endif1315 1316 @ignore regs 1317 1318 if moveRegs = 11319 wait maxwaittimeinms1320 endif1321 1322endwhile1323 1324#***** Rope 5370 *****1325 1326@setvar! regsID 53701327@setvar! myCounter 01328 1329while findtype regsID self as r 1330 @setvar! myCounter index1331 @ignore r1332endwhile1333@clearignore1334 1335if counttype regsID self <= 101336 @setvar! amount 21337elseif counttype regsID self <= 201338 @setvar! amount 4 1339elseif counttype regsID self <= 501340 @setvar! amount 10 1341elseif counttype regsID self <= 1001342 @setvar! amount 20 1343elseif counttype regsID self <= 1501344 @setvar! amount 301345elseif counttype regsID self <= 2001346 @setvar! amount 401347else 1348 @setvar! amount 501349endif1350 1351while findtype regsID self as regs1352 @setvar! moveRegs 0 1353 1354 if myCounter = 01355 @setvar! moveRegs 11356 elseif myCounter != 0 and not find regs myMiscBag1357 @setvar! moveRegs 11358 endif1359 1360 if moveRegs = 1 1361 overhead "splitting Rope.." 3601362 if index = 01363 lift regs amount1364 drop myMiscBag 44 65 0 1365 elseif index = 11366 lift regs amount1367 drop myMiscBag 68 65 0 1368 elseif index = 21369 lift regs amount1370 drop myMiscBag 96 65 0 1371 elseif index = 31372 lift regs amount1373 drop myMiscBag 121 65 0 1374 else1375 lift regs amount1376 drop myMiscBag 142 65 0 1377 endif1378 endif1379 1380 @ignore regs 1381 1382 if moveRegs = 11383 wait maxwaittimeinms1384 endif1385 1386endwhile1387overhead "Splitter completed" 0