set #menubutton N/A
goto menuac
loop:
if #menubutton = ust
{
set %x #CHARPOSX - 6
set %y #CHARPOSY - 6
}
if #menubutton = alt
{
set %x #CHARPOSX + 6
set %y #CHARPOSY + 6
}
if #menubutton = sag
{
set %x #CHARPOSX + 6
set %y #CHARPOSY - 6
}
if #menubutton = sol
{
set %x #CHARPOSX - 6
set %y #CHARPOSY + 6
}
if #menubutton = solust
{
set %x #CHARPOSX - 6
set %y #CHARPOSY
}
if #menubutton = solalt
{
set %x #CHARPOSX
set %y #CHARPOSY + 6
}
if #menubutton = sagust
{
set %x #CHARPOSX
set %y #CHARPOSY - 6
}
if #menubutton = sagalt
{
set %x #CHARPOSX + 6
set %y #CHARPOSY
}
if #menubutton = dur || #menubutton = CLOSED
{
menu hide
stop
}
MOVE %x %y 5 0
goto loop

menuac:
menu hideEuo
menu clear
menu window title Dümen
menu Window Size 200 75
menu Button ust 65 0 75 25 |
menu Button alt 65 50 75 25 |
menu Button sag 130 25 70 25 --
menu Button sol 0 25 75 25 --
menu Button solust 0 0 65 25
menu Button solalt 0 50 65 25 /
menu Button sagust 140 0 60 25 /
menu Button sagalt 140 50 60 25
menu Button dur 95 30 15 15 X
menu show
goto loop

;last target renk bulma


SET #TARGCURS 1
pet2:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet2
}
SET *isitem #LTARGETID
finditem *isitem
if #findcnt > 0
{
event macro 1 0 #findcol
}
gosub pet2

SET #TARGCURS 1
kutux:
IF #TARGCURS = 1
{
WAIT 2
GOTO kutux
}
hideitem #LTARGETID

set #sysmsgcol 77
set %value 0
set #lpc 400
set %props |
set #sysmsgcol 1270

if *ellialti = N/A
gosub kutusec
SET #TARGCURS 1
kutuz:
IF #TARGCURS = 1
{
WAIT 2
GOTO kutuz
}
SET %kutuz #LTARGETID
loop:
OnHotKey f
goto loot
goto loop

loot:
SET #TARGCURS 1
kutux:
IF #TARGCURS = 1
{
WAIT 2
GOTO kutux
}
SET %kutu #LTARGETID
set #lobjectid %kutu
event macro 17 0
wait 10
finditem POF C_ , %kutu
if #findstack > 1
{
exevent drag #findid #findstack
wait 20
exevent dropc #backpackID
wait 5
}
find:
finditem * C_ , %kutu
if #findstack > 2 && Amber notin #property
{
exevent drag #findid #findstack
wait 20
exevent dropc %kutuz
wait 5

;ignoreitem #findid
goto find
}
if #findcnt > 0
{
set %object #findid
gosub Check
event sysmessage %name %value Puan
set #sysmsgcol 1154
event sysmessage ( %props )
wait 10
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
if %value >= 101
{
exevent drag %object
wait 20
exevent dropc #backpackID
wait 5
}
else
{
exevent drag %object
wait 20
exevent dropc %kutuz
wait 5
}


;if %value > 1 && <= 100
;{
;display yesno lootla?
;if #dispRes = yes
;{
; exevent drag %object
;wait 20
;exevent dropc #BACKPACKID
;wait 5
;}
;}
;if %value > 50 && %value <= 75
;{
;exevent drag %object
;wait 30
;exevent dropc *ellibiryetmisbes
;wait 10
;}
;if %value > 75 && %value <= 100
;{
;exevent drag %object
;wait 30
;exevent dropc *yetmisbesyuz
;wait 10
;}
;if %value > 100 && %value <= 150
;{
;exevent drag %object
;wait 30
;exevent dropc *yuzyuzelli
;wait 10
;}
;if %value > 150
;{
;exevent drag %object
;wait 30
;exevent dropc *yuzelliustu
;wait 10
;}
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
set %value 0
set %props |
set #sysmsgcol 253
;if %name = Amber
;{
;exevent drag %object #findstack
;wait 30
;exevent dropc #backpackID
;wait 10
;}
ignoreitem #findid
goto find
}
goto loop

