I have no clue what is messing up on the jurnal check works cause i took out the gosub and put event macro 1 0 fish and it says fish when i catch one. but it will not move the fish to my hold.
;This script is my first one ever and i hope it is done correctly.
;If anyone knows how to make it flow better please help.
;I is supost to fish infrount of you then place fish, MIB and Pearls into hold
;Then move forward one. then repeat.
;Seting the different things
; to be added baiting hock, looting serperent, droping scales
Set %FishType _SMZ_TYZ_EQD_NMZ_WYZ_DQD_OMZ_RMZ_GQD_UYZ_FQD_ZYZ_TYZ_MMZ_
Set %Cargo_Hold _XZCC_
Set %Pole _XHF_
Set %Pet_Name Killer
Set %Pet1 ZF
Set %White_Pearl _WWS_
Set %Special_Fish YDF_
Set %Shoes _PVI_TVI_AWI_NVI_OVI_ZVI_CWI_QVI_
Set %dagger _TSF_
set %BigFish _EQD_ZYZ_UYZ_
set %FishStakes HND_IND_
set %MIB _HTD_
set %Scale _UDHB_
event macro 1 0 %Pet_Name guard me
Repeat
finditem %Pole C_, #backpackID
set #lobjectID #findID
event macro 17 0
target 3s
If #targcurs = 1
{
wait 1s
gosub TargetW
}
until #charghost = Yes
return
Halt
Sub TargetW
set #LTargetX #charposx - 2
set #LTargetY #charposy
Set #LTargetKind 3
event Macro 22
wait 8s
gosub Jurnal_Check
event macro 24 1
wait 5
event macro 1 0 Forward one
return
Sub Jurnal_Check
scanjournal 1
If a_deep in #journal || a_sea in #Journal || a_water in #Journal
{
gosub Mob
gosub Shoes
gosub Check_Fish
}
If As_you_reel in #journal
{
gosub Scale
gosub Check_Fish
gosub Shoes
}
If Your_fishing_pole_bends_as_you_pull in #journal
{
gosub DeepFish
}
If You_pull_out_an_item_:_ in #journal
{
goSub Check_Fish
;wait 20
;gosub Check_Fish2
}
if a_mess in #journal
{
gosub Special_Fish
}
if You_have_Found in #journal
{
gosub Pearl
goSub Check_Fish
gosub Shoes
}
If You_pull_out_an_item_:_thigh_boots in #journal || You_pull_out_an_item_:_boots in #journal || You_pull_out_an_item_:_shoes in #journal || You_pull_out_an_item_:_sandals in #journal
{
gosub Shoes
gosub Pearl
}
deletejournal
return
Sub Mob
event macro 1 0 %Pet_Name guard me
wait 15s
gosub Heal
sound play
;gosub Loot_Mob
return
;Sub Loot_Mob
;findItem YFM G_10
;click #findid d
;FindItem %MIB C_, YFM
;exevent drag #findID
;wait 20
;FindItem %Cargo_Hold G_3
;exevent dropc #Findid
;wait 20
;return
Sub Shoes
FindItem %Shoes C_, #backpackID
exevent drag #findID
wait 20
FindItem %Pet1 G_4
exevent dropc #Findid
wait 20
return
Sub Special_Fish
Finditem %Special_Fish C_, #BackpackID
set #lobjectID #findID
set #ltargetKind 1
event macro 17 0
return
Sub Check_Fish
;FindItem %FishType C_, #backpackID
;exevent drag #findID
;wait 30
;FindItem %Cargo_Hold G_3
;exevent dropc #Findid
;wait 30
;return
return
;Sub Check_Fish2
;FindItem %FishType C_, #backpackID
;exevent drag #findID
;wait 30
;FindItem %Cargo_Hold G_3
;exevent dropc #Findid
;wait 30
;return
Sub Pearl
FindItem %White_Pearl C_, #backpackID
exevent drag #findID
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
wait 20
return
Sub Heal
event macro 15 28
target
event macro 23 0
return
Sub DeepFish
finditem %BigFish C_ #backpackid
set #ltargetid #findid
set #ltargetkind 1
finditem %Dagger C_, #backpackID
set #lobjectID #findID
set #ltargetKind 1
event macro 17 0
target
event macro 1 0 Filleting my fish... ; (Event Macro 1 0 lets you 'say')
event macro 22
gosub Move_steaks
wait 20
return
sub Move_steaks
wait 20
FindItem %FishStakes C_, #backpackID
exevent drag #findID #findstack
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
wait 20
return
Sub Scale
FindItem %Scale C_, #backpackID
exevent drag #findID #findstack
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
wait 20
return
