....... cesedden para lodlamaya eriniyor insanlar bende dahil olmak üzere .

set %bonded on
set %derimode off
set #sysmsgcol 0
set %value 0
set #lpc 400
set %lootkutu QLXHUMD
set %malzemekutu EHXHUMD
set %runebook1 PEWQZMD
set %runebook2 GWGQZMD
set %runebook3 WJFQZMD
;set %lootlancaktypeler
;set %stoklancaktypeler

ignoreitem AUL_BUL_CUL_DUL_EUL_FUL_GUL_HUL_IUL_JUL_KUL_LUL_MUL_NUL_OUL_PUL_QUL_RUL_SUL_TUL_UUL_VUL_WUL_XUL_YUL_ZUL_AVL_GVL_FVL_IVL_HVL_CVL_NTL_OTL_PTL_QTL_RTL_STL_TTL_UTL_VTL_WTL_XTL_YTL_ZTL_QXL_PXL_ZXL_NXL_WXL_VXL_YXL_XXL_ZFJ_BYL_CYL_DYL_EYL_FYL_GYL_HYL_IYL_JYL_KYL_KYM_PYM_SYM_TYM_WYM_UYM_GCR_ZBR_NCR_ACR_HCR_LCR_ICR_CCR_UCR_OCR_KCR_DCR_JCR_FCR_
set %kapi DOC_TOC_FPC_UBD_SBD_GCD_ECD_MBD_WBD_YBD_KBD_EDD_YCD_CDD_SCD_WCD_QCD_KCD_UCD_KIB_IIB_YHB_WHB_AIB_CIB_OHB_
+QHB_IFB_GFB_WEB_UEB_OEB_MEB_AFB_YEB_RUN_FUN_CEB_AEB_OIB_MIB_QIB_SIB_EIB_GIB_SEB_QEB_GEB_EEB_IEB_KEB_
+WDB_YDB_TFD_VFD_XFD_RFD_GFD_IFD_UED_WED_BOC_NNC_PNC_ZNC_JNC_LNC_XMC_ZMC_BRC_DRC_PQC_RQC_BQC_ZPC_NQC_
+LQC_FBD_HBD_BBD_DBD_QFD_OFD_CFD_EFD_XQC_ZQC_LMC_NMC_FNC_HNC_RNC_TNC_JOC_HOC_XNC_VNC_VQC_TQC_JQC_HQC_
+VPC_XPC_JPC_LPC_RPC_TPC_DQC_FQC_LAM_BAM_NAM_ZZL_HAM_JAM_TAM_VAM_ZOC_XOC_PJC_NJC_RJC_TJC_FJC_HJC_UXS_
+SXS_DDR_WXS_NTU_FOU_JOU_DOU_LTU_PTU_JTU_BUU_LUU_ZTU_FUU_DUU_XTU_RTU_TTU_VTU_MBR_WBR_PCR_OXS_VCR_QXS_
+RCR_MXS_BDR_KXS_YXS_XCR_AHB_IHB_TMC_VMC_HMC_JMC_RMC_PMC_PAQ_RAQ_DBQ_BBQ_CXS_MBS_EXS_VAQ_TAQ_JAQ_HAQ_
+ZAQ_XAQ_LBQ_JBQ_GBS_GHB_LOP_BNC_DNC_FPC_TOC_DPC_BPC_NPC_PPC_MHB_KHB_JCB
finditem WSF c
set %dagger #findid
finditem JAG
set %makas #findid

if *pet1 = N/A
gosub ilksetup

display yesno Ayarlarinda degisiklik yapmak istiyor musun?
if #dispres = yes
gosub ilksetup

Event SysMessage Script Aktif
loop:
OnHotKey f
goto loot
OnHotKey g
goto loot2
OnHotKey j
goto paralar
OnHotKey e
goto kapi
OnHotkey h ctrl
goto dismount
OnHotkey 1 ALT
goto runebook1s
OnHotkey 2 ALT
goto runebook2s
OnHotkey 1 CTRL
goto runebook1
OnHotkey 2 CTRL
goto runebook2
OnHotkey 3 CTRL
goto runebook3
OnHotkey t CTRL
goto stoklarbankaya
OnHotkey y CTRL
goto otostoklarbankaya
OnHotkey v ALT
goto bandajtazele
goto loop

paralar:
finditem POF G_2
wait 1
if #findstack > 0
{
exevent drag #findid #findstack
wait 4
exevent dropc #backpackid
wait 3
ignoreitem #findid
}
goto loop

bandajtazele:
wait 5
event macro 1 0 bank
wait 4
gosub itemecift %malzemekutu
wait 3

finditem ZLF C_ , #backpackid
if #findstack > 0
{
exevent drag #findid #findstack
wait 3
exevent dropc %malzemekutu
wait 2
}

finditem ZLF C_ , %malzemekutu
if #findstack > 0
{
exevent drag #findid 250
wait 3
exevent dropc #backpackid
wait 2
}
goto loop

