|
[FUNCTION WEAPONSPEED]
//RETURN <SERV.ITEMDEF.<ID>.SPEED>
[defname def_weapon_settings]
value_magic_1 0
value_magic_2 0
value_magic_3 15000
value_magic_4 15000
value_magic_5 15000
color_magic_0 0
color_magic_1 084a
color_magic_2 07d4
color_magic_3 06af
color_magic_4 0493
color_magic_5 0455
morey_magic_0 0
morey_magic_1 200
morey_magic_2 400
morey_magic_3 600
morey_magic_4 800
morey_magic_5 1000
tag_magic_Weap 0
tag_magic_ruin 1
tag_magic_might 2
tag_magic_force 3
tag_magic_power 4
tag_magic_vanq 5
skill_magic_0 0
skill_magic_1 200
skill_magic_2 400
skill_magic_3 600
skill_magic_4 800
skill_magic_5 1000
[function f_value_numeric]
if strmatch(*ruin*,<baseid>)
return 3
elif strmatch(*might*,<baseid>)
return 6
elif strmatch(*force,<baseid>)
return 9
elif strmatch(*power*,<baseid>)
return 12
elif strmatch(*vanq*,<baseid>)
return 15
endif
[function f_value]
if strmatch(*ruin*,<baseid>)
return Ruin
elif strmatch(*might*,<baseid>)
return Might
elif strmatch(*force,<baseid>)
return Force
elif strmatch(*power*,<baseid>)
return Power
elif strmatch(*vanq*,<baseid>)
return Vanquishing
elif strmatch(*Dragon*,<baseid>)
return INVUL
elif strmatch(*Diablo*,<baseid>)
return Diablo
elif strmatch(*blackrock*,<baseid>)
return Blackrock
elif strmatch(*bloodrock*,<baseid>)
return Bloodrock
elif strmatch(*_no*,<baseid>)
return Copper
elif strmatch(*_sil*,<baseid>)
return Silver
elif strmatch(*_go*,<baseid>)
return Gold
elif strmatch(*_sh*,<baseid>)
return Shadow
elif strmatch(*_ve*,<baseid>)
return Verite
elif strmatch(*_sh*,<baseid>)
return Shadow
elif strmatch(*_va*,<baseid>)
return Valorite
elif strmatch(*_bloodtr*,<baseid>)
return Bloodrock
elif strmatch(*_blackr*,<baseid>)
return Blackrock
endif
[function f_x_check]
if (STRMATCH(*Weapon*,"<TYPE>"))
return 1
elif (STRMATCH(*Shield*,"<TYPE>"))
return 2
elif (STRMATCH(*Armor*,"<TYPE>"))
return 3
elif (STRMATCH(*Cloth*,"<TYPE>"))
return 4
endif
[function THISWEAPON]
COLOR=0
HITPOINTS=100
TAG0.MAGICAL=
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<F_X_CHECK> == 1)
EVENTS T_WEAPON
ENDIF
[function THISRUIN]
COLOR=<def.color_magic_1>
ATTR=ATTR_MAGIC
MOREY=<def.morey_magic_1>
HITPOINTS=100
TAG0.MAGICAL=<def.tag_magic_ruin>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<F_X_CHECK> == 1)
EVENTS T_WEAPON
ENDIF
[function THISMIGHT]
COLOR=<def.color_magic_2>
ATTR=ATTR_MAGIC
MOREY=<def.morey_magic_2>
HITPOINTS=100
TAG0.MAGICAL=<def.tag_magic_might>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<F_X_CHECK> == 1)
EVENTS T_WEAPON
ENDIF
[function THISFORCE]
COLOR=<def.color_magic_3>
ATTR=ATTR_MAGIC
MOREY=<def.morey_magic_3>
HITPOINTS=100
TAG0.MAGICAL=<def.tag_magic_force>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<F_X_CHECK> == 1)
EVENTS T_WEAPON
ENDIF
[function THISPOWER]
COLOR=<def.color_magic_4>
ATTR=ATTR_MAGIC
MOREY=<def.morey_magic_4>
HITPOINTS=100
TAG0.MAGICAL=<def.tag_magic_power>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<F_X_CHECK> == 1)
EVENTS T_WEAPON
ENDIF
[function THISVANQ]
COLOR=<def.color_magic_5>
ATTR=ATTR_MAGIC
MOREY=<def.morey_magic_5>
HITPOINTS=100
TAG0.MAGICAL=<def.tag_magic_vanq>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<F_X_CHECK> == 1)
EVENTS T_WEAPON
ENDIF
[EOF][typedef t_fruit]
[typedef t_food]
[typedef t_eq_horse]
on=@UNEQUIP
IF (0<src.ACCOUNT.PLEVEL> == 1) && (<SERV.CHARDEF.<MORE1>.TAG0.ARMOR>)
src.GETARMOR <SERV.CHARDEF.<MORE1>.TAG0.ARMOR>
ENDIF
[function f_multi_custom_fix]
//IF (<HOUSEDESIGN>) || (<ISEVENT.e_house_customize>)
NOTICE 0,Özelleştirilebilir eviniz silindi için tasarım modundan çıktınız.
TRIGGER @HouseDesignExit
EV_TASARIM_CIK
SAYU Ev tasarım modundan çıkar!
FIX
//ENDIF
[typedef t_multi_custom]
on=[url=u-destroy-527.html]@destroy[/url]
ref1 <uid>
ref2 <uid.<more1>.uid>
REF2.TIMERF 0,F_MULTI_CUSTOM_FIX
IF (<REF2.FINDLAYER.21.RESCOUNT>)
FOR 0 <REF2.FINDLAYER.21.RESCOUNT>
REF3=<REF2.FINDLAYER.21.FINDCONT(<LOCAL._FOR>)>
IF (<REF3.DISPID>==i_key_copper)
IF STRMATCH("t_multi*","<REF3.LINK.TYPE>")
REF3.REMOVE
ENDIF
ENDIF
ENDFOR
ENDIF
IF (<REF2.FINDLAYER.29.RESCOUNT>)
FOR 0 <REF2.FINDLAYER.29.RESCOUNT>
REF4=<REF2.FINDLAYER.29.FINDCONT(<LOCAL._FOR>)>
IF (<REF4.DISPID>==i_key_copper)
IF STRMATCH("t_multi*","<REF4.LINK.TYPE>")
REF4.REMOVE
ENDIF
ENDIF
ENDFOR
ENDIF
[typedef t_forge]
[TYPEDEF t_sign_gump]
ON=@DClick
REF1=<MORE2>
IF (<REF1.ACCOUNT.PLEVEL>)
IF (<LINK.TYPE> == t_multi) || (<LINK.TYPE> == t_multi_custom)
IF (<SRC.ISNOMOVERFLAGS>)
SRC.SYS_KIRMIZI Bu durumda bunu kullanamazsınız.
RETURN 1
//ELSEIF (<SRC.ISPOISONED>)
//SRC.SYS_KIRMIZI Zehirliyken bunu kullanamazsınız.
//RETURN 1
//ELSEIF (<SRC.ISYARALI>)
//SRC.SYS_KIRMIZI Yaralıyken bunu kullanamazsınız.
//RETURN 1
ELSEIF !(<LINK.LINK.TAG0.ONAY>) && (<LINK.TYPE> != t_multi_custom)
SRC.SYS_KIRMIZI Bu ev onaylanmamış.
IF (<SRC> == <REF1>)
SDIALOG d_house_demolish
ENDIF
RETURN 1
//ELSEIF (<SRC.HOUSEDESIGN>)
//SRC.SYS_KIRMIZI Şu an <QVAL (<SRC.HOUSEDESIGN.UID> == <LINK.UID>)? bu:başka bir> binayı tasarlıyorsunuz.
//RETURN 1
ELSEIF (<link.tag0.4sale>) && !(<HousePlayerAccess <SRC>> >= 2)
link.SDIALOG d_house_buy
SDIALOG d_house_visitor
RETURN 1
ENDIF
IF (<HousePlayerAccess <SRC>> >= 2)
SRC.sys_beyaz Hoşgeldin <SRC.NAME>.
IF (<TIMER> > 1296000)
TIMER=<EVAL <DEF.HOUSE_DECAY_TIMER>*24*60*60>
ENDIF
IF (<TIMER> < 1209600)
IF (<SRC.GOLD> >= 2000)
IF (<TIMER> > 1296000)
TIMER=<EVAL <DEF.HOUSE_DECAY_TIMER>*24*60*60>
ELSE
TIMER +=86400
ENDIF
SRC.GOLD -=20000
SRC.SYS_BEYAZ Evinizi 20.000 altı karşılığında 1 günlük yenilediniz.
ELSE
SRC.SYS_KIRMIZI Evinizi yenilemek için 20.000 altına ihtiyacınız var.
ENDIF
ENDIF
SDIALOG d_house_information
return 1
ELSE
TAG0.VISITS ++
SDIALOG d_house_visitor
ENDIF
ENDIF
ENDIF
return 1
on=@click
REF1=<MORE2>
IF !(<REF1.ISPLAYER>)
msg_mavi <name>
return 1
ENDIF
[function water_send]
IF (<ISINSEA>)
IF !(<TAG0.SHIP_CREAT_P>)
GO <F_ARRAY <DEF.MOONGATE_SOSARIA>,<R1,8>>
NOTICE 0,Deniz üzerinde kaldığın için rastgele bir moongateye gönderildin.
ELSE
GO <TAG0.SHIP_CREAT_P>
NOTICE 0,Deniz üzerinde kaldığın için gemiyi ilk kurduğun yere gönderildin.
ENDIF
ENDIF
[TYPEDEF T_SHIP]
on=[url=u-destroy-527.html]@destroy[/url]
ref1 <uid>
ref2 <ref1.more1>
ref3 <ref1.hatch>
ref4 <ref1.link> // tiller
if !(<ref2.ctag0.ship_redeed>) && !(<ref4.timer> <= 0)
return 1
endif
if (<ref2>)
if (<ref3.rescount>)
ref2.sys_beyaz Gemi kasasındaki eşyalar bir torba içinde bankanıza aktarılmıştır.
serv.newitem i_box_wood
new.cont <ref2.findlayer.29>
new.name Gemi Kasaniz (<ref2.name>)
local.hatchbag <new.uid>
for 0 <ref3.rescount>
ref3.findcont.0.cont <local.hatchbag>
ref3.findcont.<dlocal._for>.cont <local.hatchbag>
endfor
endif
endif
IF (<REF2>)
ref2.timerf 0,fix
ref2.timerf 1,water_send
ENDIF
IF (<REF2.FINDLAYER.21.RESCOUNT>)
FOR 0 <REF2.FINDLAYER.21.RESCOUNT>
REF4=<REF2.FINDLAYER.21.FINDCONT(<LOCAL._FOR>)>
IF (<REF4.DISPID>==i_key_copper)
IF STRMATCH("t_ship*","<REF4.LINK.TYPE>")
REF4.REMOVE
ENDIF
ENDIF
ENDFOR
ENDIF
IF (<REF2.FINDLAYER.29.RESCOUNT>)
FOR 0 <REF2.FINDLAYER.29.RESCOUNT>
REf5=<REF2.FINDLAYER.29.FINDCONT(<LOCAL._FOR>)>
IF (<REF5.DISPID>==i_key_copper)
IF STRMATCH("t_ship*","<REF5.LINK.TYPE>")
ref5.REMOVE
ENDIF
ENDIF
ENDFOR
ENDIF
on=@timer
return 1
[typedef t_ship_tiller]
ON=[url=u-destroy-527.html]@destroy[/url]
REF1 <LINK.MORE1>
IF !(<ref1.ctag0.ship_redeed>)
IF !(<TIMER> <= 0)
RETURN 1
ENDIF
ENDIF
ON=@TIMER
REF1 <LINK.MORE1>
REF1.NOTICE 0,Geminizin süresi dolduğu için otomatik olarak silindi.
REMOVE
RETURN 1
ON=@Click
//src.sys_BEYAZ HIZ : <dLINK.TAG.OVERRIDE.SHIPSPEED.PERIOD> milisaniyede <dLINK.TAG.OVERRIDE.SHIPSPEED.TILES> kare.
msg_KIRMIZI [Sahibi : <uid.<link.more>.name>]
IF !(<TIMER> <= 0)
src.sys_kirmizi Geminin silinmesine <kalansure <timer>> var.
ENDIF
msg_beyaz Dümenci
return 1
on=@dclick
TILLER
[TYPEDEF T_DYE_VAT]
ON=@TARGON_ITEM
IF (<SRC.TARG.BASEID> == I_BACKPACK)
SRC.SYS_KIRMIZI Bu eşya boyanamaz.
RETURN 1
ENDIF
[TYPEDEF T_SCROLL]
ON=@Click
MESSAGE <bolukayir <amount>> <name>
return 1
ON=@Dclick
local.skill <strsub 0 4 <f_array <skillmake>,2>>
IF (<SRC.MAGERY> < <LOCAL.SKILL>)
src.sys_kirmizi Bu büyüyü yapacak yeteneğe sahip değilsin. (<local.skill> Magery)
return 1
endif
[TYPEDEF T_BEARD]
ON=@TIMER
return 1
[TYPEDEF T_HAIR]
ON=@TIMER
return 1
[TYPEDEF T_HAIR_DYE]
on=@click
msg_beyaz <name>
return 1
on=@pickup_pack
dialogclose d_hair_Dye
ON=@DCLICK
IF !(<SRC.ISINPACK <UID>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
return 1
ENDIF
SRC.CTAG0.HAIR_DYE <UID>
DIALOGCLOSE D_HAIR_DYE
DIALOG D_HAIR_DYE
RETURN 1
[typedef t_armor_leather]
on=@click
IF (<ATTR>&ATTR_NEWBIE)
MESSAGE [newbified]
ENDIF
IF (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
ENDIF
IF !((<BASEID> == I_ROBE_PERFECT) || (<BASEID> == I_ROBE_HOLY) || (<BASEID> == I_ARMORER_HELM) || (<BASEID> == I_ROBE_ice) || (<BASEID> == I_ROBE_fire) || (<BASEID> == I_ROBE_Energy) || (<BASEID> == I_ROBE_Earth))
IF (<COLOR> == COLOR_O_INVUL)
MESSAGE @0901,,1 (<f_value>)
ELSE
MESSAGE @<qval (<color> == 0)?,,1:<color>,,1 (<f_value>)>
ENDIF
MESSAGE @0790,,1 <NAME>
RETURN 1
ENDIF
[typedef t_armor]
ON=@EQUIPTEST
IF (<SRC.ISPLAYER>)
if !(<SRC.ISWARRIOR>)
src.sys_kirmizi Bu eşyayı sadece Warrior karakterler kullanabilir.
UNEQUIP
RETURN 1
ENDIF
ENDIF
SRC.FINDID.i_rune_protection.REMOVE
SRC.FINDID.i_rune_reactive_armor.REMOVE
on=@click
IF (<ATTR>&ATTR_NEWBIE)
MESSAGE [newbified]
ENDIF
IF (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
ENDIF
IF (<COLOR> == COLOR_O_INVUL)
MESSAGE @044,,1 (<f_value>)
ELSE
MESSAGE @<qval (<color> == 0)?,,1:<color>,,1 (<f_value>)>
ENDIF
MESSAGE @0790,,1 <NAME>
RETURN 1
[typedef t_shield]
ON=@EQUIPTEST
IF !(<BASEID> == I_SHIELD_ICE)
SRC.FINDID.i_rune_protection.REMOVE
SRC.FINDID.i_rune_reactive_armor.REMOVE
ENDIF
//src.events +e_parry
on=@click
IF (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
ENDIF
IF !(<BASEID> == I_SHIELD_ICE)
IF (<COLOR> == COLOR_O_INVUL)
MESSAGE @044,,1 (<f_value>)
ELSE
MESSAGE @<qval (<color> == 0)?,,1:<color>,,1 (<f_value>)>
ENDIF
MESSAGE @0790,,1 <NAME>
RETURN 1
ENDIF
on=@UnEquip
//src.events -e_parry
[TYPEDEF T_CLOTHING]
ON=@CLICK
IF (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
ENDIF
[typedef t_plate_deed]
on=@dclick
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
IF !(<SRC.ISINPACK <UID>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
RETURN 1
ENDIF
LOCAL.VALUE <F_VALUE>
SERV.NEWITEM I_<LOCAL.VALUE>_PLATEMAIL,1,<SRC>,1
SERV.NEWITEM I_<LOCAL.VALUE>_PLATEMAIL_ARMS,1,<SRC>,1
SERV.NEWITEM I_<LOCAL.VALUE>_PLATEMAIL_LEGGINGS,1,<SRC>,1
SERV.NEWITEM I_<LOCAL.VALUE>_PLATEMAIL_GORGET,1,<SRC>,1
SERV.NEWITEM I_<LOCAL.VALUE>_PLATEMAIL_GAUNTLETS,1,<SRC>,1
SERV.NEWITEM I_<LOCAL.VALUE>_PLATE_HELM,1,<SRC>,1
SERV.NEWITEM I_<LOCAL.VALUE>_HEATER_sHIELD,1,<SRC>,1
REMOVE
RETURN 1
on=@CLICK
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
message @0713,,1 <name>
return 1
[typedef t_STUDDED_deed]
on=@dclick
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
IF !(<SRC.ISINPACK <UID>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
RETURN 1
ENDIF
SERV.NEWITEM i_studded_sleeves_<F_VALUE>
NEW.EQUIP
SERV.NEWITEM i_studded_gloves_<F_VALUE>
NEW.EQUIP
SERV.NEWITEM i_studded_gorget_<F_VALUE>
NEW.EQUIP
SERV.NEWITEM i_studded_leggings_<F_VALUE>
NEW.EQUIP
SERV.NEWITEM i_studded_tunic_<F_VALUE>
NEW.EQUIP
REMOVE
RETURN 1
on=@CLICK
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
message @0713,,1 <name>
return 1
[typedef t_campfire]
[typedef t_ore]
[typedef t_ingot]
[TYPEDEF T_LOCKPICK]
ON=@dclick
if (<src.ishide>)
src.sys_kirmizi Gizlenmiş durumdayken bunu kullanamazsınız.
return 1
elseif !(<src.isinpack <uid>>)
src.sys_kirmizi <def.unpackmsg>
return 1
else
target @<def.msg_Beyaz>,,1 Hangi kasayı açacaksın?
return 1
endif
on=@targon_item
if (<src.ishide>)
src.sys_kirmizi Gizlenmiş durumdayken bunu kullanamazsın.
return 1
elseif (<src.isuzak <src.targ.uid>>)
src.sys_kirmizi Kasaya yetişemiyorsun.
return 1
elseif (<src.targ.type> == t_container)
src.sys_kirmizi Bu kasa zaten açık.
return 1
elseif (<SRC.TARG.BASEID> == i_hazine_kasa)
src.sys_kirmizi Bununla bu kasayı açamazsınız.
return 1
endif
on=@targon_char
return 1
on=@targon_ground
return 1
[TYPEDEF t_deed]
ON=@DClick
IF STRMATCH(*t_multi*,'<SERV.ITEMDEF.<MORE1>.TYPE>')
SRC.TAG0.DEEDUSE <UID>
SRC.TAG0.DEEDUSEID I_DEED_<STRSUB 8 99 <MORE1>>
IF !(<DEF.USEHOUSE>)
SRC.SYS_KIRMIZI Ev kurulumu şu an için kapalıdır.
RETURN 1
ENDIF
//IF (<src.memoryfindtype.(memory_guard)>)
//IF !(<src.memoryfindtype.(memory_guard).link.type> == t_ship) && !(<src.memoryfindtype(memory_Guard).link>==0)
//src.sys_kirmizi İki ev kuramazsınız. Diğer evinizi kaldırmalısınız.
//return 1
//ENDIF
//ENDIF
//IF !(<TAG0.STOKITEM>)
//IF (<SRC.GOLD> < <SERV.ITEMDEF.<MORE1>.VALUE>)
//SRC.sys_kirmizi Bu evi kuracak kadar altınınız yok. (<bolukayir <SERV.ITEMDEF.<MORE1>.VALUE>> Altın)
//return 1
//ENDIF
//ENDIF
IF (<src.region.flags>&0880) || (<src.region.safe> == 1)
src.sys_kirmizi Bu alanda ev kurulumu yapamazsınız.
return 1
ENDIF
IF (<src.isyarali>)
src.sys_kirmizi Bu eşyayı yaralıyken kullanamazsınız.
return 1
ENDIF
IF (<DEF.HOUSE_RULES_READ> == 1)
src.sys_kirmizi Evi kurmadan önce lütfen ev kurallarını okuyunuz.
src.weblink <DEF.HOUSE_RULES_LINK>
ENDIF
ENDIF
IF !(<SRC.ISINPACK <UID>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
return 1
ELIF !(<SRC.ISGM>)
IF STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>")
IF (<SRC.CHECK_ACCOUNT_TYPEDEF t_multi*> >= <DEF.MAX_ACCOUNT_HOUSES>)
SRC.SYS_KIRMIZI Zaten <QVAL (<DEF.MAX_ACCOUNT_HOUSES>==1)? 1:<dDEF.MAX_ACCOUNT_HOUSES> ev> sahibisiniz.
TRIGGER @TargOn_Cancel
return 1
ENDIF
ENDIF
ENDIF
IF (<DISPID>==i_gold)
TIMERF 60,TRIGGER @TargOn_Cancel
ENDIF
if (<serv.itemdef.<more1>.type> == t_ship)
IF (<src.hits> < <eval <src.str>/2>)
src.sys_kirmizi Hitsiniz %50nin altinda olduğu için gemiye binemiyorsun.
return 1
ENDIF
if (<src.memoryfindtype.(memory_guard)>)
if (<src.memoryfindtype.(memory_guard).link.type> == t_ship) && !(<src.memoryfindtype(memory_Guard).link>==0)
src.sys_kirmizi İki gemi kuramazsınız. Diğer geminizi kaldırmalısınız.
return 1
endif
endif
if !(<tag0.target>)
f_Dialog d_ship_placement
return 1
endif
endif
ON=@Click
IF (STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
attr attr_newbie
msg_beyaz [<SERV.ITEMDEF.<MORE1>.NAME>]
msg_beyaz Ev Kontratı
ELSEIF STRMATCH("t_ship*","<SERV.ITEMDEF.<MORE1>.TYPE>")
attr attr_newbie
msg_beyaz [<SERV.ITEMDEF.<MORE1>.NAME>]
msg_beyaz Gemi Kontratı
ELSE
message a <name>
ENDIF
RETURN 1
ON=@TargOn_Ground
//SRC.TIMERF 1,SRC.REMOVEDEED
//IF (STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
//IF (STRMATCH(*Britain*,'<SRC.TARGP.REGION.NAME>'))
//IF (<SRC.TARGP.REGION.GUARDED> == 0)
//IF (<SERV.ITEMDEF.<MORE1>.TAG0.GUILDHOUSE>)
//SRC.SYS_KIRMIZI Bu bölgeye sadece bu Tower, Castle Keep kurulamaz.
//RETURN 1
//ENDIF
//ENDIF
//ENDIF
//ENDIF
IF (STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
IF (<SRC.TARGP.REGION.SAFE> == 1) || (<SRC.TARGP.REGION.FLAGS>&0880)
SRC.SYS_KIRMIZI Bu alana ev kurulumu yapamazsınız.
RETURN 1
ENDIF
//FORPLAYERS 10
//IF !(<ISONLINE>)
//SRC.SYS_KIRMIZI Kurmaya çalıştığınız yerde bir oyuncu çevrimdışı.
//RETURN 1
//ENDIF
//ENDFOR
ENDIF
IF !(<SRC.ISGM>)
IF !STRMATCH("*ship*","<BASEID>")
IF (<SRC.TAG0.House.PlacementDelay> > <SERV.TIME>)
SRC.SYS_KIRMIZI Başka bir ev yerleştirmek için <eval (<SRC.TAG0.House.PlacementDelay>-<SERV.TIME>)/864000> gün beklemeniz gerekir.
return 1
ELIF !(<DEF.PLACEMENT_ILSHENAR_FACET>) && (<SRC.TARGP.M>==2)
SRC.SYS_KIRMIZI Bu alana ev kurulumu yoktur.
TRIGGER @TargOn_Cancel
return 1
ENDIF
ENDIF
//SRC.TIMERF 1,HouseIsPlaced <MORE1> <BASEID> <SRC.TARGP>
//SRC.TIMERF 1,SRC.REMOVEDEED
ENDIF
SRC.FIX
ON=@TargOn_Char
//IF (STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
//SRC.SDIALOG d_house_placement_tool
//UID.<SRC.TAG0.DEEDUSE>.REMOVE
//SRC.TAG0.DEEDUSE=
//REMOVE
//ENDIF
SRC.SYS_KIRMIZI Hatalı seçim.
TRIGGER @TargOn_Cancel
return 1
ON=@TargOn_Item
//IF (STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
//SRC.SDIALOG d_house_placement_tool
//UID.<SRC.TAG0.DEEDUSE>.REMOVE
//SRC.TAG0.DEEDUSE=
//REMOVE
//ENDIF
SRC.SYS_KIRMIZI Hatalı seçim.
TRIGGER @TargOn_Cancel
return 1
ON=@TargOn_Cancel
//IF !(<TAG0.STOKITEM>)
//IF (STRMATCH("t_multi*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
//SRC.SDIALOG d_house_placement_tool
//UID.<SRC.TAG0.DEEDUSE>.REMOVE
//SRC.TAG0.DEEDUSE=
//REMOVE
//ENDIF
//ENDIF
IF (STRMATCH("t_ship*","<SERV.ITEMDEF.<MORE1>.TYPE>"))
IF (<DISPID>==i_gold)
SRC.SDIALOG d_ship_placement
REMOVE
ENDIF
ENDIF
tag.target =
RETURN 1
[FUNCTION REMOVEDEED]
UID.<TAG0.DEEDUSE>.REMOVE
[TYPEDEF T_TELEPAD]
on=@click
IF !(<MOREP>)
MSG_KIRMIZI Karşılıksız Ulaşım Aracı
ELSE
MSG_BEYAZ [<MOREP>]
IF (<ISONHOUSE>)
MESSAGE House Telepad
ELSE
MSG_BEYAZ <NAME>
ENDIF
ENDIF
RETURN 1
on=@step
if !(<morep>)
SRC.SYS_KIRMIZI Bu teleporter karşılıksız.
return 0
endif
if !((<src.ismonsters>) || (<src.isanimals>))
if (<link>)
if (strmatch(*t_multi*,'<link.type>'))
if !(<src.ctag0.teleport_wait>)
src.ctag0.teleport_wait=1
src.go <morep>
src.timerf 3,src.ctag0.teleport_wait=
endif
endif
else
src.go <morep>
endif
endif
on=@dclick
return 1
On=@PickUp_Ground
src.sys_kirmizi Sistem tarafından sabitlenmiştir.
return 1
[Typedef t_spellbook]
ON=@DCLICK
ATTR=attr_magic|attr_newbie //magical and newbie
On=@Click
ATTR=attr_magic|attr_newbie //magical and newbie
LOCAL.SPS 1
for 1 32
LOCAL.SYF=<dlocal.sps>
if (<local.syf>&<more1>)
LOCAL.SAYFA +=1
endif
LOCAL.SPS=<eval <dlocal.sps>*2>
endfor
LOCAL.SPS 1
for 33 64
LOCAL.SYF=<dlocal.sps>
if (<LOCAL.SYF>&<more2>)
LOCAL.SAYFA +=1
endif
LOCAL.SPS=<eval <dlocal.sps>*2>
endfor
MSG_BEYAZ <qval (<DLOCAL.SAYFA> == 0)?(Boş):(<DLOCAL.SAYFA>/64 Büyü)>
MESSAGE a <NAME>
RETURN 1
on=@dropon_self
IF !(<ARGO.TYPE> == T_SCROLL)
SRC.SYS_KIRMIZI Bu bir büyü parşomeni değil.
RETURN 1
ENDIF
//FOR 1 64
//IF (<TAG0.SPELL_<DLOCAL._FOR>>)
//SRC.SYS_KIRMIZI Bu büyü kitapta yer alıyor.
//RETURN 1
//ENDIF
//ENDFOR
IF (<MORE2> == 0ffffffff)
SRC.SYS_KIRMIZI Bu büyü kitabı dolu.
RETURN 1
ENDIF
TAG0.SPELL_<ARGO.MOREX>=1
TAG0.SPELL_TOTAL ++
SRC.SYS_BEYAZ <ARGO.NAME> büyü kitabına eklendi.
ADDSPELL <ARGO.MOREX>
ARGO.REMOVE
RETURN 1
[typedef t_kelle]
on=@click
IF !(<link.isplayer>)
MESSAGE Sahipsiz kelle
RETURN 1
ENDIF
MESSAGE @<ddef.namehue_<LINK.NOTOGETFLAG 0,1>> <link.name> kellesi
RETURN 1
on=@dclick
REF1=<UID>
REF2=<REF1.LINK>
IF (<SRC.ISMAN>)
REF3=<SRC.TAG0.KARI>
ELSEIF (<SRC.ISWOMAN>)
REF3=<SRC.TAG0.KOCA>
ENDIF
IF !(<REF1.ISITEM>)
SRC.SYS_KIRMIZI Bu bir eşya değil.
RETURN 1
ELSEIF !(<REF1.TYPE> == T_KELLE)
SRC.SYS_KIRMIZI Bu bir kelle değil.
RETURN 1
ELSEIF !(<SRC.ISINPACK <REF1>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
RETURN 1
ELSEIF (<REF1.LINK> == 04FFFFFFF) || !(<REF1.LINK>) || !(<REF2.ISPLAYER>)
SRC.SYS_KIRMIZI Bu kelle bir oyuncuya ait değil.
RETURN 1
ELSEIF (<REF2> == <SRC>)
SRC.SYS_KIRMIZI Kendi kellenizi sallandıramazsınız.
RETURN 1
ELSEIF !(<REF1.TAG0.ILKFAME> >= <DDEF.MIN_FAME>)
SRC.SYS_KIRMIZI Kelleyi sallamanız için kelle ilk kesildiğinde oyuncunun karması en az <BOLUKAYIR <DDEF.MIN_FAME>> olmalıdır.
RETURN 1
ENDIF
IF (<REF3>)
IF (<REF3> == <REF2>)
SRC.SYS_KIRMIZI Eşinizin kellesini sallandıramazsınız.
RETURN 1
ENDIF
ENDIF
IF !(STRMATCH('0','<REF2.TAG0.AILE>'))
IF (STRMATCH('<REF2.TAG0.AILE>','<SRC.TAG0.AILE>'))
SRC.SYS_KIRMIZI <REF2.NAME> isimli oyuncu ile aynı aileye üye olduğun için kellesini sallandıramıyorsun.
RETURN 1
ENDIF
ENDIF
IF (<REF2.GUILD>)
IF (<SRC.GUILD> == <REF2.GUILD>)
SRC.SYS_KIRMIZI <REF2.NAME> isimli oyuncu ile aynı guilde üye olduğun için kellesini sallandıramıyorsun.
RETURN 1
ENDIF
ENDIF
F_DIALOG D_KELLE
RETURN 1
///////////////////ccccccccccccccccccc////////////////////////
[typedef t_weapon_sword]
on=@equip
IF !((<range> > 1) || (<baseid> == i_KNIFE_BUTCHER) || (<baseid> == i_CLEAVER_MEAT) || (<baseid> == I_KNIFE_SKINNING) || (<baseid> == i_hatchet))
IF (<SRC.ISWARRIOR>) || (<SRC.ISWARLOCK>)
SRC.EVENTS +e_bleeding
ENDIF
ENDIF
ON=@UnEquip
src.events -e_bleeding
[typedef t_weapon_fence]
on=@equip
IF !((<dispid> == i_kryss) || (<dispid> == i_war_fork) || (<dispid> == i_dagger))
IF ((<SRC.ISWARRIOR>) || (<SRC.ISWARLOCK>))
src.events +e_parablow
///src.events +e_dismount
ENDIF
ENDIF
ON=@UnEquip
src.events -e_parablow
///src.events -e_dismount
[typedef t_weapon_bow]
[typedef t_weapon_xbow]
on=@equip
IF (<SRC.ISWARLOCK>)
src.events +e_dismount
ENDIF
ON=@UnEquip
src.events -e_dismount
[typedef t_weapon_mace_staff]
on=@damage
src.dropstam
[typedef t_weapon_mace_sharp]
on=@damage
src.dropstam
[typedef t_weapon_mace_smith]
on=@damage
src.dropstam
[typedef t_weapon_axe]
on=@equip
IF ((<SRC.ISWARRIOR>) || (<SRC.ISWARLOCK>))
src.events +e_dismount
ENDIF
ON=@UnEquip
//src.events -e_axer
src.events -e_dismount
//////////////////////////////cccccccccccccccccccc/////////////////////////////
[TYPEDEF T_WEAPON]
ON=@DAMAGE
IF (<HITS> <= 0)
EMOTE <NAME> is destroyed!
SRC.EMOTE <NAME> is destroyed!
REMOVE
SRC.SYS_KIRMIZI <NAME> çok hasar aldığı için parçalandı!
ENDIF
IF !(<MOREZ>)
//AMMOANIMHUE
ENDIF
ON=@EQUIPTEST
IF !((<SRC.ISWARRIOR>) || (<SRC.ISWARLOCK>) || (<SRC.ISMONSTERS>))
src.sys_kirmizi Bu silahı sadece Warrior ve Warlock karakterler kullanabilir.
unequip
return 1
endif
IF (<MOREZ>)
IF (<SRC.ISWARLOCK>)
SRC.SYS_KIRMIZI Zehirli silahları Warlock karakterler kullanamazlar. Silahın zehiri silindi!
MOREZ=0
ENDIF
ENDIF
if (<tag0.magical> > 0)
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
ENDIF
//IF !(<MOREZ>)
//AMMOANIMHUE
//ENDIF
On=@Click
IF (<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>)
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
ELSE
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
ENDIF
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<CONT>)
IF (<ATTR>&ATTR_NEWBIE)
MESSAGE [newbified]
ENDIF
ENDIF
if (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
endif
IF (<DTAG0.MAGICAL>)
message @<QVAL (<COLOR>)?<COLOR>:<DEF.MAVI_YAZI>>,,1 [<f_value>]
message @ Magical <name>
ELSE
MESSAGE a <NAME>
ENDIF
IF (<morez> > 0)
src.sys_kirmizi Bu silah zehirli!
ENDIF
return 1
[typedef t_spawn_char]
on=@click
if (<src.account.plevel> >= 7)
msg_kirmizi (<kalansure <timer>>)
msg_beyaz Char : <name> (Invis)
src.sys_kirmizi ID : <more1>
src.sys_kirmizi NAME : <serv.chardef.<more1>.JOB>
return 1
else
msg_beyaz Char : <name> (Invis)
src.sys_kirmizi ID : <more1>
src.sys_kirmizi NAME : <serv.chardef.<more1>.JOB>
return 1
endif
[typedef t_spawn_item]
on=@click
ATTR 010|080
if (<src.isgm>)
msg_beyaz [<kalansure <timer>>]
msg_beyaz Item : <name> [<more1>]
return 1
endif
on=@dclick
ATTR 010|080
return 1
on=@timer
IF (<MORE2>)
RETURN 1
ENDIF
ATTR 010|080
MORE2=1
TIMERF 1,F_CHEST_SETTING
[typedef t_ship_plank]
on=@DCLICK
if !(<src.isinship>)
if (<SRC.ISYARALI>)
src.sys_kirmizi Yaralı olduğun için gemiye binemiyorsun.
return 1
endif
endif
[typedef t_container]
ON=@CLICK
IF !(<type> == t_corpse) && !(<BASEID> == i_strongbox) && !(<BASEID> == I_QUIVER)
IF (<RESCOUNT>)
MSG_BEYAZ (Eşya : <RESCOUNT>)
MSG_KIRMIZI (Ağırlık : <FVAL <WEIGHT>>)
ENDIF
MSG Y,<STRTOUPPER(<STRSUB 0 1 <NAME>>)><STRTOLOWER(<STRSUB 1 30 <NAME>>)>
RETURN 1
ENDIF
on=@DropOn_Ground
//IF !(STRMATCH(*Duello*,'<SRC.REGION.NAME>))
//IF !(<type> == t_corpse) && !(<BASEID> == i_strongbox) && !(<BASEID> == I_QUIVER)
IF !(<RESCOUNT>)
IF (<SRC.ISNEARTYPE T_WATER 5>)
SRC.SYS_KIRMIZI Deniz yakınlarında yere atılan <name> 5 sn. içinde silinir.
ARGN1 = 50
ELSEIF (<SRC.ISNEARTYPE T_SPAWN_CHAR 5>)
SRC.SYS_KIRMIZI Spawn merkezinde yere atılan <NAME> 1 dk. içinde silinir.
ARGN1 = 1000
ELSEIF (<SRC.ISNEARTYPE T_SHRINE 5>)
SRC.SYS_KIRMIZI Ankh çevresinde yere atılan <NAME> 10 sn. içinde silinir.
ARGN1 = 100
ENDIF
ENDIF
ENDIF
ENDIF
on=@timer
IF (<attr>&attr_static)
return 1
ENDIF
[typedef t_grain]
on=@DropOn_Ground
IF (<SRC.ISNEARTYPE T_WATER 5>)
SRC.SYS_KIRMIZI Deniz yakınlarında yere atılan <name> 5 sn. içinde silinir.
ARGN1 = 50
ENDIF
IF (<SRC.ISNEARTYPE T_SPAWN_CHAR 5>)
SRC.SYS_KIRMIZI Spawn merkezinde yere atılan <NAME> 1 dk. içinde silinir.
ARGN1 = 1000
ENDIF
IF (<SRC.ISNEARTYPE T_SHRINE 5>)
SRC.SYS_KIRMIZI Ankh çevresinde yere atılan <NAME> 10 sn. içinde silinir.
ARGN1 = 100
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[TYPEDEF t_door_locked]
ON=@Click
IF (<DEF.HOUSE_DOOR_ACCESS>)
IF !(<SRC.ACCOUNT.RESDISP> < 2)
IF (<UID.<UID.<REGION.UID>.MORE2>.IsOwner <SRC>>)
SDIALOG d_house_access
ENDIF
ENDIF
ENDIF
msg_kirmizi (Kilitli)
message <STRTOUPPER(<STRSUB 0 1 <NAME>>)><STRTOLOWER(<STRSUB 1 30 <NAME>>)>
return 1
ON=@DClick
if (<distance> > 2)
src.sys_kirmizi Kapıya ulaşamıyorsunuz.
return 1
endif
if (<eval (<src.z> - <z>)> > 5)
src.sys_kirmizi Kapıya ulaşamıyorsunuz.
return 1
endif
REF1=<UID.<REGION.UID>.MORE2>
REF2=<REF1.LINK>
IF (<REF2.TYPE> == T_MULTI)
IF !(<REF1.DTAG0.ONAY>)
SRC.SYS_KIRMIZI Bu ev onaylanmamış.
RETURN 1
ENDIF
IF (<SRC> == <REF1.MORE2>)
TIMER=0
ENDIF
IF (<TAG0.ACCESS_1>)
IF (<REF1.HousePlayerAccess <SRC>> >= 4)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_2>)
IF (<REF1.HousePlayerAccess <SRC>> == 3)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_3>)
IF (<REF1.HousePlayerAccess <SRC>> == 2)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_4>)
IF (<SRC.GUILD> == <UID.<REF1.MORE2>.GUILD>)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_5>)
TIMER=0
ENDIF
IF (<TAG0.ACCESS_6>)
RETURN 1
ENDIF
ENDIF
[TYPEDEF t_door]
ON=@Click
IF (<DEF.HOUSE_DOOR_ACCESS>)
IF !(<SRC.ACCOUNT.RESDISP> < 2)
IF (<UID.<UID.<REGION.UID>.MORE2>.IsOwner <SRC>>)
SDIALOG d_house_access
ENDIF
ENDIF
ENDIF
msg_Beyaz (Açık)
message <STRTOUPPER(<STRSUB 0 1 <NAME>>)><STRTOLOWER(<STRSUB 1 30 <NAME>>)>
return 1
ON=@DClick
if (<distance> > 2)
src.sys_kirmizi Kapıya ulaşamıyorsunuz.
return 1
endif
if (<eval (<src.z> - <z>)> > 5)
src.sys_kirmizi Kapıya ulaşamıyorsunuz.
return 1
endif
REF1=<UID.<REGION.UID>.MORE2>
REF2=<REF1.LINK>
IF (<REF2.TYPE> == T_MULTI)
IF !(<REF1.DTAG0.ONAY>)
SRC.SYS_KIRMIZI Bu ev onaylanmamış.
RETURN 1
ENDIF
IF (<TAG0.ACCESS_1>)
IF (<REF1.HousePlayerAccess <SRC>> >= 4)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_2>)
IF (<REF1.HousePlayerAccess <SRC>> == 3)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_3>)
IF (<REF1.HousePlayerAccess <SRC>> == 2)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_4>)
IF (<SRC.GUILD> == <UID.<REF1.MORE2>.GUILD>)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_5>)
TIMER=0
ENDIF
IF (<TAG0.ACCESS_6>)
RETURN 1
ENDIF
ENDIF
[TYPEDEF t_door_open]
ON=@Click
IF (<DEF.HOUSE_DOOR_ACCESS>)
IF !(<SRC.ACCOUNT.RESDISP> < 2)
IF (<UID.<UID.<REGION.UID>.MORE2>.IsOwner <SRC>>)
SDIALOG d_house_access
ENDIF
ENDIF
ENDIF
msg_Beyaz (Açık)
message <STRTOUPPER(<STRSUB 0 1 <NAME>>)><STRTOLOWER(<STRSUB 1 30 <NAME>>)>
return 1
ON=@DClick
if (<distance> > 2)
src.sys_kirmizi Kapıya ulaşamıyorsunuz.
return 1
endif
if (<eval (<src.z> - <z>)> > 5)
src.sys_kirmizi Kapıya ulaşamıyorsunuz.
return 1
endif
REF1=<UID.<REGION.UID>.MORE2>
REF2=<REF1.LINK>
IF (<REF2.TYPE> == T_MULTI)
IF !(<REF1.DTAG0.ONAY>)
SRC.SYS_KIRMIZI Bu ev onaylanmamış.
RETURN 1
ENDIF
IF (<TAG0.ACCESS_1>)
IF (<REF1.HousePlayerAccess <SRC>> >= 4)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_2>)
IF (<REF1.HousePlayerAccess <SRC>> == 3)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_3>)
IF (<REF1.HousePlayerAccess <SRC>> == 2)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_4>)
IF (<SRC.GUILD> == <UID.<REF1.MORE2>.GUILD>)
TIMER=0
ENDIF
ENDIF
IF (<TAG0.ACCESS_5>)
TIMER=0
ENDIF
IF (<TAG0.ACCESS_6>)
RETURN 1
ENDIF
ENDIF
[TYPEDEF t_locked_down]
ON=@Click
IF (<TYPE> != t_door_locked)
IF (<TAG0.Access>)
MSG_KIRMIZI (Sabit & Güvenli)
ELSE
MSG_KIRMIZI (Sabit)
ENDIF
ENDIF
ON=@DClick
IF (<TAG0.Access> == 5) && !(<UID.<UID.<REGION.UID>.MORE1>.GUILD>)
TAG.Access=4
ENDIF
IF !(<CanAccess>)
IF (<TYPE> != t_container)
SRC.SYS_KIRMIZI Yetersiz erişim izni.
ELSE
SRC.SYS_KIRMIZI Bu eşya güvenli.
ENDIF
return 1
ENDIF
IF (<IsWeapon>) || (<ISARMOR>)
SRC.SYS_KIRMIZI Eşya kilitli.
return 1
ENDIF
on=@pickup_ground
IF (<IsWeapon>) || (<ISARMOR>)
SRC.SYS_KIRMIZI Eşya kilitli.
return 1
ENDIF
ON=@DropOn_Self
IF (!(<CanAccess>)) && (<SRC.ISPLAYER>)
RETURN 1
ENDIF
IF !(<TAG0.Ref>)
REF1=<ARGO.UID>
ELSE
REF1=<TAG.Ref>
TAG.Ref=
ENDIF
IF (<REF1.CAN>&CAN_I_PILE)
RETURN 0
ENDIF
REF2=<UID.<REGION.UID>.MORE2>
LOCAL.Items=1
IF (<REF1.TYPE> == t_container)
LOCAL.Items += <REF1.FCOUNT>
ENDIF
IF (<TAG0.Access>) //Secured
IF (<REF2.House_AvaibleStorage> < <LOCAL.Items>)
SRC.SYS_KIRMIZI Evin en fazla eşya depolama sınırına ulaştınız.
REF1.ATTR |= <DEF.attr_move_never>
SRC.BOUNCE=<REF1.UID>
REF1.TIMERF 1,ATTR=<HVAL <REF1.ATTR>&~<DEF.attr_move_never>>
return 1
ENDIF
IF (<TYPE> == t_container)
IF (<REF1.TYPE> == t_container)
REF1.FixHouseSubcontainers 1
ENDIF
REF2.TAG0.SECURE_CONT += <LOCAL.Items>
ENDIF
return 0
ELSE //Locked
IF (<REF2.House_AvaibleLockdowns> < <LOCAL.Items>)
SRC.SYS_KIRMIZI Evin en fazla eşya depolama sınırına ulaştınız.
REF1.ATTR |= <DEF.attr_move_never>
SRC.TIMERF 1,BOUNCE=<REF1.UID>
REF1.TIMERF 1,ATTR=<HVAL <REF1.ATTR>&~<DEF.attr_move_never>>
return 1
ENDIF
IF (<TYPE> == t_container)
IF (<REF1.TYPE> == t_container)
REF1.FixHouseSubcontainers 1
ENDIF
REF2.TAG0.LOCKED_ITEMS += <LOCAL.Items>
ENDIF
return 0
ENDIF
ON=@PickUp_Self
IF !(<TAG0.Ref>)
REF1=<ARGO.UID>
ELSE
REF1=<TAG.Ref>
TAG.Ref=
ENDIF
IF (<REF1.CAN>&CAN_I_PILE)
RETURN 0
ENDIF
REF2=<UID.<REGION.UID>.MORE2>
IF (<TAG0.Access>) //Secured
REF2.TAG0.SECURE_CONT --
IF (<REF1.TYPE> == t_container)
REF2.TAG0.SECURE_CONT -= <REF1.FCOUNT>
REF1.FixHouseSubcontainers 0
ENDIF
return 0
ELSE //Locked
REF2.TAG0.LOCKED_ITEMS --
IF (<REF1.TYPE>==t_container)
REF2.TAG0.LOCKED_ITEMS -= <REF1.FCOUNT>
REF1.FixHouseSubcontainers 0
ENDIF
return 0
ENDIF
ON=[url=u-destroy-527.html]@destroy[/url]
IF STRMATCH("t_multi*","<UID.<REGION.UID>.TYPE>")
REF1=<UID.<REGION.UID>.MORE2>
REF1.TAG0.LOCKED_ITEMS --
IF (<TYPE> == t_container)
IF (<TAG0.Access>) //Secured
REF1.TAG0.SECURE_CONT -= <FCOUNT>
ELSE //Locked
REF1.TAG0.LOCKED_ITEMS -= <FCOUNT>
ENDIF
ENDIF
ENDIF
[TYPEDEF t_subcont]
ON=@DropOn_Self
IF (!(<CANACCESS>))
RETURN 1
ENDIF
IF (<TOPOBJ.UID> != <UID>)
TOPOBJ.TAG.Ref=<ARGO.UID>
TOPOBJ.TRIGGER @DropOn_Self
ENDIF
ON=@PickUp_Self
IF (!(<CANACCESS>))
RETURN 1
ENDIF
IF (<TOPOBJ.UID> != <UID>)
TOPOBJ.TAG.Ref=<ARGO.UID>
TOPOBJ.TRIGGER @PickUp_Self
ENDIF
[TYPEDEF t_telepad_house]
ON=@Step
IF (<TAG0.Access>==5) && !(<UID.<UID.<REGION.UID>.MORE1>.GUILD>)
TAG.Access=4
ENDIF
IF !(<CanAccess>)
SRC.SYS_KIRMIZI Yetersiz erişim izni.
return 0
ENDIF
[typedef t_shrine]
on=@dclick
TIMER=2
src.resurrector 5 // 5 sn
return 1
on=@click
TIMER=2
message Ankh
return 1
on=@step
RETURN 1
on=@timer
FORITEMS 10
IF ((<TYPE> == T_SAND) || (<TYPE> == T_CONTAINER) || (<TYPE> == T_SPELL))
TIMER
ENDIF
ENDFOR
FORCHARS 1
IF (<ISANIMALS>)
MOVEBACK <R2,3>
ENDIF
ENDFOR
ATTR 010
TIMER 1
return 1
[typedef t_potion]
on=@click
MESSAGE <amount> <name>
return 1
[typedef T_CLOCK]
on=@click
msg_kirmizi <SERV.ZAMAN>
msg_beyaz <name>
return 1
on @DClick
return 1
[typedef t_figurine]
On=@Click
IF !(STRMATCH(*Horse*,'<MORE1>'))
MESSAGE [<qval (<more1>)?<serv.chardef.<more1>.name>:<name>>]
ELSE
MSG_KIRMIZI [<NAME>]
ENDIF
msg_beyaz Figür
return 1
on=@dclick
IF !(<SRC.ISINPACK <UID>>)
SRC.SYS_KIRMIZI <DEF.UNPACKMSG>
RETURN 1
ENDIF
IF (<SRC.ISINSHIP>)
SRC.SYS_KIRMIZI Bu eşyayı gemi içindeyken kullanamazsın.
RETURN 1
ENDIF
//IF (<SRC.IsOnHouse>)
//SRC.SYS_KIRMIZI Bu eşyayı ev içindeyken kullanamazsın.
//RETURN 1
//ENDIF
IF (<SRC.ISHIDE>)
SRC.SYS_KIRMIZI Bu eşyayı gizlenmişken kullanamazsın.
RETURN 1
ENDIF
IF (<SRC.ISUSEHIDE>)
SRC.SYS_KIRMIZI Bu eşyayı gizleniyorken kullanamazsın.
RETURN 1
ENDIF
[TYPEDEF t_water]
TERRAIN = 0a8 0ab
TERRAIN = 0136 0137
TERRAIN = 064
TERRAIN = 03ff0 03ff3
[TYPEDEF t_rock]
TERRAIN = 0e1
TERRAIN = 00dc 00e7
TERRAIN = 00ec 00f7
TERRAIN = 00fc 0107
TERRAIN = 010c 0117
TERRAIN = 011e 0129
TERRAIN = 0141 0144
TERRAIN = 021f 0243
TERRAIN = 024a 0257
TERRAIN = 0259 026d
TERRAIN = 022e
TERRAIN = 0236
TERRAIN = 0234
TERRAIN = 023b
TERRAIN = 0245 0249
[TYPEDEF t_dirt]
TERRAIN = 09 015
TERRAIN = 0150 015c
[TYPEDEF t_grass]
TERRAIN = 0003 0006
TERRAIN = 007d 008c
TERRAIN = 00c0 00db
TERRAIN = 00f8 00fb
TERRAIN = 015d 0164
TERRAIN = 01a4 01a7
TERRAIN = 0231 0234
TERRAIN = 0239 0243
TERRAIN = 0324 032b
TERRAIN = 036f 0376
TERRAIN = 037b 037e
TERRAIN = 03bf 03c6
TERRAIN = 03cb 03ce
TERRAIN = 0579 0580
TERRAIN = 058b 058c
TERRAIN = 05e3 0604
TERRAIN = 066b 066e
TERRAIN = 067d 0684
TERRAIN = 0695 069c
TERRAIN = 06a1 06c2
TERRAIN = 06d2 06d9
TERRAIN = 06de 06e1
[TYPEDEF t_lava]
TERRAIN = 01f4 01f7
[TYPEDEF t_snow]
TERRAIN = 010c 011d
TERRAIN = 0385 03ac
TERRAIN = 0745 0773
[TYPEDEF t_swamp]
TERRAIN = 07dc 0808
TERRAIN = 083b 0867
TERRAIN = 03d65
TERRAIN = 03dc0 03df1
TERRAIN = 03ef0
[TYPEDEF t_sand]
TERRAIN = 016 03e
TERRAIN = 044 04b
[TYPEDEF t_jungle]
TERRAIN = 0ac 0bf
TERRAIN = 0ec
TERRAIN = 0fc 0103
TERRAIN = 0108 010b
TERRAIN = 01f1 01f3
TERRAIN = 026e 0271
TERRAIN = 0276 027d
TERRAIN = 0286 0289
TERRAIN = 0292 0295
TERRAIN = 0581 058a
TERRAIN = 058d 0590
TERRAIN = 059f 05a5
TERRAIN = 05b3 05b9
TERRAIN = 05f5 05f8
TERRAIN = 0605 0610
TERRAIN = 0615 0617
TERRAIN = 0727 072a
TERRAIN = 0733 073a
[TYPEDEF t_forest]
TERRAIN = 0c4 0d7
TERRAIN = 0ed 0f3
TERRAIN = 0f8 0fb
TERRAIN = 015d 0168
TERRAIN = 0324 032a
TERRAIN = 054f 0552
TERRAIN = 05f1 05f4
TERRAIN = 05f9 0603
TERRAIN = 0611 0614
TERRAIN = 0653 0655
TERRAIN = 065b 0662
TERRAIN = 066b 066e
TERRAIN = 06af 06b4
TERRAIN = 06bb 06be
TERRAIN = 0709 070c
TERRAIN = 0715 071c
[TYPEDEF 2010]
[TYPEDEF 2011]
[EOF]On=@GetHit
if (<argn2>)
TAG0.HASAR_KAYIT_COUNT ++
endif
if (<argn2>&02)
if (<src.findlayer(layer_hand1)>) && (<src.findlayer(layer_hand1).isweapon>)
tag0.deathform=<src.findlayer(layer_hand1).f_value> <src.findlayer(layer_hand1).name> ile
if (<argn2>)
TAG0.HASAR_KAYIT_<DTAG0.HASAR_KAYIT_COUNT> <SRC>,<SRC.FINDLAYER.1.F_VALUE> <SRC.FINDLAYER.1.NAME>,<ARGN1>,<SERV.ZAMAN>,<REGION.NAME>
endif
elif (<src.findlayer(layer_hand2)>) && (<src.findlayer(layer_hand2).isweapon>)
tag0.deathform=<src.findlayer(layer_hand2).f_value> <src.findlayer(layer_hand2).name> ile
if (<argn2>)
TAG0.HASAR_KAYIT_<DTAG0.HASAR_KAYIT_COUNT> <SRC>,<SRC.FINDLAYER.2.F_VALUE> <SRC.FINDLAYER.2.NAME>,<ARGN1>,<SERV.ZAMAN>,<REGION.NAME>
endif
elif (<src.action>==skill_wrestling)
tag0.deathform=yumruk ile
if (<argn2>)
TAG0.HASAR_KAYIT_<DTAG0.HASAR_KAYIT_COUNT> <SRC>,Yumruk,<ARGN1>,<SERV.ZAMAN>,<REGION.NAME>
endif
endif
endif
On=@Click
IF (<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>)
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
ELSE
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
ENDIF
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<CONT>)
IF (<ATTR>&ATTR_NEWBIE)
MESSAGE [newbified]
ENDIF
ENDIF
if ( <topobj.id> == c_pv )
if (strmatch('<price>',''))
message @38,,1 [Satılmaz]
elseif (<price> <= 0)
message @38,,1 [Satılık Değil]
endif
endif
if (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
endif
IF (<DTAG0.MAGICAL>)
message @<QVAL (<COLOR>)?<COLOR>:<DEF.MAVI_YAZI>>,,1 [<f_value>]
message @ Magical <name>
ELSE
MESSAGE a <NAME>
ENDIF
IF (<morez> > 0)
src.sys_kirmizi Bu silah zehirli!
ENDIF
return 1//////////////////////////////cccccccccccccccccccc/////////////////////////////
[TYPEDEF T_WEAPON]
ON=@DAMAGE
IF (<HITS> <= 0)
EMOTE <NAME> is destroyed!
SRC.EMOTE <NAME> is destroyed!
REMOVE
SRC.SYS_KIRMIZI <NAME> çok hasar aldığı için parçalandı!
ENDIF
IF !(<MOREZ>)
//AMMOANIMHUE
ENDIF
ON=@EQUIPTEST
IF !((<SRC.ISWARRIOR>) || (<SRC.ISWARLOCK>) || (<SRC.ISMONSTERS>))
src.sys_kirmizi Bu silahı sadece Warrior ve Warlock karakterler kullanabilir.
unequip
return 1
endif
IF (<MOREZ>)
IF (<SRC.ISWARLOCK>)
SRC.SYS_KIRMIZI Zehirli silahları Warlock karakterler kullanamazlar. Silahın zehiri silindi!
MOREZ=0
ENDIF
ENDIF
if (<tag0.magical> > 0)
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
ENDIF
//IF !(<MOREZ>)
//AMMOANIMHUE
//ENDIF
On=@Click
IF (<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>)
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
ELSE
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
ENDIF
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<CONT>)
IF (<ATTR>&ATTR_NEWBIE)
MESSAGE [newbified]
ENDIF
ENDIF
if ( <topobj.id> == c_pv )
if (strmatch('<price>',''))
message @38,,1 [Satılmaz]
elseif (<price> <= 0)
message @38,,1 [Satılık Değil]
endif
endif
if (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
endif
IF (<DTAG0.MAGICAL>)
message @<QVAL (<COLOR>)?<COLOR>:<DEF.MAVI_YAZI>>,,1 [<f_value>]
message @ Magical <name>
ELSE
MESSAGE a <NAME>
ENDIF
IF (<morez> > 0)
src.sys_kirmizi Bu silah zehirli!
ENDIF
return 1[TYPEDEF T_WEAPON]
ON=@DAMAGE
IF (<HITS> <= 0)
EMOTE <NAME> is destroyed!
SRC.EMOTE <NAME> is destroyed!
REMOVE
SRC.SYS_KIRMIZI <NAME> çok hasar aldığı için parçalandı!
ENDIF
IF !(<MOREZ>)
//AMMOANIMHUE
ENDIF
ON=@EQUIPTEST
IF !((<SRC.ISWARRIOR>) || (<SRC.ISWARLOCK>) || (<SRC.ISMONSTERS>))
src.sys_kirmizi Bu silahı sadece Warrior ve Warlock karakterler kullanabilir.
unequip
return 1
endif
IF (<MOREZ>)
IF (<SRC.ISWARLOCK>)
SRC.SYS_KIRMIZI Zehirli silahları Warlock karakterler kullanamazlar. Silahın zehiri silindi!
MOREZ=0
ENDIF
ENDIF
if (<tag0.magical> > 0)
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
ENDIF
//IF !(<MOREZ>)
//AMMOANIMHUE
//ENDIF
On=@Click
IF (<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>)
COLOR=<SERV.ITEMDEF.<BASEID>.RESDISPDNHUE>
ELSE
COLOR=<DEF.COLOR_MAGIC_<dtag0.magical>>
ENDIF
MOREY=<DEF.MOREY_MAGIC_<dtag0.magical>>
TAG.OVERRIDE.SPEED <WEAPONSPEED>
IF (<CONT>)
IF (<ATTR>&ATTR_NEWBIE)
MESSAGE [newbified]
ENDIF
ENDIF
if ( <topobj.id> == c_pv )
if (strmatch('<price>',''))
message @38,,1 [Satılmaz]
elif (<price> <= 0)
message @38,,1 [Satılık Değil]
else
message @044,,1 [<act.price> Gp]
endif
endif
if (<more1l> < <more1h>)
MESSAGE (<HASARGOSTER>)
endif
IF (<DTAG0.MAGICAL>)
message @<QVAL (<COLOR>)?<COLOR>:<DEF.MAVI_YAZI>>,,1 [<f_value>]
message @ Magical <name>
ELSE
MESSAGE a <NAME>
ENDIF
IF (<morez> > 0)
src.sys_kirmizi Bu silah zehirli!
ENDIF
return 1
2 ci sayfaya geçmişiz halen bununla ugraşıyoruz gerçi sen ugraşıyon benim birşey yaptıgım yok Valla hakkını helal et 22:35:ERROR:(Sphere_Types.scp,1050)Can't resolve <act.price>if ( <topobj.id> == c_pv )
if (strmatch('<price>',''))
message @38,,1 [Satılmaz]
elif (<price> <= 0)
message @38,,1 [Satılık Değil]
else
message @044,,1 [<act.price> Gp] // şurada <act.price> yazıyor bak onu bu şekilde düzelt. message @044,,1 [<price> Gp]
endif
endif|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
Vendora tıklayınca pencere acılıyor
Son cevap: 05-02 07:25 · Son yazan: Epihaltes · Mesaj: 2 · Görüntü: 1908
|
DIALOG Script Yardımı | 05-02 07:25 |  Epihaltes |
2 | 1908 |
|
|
Player Vendor Item Fiyat Koyma
Son cevap: 29-12 23:48 · Son yazan: Alone · Mesaj: 3 · Görüntü: 2212
|
FUNCTION & EVENTS Script Yardımı | 29-12 23:48 | Alone |
3 | 2212 |
|
Fiyat Koyamıyorum
Son cevap: 07-10 19:17 · Son yazan: serkanacar · Mesaj: 12 · Görüntü: 5191
|
Script Yardımı | 07-10 19:17 | serkanacar |
12 | 5191 |
|
|
Pazar vendor fiyat
Son cevap: 16-08 17:21 · Son yazan: serkanacar · Mesaj: 15 · Görüntü: 5976
|
Script Yardımı | 16-08 17:21 | serkanacar |
15 | 5976 |
|
|
Mage Vendora Reg Kristal ekleme
Son cevap: 17-07 14:49 · Son yazan: Sephinroth · Mesaj: 3 · Görüntü: 3354
|
Script Yardımı | 17-07 14:49 | Sephinroth |
3 | 3354 |