;=========================================
; Script Name: KFY's Herbing Macro
; Author: KFY
; Testing & debugging : Mischa
; Version: 1.0c
; Client Tested with: 4.0.1a
; EUO version tested with: 1.42
; Shard: Mysterious World
; Public Release: 20/07/2004
; Purpose: Sadzenie,zbieranie i obcinanie ziol
; How to use: nacisnij play jak cos nie dziala to przerob makro :P
; =========================================

initevents
set %ziolko 0    ; 0 sadzi i zbiera , 1 tylko zbiera
set %szczepka CBF ; objecttype sadzonki
set %krzak KBF ; objecttype krzaka
set %ziolo LIJ ;objecttype scietego ziela

; wilcze: GJJ/TIJ/VIJ , mandra: OIL/NIJ/LIJ

; ==========================================================
sadzenie:
ignoreitem #FINDID
finditem %szczepka
if #findkind = 0
  {
  set #LTARGETKIND 2
  set #LObjectID #FINDID
  wait 5
  event macro 17
  wait 5
  set #LTargetx #Charposx
  set #LTargety #Charposy
  set #LTargetz #Charposz
  target 20
  event macro 22
  set %ziolko 1
  wait 65 ; 65 optymalnie
  ignoreitem #FINDID
  finditem %krzak
  if #findkind = 1
  goto zbieranie2
  goto sadzenie
  }
display ok Nie ma szczepek!
if %ziolko = 1
{
display ok Czekam az urosna ziola!
set %ziolko 0
goto czekanie
}
halt

	czekanie:
	finditem %krzak
	if #findkind = 1
	goto zbieranie2
	wait 1s
	goto czekanie

; ==========================================================
zbieranie:
set %ziolko 0
ignoreitem #FINDID
finditem %krzak
if #findkind = 1
{
  zbieranie2:
  set #LObjectID #FINDID
  event macro 17
  wait 7s
  event macro 17
  wait 7s
  event macro 17
  wait 5
	ignoreitem #FINDID
	finditem %ziolo
	If #findkind = 0
	{
	set #LObjectID #FINDID
	event macro 17
	wait 10
	goto zbieranie
	}
}

finditem %krzak
if #findkind = 1
goto zbieranie2
display yesno Skonczylem robote czy sadzic ponownie?
if #dispRes = yes
	goto sadzenie
halt