[UOSteam] Boat Fishing
Posted: Thu Apr 04, 2019 9:53 pm
First time making a script, i'm sure some of this could be done better but it's working without issues for me. Just be on a boat and have a fishing rod equipped. It will fish until there are no fish, you fish up a monster, or your Fishing pole durability reaches 0
Updated with some error checking for an equipped fishing pole. Figured i would leave this one in case someone needed fishing but lacked carpentry or tinkering
This script has auto repairing and crafting fishing hooks and equipping them(you have to have a hook initially equipped but once it breaks it replaces it). Also not sure how to add error checking so make sure you have ingots for hooks
Updated with some error checking for an equipped fishing pole. Figured i would leave this one in case someone needed fishing but lacked carpentry or tinkering
Code: Select all
if not @findalias 'fishing pole'
headmsg 'Select a fishing pole'
promptalias 'fishing pole'
endif
if property 'durability' 'fishing pole' <= 0
moveitem! 'fishing pole' 'backpack'
sysmsg '**Repair Fishing Pole - Halting**' '240'
stop
else
// Change weight to
// your needs
if weight <= '500'
@useobject 'fishing pole'
waitfortarget 500
targettileoffset 3 0 2
if @injournal "Must be equiped"
sysmsg '**Equip a Fishing Pole - Halting**' '233'
@clearjournal
stop
endif
pause 7500
else
sysmsg '**Overweight - Halting**' '240'
stop
endif
endif
if @injournal "The fish don't seem to be biting here."
sysmsg '**No More Fish - Moving**'
@clearjournal
msg 'forward one'
pause 2000
msg 'forward one'
pause 2000
msg 'forward one'
pause 2000
msg 'forward one'
pause 2000
sysmsg '**Fishing**'
endif
if @injournal 'Uh oh! That'
@clearjournal
sysmsg '**Kill It - Halting**' '233'
stop
endif
Code: Select all
if not @findalias 'fishing pole'
headmsg 'Select a fishing pole'
promptalias 'fishing pole'
endif
if not @findalias 'saw'
headmsg 'Select carpentry tool'
promptalias 'saw'
endif
if not @findalias 'tool kit'
headmsg 'Select tinker tools'
promptalias 'tool kit'
endif
if property 'durability' 'fishing pole' <= 0
moveitem! 'fishing pole' 'backpack'
sysmsg '**Repairing Fishing Pole**' '240'
useobject 'saw'
waitforgump 949095101 15000
replygump 0x38920abd 42
waitfortarget 15000
target 'fishing pole'
waitforgump 949095101 15000
replygump 0x38920abd 0
equipitem 'fishing pole' 1
pause 1000
else
if @injournal "Your hook has crumbled."
sysmsg '**Broken Hook - Crafting**' '240'
useobject 'tool kit'
waitforgump 949095101 15000
replygump 0x38920abd 29
waitforgump 949095101 15000
replygump 0x38920abd 79
waitforgump 949095101 15000
replygump 0x38920abd 0
pause 500
contextmenu 'fishing pole' 0
waitforgump 1330461698 15000
replygump 0x4f4d3c02 60001
waitforgump 1330461698 15000
replygump 0x4f4d3c02 60002
waitforgump 1330461698 15000
waitfortarget 15000
targettype '0x3a96'
waitforgump 1330461698 15000
replygump 0x4f4d3c02 0
@clearjournal
else
// Change weight to
// your needs
if weight <= '500'
@useobject 'fishing pole'
waitfortarget 500
targettileoffset 3 0 2
if @injournal "Must be equiped"
sysmsg '**Equip a Fishing Pole - Halting**' '233'
@clearjournal
stop
endif
pause 7500
else
sysmsg '**Overweight - Halting**' '240'
stop
endif
endif
endif
if @injournal "The fish don't seem to be biting here."
sysmsg '**No More Fish - Moving**'
@clearjournal
msg 'forward one'
pause 2000
msg 'forward one'
pause 2000
msg 'forward one'
pause 2000
msg 'forward one'
pause 2000
sysmsg '**Fishing**'
endif
if @injournal 'Uh oh! That'
@clearjournal
sysmsg '**Kill It - Halting**' '233'
stop
endif