My first scrip and need help seting it up

[NecroFox]

the part i need to understand now is how do i look though my journal for the syntex to check if what i caught be it a monster a scale. a pearl, a fish. a big fish, or nothng?

[camotbik]

Ok I will give you an example from my dungeon fisher. Maybe this way you will understand.

Code: [Select]

sub drop2
start:
  tile init
  tile cnt #ltargetx #ltargety
  for %i 1 #tilecnt
  {
    tile get #ltargetx #ltargety %i
    if water in #TILENAME || wet in #TILEFLAGS
    {
      if #TILETYPE = 6051 || #TILETYPE = 6063 || #TILETYPE = 6047 || #TILETYPE = 6048 || #TILETYPE = 171 || #TILETYPE = 170 || #TILETYPE = 168 || #TILETYPE = 6052 || #TILETYPE = 169 || #TILETYPE = 6039
        return 1
      set #LTARGETTILE #TILETYPE
      set #LTARGETKIND 3
      set #LTARGETZ #TILEZ
      finditem KDF C_ , #backpackid
      if #findcnt > 0
        set #lobjectid #findid
      else
        halt
      set #LTARGETKIND 3
      event macro 17
      target 2s
      event macro 22
      wait 10
      set %_jindex #jindex
      set %go #false
      set %maxtimeout #scnt2 + 20
      repeat
        if #scnt2 > %maxtimeout
        {
          return 1
        }
        if #jindex >= %_jindex
        {
          if ( #weight > ( #maxweight - 70 ) )
            return
          scanjournal %_jindex
          if pull in #journal || fail_to_catch in #journal || a_white in #journal
          {
            goto start
          }
          if seem_to_be in #journal || something_is_happening in #journal
          {
            return
          }
          if closer_to_the in #journal || target_cannot_be in #journal
          {
            return 1
          }
          if already_fishing in #journal
          {
            wait 5s
            goto start
          }
          set %_jindex %_jindex + 1
        }
        wait 0
      until %go = #true
    }
  }
return


[Crome969]

But why setting #LobjectID yet?
Its like fill a cup with water then fill that water in other cup then refill in first cup because u need first cup.

[NecroFox]

ok so i got all the subs i know how to do made and they work on their own when i test them
But how do i bring them together into a script that flows.
what happens when i doesnt work correctly when i run it as a whole.
I still dont know how to get a jurnal scan working but heres the code.

Code: [Select]

Set %FishType SMZ_TYZ_EQD_NMZ_WYZ_DQD_OMZ_RMZ_GQD_UYZ_FQD_ZYZ_TYZ_
Set %Pole XHF_
Set %White_Pearl WWS_
Set %Shoes PVI_TVI_AWI_NVI_OVI_ZVI_CWI_QVI
Set %Scale UDHB_
Set %MIB HTD
Set %Special_Fish YDF_
Set %Pet1 TULKGF
Set %Pet2 DADOJD
Set %Cargo_Hold CJF ;Tokno Ship Cargo Hold


finditem %Pole C_, #backpackID
set #lobjectID #findID
event macro 17 0
target 3s
If #targcurs = True
       wait 1s
       event macro 1 0 I love fishing... ; (Event Macro 1 0 lets you 'say')
       event macro 19 0 ; (this will make you salute)
       gosub TargetW
return

Sub TargetW
set #LTargetX #charposx - 2
set #LTargetY #charposy - 1
Set #LTargetKind 3
event Macro 22
wait 8s
gosub Check_Fish
wait 20
gosub Pearl
wait 20
gosub Shoes
wait 20
gosub Heal
wait 20
event marco 1 0 Forward one
return

Sub Heal
event macro 15 28
target
event macro 23 0
return

Sub Mob
event macro 1 0 Killer Guard Me
wait 10s


Sub Check_Fish
Finditem %FishType C_, #BackpackID
set #lobjectID #findID
exevent drag #lobjectid
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
return

Sub Shoes
FindItem %Shoes C_, #backpackID
set #lobjectID #findID
exevent drag #lobjectid
wait 20
FindItem %Pet2 G_4
exevent dropc #Findid
return

Sub Pearl
FindItem %White_Pearl C_, #backpackID
set #lobjectID #findID
exevent drag #lobjectid
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
return

i think the problem is that i need to put in something that tells it to look for something before i go to the sub. is that my problem?

[camotbik]

First of all, Crome and Cereveza showed you your problems!

Code: [Select]

if WHATEVER
{
CODE!
}
Second of all, take a look at tutorials, and download the EUO single page tutorial html( from easyuo.com ), to get the basics. with out them, you wont event get a script working. How the gurus say, rtfm. I would help you, but, if you dont try there is no point of doing that.

[Endless Night]

bit a fixup  -- comments in the code

Code: [Select]

Set %FishType SMZ_TYZ_EQD_NMZ_WYZ_DQD_OMZ_RMZ_GQD_UYZ_FQD_ZYZ_TYZ_
Set %Pole XHF_
Set %White_Pearl WWS_
Set %Shoes PVI_TVI_AWI_NVI_OVI_ZVI_CWI_QVI
Set %Scale UDHB_
Set %MIB HTD
Set %Special_Fish YDF_
Set %Pet1 TULKGF
Set %Pet2 DADOJD
Set %Cargo_Hold CJF ;Tokno Ship Cargo Hold

repeat  ; do a block of code more than once finish at until
finditem %Pole C_, #backpackID
set #lobjectID #findID
event macro 17 0
target 3s
If #targcurs = True
    {  ;  must have {} for blocks of code after an if
       wait 1s
       event macro 1 0 I love fishing... ; (Event Macro 1 0 lets you 'say')
       event macro 19 0 ; (this will make you salute)
       gosub TargetW
    {  ;  must have {} for blocks of code after an if
until #charghost = YES   ; end script when your a ghost.
Halt ;-- halt the script
; return  <-- return to where .. this is not part of a sub

Sub TargetW
set #LTargetX #charposx - 2
set #LTargetY #charposy - 1
Set #LTargetKind 3
event Macro 22
wait 8s
gosub Check_Fish
wait 20
gosub Pearl
wait 20
gosub Shoes
wait 20
gosub Heal
wait 20
event marco 1 0 Forward one
return

Sub Heal
event macro 15 28
target
event macro 23 0
return

Sub Mob
event macro 1 0 Killer Guard Me
wait 10s
return ; -- subs must end in return

Sub Check_Fish
Finditem %FishType C_, #BackpackID
set #lobjectID #findID
exevent drag #lobjectid
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
return

Sub Shoes
FindItem %Shoes C_, #backpackID
set #lobjectID #findID
exevent drag #lobjectid
wait 20
FindItem %Pet2 G_4
exevent dropc #Findid
return

Sub Pearl
FindItem %White_Pearl C_, #backpackID
set #lobjectID #findID
exevent drag #lobjectid
wait 20
FindItem %Cargo_Hold G_3
exevent dropc #Findid
return


[NecroFox]

How would i scan the ground for a corsps?