UO Outlands Razor Scripts

Created: 08/23/2024, 10:13:40 AM Updated: 11/29/2024, 01:29:28 AM View Change History

1#Auto Splitter Reagents, Potions, Bandages, Ropes ver 2.0
2
3#********** INFORMATION **********# 
4
5# Made by @dennozz12 on discord. 
6# Inspired/learned by other scrips in https://outlands.uorazorscripts.com/
7
8# Split your reagents and recall scrolls into groups to prevent thiefs from stealing all at once
9
10# If you like my work and wish to buy me a coffee: https://buymeacoffee.com/dennoz
11
12# Splatter: Added Potions (Greater/Total/Leathal), Bandages and Rope
13
14#********** SET YOUR SETTINGS **********# 
15
16
17#--- Set auto select bag ---#
18# 0 - will let you pick the bag
19# 1 - will auto select in order : satchel > pouch > backpack bag > rounded bag > main backpack
20
21@setvar! autoSelectRegBag 1
22
23#--- Set auto select Potion bag ---#
24# 0 - will let you pick the bag
25# 1 - will auto select in order : Potions satchel > pouch > backpack bag > rounded bag > main backpack
26@setvar! autoSelectPotionBag 1
27
28#--- Set auto select bandage/rope bag ---#
29# 0 - will let you pick the bag
30# 1 - will auto select in order : satchel > pouch > backpack bag > rounded bag > main backpack
31@setvar! autoSelectMiscBag 1
32
33#********** DO NOT EDIT FROM HERE UNLESS YOU KNOW HOW TO SCRIPT **********#
34
35clearignore 
36
37@setvar! amount 0
38@setvar! myRegBag 0
39@setvar! myPotionBag 0
40@setvar! myBandageBag 0
41
42@setvar! maxwaittimeinms 650
43
44
45if autoSelectRegBag = 1
46    if findtype 30765 self as b
47        @setvar! myRegBag b
48    elseif findtype 3705 self as b
49        @setvar! myRegBag b
50    elseif findtype 3701 self as b
51        @setvar! myRegBag b
52    elseif findtype 3702 self as b
53        @setvar! myRegBag b
54    else 
55        @setvar! myRegBag backpack
56    endif
57else 
58    clearsysmsg
59    overhead "Select bag:" 68
60    @setvar! myRegBag
61    wait 200
62    while not targetexists and not insysmsg "Select"
63        @setvar! myRegBag    
64    endwhile
65    
66    if find myRegBag self
67        getlabel myRegBag bagLabel
68        
69        if "wizard's satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel
70            sysmsg "new bag set" 55
71        else 
72            @setvar! myRegBag 0
73            overhead "That is not a bag" 34
74            sysmsg "That is not a bag" 34
75            stop
76        endif
77    else 
78        overhead "No bag found!" 34
79        stop    
80    endif
81endif
82
83
84if autoSelectPotionBag = 1
85    if findtype 31262 self as b
86        @setvar! myPotionBag b
87    elseif findtype 3705 self as b
88        @setvar! myPotionBag b
89    elseif findtype 3701 self as b
90        @setvar! myPotionBag b
91    elseif findtype 3702 self as b
92        @setvar! myPotionBag b
93    else 
94        @setvar! myPotionBag backpack
95    endif
96else 
97    clearsysmsg
98    overhead "Select Potion bag:" 68
99    @setvar! myPotionBag
100    wait 200
101    while not targetexists and not insysmsg "Select"
102        @setvar! myPotionBag    
103    endwhile
104    
105    if find myPotionBag self
106        getlabel myPotionBag bagLabel
107        
108        if "alchemists satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel
109            sysmsg "new bag set" 55
110        else 
111            @setvar! myPotionBag 0
112            overhead "That is not a bag" 34
113            sysmsg "That is not a bag" 34
114            stop
115        endif
116    else 
117        overhead "No bag found!" 34
118        stop    
119    endif
120endif
121
122#***** Misc Items  *****
123
124if autoSelectMiscBag = 1
125    if findtype 30765 self as b
126        @setvar! myMiscBag b
127    elseif findtype 3705 self as b
128        @setvar! myMiscBag b
129    elseif findtype 3701 self as b
130        @setvar! myMiscBag b
131    elseif findtype 3702 self as b
132        @setvar! myMiscBag b
133    else 
134        @setvar! myMiscBag backpack
135    endif
136else 
137    clearsysmsg
138    overhead "Select Misc bag:" 68
139    @setvar! myMiscBag
140    wait 200
141    while not targetexists and not insysmsg "Select"
142        @setvar! myMiscBag    
143    endwhile
144    
145    if find myMiscBag self
146        getlabel myMiscBag bagLabel
147        
148        if "wizard's satchel" in bagLabel or "pouch" in bagLabel or "bag" in bagLabel or "backpack" in bagLabel
149            sysmsg "new bag set" 55
150        else 
151            @setvar! myMiscBag 0
152            overhead "That is not a bag" 34
153            sysmsg "That is not a bag" 34
154            stop
155        endif
156    else 
157        overhead "No bag found!" 34
158        stop    
159    endif
160endif
161
162overhead "Splitter Begin.." 55
163
164#***** SPIDER SILK 3981 *****
165
166@setvar! regsID 3981
167@setvar! myCounter 0
168
169while findtype regsID self as r 
170    @setvar! myCounter index
171    @ignore r
172endwhile
173@clearignore
174
175if counttype regsID self <= 10
176    @setvar! amount 2
177elseif counttype regsID self <= 20
178    @setvar! amount 4       
179elseif counttype regsID self <= 50
180    @setvar! amount 10    
181elseif counttype regsID self <= 100
182    @setvar! amount 20    
183elseif counttype regsID self <= 150
184    @setvar! amount 30
185elseif counttype regsID self <= 200
186    @setvar! amount 40
187else 
188    @setvar! amount 50
189endif
190
191while findtype regsID self as regs
192    @setvar! moveRegs 0 
193    
194    if myCounter = 0
195        @setvar! moveRegs 1
196    elseif myCounter != 0 and not find regs myRegBag
197        @setvar! moveRegs 1
198    endif
199    
200    if moveRegs = 1    
201        overhead "splitting silks.." 0
202        if index = 0
203            lift regs amount
204            drop myRegBag 44 65 0      
205        elseif index = 1
206            lift regs amount
207            drop myRegBag 68 65 0           
208        elseif index = 2
209            lift regs amount
210            drop myRegBag 96 65 0             
211        elseif index = 3
212            lift regs amount
213            drop myRegBag 121 65 0            
214        else
215            lift regs amount
216            drop myRegBag 142 65 0         
217        endif
218    endif
219    
220    @ignore regs 
221    
222    if moveRegs = 1
223        wait maxwaittimeinms
224    endif
225
226endwhile
227
228#***** BLACK PEARL 3962 *****
229
230@setvar! regsID 3962
231@setvar! myCounter 0
232
233while findtype regsID self as r 
234    @setvar! myCounter index
235    @ignore r
236endwhile
237@clearignore
238
239if counttype regsID self <= 10
240    @setvar! amount 2
241elseif counttype regsID self <= 20
242    @setvar! amount 4       
243elseif counttype regsID self <= 50
244    @setvar! amount 10    
245elseif counttype regsID self <= 100
246    @setvar! amount 20    
247elseif counttype regsID self <= 150
248    @setvar! amount 30
249elseif counttype regsID self <= 200
250    @setvar! amount 40
251else 
252    @setvar! amount 50
253endif
254
255while findtype regsID self as regs
256    @setvar! moveRegs 0 
257    
258    if myCounter = 0
259        @setvar! moveRegs 1
260    elseif myCounter != 0 and not find regs myRegBag
261        @setvar! moveRegs 1
262    endif
263    
264    if moveRegs = 1    
265        overhead "splitting pearls.." 11
266        if index = 0
267            lift regs amount
268            drop myRegBag 44 65 0      
269        elseif index = 1
270            lift regs amount
271            drop myRegBag 68 65 0           
272        elseif index = 2
273            lift regs amount
274            drop myRegBag 96 65 0             
275        elseif index = 3
276            lift regs amount
277            drop myRegBag 121 65 0            
278        else
279            lift regs amount
280            drop myRegBag 142 65 0         
281        endif
282    endif
283    
284    @ignore regs 
285    
286    if moveRegs = 1
287        wait maxwaittimeinms
288    endif
289
290endwhile
291
292
293#***** NIGHTSHADE 3976 *****
294
295@setvar! regsID 3976
296@setvar! myCounter 0
297
298while findtype regsID self as r 
299    @setvar! myCounter index
300    @ignore r
301endwhile
302@clearignore
303
304if counttype regsID self <= 10
305    @setvar! amount 2
306elseif counttype regsID self <= 20
307    @setvar! amount 4       
308elseif counttype regsID self <= 50
309    @setvar! amount 10    
310elseif counttype regsID self <= 100
311    @setvar! amount 20    
312elseif counttype regsID self <= 150
313    @setvar! amount 30
314elseif counttype regsID self <= 200
315    @setvar! amount 40
316else 
317    @setvar! amount 50
318endif
319
320while findtype regsID self as regs
321    @setvar! moveRegs 0 
322    
323    if myCounter = 0
324        @setvar! moveRegs 1
325    elseif myCounter != 0 and not find regs myRegBag
326        @setvar! moveRegs 1
327    endif
328    
329    if moveRegs = 1    
330        overhead "splitting shades.." 66
331        if index = 0
332            lift regs amount
333            drop myRegBag 44 88 0      
334        elseif index = 1
335            lift regs amount
336            drop myRegBag 68 88 0           
337        elseif index = 2
338            lift regs amount
339            drop myRegBag 96 88 0             
340        elseif index = 3
341            lift regs amount
342            drop myRegBag 121 88 0            
343        else
344            lift regs amount
345            drop myRegBag 142 88 0         
346        endif
347    endif
348    
349    @ignore regs 
350    
351    if moveRegs = 1
352        wait maxwaittimeinms
353    endif
354
355endwhile
356
357#***** MANDRAKE ROOT 3974 *****
358
359@setvar! regsID 3974
360@setvar! myCounter 0
361
362while findtype regsID self as r 
363    @setvar! myCounter index
364    @ignore r
365endwhile
366@clearignore
367
368if counttype regsID self <= 10
369    @setvar! amount 2
370elseif counttype regsID self <= 20
371    @setvar! amount 4       
372elseif counttype regsID self <= 50
373    @setvar! amount 10    
374elseif counttype regsID self <= 100
375    @setvar! amount 20    
376elseif counttype regsID self <= 150
377    @setvar! amount 30
378elseif counttype regsID self <= 200
379    @setvar! amount 40
380else 
381    @setvar! amount 50
382endif
383
384while findtype regsID self as regs
385    @setvar! moveRegs 0 
386    
387    if myCounter = 0
388        @setvar! moveRegs 1
389    elseif myCounter != 0 and not find regs myRegBag
390        @setvar! moveRegs 1
391    endif
392    
393    if moveRegs = 1    
394        overhead "splitting roots.." 439
395        if index = 0
396            lift regs amount
397            drop myRegBag 44 88 0      
398        elseif index = 1
399            lift regs amount
400            drop myRegBag 68 88 0           
401        elseif index = 2
402            lift regs amount
403            drop myRegBag 96 88 0             
404        elseif index = 3
405            lift regs amount
406            drop myRegBag 121 88 0            
407        else
408            lift regs amount
409            drop myRegBag 142 88 0         
410        endif
411    endif
412    
413    @ignore regs 
414    
415    if moveRegs = 1
416        wait maxwaittimeinms
417    endif
418
419endwhile
420
421#***** SULFUROUS ASH 3980 *****
422
423@setvar! regsID 3980
424@setvar! myCounter 0
425
426while findtype regsID self as r 
427    @setvar! myCounter index
428    @ignore r
429endwhile
430@clearignore
431
432if counttype regsID self <= 10
433    @setvar! amount 2
434elseif counttype regsID self <= 20
435    @setvar! amount 4       
436elseif counttype regsID self <= 50
437    @setvar! amount 10    
438elseif counttype regsID self <= 100
439    @setvar! amount 20    
440elseif counttype regsID self <= 150
441    @setvar! amount 30
442elseif counttype regsID self <= 200
443    @setvar! amount 40
444else 
445    @setvar! amount 50
446endif
447
448while findtype regsID self as regs
449    @setvar! moveRegs 0 
450    
451    if myCounter = 0
452        @setvar! moveRegs 1
453    elseif myCounter != 0 and not find regs myRegBag
454        @setvar! moveRegs 1
455    endif
456    
457    if moveRegs = 1    
458        overhead "splitting ashes.." 56
459        if index = 0
460            lift regs amount
461            drop myRegBag 44 112 0      
462        elseif index = 1
463            lift regs amount
464            drop myRegBag 68 112 0           
465        elseif index = 2
466            lift regs amount
467            drop myRegBag 96 112 0             
468        elseif index = 3
469            lift regs amount
470            drop myRegBag 121 112 0            
471        else
472            lift regs amount
473            drop myRegBag 142 112 0         
474        endif
475    endif
476    
477    @ignore regs 
478    
479    if moveRegs = 1
480        wait maxwaittimeinms
481    endif
482
483endwhile
484
485#***** GINSENG 3973 *****
486
487@setvar! regsID 3973
488@setvar! myCounter 0
489
490while findtype regsID self as r 
491    @setvar! myCounter index
492    @ignore r
493endwhile
494@clearignore
495
496if counttype regsID self <= 10
497    @setvar! amount 2
498elseif counttype regsID self <= 20
499    @setvar! amount 4       
500elseif counttype regsID self <= 50
501    @setvar! amount 10    
502elseif counttype regsID self <= 100
503    @setvar! amount 20    
504elseif counttype regsID self <= 150
505    @setvar! amount 30
506elseif counttype regsID self <= 200
507    @setvar! amount 40
508else 
509    @setvar! amount 50
510endif
511
512while findtype regsID self as regs
513    @setvar! moveRegs 0 
514    
515    if myCounter = 0
516        @setvar! moveRegs 1
517    elseif myCounter != 0 and not find regs myRegBag
518        @setvar! moveRegs 1
519    endif
520    
521    if moveRegs = 1    
522        overhead "splitting gings.." 149
523        if index = 0
524            lift regs amount
525            drop myRegBag 44 112 0      
526        elseif index = 1
527            lift regs amount
528            drop myRegBag 68 112 0           
529        elseif index = 2
530            lift regs amount
531            drop myRegBag 96 112 0             
532        elseif index = 3
533            lift regs amount
534            drop myRegBag 121 112 0            
535        else
536            lift regs amount
537            drop myRegBag 142 112 0         
538        endif
539    endif
540    
541    @ignore regs 
542    
543    if moveRegs = 1
544        wait maxwaittimeinms
545    endif
546
547endwhile
548
549#***** BLOSSMOSS 3963 *****
550
551@setvar! regsID 3963
552@setvar! myCounter 0
553
554while findtype regsID self as r 
555    @setvar! myCounter index
556    @ignore r
557endwhile
558@clearignore
559
560if counttype regsID self <= 10
561    @setvar! amount 2
562elseif counttype regsID self <= 20
563    @setvar! amount 4       
564elseif counttype regsID self <= 50
565    @setvar! amount 10    
566elseif counttype regsID self <= 100
567    @setvar! amount 20    
568elseif counttype regsID self <= 150
569    @setvar! amount 30
570elseif counttype regsID self <= 200
571    @setvar! amount 40
572else 
573    @setvar! amount 50
574endif
575
576while findtype regsID self as regs
577    @setvar! moveRegs 0 
578    
579    if myCounter = 0
580        @setvar! moveRegs 1
581    elseif myCounter != 0 and not find regs myRegBag
582        @setvar! moveRegs 1
583    endif
584    
585    if moveRegs = 1    
586        overhead "splitting bloods.." 35
587        if index = 0
588            lift regs amount
589            drop myRegBag 44 130 0      
590        elseif index = 1
591            lift regs amount
592            drop myRegBag 68 130 0           
593        elseif index = 2
594            lift regs amount
595            drop myRegBag 96 130 0             
596        elseif index = 3
597            lift regs amount
598            drop myRegBag 121 130 0            
599        else
600            lift regs amount
601            drop myRegBag 142 130 0         
602        endif
603    endif
604    
605    @ignore regs 
606    
607    if moveRegs = 1
608        wait maxwaittimeinms
609    endif
610
611endwhile
612
613#***** GARILIC 3972 *****
614
615@setvar! regsID 3972
616@setvar! myCounter 0
617
618while findtype regsID self as r 
619    @setvar! myCounter index
620    @ignore r
621endwhile
622@clearignore
623
624if counttype regsID self <= 10
625    @setvar! amount 2
626elseif counttype regsID self <= 20
627    @setvar! amount 4       
628elseif counttype regsID self <= 50
629    @setvar! amount 10    
630elseif counttype regsID self <= 100
631    @setvar! amount 20    
632elseif counttype regsID self <= 150
633    @setvar! amount 30
634elseif counttype regsID self <= 200
635    @setvar! amount 40
636else 
637    @setvar! amount 50
638endif
639
640while findtype regsID self as regs
641    @setvar! moveRegs 0 
642    
643    if myCounter = 0
644        @setvar! moveRegs 1
645    elseif myCounter != 0 and not find regs myRegBag
646        @setvar! moveRegs 1
647    endif
648    
649    if moveRegs = 1    
650        overhead "splitting garlics.." 910
651        if index = 0
652            lift regs amount
653            drop myRegBag 44 130 0      
654        elseif index = 1
655            lift regs amount
656            drop myRegBag 68 130 0           
657        elseif index = 2
658            lift regs amount
659            drop myRegBag 96 130 0             
660        elseif index = 3
661            lift regs amount
662            drop myRegBag 121 130 0            
663        else
664            lift regs amount
665            drop myRegBag 142 130 0         
666        endif
667    endif
668    @ignore regs 
669    
670    if moveRegs = 1
671        wait maxwaittimeinms
672    endif
673
674endwhile
675
676#***** RECALL SCROLL 8012 *****
677
678@setvar! regsID 8012
679@setvar! myCounter 0
680
681while findtype regsID self as r 
682    @setvar! myCounter index
683    @ignore r
684endwhile
685@clearignore
686
687if counttype regsID self <= 5
688    @setvar! amount 1
689elseif counttype regsID self <= 10
690    @setvar! amount 2       
691elseif counttype regsID self <= 20
692    @setvar! amount 4    
693elseif counttype regsID self <= 40
694    @setvar! amount 8    
695else 
696    @setvar! amount 15
697endif
698
699while findtype regsID self as regs
700    @setvar! moveRegs 0 
701    
702    if myCounter = 0
703        @setvar! moveRegs 1
704    elseif myCounter != 0 and not find regs myRegBag
705        @setvar! moveRegs 1
706    endif
707    if moveRegs = 1    
708        overhead "splitting scrolls.." 0
709        if index = 0
710            lift regs amount
711            drop myRegBag 44 88 0      
712        elseif index = 1
713            lift regs amount
714            drop myRegBag 68 88 0           
715        elseif index = 2
716            lift regs amount
717            drop myRegBag 96 88 0             
718        elseif index = 3
719            lift regs amount
720            drop myRegBag 121 88 0            
721        else
722            lift regs amount
723            drop myRegBag 142 88 0         
724        endif
725    endif
726    
727    @ignore regs 
728    
729    if moveRegs = 1
730        wait maxwaittimeinms
731    endif
732endwhile
733
734
735#***** Greater Heal 3852 *****
736
737@setvar! regsID 3852
738@setvar! myCounter 0
739
740while findtype regsID self as r 
741    @setvar! myCounter index
742    @ignore r
743endwhile
744@clearignore
745
746if counttype regsID self <= 10
747    @setvar! amount 2
748elseif counttype regsID self <= 20
749    @setvar! amount 4       
750elseif counttype regsID self <= 50
751    @setvar! amount 10    
752elseif counttype regsID self <= 100
753    @setvar! amount 20    
754elseif counttype regsID self <= 150
755    @setvar! amount 30
756elseif counttype regsID self <= 200
757    @setvar! amount 40
758else 
759    @setvar! amount 50
760endif
761
762while findtype regsID self as regs
763    @setvar! moveRegs 0 
764    
765    if myCounter = 0
766        @setvar! moveRegs 1
767    elseif myCounter != 0 and not find regs myPotionBag
768        @setvar! moveRegs 1
769    endif
770    
771    if moveRegs = 1    
772        overhead "splitting Greater Heal.." 48
773        if index = 0
774            lift regs amount
775            drop myPotionBag 44 65 0      
776        elseif index = 1
777            lift regs amount
778            drop myPotionBag 68 65 0           
779        elseif index = 2
780            lift regs amount
781            drop myPotionBag 96 65 0             
782        elseif index = 3
783            lift regs amount
784            drop myPotionBag 121 65 0            
785        else
786            lift regs amount
787            drop myPotionBag 142 65 0         
788        endif
789    endif
790    
791    @ignore regs 
792    
793    if moveRegs = 1
794        wait maxwaittimeinms
795    endif
796
797endwhile
798
799#***** Greater Cure 3847 *****
800
801@setvar! regsID 3847
802@setvar! myCounter 0
803
804while findtype regsID self as r 
805    @setvar! myCounter index
806    @ignore r
807endwhile
808@clearignore
809
810if counttype regsID self <= 10
811    @setvar! amount 2
812elseif counttype regsID self <= 20
813    @setvar! amount 4       
814elseif counttype regsID self <= 50
815    @setvar! amount 10    
816elseif counttype regsID self <= 100
817    @setvar! amount 20    
818elseif counttype regsID self <= 150
819    @setvar! amount 30
820elseif counttype regsID self <= 200
821    @setvar! amount 40
822else 
823    @setvar! amount 50
824endif
825
826while findtype regsID self as regs
827    @setvar! moveRegs 0 
828    
829    if myCounter = 0
830        @setvar! moveRegs 1
831    elseif myCounter != 0 and not find regs myPotionBag
832        @setvar! moveRegs 1
833    endif
834    
835    if moveRegs = 1    
836        overhead "splitting Greater Cure.." 44
837        if index = 0
838            lift regs amount
839            drop myPotionBag 44 65 0      
840        elseif index = 1
841            lift regs amount
842            drop myPotionBag 68 65 0           
843        elseif index = 2
844            lift regs amount
845            drop myPotionBag 96 65 0             
846        elseif index = 3
847            lift regs amount
848            drop myPotionBag 121 65 0            
849        else
850            lift regs amount
851            drop myPotionBag 142 65 0         
852        endif
853    endif
854    
855    @ignore regs 
856    
857    if moveRegs = 1
858        wait maxwaittimeinms
859    endif
860
861endwhile
862
863
864#***** Greater Agility 3848 *****
865
866@setvar! regsID 3848
867@setvar! myCounter 0
868
869while findtype regsID self as r 
870    @setvar! myCounter index
871    @ignore r
872endwhile
873@clearignore
874
875if counttype regsID self <= 10
876    @setvar! amount 1
877elseif counttype regsID self <= 20
878    @setvar! amount 2       
879elseif counttype regsID self <= 50
880    @setvar! amount 4    
881elseif counttype regsID self <= 100
882    @setvar! amount 10    
883elseif counttype regsID self <= 150
884    @setvar! amount 20
885elseif counttype regsID self <= 200
886    @setvar! amount 30
887else 
888    @setvar! amount 40
889endif
890
891while findtype regsID self as regs
892    @setvar! moveRegs 0 
893    
894    if myCounter = 0
895        @setvar! moveRegs 1
896    elseif myCounter != 0 and not find regs myPotionBag
897        @setvar! moveRegs 1
898    endif
899    
900    if moveRegs = 1    
901        overhead "splitting Greater Agility.." 93
902        if index = 0
903            lift regs amount
904            drop myPotionBag 44 88 0      
905        elseif index = 1
906            lift regs amount
907            drop myPotionBag 68 88 0           
908        elseif index = 2
909            lift regs amount
910            drop myPotionBag 96 88 0             
911        elseif index = 3
912            lift regs amount
913            drop myPotionBag 121 88 0            
914        else
915            lift regs amount
916            drop myPotionBag 142 88 0         
917        endif
918    endif
919    
920    @ignore regs 
921    
922    if moveRegs = 1
923        wait maxwaittimeinms
924    endif
925
926endwhile
927
928
929#***** Total Refresh 3851 *****
930
931@setvar! regsID 3851
932@setvar! myCounter 0
933
934while findtype regsID self as r 
935    @setvar! myCounter index
936    @ignore r
937endwhile
938@clearignore
939
940if counttype regsID self <= 10
941    @setvar! amount 2
942elseif counttype regsID self <= 20
943    @setvar! amount 4       
944elseif counttype regsID self <= 50
945    @setvar! amount 10    
946elseif counttype regsID self <= 100
947    @setvar! amount 20    
948elseif counttype regsID self <= 150
949    @setvar! amount 30
950elseif counttype regsID self <= 200
951    @setvar! amount 40
952else 
953    @setvar! amount 50
954endif
955
956while findtype regsID self as regs
957    @setvar! moveRegs 0 
958    
959    if myCounter = 0
960        @setvar! moveRegs 1
961    elseif myCounter != 0 and not find regs myPotionBag
962        @setvar! moveRegs 1
963    endif
964    
965    if moveRegs = 1    
966        overhead "splitting Total Refresh.." 38
967        if index = 0
968            lift regs amount
969            drop myPotionBag 44 88 0      
970        elseif index = 1
971            lift regs amount
972            drop myPotionBag 68 88 0           
973        elseif index = 2
974            lift regs amount
975            drop myPotionBag 96 88 0             
976        elseif index = 3
977            lift regs amount
978            drop myPotionBag 121 88 0            
979        else
980            lift regs amount
981            drop myPotionBag 142 88 0         
982        endif
983    endif
984    
985    @ignore regs 
986    
987    if moveRegs = 1
988        wait maxwaittimeinms
989    endif
990
991endwhile
992
993
994
995#***** Greater Magic Resist 3846 *****
996
997@setvar! regsID 3846
998@setvar! myCounter 0
999
1000while findtype regsID self as r 
1001    @setvar! myCounter index
1002    @ignore r
1003endwhile
1004@clearignore
1005
1006if counttype regsID self <= 10
1007    @setvar! amount 1
1008elseif counttype regsID self <= 20
1009    @setvar! amount 2       
1010elseif counttype regsID self <= 50
1011    @setvar! amount 5   
1012elseif counttype regsID self <= 100
1013    @setvar! amount 10    
1014elseif counttype regsID self <= 150
1015    @setvar! amount 20
1016elseif counttype regsID self <= 200
1017    @setvar! amount 30
1018else 
1019    @setvar! amount 40
1020endif
1021
1022while findtype regsID self as regs
1023    @setvar! moveRegs 0 
1024    
1025    if myCounter = 0
1026        @setvar! moveRegs 1
1027    elseif myCounter != 0 and not find regs myPotionBag
1028        @setvar! moveRegs 1
1029    endif
1030    
1031    if moveRegs = 1    
1032        overhead "splitting Greater Magic Resist.." 897
1033        if index = 0
1034            lift regs amount
1035            drop myPotionBag 44 112 0      
1036        elseif index = 1
1037            lift regs amount
1038            drop myPotionBag 68 112 0           
1039        elseif index = 2
1040            lift regs amount
1041            drop myPotionBag 96 112 0             
1042        elseif index = 3
1043            lift regs amount
1044            drop myPotionBag 121 112 0            
1045        else
1046            lift regs amount
1047            drop myPotionBag 142 112 0         
1048        endif
1049    endif
1050    
1051    @ignore regs 
1052    
1053    if moveRegs = 1
1054        wait maxwaittimeinms
1055    endif
1056
1057endwhile
1058
1059
1060#***** Greater Strength 3849 *****
1061
1062@setvar! regsID 3849
1063@setvar! myCounter 0
1064
1065while findtype regsID self as r 
1066    @setvar! myCounter index
1067    @ignore r
1068endwhile
1069@clearignore
1070
1071if counttype regsID self <= 10
1072    @setvar! amount 2
1073elseif counttype regsID self <= 20
1074    @setvar! amount 4       
1075elseif counttype regsID self <= 50
1076    @setvar! amount 10    
1077elseif counttype regsID self <= 100
1078    @setvar! amount 20    
1079elseif counttype regsID self <= 150
1080    @setvar! amount 30
1081elseif counttype regsID self <= 200
1082    @setvar! amount 40
1083else 
1084    @setvar! amount 50
1085endif
1086
1087while findtype regsID self as regs
1088    @setvar! moveRegs 0 
1089    
1090    if myCounter = 0
1091        @setvar! moveRegs 1
1092    elseif myCounter != 0 and not find regs myPotionBag
1093        @setvar! moveRegs 1
1094    endif
1095    
1096    if moveRegs = 1    
1097        overhead "splitting Greater Strength.." 2041
1098        if index = 0
1099            lift regs amount
1100            drop myPotionBag 44 112 0      
1101        elseif index = 1
1102            lift regs amount
1103            drop myPotionBag 68 112 0           
1104        elseif index = 2
1105            lift regs amount
1106            drop myPotionBag 96 112 0             
1107        elseif index = 3
1108            lift regs amount
1109            drop myPotionBag 121 112 0            
1110        else
1111            lift regs amount
1112            drop myPotionBag 142 112 0         
1113        endif
1114    endif
1115    
1116    @ignore regs 
1117    
1118    if moveRegs = 1
1119        wait maxwaittimeinms
1120    endif
1121
1122endwhile
1123
1124
1125#***** Greater Explode 3853 *****
1126
1127@setvar! regsID 3853
1128@setvar! myCounter 0
1129
1130while findtype regsID self as r 
1131    @setvar! myCounter index
1132    @ignore r
1133endwhile
1134@clearignore
1135
1136if counttype regsID self <= 10
1137    @setvar! amount 2
1138elseif counttype regsID self <= 20
1139    @setvar! amount 4       
1140elseif counttype regsID self <= 50
1141    @setvar! amount 10    
1142elseif counttype regsID self <= 100
1143    @setvar! amount 20    
1144elseif counttype regsID self <= 150
1145    @setvar! amount 30
1146elseif counttype regsID self <= 200
1147    @setvar! amount 40
1148else 
1149    @setvar! amount 50
1150endif
1151
1152while findtype regsID self as regs
1153    @setvar! moveRegs 0 
1154    
1155    if myCounter = 0
1156        @setvar! moveRegs 1
1157    elseif myCounter != 0 and not find regs myPotionBag
1158        @setvar! moveRegs 1
1159    endif
1160    
1161    if moveRegs = 1    
1162        overhead "splitting Greater Explode.." 1275
1163        if index = 0
1164            lift regs amount
1165            drop myPotionBag 44 130 0      
1166        elseif index = 1
1167            lift regs amount
1168            drop myPotionBag 68 130 0           
1169        elseif index = 2
1170            lift regs amount
1171            drop myPotionBag 96 130 0             
1172        elseif index = 3
1173            lift regs amount
1174            drop myPotionBag 121 130 0            
1175        else
1176            lift regs amount
1177            drop myPotionBag 142 130 0         
1178        endif
1179    endif
1180    
1181    @ignore regs 
1182    
1183    if moveRegs = 1
1184        wait maxwaittimeinms
1185    endif
1186
1187endwhile
1188
1189
1190
1191#***** Lethal Poison 3850 *****
1192
1193@setvar! regsID 3850
1194@setvar! myCounter 0
1195
1196while findtype regsID self as r 
1197    @setvar! myCounter index
1198    @ignore r
1199endwhile
1200@clearignore
1201
1202if counttype regsID self <= 10
1203    @setvar! amount 2
1204elseif counttype regsID self <= 20
1205    @setvar! amount 4       
1206elseif counttype regsID self <= 50
1207    @setvar! amount 10    
1208elseif counttype regsID self <= 100
1209    @setvar! amount 20    
1210elseif counttype regsID self <= 150
1211    @setvar! amount 30
1212elseif counttype regsID self <= 200
1213    @setvar! amount 40
1214else 
1215    @setvar! amount 50
1216endif
1217
1218while findtype regsID self as regs
1219    @setvar! moveRegs 0 
1220    
1221    if myCounter = 0
1222        @setvar! moveRegs 1
1223    elseif myCounter != 0 and not find regs myPotionBag
1224        @setvar! moveRegs 1
1225    endif
1226    
1227    if moveRegs = 1    
1228        overhead "splitting Lethal Poison.." 1267
1229        if index = 0
1230            lift regs amount
1231            drop myPotionBag 44 130 0      
1232        elseif index = 1
1233            lift regs amount
1234            drop myPotionBag 68 130 0           
1235        elseif index = 2
1236            lift regs amount
1237            drop myPotionBag 96 130 0             
1238        elseif index = 3
1239            lift regs amount
1240            drop myPotionBag 121 130 0            
1241        else
1242            lift regs amount
1243            drop myPotionBag 142 130 0         
1244        endif
1245    endif
1246    @ignore regs 
1247    
1248    if moveRegs = 1
1249        wait maxwaittimeinms
1250    endif
1251endwhile
1252
1253
1254#***** Bandages 3617 *****
1255
1256@setvar! regsID 3617
1257@setvar! myCounter 0
1258
1259while findtype regsID self as r 
1260    @setvar! myCounter index
1261    @ignore r
1262endwhile
1263@clearignore
1264
1265if counttype regsID self <= 10
1266    @setvar! amount 2
1267elseif counttype regsID self <= 20
1268    @setvar! amount 4       
1269elseif counttype regsID self <= 50
1270    @setvar! amount 10    
1271elseif counttype regsID self <= 100
1272    @setvar! amount 20    
1273elseif counttype regsID self <= 150
1274    @setvar! amount 30
1275elseif counttype regsID self <= 200
1276    @setvar! amount 40
1277else 
1278    @setvar! amount 50
1279endif
1280
1281while findtype regsID self as regs
1282    @setvar! moveRegs 0 
1283    
1284    if myCounter = 0
1285        @setvar! moveRegs 1
1286    elseif myCounter != 0 and not find regs myMiscBag
1287        @setvar! moveRegs 1
1288    endif
1289    
1290    if moveRegs = 1    
1291        overhead "splitting Bandages.." 0
1292        if index = 0
1293            lift regs amount
1294            drop myMiscBag 44 65 0      
1295        elseif index = 1
1296            lift regs amount
1297            drop myMiscBag 68 65 0           
1298        elseif index = 2
1299            lift regs amount
1300            drop myMiscBag 96 65 0             
1301        elseif index = 3
1302            lift regs amount
1303            drop myMiscBag 121 65 0            
1304        else
1305            lift regs amount
1306            drop myMiscBag 142 65 0         
1307        endif
1308    endif
1309    
1310    @ignore regs 
1311    
1312    if moveRegs = 1
1313        wait maxwaittimeinms
1314    endif
1315
1316endwhile
1317
1318#***** Rope 5370 *****
1319
1320@setvar! regsID 5370
1321@setvar! myCounter 0
1322
1323while findtype regsID self as r 
1324    @setvar! myCounter index
1325    @ignore r
1326endwhile
1327@clearignore
1328
1329if counttype regsID self <= 10
1330    @setvar! amount 2
1331elseif counttype regsID self <= 20
1332    @setvar! amount 4       
1333elseif counttype regsID self <= 50
1334    @setvar! amount 10    
1335elseif counttype regsID self <= 100
1336    @setvar! amount 20    
1337elseif counttype regsID self <= 150
1338    @setvar! amount 30
1339elseif counttype regsID self <= 200
1340    @setvar! amount 40
1341else 
1342    @setvar! amount 50
1343endif
1344
1345while findtype regsID self as regs
1346    @setvar! moveRegs 0 
1347    
1348    if myCounter = 0
1349        @setvar! moveRegs 1
1350    elseif myCounter != 0 and not find regs myMiscBag
1351        @setvar! moveRegs 1
1352    endif
1353    
1354    if moveRegs = 1    
1355        overhead "splitting Rope.." 360
1356        if index = 0
1357            lift regs amount
1358            drop myMiscBag 44 65 0      
1359        elseif index = 1
1360            lift regs amount
1361            drop myMiscBag 68 65 0           
1362        elseif index = 2
1363            lift regs amount
1364            drop myMiscBag 96 65 0             
1365        elseif index = 3
1366            lift regs amount
1367            drop myMiscBag 121 65 0            
1368        else
1369            lift regs amount
1370            drop myMiscBag 142 65 0         
1371        endif
1372    endif
1373    
1374    @ignore regs 
1375    
1376    if moveRegs = 1
1377        wait maxwaittimeinms
1378    endif
1379
1380endwhile
1381overhead "Splitter completed" 0