;RoadkillsSillyFisher
set %sound alarm.wav
set %fishingpole XXXXXX
initevents
fishloop:
finditem %fishingpole C
if #findkind = -1
halt
set #LOBJECTID %fishingpole
event macro 17 0
set #ltargetx #charposx + 3
set #ltargety #charposy + 3
set #ltargetz 0
set #ltargetkind 3
target
event macro 22
set %fishtimer #scnt + 9
waitloop:
wait 1s
scanjournal 1
if biting in #journal
{
for !i 1 8
{
event macro 1 0 forward one
wait 15
}
event macro 1 0 stop
// event macro 1 0 turn right
wait 15
scanjournal 1
if moving in #journal
{
event macro 1 0 left one
wait 15
event macro 1 0 left one
wait 15
event macro 1 0 right one
wait 15
}
}
if #enemyid <> N/A
gosub KillSerp
if #scnt < %fishtimer
goto waitloop
goto fishloop
;--------end of main program-----------
sub KillSerp
sound %sound
event macro 1 0 stop
set %serp #enemyid
set #ltargetkind 1
set #ltargetid #enemyid
killloop:
event macro 15 41 ;or whatever spell you like. ebolt is good.
;or 15 29 for lightning if ebolt is too big for you
target 5s
event macro 22
IF #HITS <= 40
{
event macro 15 28
event macro 25 0
target
event macro 23 0
wait 1s
}
if #enemyid <> N/A
goto killloop
return
;---------------------------------

initevents
;--------------------------------------------------
;SETUP
;--------------------------------------------------
;--------------------------------------------------
SET %BackPackID FALGRMD ;Loot Bag
;--------------------------------------------------
_init:
SET %CorpseID 0
SET %GoldID 0

_start:
GoSub FindCorpse
GoTo _start

SUB FindCorpse
IF #CONTTYPE = YFM
{
SET %CorpseID #CONTID
GoSub FindGold
}
RETURN
SUB FindGold
findItem UDF_HTD C_ , %CorpseID
SET %GoldID #FINDID
IF #FINDKIND <> -1
{
exEvent Drag #FINDID #findstack
wait 5
exevent dropc #backpackid
wait 5
}
RETURN
finditem ZVI_TVI_PVI_NVI_YDF C_FALGRMD
if #findcnt > 0
{
event Drag #findid
wait 20
click 649 393 p
click 696 429 p
click 662 435 p
click 704 389 p
}