| EasyTamer (Edited By Aldros Version) |
| Ultima Online Forum -> Yardımcı Programlar |
Yazar
Mesaj
aldros
Oyuncu
Oyuncu
Konu: EasyTamer (Edited By Aldros Version)
ayarları kolaylaştıran ufak güncellemeler ve minik bir Rp eklemesi yapıldı =)
EasyTamer(Edited By Aldros Version 1.0.0) Sürümü ile kısa bir süre içinde sizlerle olacak, burada çıkacak olan tam versiyonunda bütün ayarlar opsiyonel olucak ve istediğiniz ayarı kendiniz yapabileceksiniz.
Çok yakında....
Spoiler:
;vurgulanacak item ismi ve props rengi ayarı
;item ismi yazarken birden fazla ise arasına alttire(_) koyarak yazın
;item isminde birden fazla kelime varsada arasına , #spc , koyarak yazın
;örn: Bracelet_Ring_War , #spc , Axe
SET %itemname Bracelet_Ring
set %propsrenk 1391
;---------------
;renk ayarları
set %luckrenk 1264
set %demonundeadslayerrenk 1359
set %fcfcrbirlikterenk 1195
;--------------
set #sysmsgcol 77
set %value 0
set #lpc 400
set %props |
set #sysmsgcol 1270
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 FJC_IJC_HJC_SJC_RJC_UJC_TJC_OJC_NJC_QJC_PJC_YOC_APC_DOC_ZOC_UOC_TOC_WOC_VOC_GPC_FPC_IPC_HPC_CPC_BPC_EPC_DPC_OPC_NPC_QPC_PPC_KPC_HMC_KMC_JMC_UMC_TMC_WMC_VMC_QMC_PMC_SMC_RMC_CNC_BNC_ENC_DNC_YMC_ZZL_CAM_BAM_MAM_LAM_OAM_NAM_IAM_HAM_KAM_JAM_UAM_TAM_WAM_VAM_QAM_
if *pet1 = N/A
{
gosub SETUP
}
ELSE
{
display yesno Ayarlarinda degisiklik yapmak istiyor musun?
if #dispres = yes
{
GOSUB SETUP
}
}
SUB SETUP
gosub ilksetup
gosub mount
if #shard = WorldOfSosaria
gosub premiumsectir
RETURN
Set #sysmsgcol 253
Event SysMessage Merhaba #Charname
Event SysMessage Item kasmada bol sanslar...
Set #sysmsgcol 253
Event SysMessage Aldros'un Eklentili, EasyTamer Script'i
Set #sysmsgcol 1180
Event SysMessage (Version 0.7.5)
Set #sysmsgcol 253
Event SysMessage Suan Aktif Edildi !
loop:
OnHotKey f
goto loot
OnHotKey z
goto pet1
OnHotKey x
goto pet2
OnHotKey c
goto kapi
OnHotKey h
goto runebook
OnHotkey g
goto dismount
if *premium = 1 && #shard = WorldOfSosaria
{
onhotkey v ;1 shift
goto PreReslen
onhotkey b ;2 shift
goto PreBank
onhotkey t ;3 shift
goto PreGetpet
}
goto loop
sub prekontrol
{
if %denememiktar < 5
{
set %denememiktar + 1
goto %1
}
else
{
set %denememiktar 0
goto loop
}
return
}
PreGetpet:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %petx #contposx + 30
set %pety #contposy + 315
click %petx %pety
}
else
{
gosub prekontrol pregetpet
}
goto loop
PreBank:
event macro 1 0 Banque
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %bankx #contposx + 30
set %banky #contposy + 350
click %bankx %banky
}
else
{
gosub prekontrol prebank
}
goto loop
PreReslen:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %resx #contposx + 30
set %resy #contposy + 400
click %resx %resy
event macro 25 0
wait 2
event macro 23 0
}
else
{
gosub prekontrol prereslen
}
goto loop
loot:
finditem YFM G_2
if #findcnt > 0
{
set #lobjectid #findid
set %ceset #findid
event macro 17 0
wait 12
ignoreitem #findid
finditem POF_OZF C_ , %ceset
if #findstack > 1
{
exevent drag #findid #findstack
wait 5
exevent dropc #backpackID
}
find:
finditem * C_ , %ceset
if #findstack > 2
{
ignoreitem #findid
goto find
}
if #findcnt > 0
{
set %object #findid
gosub Check
if %value <> 0
{
if %name in %itemname
event sysmessage %name %value Puan <---
else
event sysmessage %name %value Puan
set #sysmsgcol 1154
if %name in %itemname
set #sysmsgcol %propsrenk
event sysmessage ( %props )
wait 2 ;BEKLEME SÜRESİ BURASI
}
if %value >= 100 || %name in Blight || %name in Corruption || %name in Muculent || %name in Putrefaction || %name in Scourge || %name in Taint || %name in A , #SPC , Message , #SPC , In , #SPC , A , #SPC , Bottle || %name in A , #SPC , Special , #SPC , Fishing , #SPC , Net || %name in Red , #SPC , Key , #SPC , Of , #SPC , Hythloth || %name in Green , #SPC , Key , #SPC , Of , #SPC , Hythloth || %name in Yellow , #SPC , Key , #SPC , Of , #SPC , Hythloth || %name in Blue , #SPC , Key , #SPC , Of , #SPC , Hythloth
{
if #findstack > 1
{
exevent drag %object #findstack
wait 5
exevent dropc #backpackID
wait 5
}
exevent drag %object
wait 5
exevent dropc #backpackID
wait 5
}
set %value 0
set %props |
set #sysmsgcol 253
ignoreitem #findid
goto find
}
}
goto loop
runebook:
set #lobjectid %runebook
wait 5
event macro 17 0
wait 5
goto loop
dismount:
finditem *mount
wait 5
if *etheralvar = 0
{
if #findkind = 1
{
set #lobjectid #findid
wait 5
event macro 17 0
}
else
{
set #lobjectid #charid
wait 5
event macro 17 0
}
}
else
{
if #FINDBAGID = #BACKPACKID
{
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
set #ltargetid *pet1
target
event macro 22 0
wait 2
goto loop
pet2:
event macro 1 0 [band
set #ltargetid *pet2
target
event macro 22 0
wait 2
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
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 %fcfcrbirlikterenk
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 #sysmsgcol 1153
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
if ( Dragon in #property )
SET %yazi Dragon|slayer,|
if ( blood , #SPC , elemental in #property )
SET %yazi BloodElement|slayer,|
SET %props %props , %yazi
}
IF ( undead in #property ) || ( demon in #property )
{
SET %value %value + 25
set #sysmsgcol %demonundeadslayerrenk
if ( undead in #property )
SET %yazi Undead|Slayer,|
if ( demon in #property )
SET %yazi 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 = 90
{
set #sysmsgcol 1359
event sysmessage Uyari.!!!! 90 Luck Item Tespit Edildi.!!!
}
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Luck,|
set #sysmsgcol %luckrenk
SET %props %props , %deger , %yazi
}
IF #RESULT >= 85 && Two-Handed , #spc , Weapon notin #property
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 ilksetup
Set #sysmsgcol 1180
Event SysMessage Lutfen ilk dostunuzu seciniz!
event macro 2 0 Sadık dostlarına Bakar
SET #TARGCURS 1
pet1:
set #lobjectid #charid
wait 5
event macro 17 0
IF #TARGCURS = 1
{
WAIT 2
GOTO pet1
}
SET *pet1 #LTARGETID
gosub getname #LTARGETID petname
wait 10
Set #sysmsgcol 1180
Event SysMessage Lutfen ikinci dostunuzu seciniz!
event macro 2 0 Sadık dostlarını Sever
set %onay 0
SET #TARGCURS 1
pet2:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet2
}
if #LTARGETID = *pet1 && %onay = 0
{
Event SysMessage Lutfen ikinci dostunuzu seciniz!
Event SysMessage Eger dostunuz bir tane ise lutfen 5 saniye icinde "evet" yazin
set %saniye 0
while %saniye < 5
{
wait 20
set %saniye %saniye + 1
Event SysMessage %saniye
set %yaziiiii #charname , : , #spc , evet
scanjournal #jindex
if %yaziiiii in #JOURNAL
{
}
set %jrnl #jindex
while #true
{
if #jindex > %jrnl
{
set %jrnl %jrnl + 1
scanjournal %jrnl
if %yaziiiii in #journal
SET #TARGCURS 0
set %onay 1
set #ltargetid *pet1
gosub getname #LTARGETID petname2
return
}
}
}
SET #TARGCURS 1
goto pet2
}
SET *pet2 #LTARGETID
gosub getname #LTARGETID petname2
wait 10
return
sub mount
display yesnocancel Binilebilir petinizi belirtiniz: $ %petname için "yes", $ %petname2 için "no", $ hayvanlar arasında binek yoksa "cancel".
if #dispRes = yes
set *mount *pet1
if #dispres = no
set *mount *pet2
set *etheralvar 0
;display yesno Little Light Angel'a sahipmisiniz ?, Sahipseniz Binek olarak kullanmak için yes e basıp cebinizden Seçin.
; set #lobjectid #charid
;wait 5
;event macro 17 0
; if #dispRes = yes
; {
; set *etheralvar 1
; SET #TARGCURS 1
;etheral:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO etheral
;}
;SET *mount #LTARGETID
;wait 10
; }
; if #dispres = no
; set *etheralvar 0
return
sub GetName
finditem %1
if #findkind = -1
return error-cant_find
event property #findid
str pos #property $
set !strlength #strres - 2
str left #property !strlength
str del #strres 1 1
set % . %2 #strres
return % . %2
sub premiumsectir
display yesno Premium Açıkmı ? (WOS SUNUCUSU ÖZELLİGİ)
if #dispres = yes
set *premium 1
if #dispres = no
set *premium 0
return
SUB name
event property #findid
STR POS #property $
set %isim ( #strres - 1 )
STR LEFT #property %isim
set %name #strres
RETURN
;item ismi yazarken birden fazla ise arasına alttire(_) koyarak yazın
;item isminde birden fazla kelime varsada arasına , #spc , koyarak yazın
;örn: Bracelet_Ring_War , #spc , Axe
SET %itemname Bracelet_Ring
set %propsrenk 1391
;---------------
;renk ayarları
set %luckrenk 1264
set %demonundeadslayerrenk 1359
set %fcfcrbirlikterenk 1195
;--------------
set #sysmsgcol 77
set %value 0
set #lpc 400
set %props |
set #sysmsgcol 1270
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 FJC_IJC_HJC_SJC_RJC_UJC_TJC_OJC_NJC_QJC_PJC_YOC_APC_DOC_ZOC_UOC_TOC_WOC_VOC_GPC_FPC_IPC_HPC_CPC_BPC_EPC_DPC_OPC_NPC_QPC_PPC_KPC_HMC_KMC_JMC_UMC_TMC_WMC_VMC_QMC_PMC_SMC_RMC_CNC_BNC_ENC_DNC_YMC_ZZL_CAM_BAM_MAM_LAM_OAM_NAM_IAM_HAM_KAM_JAM_UAM_TAM_WAM_VAM_QAM_
if *pet1 = N/A
{
gosub SETUP
}
ELSE
{
display yesno Ayarlarinda degisiklik yapmak istiyor musun?
if #dispres = yes
{
GOSUB SETUP
}
}
SUB SETUP
gosub ilksetup
gosub mount
if #shard = WorldOfSosaria
gosub premiumsectir
RETURN
Set #sysmsgcol 253
Event SysMessage Merhaba #Charname
Event SysMessage Item kasmada bol sanslar...
Set #sysmsgcol 253
Event SysMessage Aldros'un Eklentili, EasyTamer Script'i
Set #sysmsgcol 1180
Event SysMessage (Version 0.7.5)
Set #sysmsgcol 253
Event SysMessage Suan Aktif Edildi !
loop:
OnHotKey f
goto loot
OnHotKey z
goto pet1
OnHotKey x
goto pet2
OnHotKey c
goto kapi
OnHotKey h
goto runebook
OnHotkey g
goto dismount
if *premium = 1 && #shard = WorldOfSosaria
{
onhotkey v ;1 shift
goto PreReslen
onhotkey b ;2 shift
goto PreBank
onhotkey t ;3 shift
goto PreGetpet
}
goto loop
sub prekontrol
{
if %denememiktar < 5
{
set %denememiktar + 1
goto %1
}
else
{
set %denememiktar 0
goto loop
}
return
}
PreGetpet:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %petx #contposx + 30
set %pety #contposy + 315
click %petx %pety
}
else
{
gosub prekontrol pregetpet
}
goto loop
PreBank:
event macro 1 0 Banque
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %bankx #contposx + 30
set %banky #contposy + 350
click %bankx %banky
}
else
{
gosub prekontrol prebank
}
goto loop
PreReslen:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %resx #contposx + 30
set %resy #contposy + 400
click %resx %resy
event macro 25 0
wait 2
event macro 23 0
}
else
{
gosub prekontrol prereslen
}
goto loop
loot:
finditem YFM G_2
if #findcnt > 0
{
set #lobjectid #findid
set %ceset #findid
event macro 17 0
wait 12
ignoreitem #findid
finditem POF_OZF C_ , %ceset
if #findstack > 1
{
exevent drag #findid #findstack
wait 5
exevent dropc #backpackID
}
find:
finditem * C_ , %ceset
if #findstack > 2
{
ignoreitem #findid
goto find
}
if #findcnt > 0
{
set %object #findid
gosub Check
if %value <> 0
{
if %name in %itemname
event sysmessage %name %value Puan <---
else
event sysmessage %name %value Puan
set #sysmsgcol 1154
if %name in %itemname
set #sysmsgcol %propsrenk
event sysmessage ( %props )
wait 2 ;BEKLEME SÜRESİ BURASI
}
if %value >= 100 || %name in Blight || %name in Corruption || %name in Muculent || %name in Putrefaction || %name in Scourge || %name in Taint || %name in A , #SPC , Message , #SPC , In , #SPC , A , #SPC , Bottle || %name in A , #SPC , Special , #SPC , Fishing , #SPC , Net || %name in Red , #SPC , Key , #SPC , Of , #SPC , Hythloth || %name in Green , #SPC , Key , #SPC , Of , #SPC , Hythloth || %name in Yellow , #SPC , Key , #SPC , Of , #SPC , Hythloth || %name in Blue , #SPC , Key , #SPC , Of , #SPC , Hythloth
{
if #findstack > 1
{
exevent drag %object #findstack
wait 5
exevent dropc #backpackID
wait 5
}
exevent drag %object
wait 5
exevent dropc #backpackID
wait 5
}
set %value 0
set %props |
set #sysmsgcol 253
ignoreitem #findid
goto find
}
}
goto loop
runebook:
set #lobjectid %runebook
wait 5
event macro 17 0
wait 5
goto loop
dismount:
finditem *mount
wait 5
if *etheralvar = 0
{
if #findkind = 1
{
set #lobjectid #findid
wait 5
event macro 17 0
}
else
{
set #lobjectid #charid
wait 5
event macro 17 0
}
}
else
{
if #FINDBAGID = #BACKPACKID
{
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
set #ltargetid *pet1
target
event macro 22 0
wait 2
goto loop
pet2:
event macro 1 0 [band
set #ltargetid *pet2
target
event macro 22 0
wait 2
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
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 %fcfcrbirlikterenk
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 #sysmsgcol 1153
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
if ( Dragon in #property )
SET %yazi Dragon|slayer,|
if ( blood , #SPC , elemental in #property )
SET %yazi BloodElement|slayer,|
SET %props %props , %yazi
}
IF ( undead in #property ) || ( demon in #property )
{
SET %value %value + 25
set #sysmsgcol %demonundeadslayerrenk
if ( undead in #property )
SET %yazi Undead|Slayer,|
if ( demon in #property )
SET %yazi 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 = 90
{
set #sysmsgcol 1359
event sysmessage Uyari.!!!! 90 Luck Item Tespit Edildi.!!!
}
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Luck,|
set #sysmsgcol %luckrenk
SET %props %props , %deger , %yazi
}
IF #RESULT >= 85 && Two-Handed , #spc , Weapon notin #property
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 ilksetup
Set #sysmsgcol 1180
Event SysMessage Lutfen ilk dostunuzu seciniz!
event macro 2 0 Sadık dostlarına Bakar
SET #TARGCURS 1
pet1:
set #lobjectid #charid
wait 5
event macro 17 0
IF #TARGCURS = 1
{
WAIT 2
GOTO pet1
}
SET *pet1 #LTARGETID
gosub getname #LTARGETID petname
wait 10
Set #sysmsgcol 1180
Event SysMessage Lutfen ikinci dostunuzu seciniz!
event macro 2 0 Sadık dostlarını Sever
set %onay 0
SET #TARGCURS 1
pet2:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet2
}
if #LTARGETID = *pet1 && %onay = 0
{
Event SysMessage Lutfen ikinci dostunuzu seciniz!
Event SysMessage Eger dostunuz bir tane ise lutfen 5 saniye icinde "evet" yazin
set %saniye 0
while %saniye < 5
{
wait 20
set %saniye %saniye + 1
Event SysMessage %saniye
set %yaziiiii #charname , : , #spc , evet
scanjournal #jindex
if %yaziiiii in #JOURNAL
{
}
set %jrnl #jindex
while #true
{
if #jindex > %jrnl
{
set %jrnl %jrnl + 1
scanjournal %jrnl
if %yaziiiii in #journal
SET #TARGCURS 0
set %onay 1
set #ltargetid *pet1
gosub getname #LTARGETID petname2
return
}
}
}
SET #TARGCURS 1
goto pet2
}
SET *pet2 #LTARGETID
gosub getname #LTARGETID petname2
wait 10
return
sub mount
display yesnocancel Binilebilir petinizi belirtiniz: $ %petname için "yes", $ %petname2 için "no", $ hayvanlar arasında binek yoksa "cancel".
if #dispRes = yes
set *mount *pet1
if #dispres = no
set *mount *pet2
set *etheralvar 0
;display yesno Little Light Angel'a sahipmisiniz ?, Sahipseniz Binek olarak kullanmak için yes e basıp cebinizden Seçin.
; set #lobjectid #charid
;wait 5
;event macro 17 0
; if #dispRes = yes
; {
; set *etheralvar 1
; SET #TARGCURS 1
;etheral:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO etheral
;}
;SET *mount #LTARGETID
;wait 10
; }
; if #dispres = no
; set *etheralvar 0
return
sub GetName
finditem %1
if #findkind = -1
return error-cant_find
event property #findid
str pos #property $
set !strlength #strres - 2
str left #property !strlength
str del #strres 1 1
set % . %2 #strres
return % . %2
sub premiumsectir
display yesno Premium Açıkmı ? (WOS SUNUCUSU ÖZELLİGİ)
if #dispres = yes
set *premium 1
if #dispres = no
set *premium 0
return
SUB name
event property #findid
STR POS #property $
set %isim ( #strres - 1 )
STR LEFT #property %isim
set %name #strres
RETURN
EasyTamer(Edited By Aldros Version 1.0.0) Sürümü ile kısa bir süre içinde sizlerle olacak, burada çıkacak olan tam versiyonunda bütün ayarlar opsiyonel olucak ve istediğiniz ayarı kendiniz yapabileceksiniz.
Çok yakında....
15 Mar 2016 2:54
aldros
Oyuncu
Oyuncu
Konu: Yanıt: EasyTamer (Edited By Aldros Version) Spoiler:
;vurgulanacak item ismi ve props rengi ayarı
;item ismi yazarken birden fazla ise arasına alttire(_) koyarak yazın
;item isminde birden fazla kelime varsada arasına , #spc , koyarak yazın
;örn: Bracelet_Ring_War , #spc , Axe
SET %itemname Bracelet_Ring
set %propsrenk 1391
set %vurgubelirteci <----
;---------------
;renk ayarları
set %luckrenk 1264
set %demonundeadslayerrenk 1359
set %fcfcrbirlikterenk 1195
;--------------
;opsiyonel diğer ayarlar
set %lootStack POF_OZF
set %ismegoreloot Blight_Corruption_Muculent_Putrefaction_Scourge_Taint_A , #SPC , Message , #SPC , In , #SPC , A , #SPC , Bottle_A , #SPC , Special , #SPC , Fishing , #SPC , Net_Red , #SPC , Key , #SPC , Of , #SPC , Hythloth_Green , #SPC , Key , #SPC , Of , #SPC , Hythloth_Yellow , #SPC , Key , #SPC , Of , #SPC , Hythloth_Blue , #SPC , Key , #SPC , Of , #SPC , Hythloth
set %fcfcrpoint 20
set %fcXjewelarypoint 20
set %fcrXpoint 15
set %intXpoint 2
set %strXpoint 3
set %dexXpoint 4
set %hpXpoint 6
set %manaXpoint 4
set %stamXpoint 2
set %lrcSelfpoint 14
set %lmcXpoint 5
set %enchpotXpoint 1
set %mrXpoint 10
set %dragbloodSpoint 10
set %demonundeadSpoint 25
set %lightningSelfPartitionpoint 2
set %lightningSelfpoint 30
set %harmSelfPartitionpoint 2
set %harmSelfpoint 30
set %fireballSelfPartitionpoint 2
set %fireballSelfpoint 30
set %areasSelfPartitionpoint 2
set %areasSelfpoint 35
set %lowattSelfPoint 30
set %lowdefSelfPoint 30
;--------------
set #sysmsgcol 77
set %value 0
set #lpc 400
set %props |
set #sysmsgcol 1270
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 FJC_IJC_HJC_SJC_RJC_UJC_TJC_OJC_NJC_QJC_PJC_YOC_APC_DOC_ZOC_UOC_TOC_WOC_VOC_GPC_FPC_IPC_HPC_CPC_BPC_EPC_DPC_OPC_NPC_QPC_PPC_KPC_HMC_KMC_JMC_UMC_TMC_WMC_VMC_QMC_PMC_SMC_RMC_CNC_BNC_ENC_DNC_YMC_ZZL_CAM_BAM_MAM_LAM_OAM_NAM_IAM_HAM_KAM_JAM_UAM_TAM_WAM_VAM_QAM_
if *pet1 = N/A
{
gosub SETUP
}
ELSE
{
display yesno Ayarlarinda degisiklik yapmak istiyor musun?
if #dispres = yes
{
GOSUB SETUP
}
}
SUB SETUP
gosub ilksetup
gosub mount
if #shard = WorldOfSosaria
gosub premiumsectir
RETURN
Set #sysmsgcol 253
Event SysMessage Merhaba #Charname
Event SysMessage Item kasmada bol sanslar...
Set #sysmsgcol 253
Event SysMessage Aldros'un Eklentili, EasyTamer Script'i
Set #sysmsgcol 1180
Event SysMessage (Version 0.7.5)
Set #sysmsgcol 253
Event SysMessage Suan Aktif Edildi !
loop:
OnHotKey f
goto loot
OnHotKey z
goto pet1
OnHotKey x
goto pet2
OnHotKey c
goto kapi
OnHotKey h
goto runebook
OnHotkey g
goto dismount
if *premium = 1 && #shard = WorldOfSosaria
{
onhotkey v ;1 shift
goto PreReslen
onhotkey b ;2 shift
goto PreBank
onhotkey t ;3 shift
goto PreGetpet
}
goto loop
sub prekontrol
{
if %denememiktar < 5
{
set %denememiktar + 1
goto %1
}
else
{
set %denememiktar 0
goto loop
}
return
}
PreGetpet:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %petx #contposx + 30
set %pety #contposy + 315
click %petx %pety
}
else
{
gosub prekontrol pregetpet
}
goto loop
PreBank:
event macro 1 0 Banque
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %bankx #contposx + 30
set %banky #contposy + 350
click %bankx %banky
}
else
{
gosub prekontrol prebank
}
goto loop
PreReslen:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %resx #contposx + 30
set %resy #contposy + 400
click %resx %resy
event macro 25 0
wait 2
event macro 23 0
}
else
{
gosub prekontrol prereslen
}
goto loop
loot:
finditem YFM G_2
if #findcnt > 0
{
set #lobjectid #findid
set %ceset #findid
event macro 17 0
wait 12
ignoreitem #findid
finditem %lootStack C_ , %ceset
if #findstack > 1
{
exevent drag #findid #findstack
wait 5
exevent dropc #backpackID
}
find:
finditem * C_ , %ceset
if #findstack > 2
{
ignoreitem #findid
goto find
}
if #findcnt > 0
{
set %object #findid
gosub Check
if %value <> 0
{
if %name in %itemname
event sysmessage %name %value Puan %vurgubelirteci
else
event sysmessage %name %value Puan
set #sysmsgcol 1154
if %name in %itemname
set #sysmsgcol %propsrenk
event sysmessage ( %props )
wait 2 ;BEKLEME SÜRESİ BURASI
}
if %value >= 100 || %name in %ismegoreloot
{
if #findstack > 1
{
exevent drag %object #findstack
wait 5
exevent dropc #backpackID
wait 5
}
exevent drag %object
wait 5
exevent dropc #backpackID
wait 5
}
set %value 0
set %props |
set #sysmsgcol 253
ignoreitem #findid
goto find
}
}
goto loop
runebook:
set #lobjectid %runebook
wait 5
event macro 17 0
wait 5
goto loop
dismount:
finditem *mount
wait 5
if *etheralvar = 0
{
if #findkind = 1
{
set #lobjectid #findid
wait 5
event macro 17 0
}
else
{
set #lobjectid #charid
wait 5
event macro 17 0
}
}
else
{
if #FINDBAGID = #BACKPACKID
{
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
set #ltargetid *pet1
target
event macro 22 0
wait 2
goto loop
pet2:
event macro 1 0 [band
set #ltargetid *pet2
target
event macro 22 0
wait 2
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
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 + %fcfcrpoint
set #sysmsgcol %fcfcrbirlikterenk
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 * %fcXjewelarypoint )
GOSUB Property faster , #spc , cast , #spc , recovery
SET %value %value + ( #RESULT * %fcrXpoint )
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 * %intXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |int,|
SET %props %props , %deger , %yazi
}
GOSUB Property strength , #spc , bonus
SET %value %value + ( #RESULT * %strXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |str,|
SET %props %props , %deger , %yazi
}
GOSUB Property dexterity , #spc , bonus
SET %value %value + ( #RESULT * %dexXpoint )
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 * %hpXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |HP,|
SET %props %props , %deger , %yazi
}
GOSUB Property mana , #SPC , increase
SET %value %value + ( #RESULT * %manaXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Mana,|
SET %props %props , %deger , %yazi
}
GOSUB Property stamina , #SPC , increase
SET %value %value + ( #RESULT * %stamXpoint )
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 #sysmsgcol 1153
SET %props %props , %deger , %yazi
}
IF #RESULT >= %lrcSelfpoint
{
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 * %lmcXpoint )
RETURN
}
SUB enhancepots
{
GOSUB Property enhance , #spc , potions
SET %value %value + ( #RESULT * %enchpotXpoint )
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 * %mrXpoint )
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 + %dragbloodSpoint
if ( Dragon in #property )
SET %yazi Dragon|slayer,|
if ( blood , #SPC , elemental in #property )
SET %yazi BloodElement|slayer,|
SET %props %props , %yazi
}
IF ( undead in #property ) || ( demon in #property )
{
SET %value %value + %demonundeadSpoint
set #sysmsgcol %demonundeadslayerrenk
if ( undead in #property )
SET %yazi Undead|Slayer,|
if ( demon in #property )
SET %yazi 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 >= %lightningSelfpoint
SET %value %value + ( #RESULT / %lightningSelfPartitionpoint )
GOSUB Property hit , #spc , harm
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Harm,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= %harmSelfpoint
SET %value %value + ( #RESULT / %harmSelfPartitionpoint )
GOSUB Property hit , #spc , fireball
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Fireball,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= %fireballSelfpoint
SET %value %value + ( #RESULT / %fireballSelfPartitionpoint )
GOSUB Property area
IF #RESULT > 0
{
SET %yazi Area's,|
SET %props %props , %yazi
}
IF #RESULT >= %areasSelfpoint
SET %value %value + ( #RESULT / %areasSelfPartitionpoint )
RETURN
}
SUB lower
{
GOSUB Property lower , #spc , attack
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LowAtt,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= %lowattSelfPoint
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 >= %lowdefSelfPoint
SET %value %value + ( ( #RESULT * 2 ) / 3 )
RETURN
}
SUB luck
{
GOSUB Property luck
IF #RESULT = 90
{
set #sysmsgcol 1359
event sysmessage Uyari.!!!! 90 Luck Item Tespit Edildi.!!!
}
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Luck,|
set #sysmsgcol %luckrenk
SET %props %props , %deger , %yazi
}
IF #RESULT >= 85 && Two-Handed , #spc , Weapon notin #property
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 ilksetup
Set #sysmsgcol 1180
Event SysMessage Lutfen ilk dostunuzu seciniz!
event macro 2 0 Sadık dostlarına Bakar
SET #TARGCURS 1
pet1:
set #lobjectid #charid
wait 5
event macro 17 0
IF #TARGCURS = 1
{
WAIT 2
GOTO pet1
}
SET *pet1 #LTARGETID
gosub getname #LTARGETID petname
wait 10
Set #sysmsgcol 1161
Event SysMessage Lutfen ikinci dostunuzu seciniz!
event macro 2 0 Sadık dostlarını Sever
set %onay 0
SET #TARGCURS 1
pet2:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet2
}
SET *pet2 #LTARGETID
gosub getname #LTARGETID petname2
if *pet2 = *pet1 && %onay <> 5
{
set %onay %onay + 1
Set #sysmsgcol 1161
Event SysMessage Ayni dostunuzu isaretlediniz! Eger dostunuz bir tane ise lutfen 5 saniye icinde
set #sysmsgcol 1371
event sysmessage Hareket edin! ;veya "evet" yazin!
set %konumx #CHARPOSX
set %konumy #CHARPOSY
set %saniye 1
set %suankizaman #time
set %suankisalise #systime
set %yaziiiii #charname , : , #spc , evet
set %jrnl #jindex
while #true
{
if #time >= ( %suankizaman + %saniye )
{
gosub deneme %saniye
set #SYSMSGCOL #result
Event SysMessage %saniye
set %saniye %saniye + 1
}
if 5000 <= ( #systime - %suankisalise )
{
set #sysmsgcol 1375
event sysmessage 5 saniye doldu, Lutfen seciminizi tekrarlayin ->
SET #TARGCURS 1
goto pet2
return
}
if %onay = 5
{
set %onay 0
display OK Sayın #charname mağlesef 5 kere hatalı giriş yapmış bulunmaktasınız ve sizinle anlaşamıyoruz =), lütfen size verilen süre içerisinde istenilenleri yerine getiriniz :D
event macro 2 0 Kafası karışık hissediyor
}
if %konumx <> #CHARPOSX || %konumy <> #CHARPOSY
{
SET #TARGCURS 0
set #ltargetid *pet1
gosub getname #LTARGETID petname2
return
}
if #jindex >= %jrnl
{
scanjournal %jrnl
set %jrnl %jrnl + 1
if %yaziiiii in #journal
{
SET #TARGCURS 0
set %onay 1
set #ltargetid *pet1
gosub getname #LTARGETID petname2
return
}
}
}
}
wait 10
return
sub mount
display yesnocancel Binilebilir petinizi belirtiniz: $ %petname için "yes", $ %petname2 için "no", $ hayvanlar arasında binek yoksa "cancel".
if #dispRes = yes
set *mount *pet1
if #dispres = no
set *mount *pet2
; set *etheralvar 0
;display yesno Little Light Angel'a sahipmisiniz ?, Sahipseniz Binek olarak kullanmak için yes e basıp cebinizden Seçin.
; set #lobjectid #charid
;wait 5
;event macro 17 0
; if #dispRes = yes
; {
; set *etheralvar 1
; SET #TARGCURS 1
;etheral:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO etheral
;}
;SET *mount #LTARGETID
;wait 10
; }
; if #dispres = no
; set *etheralvar 0
return
sub GetName
finditem %1
if #findkind = -1
return error-cant_find
event property #findid
str pos #property $
set !strlength #strres - 2
str left #property !strlength
str del #strres 1 1
set % . %2 #strres
return % . %2
sub premiumsectir
display yesno Premium Açıkmı ? (WOS SUNUCUSU ÖZELLİGİ)
if #dispres = yes
set *premium 1
if #dispres = no
set *premium 0
return
SUB name
event property #findid
STR POS #property $
set %isim ( #strres - 1 )
STR LEFT #property %isim
set %name #strres
RETURN
SUB SetSettings
return
sub deneme
goto case , %1
case1:
return 31
case2:
return 41
case3:
RETURN 61
case4:
RETURN 71
case5:
RETURN 91
;item ismi yazarken birden fazla ise arasına alttire(_) koyarak yazın
;item isminde birden fazla kelime varsada arasına , #spc , koyarak yazın
;örn: Bracelet_Ring_War , #spc , Axe
SET %itemname Bracelet_Ring
set %propsrenk 1391
set %vurgubelirteci <----
;---------------
;renk ayarları
set %luckrenk 1264
set %demonundeadslayerrenk 1359
set %fcfcrbirlikterenk 1195
;--------------
;opsiyonel diğer ayarlar
set %lootStack POF_OZF
set %ismegoreloot Blight_Corruption_Muculent_Putrefaction_Scourge_Taint_A , #SPC , Message , #SPC , In , #SPC , A , #SPC , Bottle_A , #SPC , Special , #SPC , Fishing , #SPC , Net_Red , #SPC , Key , #SPC , Of , #SPC , Hythloth_Green , #SPC , Key , #SPC , Of , #SPC , Hythloth_Yellow , #SPC , Key , #SPC , Of , #SPC , Hythloth_Blue , #SPC , Key , #SPC , Of , #SPC , Hythloth
set %fcfcrpoint 20
set %fcXjewelarypoint 20
set %fcrXpoint 15
set %intXpoint 2
set %strXpoint 3
set %dexXpoint 4
set %hpXpoint 6
set %manaXpoint 4
set %stamXpoint 2
set %lrcSelfpoint 14
set %lmcXpoint 5
set %enchpotXpoint 1
set %mrXpoint 10
set %dragbloodSpoint 10
set %demonundeadSpoint 25
set %lightningSelfPartitionpoint 2
set %lightningSelfpoint 30
set %harmSelfPartitionpoint 2
set %harmSelfpoint 30
set %fireballSelfPartitionpoint 2
set %fireballSelfpoint 30
set %areasSelfPartitionpoint 2
set %areasSelfpoint 35
set %lowattSelfPoint 30
set %lowdefSelfPoint 30
;--------------
set #sysmsgcol 77
set %value 0
set #lpc 400
set %props |
set #sysmsgcol 1270
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 FJC_IJC_HJC_SJC_RJC_UJC_TJC_OJC_NJC_QJC_PJC_YOC_APC_DOC_ZOC_UOC_TOC_WOC_VOC_GPC_FPC_IPC_HPC_CPC_BPC_EPC_DPC_OPC_NPC_QPC_PPC_KPC_HMC_KMC_JMC_UMC_TMC_WMC_VMC_QMC_PMC_SMC_RMC_CNC_BNC_ENC_DNC_YMC_ZZL_CAM_BAM_MAM_LAM_OAM_NAM_IAM_HAM_KAM_JAM_UAM_TAM_WAM_VAM_QAM_
if *pet1 = N/A
{
gosub SETUP
}
ELSE
{
display yesno Ayarlarinda degisiklik yapmak istiyor musun?
if #dispres = yes
{
GOSUB SETUP
}
}
SUB SETUP
gosub ilksetup
gosub mount
if #shard = WorldOfSosaria
gosub premiumsectir
RETURN
Set #sysmsgcol 253
Event SysMessage Merhaba #Charname
Event SysMessage Item kasmada bol sanslar...
Set #sysmsgcol 253
Event SysMessage Aldros'un Eklentili, EasyTamer Script'i
Set #sysmsgcol 1180
Event SysMessage (Version 0.7.5)
Set #sysmsgcol 253
Event SysMessage Suan Aktif Edildi !
loop:
OnHotKey f
goto loot
OnHotKey z
goto pet1
OnHotKey x
goto pet2
OnHotKey c
goto kapi
OnHotKey h
goto runebook
OnHotkey g
goto dismount
if *premium = 1 && #shard = WorldOfSosaria
{
onhotkey v ;1 shift
goto PreReslen
onhotkey b ;2 shift
goto PreBank
onhotkey t ;3 shift
goto PreGetpet
}
goto loop
sub prekontrol
{
if %denememiktar < 5
{
set %denememiktar + 1
goto %1
}
else
{
set %denememiktar 0
goto loop
}
return
}
PreGetpet:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %petx #contposx + 30
set %pety #contposy + 315
click %petx %pety
}
else
{
gosub prekontrol pregetpet
}
goto loop
PreBank:
event macro 1 0 Banque
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %bankx #contposx + 30
set %banky #contposy + 350
click %bankx %banky
}
else
{
gosub prekontrol prebank
}
goto loop
PreReslen:
event macro 1 0 .premium
wait 2
if #contsizex = 246 && #contsizey = 2243
{
set %resx #contposx + 30
set %resy #contposy + 400
click %resx %resy
event macro 25 0
wait 2
event macro 23 0
}
else
{
gosub prekontrol prereslen
}
goto loop
loot:
finditem YFM G_2
if #findcnt > 0
{
set #lobjectid #findid
set %ceset #findid
event macro 17 0
wait 12
ignoreitem #findid
finditem %lootStack C_ , %ceset
if #findstack > 1
{
exevent drag #findid #findstack
wait 5
exevent dropc #backpackID
}
find:
finditem * C_ , %ceset
if #findstack > 2
{
ignoreitem #findid
goto find
}
if #findcnt > 0
{
set %object #findid
gosub Check
if %value <> 0
{
if %name in %itemname
event sysmessage %name %value Puan %vurgubelirteci
else
event sysmessage %name %value Puan
set #sysmsgcol 1154
if %name in %itemname
set #sysmsgcol %propsrenk
event sysmessage ( %props )
wait 2 ;BEKLEME SÜRESİ BURASI
}
if %value >= 100 || %name in %ismegoreloot
{
if #findstack > 1
{
exevent drag %object #findstack
wait 5
exevent dropc #backpackID
wait 5
}
exevent drag %object
wait 5
exevent dropc #backpackID
wait 5
}
set %value 0
set %props |
set #sysmsgcol 253
ignoreitem #findid
goto find
}
}
goto loop
runebook:
set #lobjectid %runebook
wait 5
event macro 17 0
wait 5
goto loop
dismount:
finditem *mount
wait 5
if *etheralvar = 0
{
if #findkind = 1
{
set #lobjectid #findid
wait 5
event macro 17 0
}
else
{
set #lobjectid #charid
wait 5
event macro 17 0
}
}
else
{
if #FINDBAGID = #BACKPACKID
{
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
set #ltargetid *pet1
target
event macro 22 0
wait 2
goto loop
pet2:
event macro 1 0 [band
set #ltargetid *pet2
target
event macro 22 0
wait 2
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
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 + %fcfcrpoint
set #sysmsgcol %fcfcrbirlikterenk
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 * %fcXjewelarypoint )
GOSUB Property faster , #spc , cast , #spc , recovery
SET %value %value + ( #RESULT * %fcrXpoint )
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 * %intXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |int,|
SET %props %props , %deger , %yazi
}
GOSUB Property strength , #spc , bonus
SET %value %value + ( #RESULT * %strXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |str,|
SET %props %props , %deger , %yazi
}
GOSUB Property dexterity , #spc , bonus
SET %value %value + ( #RESULT * %dexXpoint )
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 * %hpXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |HP,|
SET %props %props , %deger , %yazi
}
GOSUB Property mana , #SPC , increase
SET %value %value + ( #RESULT * %manaXpoint )
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Mana,|
SET %props %props , %deger , %yazi
}
GOSUB Property stamina , #SPC , increase
SET %value %value + ( #RESULT * %stamXpoint )
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 #sysmsgcol 1153
SET %props %props , %deger , %yazi
}
IF #RESULT >= %lrcSelfpoint
{
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 * %lmcXpoint )
RETURN
}
SUB enhancepots
{
GOSUB Property enhance , #spc , potions
SET %value %value + ( #RESULT * %enchpotXpoint )
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 * %mrXpoint )
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 + %dragbloodSpoint
if ( Dragon in #property )
SET %yazi Dragon|slayer,|
if ( blood , #SPC , elemental in #property )
SET %yazi BloodElement|slayer,|
SET %props %props , %yazi
}
IF ( undead in #property ) || ( demon in #property )
{
SET %value %value + %demonundeadSpoint
set #sysmsgcol %demonundeadslayerrenk
if ( undead in #property )
SET %yazi Undead|Slayer,|
if ( demon in #property )
SET %yazi 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 >= %lightningSelfpoint
SET %value %value + ( #RESULT / %lightningSelfPartitionpoint )
GOSUB Property hit , #spc , harm
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Harm,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= %harmSelfpoint
SET %value %value + ( #RESULT / %harmSelfPartitionpoint )
GOSUB Property hit , #spc , fireball
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Fireball,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= %fireballSelfpoint
SET %value %value + ( #RESULT / %fireballSelfPartitionpoint )
GOSUB Property area
IF #RESULT > 0
{
SET %yazi Area's,|
SET %props %props , %yazi
}
IF #RESULT >= %areasSelfpoint
SET %value %value + ( #RESULT / %areasSelfPartitionpoint )
RETURN
}
SUB lower
{
GOSUB Property lower , #spc , attack
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |LowAtt,|
SET %props %props , %deger , %yazi
}
IF #RESULT >= %lowattSelfPoint
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 >= %lowdefSelfPoint
SET %value %value + ( ( #RESULT * 2 ) / 3 )
RETURN
}
SUB luck
{
GOSUB Property luck
IF #RESULT = 90
{
set #sysmsgcol 1359
event sysmessage Uyari.!!!! 90 Luck Item Tespit Edildi.!!!
}
IF #RESULT > 0
{
SET %deger ( #RESULT )
SET %yazi |Luck,|
set #sysmsgcol %luckrenk
SET %props %props , %deger , %yazi
}
IF #RESULT >= 85 && Two-Handed , #spc , Weapon notin #property
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 ilksetup
Set #sysmsgcol 1180
Event SysMessage Lutfen ilk dostunuzu seciniz!
event macro 2 0 Sadık dostlarına Bakar
SET #TARGCURS 1
pet1:
set #lobjectid #charid
wait 5
event macro 17 0
IF #TARGCURS = 1
{
WAIT 2
GOTO pet1
}
SET *pet1 #LTARGETID
gosub getname #LTARGETID petname
wait 10
Set #sysmsgcol 1161
Event SysMessage Lutfen ikinci dostunuzu seciniz!
event macro 2 0 Sadık dostlarını Sever
set %onay 0
SET #TARGCURS 1
pet2:
IF #TARGCURS = 1
{
WAIT 2
GOTO pet2
}
SET *pet2 #LTARGETID
gosub getname #LTARGETID petname2
if *pet2 = *pet1 && %onay <> 5
{
set %onay %onay + 1
Set #sysmsgcol 1161
Event SysMessage Ayni dostunuzu isaretlediniz! Eger dostunuz bir tane ise lutfen 5 saniye icinde
set #sysmsgcol 1371
event sysmessage Hareket edin! ;veya "evet" yazin!
set %konumx #CHARPOSX
set %konumy #CHARPOSY
set %saniye 1
set %suankizaman #time
set %suankisalise #systime
set %yaziiiii #charname , : , #spc , evet
set %jrnl #jindex
while #true
{
if #time >= ( %suankizaman + %saniye )
{
gosub deneme %saniye
set #SYSMSGCOL #result
Event SysMessage %saniye
set %saniye %saniye + 1
}
if 5000 <= ( #systime - %suankisalise )
{
set #sysmsgcol 1375
event sysmessage 5 saniye doldu, Lutfen seciminizi tekrarlayin ->
SET #TARGCURS 1
goto pet2
return
}
if %onay = 5
{
set %onay 0
display OK Sayın #charname mağlesef 5 kere hatalı giriş yapmış bulunmaktasınız ve sizinle anlaşamıyoruz =), lütfen size verilen süre içerisinde istenilenleri yerine getiriniz :D
event macro 2 0 Kafası karışık hissediyor
}
if %konumx <> #CHARPOSX || %konumy <> #CHARPOSY
{
SET #TARGCURS 0
set #ltargetid *pet1
gosub getname #LTARGETID petname2
return
}
if #jindex >= %jrnl
{
scanjournal %jrnl
set %jrnl %jrnl + 1
if %yaziiiii in #journal
{
SET #TARGCURS 0
set %onay 1
set #ltargetid *pet1
gosub getname #LTARGETID petname2
return
}
}
}
}
wait 10
return
sub mount
display yesnocancel Binilebilir petinizi belirtiniz: $ %petname için "yes", $ %petname2 için "no", $ hayvanlar arasında binek yoksa "cancel".
if #dispRes = yes
set *mount *pet1
if #dispres = no
set *mount *pet2
; set *etheralvar 0
;display yesno Little Light Angel'a sahipmisiniz ?, Sahipseniz Binek olarak kullanmak için yes e basıp cebinizden Seçin.
; set #lobjectid #charid
;wait 5
;event macro 17 0
; if #dispRes = yes
; {
; set *etheralvar 1
; SET #TARGCURS 1
;etheral:
;IF #TARGCURS = 1
;{
; WAIT 2
; GOTO etheral
;}
;SET *mount #LTARGETID
;wait 10
; }
; if #dispres = no
; set *etheralvar 0
return
sub GetName
finditem %1
if #findkind = -1
return error-cant_find
event property #findid
str pos #property $
set !strlength #strres - 2
str left #property !strlength
str del #strres 1 1
set % . %2 #strres
return % . %2
sub premiumsectir
display yesno Premium Açıkmı ? (WOS SUNUCUSU ÖZELLİGİ)
if #dispres = yes
set *premium 1
if #dispres = no
set *premium 0
return
SUB name
event property #findid
STR POS #property $
set %isim ( #strres - 1 )
STR LEFT #property %isim
set %name #strres
RETURN
SUB SetSettings
return
sub deneme
goto case , %1
case1:
return 31
case2:
return 41
case3:
RETURN 61
case4:
RETURN 71
case5:
RETURN 91
bazı durumlar için ufak yol gösterici güncellemeler
17 Mar 2016 19:26
17 Mar 2016 19:48
Bu mesaja teşekkür edenler (1 kişi): aldros
17 Mar 2016 20:02
için ufak çalışmalar
17 Mar 2016 20:02
aldros
Oyuncu
Oyuncu
Konu: Yanıt: EasyTamer (Edited By Aldros Version) erentk586 yazmış:
Bu makro hedefi takip ediyor mu acaba?
hedefi takip eden bir sistemi yok mağlesef tek tuşla yapılabilinen özellikleri var f tuşu ile yakınındaki bir cesedi açar parayı lootlar ve cesette bulunan güzel itemleri puanlayarak kenara bildirim olarak yazar diger tusların ve bu açıklamaları scriptin bir bölümüne ekleyeceğim ozaman daha rahat neler yapabildiğini anlayabilirsiniz önceki serverlarda bu scriptin açıklamasını çok kez yazmıştım ama silindi bu sefer kalıcı olması adına scriptin içine ekliyim =)
17 Mar 2016 20:08
18 Şub 2017 21:06
07 Nis 2017 20:51
07 Nis 2017 21:13
  |
|
| 1. sayfa (Toplam 1 sayfa) [ 9 mesaj ] |
| Bu forumda yeni başlıklar açamazsınız Bu forumdaki başlıklara cevap veremezsiniz Bu forumdaki mesajlarınızı değiştiremezsiniz Bu forumdaki mesajlarınızı silemezsiniz Bu forumdaki anketlerde oy kullanamazsınız |