UOS - Piratefisher

///////Automated Pirate fisherman by kakel_anders (Player - UOG:Demise)///////
//
//When using it for the first time, start this script at your loot dropofflocation.
//Thereafter always start on the boat, just behind the mast (Outside of monster reach)
//--Have the following secured in reach from the loot dropoffrune -
//1. Lootbag
//2. Trashbarrel
//--Have the following in your bag -
//1. Fishingpole
//2. Dagger
//3. Shipkey
//4. Runebook with rune to loot dropoff (set as default)
//
//This script will -
//1. Fish, fish and fish some more!
//2. Cure and heal using chivalry.
//3. Offload your loot when reaching certain weight (Configure at line 258)
//4. Restock from 'lootbag' when running low on arrows.
//5. Kill seaserpents and waterelementals and navigate within lootingdistance of their corpses.
//6. Probably have flaws, it works well for me but i'm still pretty new to scipting.
//
//----A few requirements!----//
//1. Boat must be heading west, macro must be set up in the macroline (Look at map)
//2. Character must have Chivalry and archery.
//3. Stock up on Tithing and preferably a reptileslayer bow. (Don't forget to insure, just in case!)
//4. Autolooting is forbidden on Demise where i play. If you play on a shard where it is allowed, uncomment the lines 427 through 445.
//5. Always be in warmode.
//6. Don't gather unattended.
//----End of requirements----//
//// Aliases
////-- If any of these change you need to remove the aliases manually in UOSteam to change them.
if not findalias 'fishingpole'
  headmsg "Arr! Where's me fishstick?" 4321 "self"
  promptalias 'fishingpole'
endif
if not findalias 'dagger'
  headmsg "Arr! Where's me stabber?" 4321 "self"
  promptalias 'dagger'
endif
if not findalias 'lootbag'
  headmsg "Arr! Where's me lootbag? (Dropoff)" 4321 "self"
  promptalias 'lootbag'
endif
if not findalias 'trashbarrel'
  headmsg "Arr! Where's me shitcan?" 4321 "self"
  promptalias 'trashbarrel'
endif
if not findalias 'fishbook'
  headmsg "Arr! Where's me runebook fer home?" 4321 "self"
  promptalias 'fishbook'
endif
if not findalias 'shipkey'
  headmsg "Arr! Where's me shipkey for... ship!?" 4321 "self"
  promptalias 'shipkey'
  pause 500
  cast 'sacred journey'
  pause 2000
  target! shipkey
  pause 1000
  useobject self
  warmode 'on'
  headmsg "Arr! Kraken beware, i'm coming fer ya!" 4321 "self"
endif
//// Lists
//Fishtypes
if not listexists 'fish'
  createlist 'fish'
  pushlist 'fish' 0x9cd
  pushlist 'fish' 0x9cc
  pushlist 'fish' 0x9ce
  pushlist 'fish' 0x9cf
endif
//Specialfishtypes
if not listexists 'specialfish'
  createlist 'specialfish'
  pushlist 'specialfish' 0xdd6
endif
//Boottypes
if not listexists 'boots'
  createlist 'boots'
  pushlist 'boots' 0x170f
  pushlist 'boots' 0x1711
  pushlist 'boots' 0x170d
  pushlist 'boots' 0x170b