stoklarbankaya:
event macro 1 0 bank
wait 10
gosub esyatasi #backpackid %lootkutu POF JJG JJG JJG STO STO STO SVH SVH SVH SVH SVH
goto loop

otostoklarbankaya:
event ExMsg #charid 3 0 Otomatik stok islemi basladi.
wait 10
gosub recall %runebook1
wait 20
event macro 1 0 bank
wait 10
gosub esyatasi #backpackid %lootkutu POF JJG JJG JJG SVH SVH SVH SVH SVH
wait 15

;Bankayý Kapatýr
set %screenx #contposx + 100
set %screeny #contposy + 100
click %screenx %screeny r
wait 5

;Bölgeye Geri Döner
gosub recall %runebook2
wait 20
event ExMsg #charid 3 0 Otomatik stok islemi tamamlandi.
goto loop

runebook1s:
gosub recall %runebook1
goto loop

runebook2s:
gosub recall %runebook2
goto loop

runebook1:
gosub itemecift %runebook1
goto loop

runebook2:
gosub itemecift %runebook2
goto loop

runebook3:
gosub itemecift %runebook3
goto loop

loot2:
event ExMsg #charid 3 0 Lootlama Islemi Basladi
finditem YFM G_2
if #findcnt > 0
{
set #lobjectid #findid
set %ceset #findid
gosub itemecift %ceset
wait 3
;ignoreitem #findid

;cesete dagger atar
gosub itemecift %ceset
gosub itemeciftvesec %dagger %ceset

;cesetteki deriye makasatar
finditem DEG C_ , %ceset
set %cesettederi #findid
gosub itemeciftvesec %makas %cesettederi

;cesetteki secili esyalarý çantaya atar
gosub esyatasi %ceset #backpackid POF JJG SVH
}
event ExMsg #charid 3 0 Lootlama Islemi Tamam
goto loop

loot:
event ExMsg #charid 3 0 Lootlama Islemi Basladi
ignoreitem reset 2
finditem YFM G_2
if #findcnt > 0
{
set #lobjectid #findid
set %ceset #findid
gosub itemecift %ceset
wait 3
;ignoreitem #findid

;cesetteki secili esyalarý çantaya atar
gosub esyatasi %ceset #backpackid POF SVH
}

find:
finditem * C_ , %ceset
if #findstack > 2
{
ignoreitem #findid 2
goto find
}
if #findcnt > 0
{
set %object #findid
gosub Check

if %luckvalue > 0
{
set #sysmsgcol 15
event sysmessage %name %value [ %luckvalue Luck ]
set #sysmsgcol 0
}
else
{
event sysmessage %name %value
}
set %value 0
set %luckvalue 0
ignoreitem #findid 1
goto find

}
}
event ExMsg #charid 3 0 Lootlama Islemi Tamam
ignoreitem reset 1
goto loop

dismount:
finditem %mount
if #findkind = 1
{
set #lobjectid #findid
wait 5
event macro 17 0
}
else
{
set #lobjectid #charid
wait 5
event macro 17 0
}
goto loop