sub Check
GOSUB BMGetProperty #FINDID
GOSUB chanceIncrease
GOSUB damageIncrease
GOSUB speedIncrease
GOSUB leech
GOSUB lower
GOSUB spellChance
GOSUB luck
GOSUB regeneration
GOSUB resist
GOSUB lowercost
GOSUB increase
GOSUB reflectPhysical
GOSUB stats
GOSUB fastercast
GOSUB enhancepots
GOSUB channeling
GOSUB name
GOSUB slayer
GOSUB skill
Return

SUB skill
{
GOSUB Skills
SET %value %value + ( #RESULT )
RETURN
}
SUB fastercast
{
IF faster , #spc , casting in #property && faster , #spc , cast , #spc , recovery in #property
{
SET %value %value + 20
set #sysmsgcol 1264
SET %yazi Fc+Fcr,|
SET %props %props , %yazi
}
GOSUB Property faster , #SPC , casting
IF #RESULT < 0
{
SET %yazi -FC,|
SET %props %props , %yazi
}
IF #RESULT > 0
{
SET %yazi Fc,|
SET %props %props , %yazi
}

IF #RESULT > 0 && durability NOTIN #property
SET %value %value + ( #RESULT * 20 )

GOSUB Property faster , #spc , cast , #spc , recovery
SET %value %value + ( #RESULT * 15 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Fcr,|
SET %props %props , %deger , %yazi
}
RETURN
}
SUB stats
{
GOSUB Property intelligence , #spc , bonus
SET %value %value + ( #RESULT * 2 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |int,|
SET %props %props , %deger , %yazi
}
GOSUB Property strength , #spc , bonus
SET %value %value + ( #RESULT * 3 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |str,|
SET %props %props , %deger , %yazi
}
GOSUB Property dexterity , #spc , bonus
SET %value %value + ( #RESULT * 4 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |dex,|
SET %props %props , %deger , %yazi
}
RETURN
}
SUB increase
{
GOSUB Property hit , #SPC , point , #SPC , increase
SET %value %value + ( #RESULT * 6 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |HP,|
SET %props %props , %deger , %yazi
}
GOSUB Property mana , #SPC , increase
SET %value %value + ( #RESULT * 4 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Mana,|
SET %props %props , %deger , %yazi
}
GOSUB Property stamina , #SPC , increase
SET %value %value + ( #RESULT * 2 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Stamina,|
SET %props %props , %deger , %yazi
}
RETURN
}
SUB lowercost
{
GOSUB Property lower , #spc , reagent , #spc , cost
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LRC,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 14
{
SET %value %value + #RESULT
}
GOSUB Property lower , #spc , mana , #spc , cost
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LMC,|
SET %props %props , %deger , %yazi
}
SET %value %value + ( #RESULT * 5 )
RETURN
}
SUB enhancepots
{
GOSUB Property enhance , #spc , potions
SET %value %value + ( #RESULT )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |EnchPot,|
SET %props %props , %deger , %yazi
}
RETURN
}
SUB regeneration
{
GOSUB Property mana , #spc , regeneration
SET %value %value + ( #RESULT * 10 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |MR,|
SET %props %props , %deger , %yazi
}
GOSUB Property stamina , #spc , regeneration
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |SR,|
SET %props %props , %deger , %yazi
}
GOSUB Property hit , #SPC , point , #SPC , regeneration
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |HpR,|
SET %props %props , %deger , %yazi
}
RETURN
}
SUB slayer
{
IF ( dragon in #property ) || ( blood , #SPC , elemental IN #PROPERTY ) || ( reptile in #property )
{
SET %value %value + 10
SET %yazi Dragon|yada|Blood|slayer,|
SET %props %props , %yazi
}
IF ( undead in #property ) || ( demon in #property )
{
SET %value %value + 25
set #sysmsgcol 1359
SET %yazi Undead|yada|Demon|Slayer,|
SET %props %props , %yazi
}
RETURN
}

SUB spellChance
{
GOSUB Property hit , #spc , lightning
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Lightning,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 30
SET %value %value + ( #RESULT / 2 )
IF #RESULT >= 40
SET %value %value + ( #RESULT / 2 )
GOSUB Property hit , #spc , harm
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Harm,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 30
SET %value %value + ( #RESULT / 2 )
IF #RESULT >= 40
SET %value %value + ( #RESULT / 2 )
GOSUB Property hit , #spc , fireball
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Fireball,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 30
SET %value %value + ( #RESULT / 2 )
IF #RESULT >= 40
SET %value %value + ( #RESULT / 2 )
GOSUB Property area
IF #RESULT > 0
{
SET %yazi Area's,|
SET %props %props , %yazi
}
IF #RESULT >= 35
SET %value %value + ( #RESULT / 2 )
RETURN
}
SUB lower
{
GOSUB Property lower , #spc , attack
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LowAtt,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 30
SET %value %value + ( ( #RESULT * 3 ) / 5 )
GOSUB Property lower , #spc , defense
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LowDef,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 30
SET %value %value + ( ( #RESULT * 2 ) / 3 )
RETURN
}
SUB luck
{
GOSUB Property luck
IF #RESULT = 100
{
set #sysmsgcol 1359
event sysmessage Uyari.!!!! 100 Luck Item Tespit Edildi.!!!
}
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Luck,|
set #sysmsgcol 1264
SET %props %props , %deger , %yazi
}
IF #RESULT >= 120
SET %value %value + ( #RESULT )
RETURN
}
SUB chanceIncrease
{
GOSUB Property hit , #spc , chance
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |HC,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 9
SET %value %value + ( #RESULT * 3 )
GOSUB Property defense , #spc , chance
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |DC,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 9
SET %value %value + ( #RESULT * 3 )
RETURN
}
SUB speedIncrease
{
GOSUB Property swing , #spc , speed , #spc , increase
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |SS,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 15
SET %value %value + ( ( #RESULT * 3 ) / 2 )
RETURN
}
SUB channeling
{

IF ( spell , #SPC , channeling IN #PROPERTY )
{
SET %yazi SC,|
SET %props %props , %yazi
SET %value %value + 40
IF ( faster , #SPC , casting , #SPC , -1 IN #PROPERTY )
SET %value %value - 40
}
RETURN
}
}
SUB leech
{
GOSUB Property mana , #spc , leech
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |ManaLeech,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 30
SET %value %value + ( #RESULT )
GOSUB Property life , #spc , leech
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LifeLeech,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 20
SET %value %value + ( #RESULT / 3 )
GOSUB Property stamina , #spc , leech
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |StamLeech,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 20
SET %value %value + ( #RESULT / 3 )
RETURN
}
SUB damageIncrease
{
GOSUB Property spell , #SPC , damage , #spc , increase

IF #RESULT > 0
{
SET %value %value + ( #RESULT * 3 )
SET %deger ( #RESULT )
SET %yazi |SDmg,|
SET %props %props , %deger , %yazi
}
GOSUB Property $damage , #spc , increase
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |DMG,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= 10 && durability NOTIN #property
SET %value %value + ( #RESULT * 2 )
IF #RESULT >= 30
SET %value %value + ( #RESULT )
RETURN
}
SUB reflectPhysical
{
GOSUB Property reflect , #SPC , physical , #SPC , damage
SET %value %value + ( ( #RESULT * 3 ) / 2 )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Reflect,|
SET %props %props , %deger , %yazi
}
RETURN
}
SUB resist
{
GOSUB Resists
IF #RESULT > 0 && durability notin #property
{
SET %deger ( #RESULT )
SET %yazi |+Resist,|
SET %props %props , %deger , %yazi
}
IF #RESULT > 10 && durability NOTIN #property
set %value %value + ( #RESULT )
IF #RESULT >= 35
SET %value %value + ( #RESULT )
RETURN
}
;---
SUB Resists
{
IF Resist , #SPC NOTIN #PROPERTY
RETURN #FALSE
SET %resiststring #PROPERTY
SET %totalresists 0
WHILE #TRUE
{
STR POS %resiststring Resist , #SPC
IF #STRRES > 0
{
SET #STRRES #STRRES + 6
STR DEL %resiststring 1 #STRRES
SET %resiststring #STRRES
STR POS #STRRES %
STR DEL %resiststring #STRRES 9999
SET %totalresists %totalresists + #STRRES
SET %ri 0
}
ELSE
BREAK
}
IF Total , #SPC , Resist , #SPC in #PROPERTY
{
GOSUB Property Total , #SPC , Resist , #SPC
SET %totalresists %totalresists - #RESULT
}
RETURN %totalresists
}
SUB Skills
{
IF #SPC , + NOTIN #PROPERTY
RETURN #FALSE
SET %skillstring #PROPERTY
SET %totalskills 0
SET %allskilltotal 0
WHILE #TRUE
{
STR POS %skillstring #SPC , +
IF #STRRES > 0
{
SET #STRRES #STRRES + 1
STR DEL %skillstring 1 #STRRES
SET %skillstring #STRRES
STR POS #STRRES $
STR DEL %skillstring #STRRES 9999
SET %allskilltotal %allskilltotal + #STRRES
IF #STRRES >= 10
SET %totalskills %totalskills + #STRRES
}
ELSE
BREAK
}
IF %totalskills >= 10
SET %totalskills %allskilltotal
RETURN %totalskills
}
SUB Property
{
IF ( %0 <> 1 ) || ( %1 NOTIN #PROPERTY )
RETURN #FALSE
SET %_property %1
STR POS #PROPERTY %_property
STR DEL #PROPERTY 1 #STRRES
SET %_string #STRRES
STR POS #STRRES $
STR DEL %_string #STRRES 9999
SET %_string #STRRES
STR LEN %_string
IF skill IN %_string
SET #STRRES #STRRES - 6
IF % IN %_string
SET #STRRES #STRRES - 1
SET %num_len 0
FOR %i #STRRES 1
{
SET %num_len %num_len + 1
STR MID %_string %i 1
IF #SPC IN #STRRES
{
STR MID %_string %i %num_len
SET %i 1
}
}
RETURN #STRRES
}
SUB BMGetProperty
{
SET %prop_timeout #SYSTIME + 1500
EVENT PROPERTY %1
WHILE #PROPERTY = $ || No , #SPC , Data IN #PROPERTY
{
IF No , #SPC , Data IN #PROPERTY
EVENT PROPERTY %1
IF #SYSTIME > %prop_timeout
RETURN #FALSE
}
RETURN #TRUE
}

SUB name
event property #findid
STR POS #property $
set %isim ( #strres - 1 )
STR LEFT #property %isim
set %name #strres
RETURN

;sub kutusec
;{
;;SET #TARGCURS 1
;kutu1:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO kutu1
;;event sysmessage 51-75 puan kutusu
;SET #TARGCURS 1
;kutu2:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO kutu2
;}
;SET *ellibiryetmisbes #LTARGETID
;event sysmessage 76-100 puan kutusu
;SET #TARGCURS 1
;kutu3:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO kutu3
;}
;SET *yetmisbesyuz #LTARGETID
;event sysmessage 101-150 puan kutusu
;SET #TARGCURS 1
;kutu4:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO kutu4
;}
;SET *yuzyuzelli #LTARGETID
;event sysmessage 150+ puan kutusu
;SET #TARGCURS 1
;kutu5:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO kutu5
;}
;SET *yuzelliustu #LTARGETID
;RETURN
;}

finditem OF_SG_SF_MG_YJ g
if #findcnt > 0
{
event property #findid
if a , #spc , fire , #spc , steed in #property
sound nm_goodbadugly.wav
}

finditem JMJQ G_2
if #findkind <> 1
{
;set #lobjectid QUUNPMD
;event Macro 17
event macro 1 0 All Follow Me
set %guardda 0
wait 20
}
if #findkind = 1 && %guardda = 0
{
event macro 1 0 All Guard Me
set %guardda 1
}

LOOP:
ONHOTKEY F
GOTO SEC
GOTO LOOP


SEC:
SET #TARGCURS 1

pet1:
wait 5
IF #TARGCURS = 1
{
WAIT 2
GOTO pet1
}
set #lobjectid #LTARGETID
event macro 17 0
display ok seçdiginiz hayvanýn yada yaratýgýn tipi: $ #LOBJECTTYPE
wait 10
GOTO LOOP