endif
if not listexists 'quotes'
  createlist 'quotes'
  pushlist 'quotes' 'Why is the rum gone?!'
  pushlist 'quotes' 'App! Found it! This calls for a song!'
  pushlist 'quotes' 'I thought I heard the Old Man say ~♫'
  pushlist 'quotes' '"Leave her, Johnny, leave her" ~♫'
  pushlist 'quotes' 'Tomorrow ye will get your pay ~♫'
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' 'Oh, leave her, Johnny, leave her ~♫'
  pushlist 'quotes' "For the voyage is long and the winds don't blow ~♫"
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'Oh, the wind was foul and the sea ran high ~♫'
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' 'She shipped it green and none went by ~♫'
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' 'Oh, leave her, Johnny, leave her ~♫'
  pushlist 'quotes' "For the voyage is long and the winds don't blow ~♫"
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'I hate to sail on this rotten tub ~♫'
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' 'No grog allowed and rotten grub ~♫'
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' 'Oh, leave her, Johnny, leave her ~♫'
  pushlist 'quotes' "For the voyage is long and the winds don't blow ~♫"
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'We swear by rote for want of more ~♫'
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' "But now we're through so we'll go on shore ~♫"
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'Leave her, Johnny, leave her ~♫'
  pushlist 'quotes' 'Oh, leave her, Johnny, leave her ~♫'
  pushlist 'quotes' "For the voyage is long and the winds don't blow ~♫"
  pushlist 'quotes' "And it's time for us to leave her ~♫"
  pushlist 'quotes' 'A friend can betray you, but an enemy will always stay the same'
  pushlist 'quotes' 'Real pirates play on UOG:Demise! Arr!'
  pushlist 'quotes' 'Take what you can, give nothing back! Arr!'
  pushlist 'quotes' 'Its the trustworthy you can’t trust'
  pushlist 'quotes' 'Arr, There comes a time in most men’s lives where they feel the need to raise the Black Flag'
  pushlist 'quotes' 'If ye can’t trust a pirate, ye damn well can’t trust a merchant either!'
  pushlist 'quotes' 'Not all treasure is silver and gold..'
  pushlist 'quotes' 'The rougher the seas, the smoother we sail. Ahoy!'
  pushlist 'quotes' 'Give me freedom or give me the rope!'
  pushlist 'quotes' 'Why are pirates pirates? cuz they arrrrrr!!'
  pushlist 'quotes' 'Now and then we had a hope that if we lived and were good, God would permit us to be pirates..'
  pushlist 'quotes' 'Drink up me hearties yoho …a pirates life for me'
  pushlist 'quotes' 'STOP BLOWING HOLES IN MY SHIP!!!'
  pushlist 'quotes' 'Real pirates play on UOG:Demise! Arr!'
  pushlist 'quotes' 'To err is human but to arr is pirate!!'
  pushlist 'quotes' 'Where there is a sea there are pirates.'
  pushlist 'quotes' 'Suddenly you’re like a pirate, you’re 65 years old and you’ve got an ear- ring..'
  pushlist 'quotes' 'If ye thinks he be ready to sail a beauty, ye better be willin’ to sink with her!'
  pushlist 'quotes' 'Real pirates play on UOG:Demise! Arr!'
  pushlist 'quotes' 'The Code is more like guidelines, really...'
  pushlist 'quotes' 'Work like a captain, play like a pirate!'
  pushlist 'quotes' 'Fetch me another Cabin Boy…This one be split!'
  pushlist 'quotes' 'Damnation seize my soul if I give you quarters, or take any from you!'
  pushlist 'quotes' 'Real pirates play on UOG:Demise! Arr!'
  pushlist 'quotes' 'Shivarrrrrr me timbers!'
  pushlist 'quotes' 'Under a black flag we sail and the sea shall be our empire'
  pushlist 'quotes' 'Keep calm and say ‘ARRRR’'
  pushlist 'quotes' 'How much does the pirate pay for an ear piercing? … A buccaneer!'
  pushlist 'quotes' 'Loot is first and wimmen second. Because if ye have the first ye’ll have the second!'
  pushlist 'quotes' 'If rum can’t fix it, you are not using enough rum!'
  pushlist 'quotes' 'Whats a pirates favorite fast food restaurant? Arrrrbys!'
  pushlist 'quotes' 'Land was created to provide a place for boats to visit'
  pushlist 'quotes' 'There is nothing like the smell of cannon fire in the morning!'
  pushlist 'quotes' 'Why are pirates better than every one else? They just Arhhhhhhhhh!'
  pushlist 'quotes' 'Ahoy! lets trouble the water!'
  pushlist 'quotes' 'May your anchor be tight, your cork be loose, your rum be spiced and your compass be true!'
  pushlist 'quotes' 'Be who you arrrr…!'
  pushlist 'quotes' 'Avast ye landlubbers! Ye can throw ye lunch in Davy Jones’ locker, but not yer homework!'
  pushlist 'quotes' 'May your blade always be wet, and powder dry!'
  pushlist 'quotes' 'It’s more fun to be a pirate than to join the navy'
  pushlist 'quotes' 'In politics and in trade, bruisers and pirates are of better promise than talkers and clerks'
  pushlist 'quotes' "Life's pretty good, and why wouldn’t it be? I'm a pirate, after all!"
  pushlist 'quotes' 'Real pirates play on UOG:Demise! Arr!'