pet1:
event macro 1 0 [band
wait 2
set #ltargetid *pet1
wait 5
event macro 22 0
wait 10
goto loop

pet2:
event macro 1 0 [band
wait 2
set #ltargetid *pet2
wait 5
event macro 22 0
wait 10
goto loop

kapi:
finditem %kapi G_2
if #findcnt > 0
wait 5
set #lobjectid #findid
event macro 17 0
wait 5
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
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
GOSUB Property faster , #SPC , casting
IF #RESULT > 0 && durability NOTIN #property
SET %value %value + ( #RESULT * 20 )
GOSUB Property faster , #spc , cast , #spc , recovery
SET %value %value + ( #RESULT * 15 )
RETURN
}
SUB stats
{
GOSUB Property intelligence , #spc , bonus
SET %value %value + ( #RESULT * 2 )
GOSUB Property strength , #spc , bonus
SET %value %value + ( #RESULT * 3 )
GOSUB Property dexterity , #spc , bonus
SET %value %value + ( #RESULT * 4 )
RETURN
}
SUB increase
{
GOSUB Property hit , #SPC , point , #SPC , increase
SET %value %value + ( #RESULT * 6 )
GOSUB Property mana , #SPC , increase
SET %value %value + ( #RESULT * 4 )
GOSUB Property stamina , #SPC , increase
SET %value %value + ( #RESULT * 2 )
RETURN
}
SUB lowercost
{
GOSUB Property lower , #spc , reagent , #spc , cost
IF #RESULT >= 14
{
SET %value %value + #RESULT
}
GOSUB Property lower , #spc , mana , #spc , cost
SET %value %value + ( #RESULT * 5 )
RETURN
}
SUB enhancepots
{
GOSUB Property enhance , #spc , potions
SET %value %value + ( #RESULT )
RETURN
}
SUB regeneration
{
GOSUB Property mana , #spc , regeneration
SET %value %value + ( #RESULT * 10 )
RETURN
}
SUB slayer
{
IF ( dragon in #property ) || ( blood , #SPC , elemental IN #PROPERTY )
SET %value %value + 10
IF ( undead in #property ) || ( demon in #property )
SET %value %value + 25
RETURN
}
}
SUB spellChance
{
GOSUB Property hit , #spc , lightning
IF #RESULT >= 30
SET %value %value + ( #RESULT / 2 )
IF #RESULT >= 40
SET %value %value + ( #RESULT / 2 )
GOSUB Property hit , #spc , harm
IF #RESULT >= 30
SET %value %value + ( #RESULT / 2 )
IF #RESULT >= 40
SET %value %value + ( #RESULT / 2 )
GOSUB Property hit , #spc , fireball
IF #RESULT >= 30
SET %value %value + ( #RESULT / 2 )
IF #RESULT >= 40
SET %value %value + ( #RESULT / 2 )
GOSUB Property area
IF #RESULT >= 35
SET %value %value + ( #RESULT / 2 )
RETURN
}
SUB lower
{
GOSUB Property lower , #spc , attack
IF #RESULT >= 30
SET %value %value + ( ( #RESULT * 3 ) / 5 )
GOSUB Property lower , #spc , defense
IF #RESULT >= 30
SET %value %value + ( ( #RESULT * 2 ) / 3 )
RETURN
}
SUB luck
{
GOSUB Property luck
;set #sysmsgcol 15
;event sysmessage #result Luckli Item Alttaki
set %luckvalue #result
;set #sysmsgcol 0
IF #RESULT >= 80
SET %value %value + ( #RESULT )

RETURN

}
SUB chanceIncrease
{
GOSUB Property hit , #spc , chance
IF #RESULT >= 9
SET %value %value + ( #RESULT * 3 )
GOSUB Property defense , #spc , chance
IF #RESULT >= 9
SET %value %value + ( #RESULT * 3 )
RETURN
}
SUB speedIncrease
{
GOSUB Property swing , #spc , speed , #spc , increase
IF #RESULT >= 15
SET %value %value + ( ( #RESULT * 3 ) / 2 )
RETURN
}
SUB channeling
{
IF ( spell , #SPC , channeling IN #PROPERTY )
{
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 >= 30
SET %value %value + ( #RESULT )
GOSUB Property life , #spc , leech
IF #RESULT >= 20
SET %value %value + ( #RESULT / 3 )
GOSUB Property stamina , #spc , leech
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 )
GOSUB Property $damage , #spc , increase
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 )
RETURN
}
SUB resist
{
GOSUB Resists
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 ilksetup
display ok Birinci peti secelim.
SET #TARGCURS 1
pet1:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet1
}
SET *pet1 #LTARGETID
wait 10

display ok Ikinci peti secelim.
SET #TARGCURS 1
pet2:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet2
}
SET *pet2 #LTARGETID
wait 10

display yesnocancel Birinci pet mount ise yes'e, ikinci pet mount ise no'ya, ikisi de mount degilse cancel'a tiklayalim.
if #dispRes = yes
set %mount *pet1
if #dispres = no
set %mount *pet2
return


; Rai eklentilerrrr

sub recall
{
if %bonded = on
{
event macro 1 0 all come
}
else
{
event macro 1 0 all stay
}
wait 2
event Macro 15 210
wait 2
if #sysmsg = Thy_spell_doth_not_appear_to_work...
{
Event sysmessage Burada recall olunmuyormus.
return
}
target
wait 4
finditem %1
set #ltargetid #findid
set #ltargetkind 1
set %charmekan #CHARPOSX #CHARPOSY
event macro 22
wait 10
set %charyenimekan #CHARPOSX #CHARPOSY

if %charmekan = %charyenimekan
{
gosub recall
}
else
{
return
}

return
}

;esyatasi komutu örnek kullaným:
;gosub esyatasi gelecek id gidecek id esya1 esya2 esya3 ... ...

sub esyatasi
{
for %_cnt 3 %0
{
finditem % . %_cnt C_ , %1
wait 1
if #findcnt > 0
{
exevent drag #findid #findstack
wait 4
exevent dropc %2
wait 3
}
}
return
}

sub itemecift
{
set #lobjectid %1
event macro 17
wait 4
return
}

sub itemeciftvesec
{
set #lobjectid %1
event macro 17
target
set %tedbir
gosub targetbekle
set #ltargetid %2
set #ltargetkind 1
event macro 22
wait 2
return
}

sub targetbekle
{
if %tedbir > 120
return
if #targcurs = 1
return
set %tedbir %tedbir + 1
gosub targetbekle
}

O zaman buyrun...

Çalýþan kazanýr parasý da olur