Help please

[NecroFox]

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.

Code: [Select]

;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


[camotbik]

Get back to those tutorials.. You will find your way out.

Code: [Select]

finditem %whatever C_ , #backpackid
if #findcnt > 0
{ ; Always use this after if to open up if statement
do stuff
} ; Always use this after if to close up if statement