endif
if not listexists 'quotehues'
  createlist 'quotehues'
  pushlist 'quotehues' 8
  pushlist 'quotehues' 13
  pushlist 'quotehues' 18
  pushlist 'quotehues' 23
  pushlist 'quotehues' 28
  pushlist 'quotehues' 33
  pushlist 'quotehues' 38
  pushlist 'quotehues' 43
  pushlist 'quotehues' 48
  pushlist 'quotehues' 53
  pushlist 'quotehues' 58
endif
//
//
// Poisoned? Cleanse by FIAH!
if poisoned self
  cast 'cleanse by fire'
  pause 2000
  target self
  pause 2000
endif
//
//
//// Low health? Heal up!
if hits < 80
  cast 'close wounds'
  pause 2000
  target! self
  pause 2000
endif
//
//
//// fishing
@clearjournal
useobject 'fishingpole'
pause 1000
targettilerelative 'self' 1 'false'
pause 1000
if @injournal "The fish don't seem to be biting here." "system"
  msg 'forward'
  pause 4000
  msg 'stop'
  @clearjournal
endif
pause 8000
//
//
//// Boat stopped? Go a bit to the left!
if @injournal "Ar, we've stopped sir." "system"
  @clearjournal
  msg 'left'
  pause 2000
  msg 'stop'
endif
//// Boat stopped again?.. Go right?
if @injournal "Ar, we've stopped sir." "system"
  @clearjournal
  msg 'right'
  pause 2000
  msg 'stop'
endif
//
//
//// Boat anchored? Raise anchor!
if @injournal "Ar, the anchor is down sir!" "system"
  msg 'raise anchor'
  @clearjournal
endif
//
//
//// Got fish? Chop em up!
for 0 to 'fish'
  while @findtype 'fish[]' 'any' 'backpack'
    useobject dagger
    pause 1000
    target! found
  endwhile
endfor
//
//
//// Got specialfish? Eat em!
for 0 to 'specialfish'
  while @findtype 'specialfish[]' 'any' 'backpack'
    useobject found
    pause 500
  endwhile
endfor
//
//
//// Overloaded? Drop off items at home!
if weight > 300
  // or whitepearls > 10 - Godda prudect dem valuables
  // or maximum items in backpack
  cast 'sacred journey'
  pause 2000
  target! fishbook
  pause 500
  //fishsteaks
  movetype 0x97a 'backpack' 'lootbag'
  pause 500
  while @findtype 0xdca
    movetype 0xdca 'backpack' 'lootbag' //nets
  endwhile
  while @findtype 0x1079
    movetype 0x1079 'backpack' 'lootbag' //leather
  endwhile
  while @findtype 0x26b4
    movetype 0x26b4 'backpack' 'lootbag' //scales
  endwhile
  while @findtype 0x14ec
    movetype 0x14ec 'backpack' 'lootbag' //maps
  endwhile
  while @findtype 0xeed
    movetype 0xeed 'backpack' 'lootbag' //gold
  endwhile
  while @findtype 0x99f
    movetype 0x99f 'backpack' 'lootbag' //MiB
  endwhile
  while @findtype 0x3196
    movetype 0x3196 'backpack' 'lootbag' // Pearl
  endwhile
  for 0 to boots
    while @findtype 'boots[]'
      movetype 'boots[]' 'backpack' 'trashbarrel' // If any boots made it along, throw em in the trash
    endwhile
  endfor
  pause 500
  cast 'sacred journey'
  pause 2000
  target! shipkey
  pause 500
endif
//
//
//// Low on arrows? Go home and resupply!
if @counttype 0xf3f 'any' 'backpack' < 50
  cast 'sacred journey'
  pause 2000
  target! fishbook
  pause 1000
  useobject lootbag
  pause 500
  movetype 0xf3f 'lootbag' 'backpack' 100
  pause 500
  cast 'sacred journey'
  pause 2000
  target! shipkey
