The part that says, "; REMOVED" is the spot where you guys need to do your scripting magic. This is an old old old version of the script with the hole targeting parts removed. So you have to learn to do it yourselves. Remember, this was the first version I think. Written in 30 minutes. It works, if you write the targeting portion, but it doesn't work amazingly well. It'll farm eggs though on a mage. Afk. Good luck. I'll watch this post to see who gets it working first. Enjoy.
set %snakeTypes QE_JD_FB_
set %eggs XZY_
set %flutes pgp_rgp_
gosub railSpots
;Coral Snake/A Snake QE
;Giant Serpent JD
;Silver Serpent FB
;Snake Egg Hole PBN
;You don't seem to be able to persuade that to move
;Target the serpent you wish to entice
;Click where you wish the animal to go
;The snake begins searching for rare eggs
The animal walks to where it was instructed
;The snake searches the nest and finds nothing
;A swarm of snakes springs forth from the nest and attacks you
;Beware!
;The nest collapses
;The charm seems to wear off
set %reclickTimer #sysTime
repeat
set %snakesfound #true
gosub move
gosub hide
gosub findHole
until #false
sub findHole
finditem pbn G_8
if #findcnt > 0
{
repeat
set %currentHole #findid
gosub hide
gosub findEggs
gosub move1
gosub findFlute
gosub findSnakes
finditem pbn G_2
until #findcnt < 1 || %snakesFound = #false
}
return
sub findEggs
finditem %eggs g_7
if #findcnt > 0
{
event pathfind #findx #findy #findz
wait 50
exevent drag #findid
wait 1
exevent dropc #backpackid
wait 20
}
return
sub findSnakes
; REMOVED. This is where the magic happens. ;)
return
sub findFlute
finditem %flutes c_ , #backpackid
{
if #findcnt > 0 && %reclickTimer <= #sysTime
{
set #lobjectId #findid
event macro 17
set %reclickTimer #sysTime + 8000
set %clickIt #true
target 1s
wait 20
}
}
return
sub move1
finditem pbn G_8
event pathfind #findx #findy #findz
set %genericTimer #sysTime + 4000
while ( #charposx <> #findx || #charposy <> #findy || #charposz <> #findz ) && %genericTimer > #sysTime
wait 1
_retry:
gosub hide
if h notin #charstatus
goto _retry
return
sub move
if %move = n/a
set %move 1
event pathfind %xRail . %move %yRail . %move %zRail . %move
set %genericTimer #sysTime + 4000
while ( #charposx <> %xRail . %move || #charposy <> %yRail . %move || #charposz <> %zRail . %move ) && %genericTimer > #sysTime
wait 1
set %move %move + 1
if %move > 22
set %move 1
return
sub hide
gosub scanbar
;event sysmessage %icons . #charid
if _poison_ in %icons . #charid
{
event macro 15 24
target 4s
event macro 23
wait 20
}
if _poison_ notin %icons . #charid && #hits < #maxhits / 2
{
event macro 15 28
target 4s
event macro 23
wait 20
}
if h notin #charstatus && _poison_ notin %icons . #charid
{
event macro 15 43
target 4s
event macro 23
wait 20
}
return
sub scanBar
namespace push
namespace local scanBar . #charid
set !tempLpc #lpc
set !newla %1
set #lpc 20000
if !scanOffset = n/a
gosub setVars %1 %2
set !buttonX . 1 !blueButtonX . 1 + !blueContPosX . 1
set !buttonY . 1 !blueButtonY . 1 + !blueContPosY . 1
if #contname <> buffIcons_Gump || ( #contName = buffIcons_Gump && ( #contposx <> !blueContPosX . 1 || #contposy <> !blueContPosY . 1 ) ) 3
savepix !buttonX . 1 !buttonY . 1 !savePixelNumber
if ( #pixcol < !blueButtonPixCol . 1 - !scanOffset || #pixcol > !blueButtonPixcol . 1 + !scanOffset ) && #pixcol < !high
gosub findBarVars
set %icons . #charid _
set !notFound 0
for !scanIcons 1 !scanBarIconCount
{
set !x !scanX + ( ( !scanIcons - 1 ) * 31 )
savepix !x !scanY !savePixelNumber
;event sysmessage #pixcol scan1
if #pixcol = 0 || #pixcol > 16779215
break
if ! . #pixcol <> n/a && ! . #pixcol <> block && ! . #pixcol <> massCurse && ! . #pixcol <> Curse && ! . #pixcol <> Sleep && ! . #pixcol <> Consecrate && ! . #pixcol <> HeatOfBattle && ! . #pixcol <> SplinteringDebuff && ! . #pixcol <> Feeblemind && ! . #pixcol <> Tribulation && ! . #pixcol <> MedusaStone && ! . #pixcol <> FastSkillGain 4
if _ , ! . #pixcol , _ in %icons . #charid
continue
set %icons . #charid %icons . #charid , ! . #pixcol , _
continue
gosub S1
if ( %1 = n/a && !notFound >= 5 ) || ( %1 = #true && !notFound >= 2 )
break
}
set #result %icons . #charid
set #lpc !tempLpc
namespace pop
return #result
sub S1
set !x1 ( !scanX + 22 ) + ( ( ( !scanIcons - 1 ) * 31 ) - 5 )
if ! . #pixcol = Block
set !y1 !scanY + 22 - 17
else
set !y1 !scanY + 22 - 8
savepix !x1 !y1 !savePixelNumber
;event sysmessage #pixcol scan2
if !i2 . #pixcol <> n/a && _ , !i2 . #pixcol , _ notin %icons . #charid
set %icons . #charid %icons . #charid , !i2 . #pixcol , _
else
set !notFound !notFound + 1
return
sub findBarVars
while #contname <> BuffIcons_Gump
event macro 57
if #contname = bufficons_gump && !percentOhx <> n/a && !percentOhy <> n/a 2
contpos !percentOhx !percentOhy
wait 1
set !blueContPosX . 1 #contposx
set !blueContPosY . 1 #contposy
set !buttonX . 1 !blueButtonX . 1 + #contposx
set !buttonY . 1 !blueButtonY . 1 + #contposy
set !scanX 26 + #contposx
set !scanY 11 + #contposy
return
sub setVars
namespace clear
set !savePixelNumber 88 ; Number to use for savepix
if %0 > 1 2
set !percentOhx %1
set !percentOhy %2
set !scanOffset 512
set !buffGumpName buffIcons_gump
set !blueButtonX1 10
set !blueButtonY1 45
set !blueButtonPixCol1 10238224
set !blueContPosX1 #contposx
set !blueContPosY1 #contposy
set !blueButtonX2 10
set !blueButtonY2 46
set !blueButtonPixCol2 11354640
set !blueContPosX2 #contposx
set !blueContPosY2 #contposy
if #contname = bufficons_gump 5
if !percentOhx <> n/a && !percentOhy <> n/a && ( #contposx <> !percentOhx || #contposy <> !percfentOhy ) 2
contpos !percentOhx !percentOhy
wait 1
set !scanX 26 + #contposx
set !scanY 11 + #contposy
set !high 3000000000
gosub Add ImmolatingWeapon 1606689 49
gosub Add VampiricEmbrace 2198561 4382282
gosub Add CurseBloodOath 2171342 1579230
gosub Add EvilOmen 2171375 11908607
gosub Add GiftOfRenewal 1625616 2741784
gosub Add AnemiaDebuff 2171259 181
gosub Add DefenseMastery 1608728 1092880
gosub Add Inspire 2177346 3259681
gosub Add HorrificBeast 2221857 1094928
gosub Add ForceArrow 2693252 5388676
gosub Add WraithForm 2701617 566552
gosub Add HitLowerDefense 4344394 526476
gosub Add PoisonImmunity 5951066 2215465
gosub Add Honored 4889674 1621272
gosub Add CounterAttack 4371761 12544
gosub Add DivineFury 5950984 5951009
gosub Add MindRot 7046267 16775143
gosub Add Bless 7065096 6540841
gosub Add Cunning 7065187 2056
gosub Add HonorableExecute 5426787 8472
gosub Add GazeOfDespair 528491 1581171
gosub Add ReaperForm 4891978 6542947
gosub Add Protection 7069266 7071562
gosub Add HiryuDebuff 255 1054852
gosub Add LightningStrike 48516 1627771
gosub Add TribulationCaster 2056 528400
gosub Add WeaponFocus 6276 12799
gosub Add CorruptionDebuff 6350 1050764
gosub Add SpellFocus 50721 52777
gosub Add FishPie 50754 3754586
gosub Add TalonStrike 526468 526468
gosub Add Criminal 526492 2171160
gosub Add Poison 526534 1052903
gosub Add Perfection 1082376 1096984
gosub Add Confidence 1084432 1617176
gosub Add Healing 1088520 9229956
gosub Add BleedAttack 1579230 526575
gosub Add CurseWeapon 1088561 14592
gosub Add HitLowerAttack 1579032 11908533
gosub Add VeterinaryBuff 1084440 13551310
gosub Add FearDebuff 1572930 1577092
gosub Add DiseaseDebuff 1583459 115
gosub Add Clumsy 528400 2179641
gosub Add RageDebuff 528474 1583467
gosub Add Evasion 549648 2716440
gosub Add Consecrate 558088 558088
gosub Add Block 558088 6511194
gosub Add Feint 560144 2188114
gosub Add PsychicAttack 528606 8101037
gosub Add LichForm 560136 3763026
gosub Add DualWield 562184 1052696
gosub Add SplinteringDebuff 1050747 1577133
gosub Add Curse 1052911 1579255
gosub Add MassCurse 1052911 7576749
gosub Add Feeblemind 1052911 9748174 ;7918
gosub Add CorpseSkin 1059071 1579263
gosub Add Sleep 1050747 2172961
gosub Add Weaken 1052853 3750366
gosub Add PainSpike 1052870 7566319
gosub Add Tribulation 1052820 1052820
gosub Add MedusaStone 1052820 2173382
gosub Add RoseOfTrinsic 1080080 1621272
gosub Add GrapesOfWrath 2712361 3232355
gosub Add Strength 4337721 7575205
gosub Add CasterBloodOath 2741776 2217472
gosub Add MagicReflection 2748217 1632041
gosub Add FireDebuff 2748415 2226175
gosub Add Invisibility 3792441 3792441
gosub Add Despair 3223890 1052837
gosub Add StatLoss 3230455 1052804
gosub Add ArcaneEmpowerment 3257856 2725409
; gosub Add FastSkillGain 3257856 2725409
gosub Add Dismount 4342511 1579255
gosub Add WebDebuff 7566245 1579131
gosub Add Disarm 8092663 1052919
gosub Add MomentumStrike 10274312 2733336
gosub Add MortalStrike 9211111 1052886
gosub Add EnemyOfOne 9217445 1096960
gosub Add Agility 8710011 10270389
gosub Add Resilience 8103291 9234316
gosub Add Berserk 8107470 5963602
gosub Add EnchantBuff 8701440 3794770
gosub Add Invigorate 8714116 11919029
gosub Add StoneForm 10272206 1579041
gosub Add Polymorph 10854044 7048877
gosub Add EssenseOfWind 9211135 10274526
gosub Add Paralyze 10855935 4868855
gosub Add EtherealVoyage 10870346 7578962
gosub Add Strangle 12434943 11392743
gosub Add Flying 11902100 5395026
gosub Add EOODebuff 11910614 3217655
gosub Add ReactiveArmour 12445638 9217676
gosub Add OrangePetals 11375789 3261993
gosub Add Thunderstorm 11388630 13555406
gosub Add Preservance 12447677 11885138
gosub Add Attunement 13035387 5929868
gosub Add SpellPlague 13035503 5408412
gosub Add HeatOfBattle 1050747 61439
gosub Add AnimalForm 13546999 8
gosub Add NightSight 13553630 3270424
gosub Add DespairCaster 14056291 9189656
gosub Add ManaPhaseBuff 14081643 16252705
gosub Add WeaponWard 14589547 14061138
gosub Add Meditation 15157793 16777215
gosub Add Incognito 16751632 5392986
gosub Add HiddenStealthing 16764597 2703946
gosub Add GiftOfLife 16777215 15204327
gosub Add AureofNausea 1577149 16937
set %icons . #charid _
return
sub Add
if !scanBarIconCount = N/A
set !scanBarIconCount 0
set !scanBarIconCount !scanBarIconCount + 1
set ! . %2 %1
set !1 %2 + 256
set !2 %2 - 256
set !3 %2 + !scanOffset
set !4 %2 - !scanOffset
set ! . !1 %1
set ! . !2 %1
set ! . !3 %1
set ! . !4 %1
if %1 = massCurse || %1 = Curse || %1 = Sleep || %1 = Consecrate || %1 = HeatOfBattle || %1 = SplinteringDebuff || %1 = Feeblemind || %1 = Tribulation || %1 = MedusaStone
{
set !i2 . %3 %1
set !5 %3 + 256
set !6 %3 - 256
set !7 %3 + !scanOffset
set !8 %3 - !scanOffset
set ! . !5 %1
set ! . !6 %1
set ! . !7 %1
set ! . !8 %1
}
return
;START RAIL POINT:
sub railSpots
set %xRail1 693
set %yRail1 712
set %zRail1 -7
set %xRail2 700
set %yRail2 712
set %zRail2 -11
set %xRail3 705
set %yRail3 716
set %zRail3 -11
set %xRail4 709
set %yRail4 721
set %zRail4 -11
set %xRail5 710
set %yRail5 726
set %zRail5 -11
set %xRail6 715
set %yRail6 728
set %zRail6 -11
set %xRail7 721
set %yRail7 731
set %zRail7 -11
set %xRail8 726
set %yRail8 731
set %zRail8 -9
set %xRail9 730
set %yRail9 733
set %zRail9 -1
set %xRail10 730
set %yRail10 728
set %zRail10 -6
set %xRail11 725
set %yRail11 728
set %zRail11 -11
set %xRail12 726
set %yRail12 723
set %zRail12 -11
set %xRail13 723
set %yRail13 718
set %zRail13 -12
set %xRail14 718
set %yRail14 719
set %zRail14 -11
set %xRail15 713
set %yRail15 714
set %zRail15 -11
set %xRail16 708
set %yRail16 709
set %zRail16 -11
set %xRail17 704
set %yRail17 704
set %zRail17 -11
set %xRail18 705
set %yRail18 699
set %zRail18 -11
set %xRail19 706
set %yRail19 695
set %zRail19 -12
set %xRail20 702
set %yRail20 699
set %zRail20 -11
set %xRail21 701
set %yRail21 704
set %zRail21 -11
set %xRail22 700
set %yRail22 709
set %zRail22 -10
set %xRail23
set %yRail23
set %zRail23
set %xRail24
set %yRail24
set %zRail24
set %xRail25
set %yRail25
set %zRail25
set %xRail26
set %yRail26
set %zRail26
set %xRail27
set %yRail27
set %zRail27
set %xRail28
set %yRail28
set %zRail28
set %xRail29
set %yRail29
set %zRail29
set %xRail30
set %yRail30
set %zRail30
return