initevent
SET #SCNT 0
SET %bantsure 0
SET %cdowntimer 0
SET #sysmsgcol 75
event sysmessage -------------------------
event sysmessage # Bandaj ve Potion Makrosu #
event sysmessage #   v1.0    by     Cemre #
event sysmessage # Fallen MF Cemre Tanker's #
event sysmessage # Master Of King Knight #
event sysmessage ------------------------
SET %healpottimer 0
SET %disarmtimer 0
SET %str 85; buraya strengthinin bir eksigini koy (89 se 79 mesela)
SET %dex 190; buraya dexteritynin bir eksigini koy (59 se 79 mesela)
SET %healpothp 70 ;kac hp altinda heal pot icmek istedigin
SET %refreshpot 80 ; kac stamina altinda refresh icmek istedigin

set %backpack #backpackid
SET %steedtypes SC_QC_EC_UJ_TJ__SH_ZGB__SG_MG_OF_SF__WJ_KG_EG_MHB_YJ_BK

set %steed null

=======================================


AutoSteedMountedFindLoop:
SET %index %index + 1
FINDITEM %steedtypes %index
IF #FINDKIND = 1
GOTO AutoSteedMountedFindLoop
IF #FINDKIND = 0
{
SET %steed #FINDID
SET %steedbu %steed


}
SET #LOBJECTID #CHARID
EVENT MACRO 17
WAIT 1s
SET %index 0
AutoSteedFindLoop:
SET %index %index + 1
FINDITEM %steedtypes %index
IF #FINDKIND = 1
{
IF #FINDDIST > 1
goto AutoSteedFindLoop
SET %steed #FINDID
SET %steedbu %steed
SET #LOBJECTID %steed
EVENT MACRO 17 0
}
set %mount %steed


if %mount = null


event sysmessage --------------------
event sysmessage # Otomatik Binek Tanima #
event sysmessage #  v1.0BETA by E.HAtiper  #
event sysmessage --------------------
}
goto mainloop
}


mainloop:


finditem %mount
if #findid = %mount
{
event macro 1 0 All Follow Me
set #lobjectid %mount
wait 40
event Macro 17

}

if %cdowntimer < #scnt
{
set %countdown ( %bantsure - #scnt2 ) / 10
if %countdown > 0
Event SysMessage %countdown
set %cdowntimer #scnt

}
if #hits < #maxhits
{
gosub bandaj
}
if C in #CHARSTATUS
{
gosub curepot
}
80
if #hits < %healpothp
{
gosub healpot
}
if #str < %str
{
gosub strpot
}
if #dex < %dex
{
gosub agilpot
}
if #stamina < %refreshpot
{
gosub refpot
}

goto mainloop


sub bandaj
if %bantsure < #scnt2
{
event macro 1 0 [bandageself

-------
set %a #dex * 1000
set %b 120000 - %a
set %c %b / 20
set %d %c + 5000
set %milisecs %d
set %bandajtimer %milisecs / 100
-------

SET %bantsure #scnt2 + %BANDAJTIMER
return
}
else
{
return
}
return

sub healpot
if #scnt2 > %healpottimer
{
finditem UUF C_ , %backpack
set #lobjectid #findid
event Macro 17 0
SET %healpottimer #scnt2 + 120
}
return

sub refpot
finditem ZUF C_ , %backpack
set #lobjectid #findid
event Macro 17 0
return

sub curepot
finditem NUF C_ , %backpack
set #lobjectid #findid
event Macro 17 0
return



sub strpot
finditem XUF C_ , %backpack
set #lobjectid #findid
event Macro 17 0
return

sub agilpot
finditem YUF C_ , %backpack
set #lobjectid #findid
event Macro 17 0
return