endif
//
//
//// Seaserpent detected? Stop boat and kill! Short range! While(cure/heal)
while @findtype 0x96 0 0 0 15 // Focus during fight
  attack! found
  msg 'Arr! Seaserpent!'
  //Keep heals up
  if hits < 70
    cast 'close wounds'
    pause 2000
    target! self
    pause 2000
  endif
  //Keep cures up
  if poisoned self
    cast 'cleanse by fire'
    pause 2000
    target! self
    pause 2000
  endif
  msg 'Die serpent!'
endwhile
//
//
//// Waterelemental detected? Stop boat and kill! Long range! While(cure/heal)
// Update "type"
while @findtype 0x96 0 0 0 15 // Focus during fight
  attack! found
  //Keep heals up
  if hits < 70
    cast 'close wounds'
    pause 2000
    target! self
    pause 2000
  endif
  //Keep cures up
  if poisoned self
    cast 'cleanse by fire'
    pause 2000
    target! self
    pause 2000
  endif
  msg 'Die serpent!'
endwhile
//
//
//// Sea serpent body detected? Go to it and skin + loot leather/nets/mib's
//
if @findtype '0x2006' 'any' 'ground' 'any' '15' //(finds corpse within 12 tiles)
  setalias 'Dead' 'found'
  //
  // If the boat is pointing West proceed, else use the secondary movementtable
  //  if @findtype '0x3e50' 'any' 'ground' 'any' '10'?? Tillergraphic decides direction
  while not @inrange 'Dead' 2
    if @x 'Dead' > x 'self' and @y 'Dead' > y 'self'
      pause 700
      msg 'back one'
      pause 700
      msg 'left one'
      pause 700
    elseif @x 'Dead' < x 'self' and @y 'Dead' > y 'self'
      pause 700
      msg 'forward one'
      pause 700
      msg 'left one'
      pause 700
    elseif @x 'Dead' > x 'self' and @y 'Dead' < y 'self'
      pause 700
      msg 'back one'
      pause 700
      msg 'right one'
      pause 700
    elseif @x 'Dead' < x 'self' and @y 'Dead' < y 'self'
      pause 700
      msg 'forward one'
      pause 700
      msg 'right one'
      pause 700
    elseif @x 'Dead' > x 'self' and @y 'Dead' == y 'self'
      pause 700
      msg 'back one'
      pause 700
    elseif @x 'Dead' < x 'self' and @y 'Dead' == y 'self'
      pause 700
      msg 'forward one'
      pause 700
    elseif @x 'Dead' == x 'self' and @y 'Dead' > y 'self'
      pause 700
      msg 'left one'
      pause 700
    elseif @x 'Dead' == x 'self' and @y 'Dead' < y 'self'
      pause 700
      msg 'right one'
      pause 700
    endif
  endwhile
endif
// Is in lootingrange?
if @inrange 'Dead' 2
  //
  //Skin 'er up!'
  //
  useobject dagger
  pause 1500
  target! Dead
  pause 500
  //
  //Loot 'er dry!'
  //
  useobject Dead
  pause 10000
  //// Lootscript - Does NOT work on UOG Demise
  // Leather
  //movetype 0x1079 'Dead' 'backpack'
  //pause 500
  // Scales
  //movetype 0x26b4 'Dead' 'backpack'
  //pause 500
  // Map
  //movetype 0x14ec 'Dead' 'backpack'
  //pause 500
  // Net
  //movetype 0xdca 'Dead' 'backpack'
  //pause 500
  // MiB
  //movetype 0x99f 'Dead' 'backpack'
  //pause 500
  // Gold
  //movetype 0xeed 'Dead' 'backpack'
  //pause 500
  ignoreobject Dead
  // Travel far enough forward so that the corpse don't mess up the continuation.
  msg 'forward'
  pause 8000
  msg 'stop'
  pause 500
  clearignorelist
endif
if list 'quotes' > 0
  pushlist 'quotes' 'quotes[0]
  pushlist 'quotehues' 'quotehues[0]'
  msg quotes[0] quotehues[0]
  @poplist 'quotes' 'front'
  @poplist 'quotehues' 'front'
endif