merhabalar arkadaşlar şöyle bir sıkıntım var evi onaylamadığımızda 2 gün içinde silinmesi lazım 2 gün içinde silinecektir yazıyor ama tabela tıklayınca kendini yeniliyor 14 gün çıkartıyor yardımcı olurmusunuz teşekkürler.
Kod:
[DEFNAME HOUSE_SYSTEM]
PLAYER_CAN_USE_BANK 0 //Can open bankbox from the house sign? (1=On / 0=Off)
HOUSE_DOOR_ACCESS 1 //Owner of the house can change the door access? (1=On / 0=Off)
HOUSE_USE_DEEDS 1 //When a house got demolished, you want get back your house deed or the house value in gold? (0=House Value in Gold / 1=House Deed)
HOUSE_DECAY_TIMER 16 //House decay timer, in days (0=Decay Off)
DEMOLITION_PEND_DECAY 5 //House decay timer for Demolition Pending houses, in days (Houses can only be pended to demolition by a Game Master)
USE_GLOBAL_STORAGE 0 //Use Global Storage Limit value for houses, or calculate storage limit by the house area? (1=Global Value / 0=Calculate by House Area)
GLOBAL_SECURE_STORAGE 10 //Global max secured storage allowed per house (secure containers + items inside secure containers)
GLOBAL_LOCKDOWNS 10 //Global max locked items allowed per house (this value will cont on Secure Storage Limit)
MAX_HOUSE_COOWNERS 10 //Max number of co-owners allowed per house
MAX_HOUSE_FRIENDS 15 //Max number of friends allowed per house
MAX_HOUSE_BANS 8 //Max number of bans allowed per house
MAX_ACCOUNT_HOUSES 5 //Max number of houses allowed per account
USE_NOTICE_SYSTEM 1 //Notice player using dialog when your house decay or when it removed from the house access list (1=On / 0=Off)
ACCOUNT_OWNERSHIP 1 //All character of the house owner account will get owner access in the house (0=Off / 1=On)
Anahtar_silinsin 2 //Anahtar silinsin mi /// 1 silinsin , 2 silinmesin
[function sahipbul]
src.invis 1
src.gouid <uid.<uid.<args>.more>.uid>
[function checkdoor]
if (<canseelos>)
return 0
else
src.sysmessage @07a1,1,1 Kapıyı göremiyorsunuz.
return 1
endif
if (<src.dir> == 3) || (<src.dir> == 0) || (<src.dir> == 4) || (<src.dir> == 5) //// kenarlardan artik yarrami açarlar...
return 1
endif
if !(<link>) // eger player house deilse salla
return 0
endif
if (<link.link.morey>) // publicse ac kapiyi
type t_door
endif
if (<src.findid.i_key_copper>) // anahtar var mi?
if (<type> == t_door_locked) // kapi mi kitli?
if (<dispid> == i_door_wood) || (<dispid> == 06a7) || (<dispid> == 0675) || (<dispid> == 0677) || (<dispid> == 067b)
if ((<dir> == 3) || (<dir> == 4) || (<dir> == 5)) // icerde mi kaldin? Eet abi yaa cikar pls
type t_door // ac kapilari
elseif (<dir> == 0) || (<dir> == 1) || (<dir> == 7)
if (<p.z> == 25)
type t_door
endif
endif
elseif ((<dispid> == 06ad) || (<dispid> == 067d))
if (<dir> == 5) || (<dir> == 6) || (<dir> == 7)
type t_door
endif
endif
endif
elseif (<type> == t_door_locked) // kapi mi kitli?
if ((<dispid> == i_door_wood) || (<dispid> == 06a7) || (<dispid> == 0675) || (<dispid> == 0677) || (<dispid> == 067b))
//if ((<dir> == 3) || (<dir> == 4) || (<dir> == 5)) // icerde mi kaldin?
// type t_door // ac kapilari
if (<dir> == 0) || (<dir> == 1) || (<dir> == 7)
if (<p.z> == 25)
type t_door
endif
endif
elseif ((<dispid> == 06ad) || (<dispid> == 067d))
if (<dir> == 5) || (<dir> == 6) || (<dir> == 7)
type t_door
endif
endif
endif
[FUNCTION isevonaylanmamis]
LOCAL.REGION=<REGION.UID>
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>)
if (<type> == t_onayla)
local.onayyok +=1
endif
if (<type> == t_yasaklandi)
local.onayyok +=1
endif
ENDIF
ENDFOR
return <dlocal.onayyok>
[events e_ibantheeyok]
[function evdencik]
IF (<ISPLAYER>)
TRY UID.<UID>.GO=<UID.<ARGS>.P>
TRY UID.<UID>.FIX
RETURN 1
endif
[dialog d_evkomutlari]
0,0
nomove
//resizepic 15 25 83 380 360
resizepic 20 30 5150 370 350
dhtmlgump 100 55 300 20 0 0 <def.bfont_red><serv.name> Ev Komutları
dhtmlgump 45 80 300 20 0 0 i wish to lock this down <def.bfont_dred>veya<def.bfont_black> lock
dhtmlgump 45 95 300 20 0 0 <def.bfont_red>Eşyaları sabitlemenizi sağlar
dhtmlgump 45 120 300 20 0 0 i wish to release this down <def.bfont_dred>veya<def.bfont_black> release
dhtmlgump 45 135 300 20 0 0 <def.bfont_red>Eşyaların sabitliğini kaldırmanızı sağlar.
dhtmlgump 45 160 300 20 0 0 i wish to place a strongbox <def.bfont_dred>veya<def.bfont_black> strongbox
dhtmlgump 45 175 300 20 0 0 <def.bfont_red>Strongbox eklemenizi sağlar.
dhtmlgump 45 200 300 20 0 0 i wish to remove this <def.bfont_dred>veya<def.bfont_black> remove
dhtmlgump 45 215 300 20 0 0 <def.bfont_red>Strongboxu silmenizi sağlar.
dhtmlgump 45 240 300 20 0 0 i wish to secure this <def.bfont_dred>veya<def.bfont_black> secure
dhtmlgump 45 255 300 20 0 0 <def.bfont_red>Kasaları güvenli(kilitli) yapmanızı sağlar.
dhtmlgump 45 280 300 20 0 0 i ban thee <def.bfont_dred>veya<def.bfont_black> remove thyself
dhtmlgump 45 295 350 20 0 0 <def.bfont_red>Evinizde istemediğiniz kişi yada npcleri evinizden atmanızı sağlar.
button 45 320 55 55 1 0 0
dhtmlgump 65 320 150 20 0 0 <def.bfont_dgreen>Tamam
[dialog d_evkomutlari button]
[plevel 2]
evkontrol
[function evkontrol]
gotype t_onayla
[DIALOG d_yasaklandi]
110,100
resizepic 0 0 5150 420 160
dhtmlgump 111 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 30 55 350 20 0 0 <def.bfont_red>Eviniz yetkililer tarafından onaylanmamıştır.
dhtmlgump 50 100 380 20 0 0 <def.bfont_dgreen> Eviniz onaylanana kadar bekleyin.
if (<src.targ.color>==025)
dhtmlgump 30 75 380 20 0 0 <def.bfont_dblue>Ev hatalı bulunmuş, lütfen kaldırınız. <def.br>Aksi taktirde <def.bfont_red><eval <SRC.TARG.TIMER>/86400> <def.bfont_black>gun <def.bfont_red><eval (<SRC.TARG.TIMER>%86400)/3600> <def.bfont_black>saat<def.bfont_red> <eval ((<SRC.TARG.TIMER>%86400)%3600)/60> <def.bfont_black>dakika sonra silinecek.
elseif (<src.targ.color>==<eval 0480>)
dhtmlgump 30 75 380 20 0 0 <def.bfont_dblue>Ev henüz onaylanmayı bekliyor.
endif
[DIALOG d_evionayla]
110,100
resizepic 0 0 5150 231 150
dhtmlgump 61 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
if (<src.account.plevel> > 2)
button 25 60 55 55 1 0 1
dhtmlgump 45 60 100 20 0 0 <def.bfont_dgreen>Evi Onayla!
button 25 80 55 55 1 0 2
dhtmlgump 45 80 100 20 0 0 <def.bfont_red>Ev Hatalı!
else
dhtmlgump 45 60 100 20 0 0 <def.bfont_dgreen>Evi Onayla!
dhtmlgump 45 80 100 20 0 0 <def.bfont_red>Ev Hatalı!
endif
[DIALOG d_evionayla BUTTON]
ON=1 // onayla
TRY SRC.TARG.REGION.EVENTS=+r_house_system
src.targ.type=t_sign_gump
src.targ.color=0
SRC.TARG.TAG.DEMOLITION_PENDING=
src.targ.name=
SRC.TARG.TAG.onaylayanstaff <src.name>
uid.04013a2ae.tag0.evbekleyen <eval <uid.04013a2ae.tag0.evbekleyen>-1>
on=2 // hatali ev
src.targ.type=t_yasaklandi
src.targ.color 025
src.targ.type=t_sign_gump
src.targ.name Hatalı Ev
src.sysmessage @07a1,1,1 Evi hatalı olarak işaretledin. 2 gün içinde sahibi kaldırmazsa ev silinecek.
SRC.TARG.TIMER=172800
SRC.TARG.TAG.DEMOLITION_PENDING=2
uid.04013a2ae.tag0.evbekleyen <eval <uid.04013a2ae.tag0.evbekleyen>-1>
[typedef t_yasaklandi]
on=@dclick
if (<src.account.plevel> < 2)
/////
IF !(<LINK>==04fffffff)
IF (<MORE2>==0)
IF (<SRC.FINDTYPE.t_key.LINK>==<REGION.UID>)
MORE2=<SRC.UID>
TAG.BUILTON=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>
NAME=<LINK.NAME>
TRY REGION.EVENTS=+r_house_system
TRY UID.<REGION.UID>.MORE2=<UID>
IF (<DEF.HOUSE_DECAY_TIMER> > 0)
TIMER=<eval <DEF.HOUSE_DECAY_TIMER>*24*60*60>
src.sysmessage @07a1,1,1 Ev artık sizin, 2 hafta içinde yenilemezseniz silinir.
ELSE
src.sysmessage @07a1,1,1 Ev artık sizin.
ENDIF
TRY UID.<UID.<REGION.UID>.MORE2>.TAG.STORAGE_LIMIT=<eval <AREA>*3>
RESENDTOOLTIP
return 1
ENDIF
ENDIF
ENDIF
src.sdialog d_yasaklandi
src.dialogclose d_house_demolish
/////
else
src.sdialog d_evionayla
src.dialogclose d_house_demolish
endif
return 1
[typedef t_onayla]
on=@dclick
if (<src.account.plevel> > 1)
src.sdialog d_evionayla
else
////////////
IF !(<LINK>==04fffffff)
IF (<MORE2>==0)
IF (<SRC.FINDTYPE.t_key.LINK>==<REGION.UID>)
MORE2=<SRC.UID>
TAG.BUILTON=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>
NAME=<LINK.NAME>
TRY REGION.EVENTS=+r_house_system
TRY UID.<REGION.UID>.MORE2=<UID>
IF (<DEF.HOUSE_DECAY_TIMER> > 0)
TIMER=<eval <DEF.HOUSE_DECAY_TIMER>*24*60*60>
src.sysmessage @07a1,1,1 Ev artık sizin, 2 hafta içinde yenilemezseniz silinir.
ELSE
src.sysmessage @07a1,1,1 Ev artık sizin.
ENDIF
TRY UID.<UID.<REGION.UID>.MORE2>.TAG.STORAGE_LIMIT=<eval <AREA>*3>
RESENDTOOLTIP
return 1
ENDIF
ENDIF
ENDIF
src.sdialog d_yasaklandi
src.dialogclose d_house_demolish
src.sysmessage @07a1,1,1 Ev onaylı değil.
endif
return 1
[ITEMDEF 0bd1]
//brass sign
DEFNAME=i_sign_brass
TYPE=t_script
CATEGORY=Decoration - Signs
SUBSECTION=Blank
DESCRIPTION=Brass Blank
DUPELIST=0bd2
ON=@Create
//TIMERF 1,TYPE=t_sign_gump
TIMERF 1,TYPE=t_onayla
timerf 1,serv.allclients f_evkurdum <uid>
color=0480
ON=@DClick
//src.dialogkapat
ref35 <link.uid>
foritems 20
if (<region.uid> == <ref35>)
if (<attr>&attr_magic)
if (<type> == t_spell)
if ((<baseid>==i_wall_stone_8) || (<baseid>==i_fx_field_fire_ns) || (<baseid>==i_fx_field_paralyze) || (<baseid>==i_fx_energy_field) || (<baseid>==i_fx_field_fire) || (<baseid>==i_fx_poison_field))
remove
endif
endif
endif
endif
endfor
IF !(<LINK>==04fffffff)
IF (<MORE2>==0)
IF (<SRC.FINDTYPE.t_key.LINK>==<REGION.UID>) || (<link.more1>==<src.uid>)
MORE2=<SRC.UID>
TAG.BUILTON=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>
NAME=<LINK.NAME>
TRY REGION.EVENTS=+r_house_system
TRY UID.<REGION.UID>.MORE2=<UID>
IF (<DEF.HOUSE_DECAY_TIMER> > 0)
TIMER=1296000
src.sysmessage @07a1,1,1 Ev artık sizin, 2 hafta içinde yenilemezseniz silinir.
ELSE
src.sysmessage @07a1,1,1 Ev artık sizin.
ENDIF
TRY UID.<UID.<REGION.UID>.MORE2>.TAG.STORAGE_LIMIT=<eval <AREA>*3>
RESENDTOOLTIP
return 1
ELSE
src.sysmessage @07a1,1,1 Ev size ait değil.
return 1
ENDIF
ELIF (<SRC.ISGM>)
SRC.SDIALOG d_house_information
src.dialogclose d_house_demolish
if !(<TAG0.DEMOLITION_PENDING> >0)
timer 1296000
src.sysmessage @07a1,1,1 Evi Yenilediniz.
ELSE
src.sysmessage @07a1,1,1 Eviniz hatali oldugundan yenileyemezsiniz.
RETURN 1
endif
return 1
ELIF (<ISOWNER <SRC>>) || (<ISCOOWNER <SRC>>) || (<ISFRIEND <SRC>>)
src.sysmessage @07a1,1,1 Hoşgeldin, <SRC.NAME>.
SRC.SDIALOG d_house_information
IF (<DEF.HOUSE_DECAY_TIMER> > 0) && !(<TAG0.DEMOLITION_PENDING>)
TIMER=1296000
ENDIF
IF !(<TAG0.STORAGE_LIMIT>)
TAG.STORAGE_LIMIT=<eval <AREA>*3>
ENDIF
return 1
ENDIF
TAG0.VISITS += 1
SRC.SDIALOG d_house_visitor
src.dialogclose d_house_demolish
return 1
ENDIF
ON=@ClientToolTip
SRC.ADDCLILOC 1042971,Ev Tabelasi
SRC.ADDCLILOC 1061639,<NAME>
SRC.ADDCLILOC 1061640,<UID.<LINK.MORE1>.NAME>
IF !(<TAG0.PUBLIC>)
SRC.ADDCLILOC 1061642
ELSE
SRC.ADDCLILOC 1061641
ENDIF
return 1
ON=@Click
if (<src.account.plevel> > 2)
src.sysmessage @388 onaylayan staff <tag.onaylayanstaff> tarih <serv.rtime>
endif
if !(<link>==04fffffff)
if !(<more2>)
message @020,,1 Onaylanmamış
endif
endif
if (<tag0.builton>)
message @58,,1 Sahip : <UID.<MORE2>.NAME>
endif
messageua 1153,6,6,1 <NAME>
if (<timer> == -1)
timer=1296000
endif
if (<more2>)
local.temp = <timer>
local.day = <dlocal.temp> / 86400
local.temp = <dlocal.temp> - (86400 * <dlocal.day>)
local.hours = <dlocal.temp> / 3600
local.temp = <dlocal.temp> - (3600 * <dlocal.hours>)
local.minutes = <dlocal.temp> / 60
local.seconds = <dlocal.temp> - (60 * <dlocal.minutes>)
src.sysmessage @07a1,1,1 Ev yenilenmezse, silinmesine; <dlocal.day> gün, <dlocal.hours> saat, <dlocal.minutes> dakika, <dlocal.seconds> saniye kalmıştır.
endif
return 1
ON=@Timer
IF (<DEF.HOUSE_DECAY_TIMER> > 0) || (<TAG0.DEMOLITION_PENDING>==1)
TRY UID.<MORE2>.NOTICE=Eviniz yenilenmediği için <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde silindi.
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
TRY UID.<TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE=Ortak oldugunuz '<NAME>' isimli ev <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde silindi
ENDFOR
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
TRY UID.<TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE=Dost olduğunuz '<NAME>' isimli ev <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde silindi
ENDFOR
FOR 1 <DEF.MAX_HOUSE_BANS>
TRY UID.<TAG0.BAN_<dLOCAL._FOR>>.NOTICE=Yasaklı olduğunuz '<NAME>' isimli ev <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde silindi
ENDFOR
LINK.f_house_demolish
LINK.REMOVE
ENDIF
[ITEMDEF 0100e]
DEFNAME=i_key_copper
WEIGHT=0.1
VALUE=150
TYPE=T_KEY
RESOURCES=3 i_ingot_iron
CATEGORY=Provisions - Miscellaneous
SUBSECTION=Keys
DESCRIPTION=Copper Key
SKILLMAKE=TINKERING 43.0,t_tinker_tools
ON=@Click
IF !(<LINK>==04fffffff)
if (<link.type> == t_multi) || (<link.type> == t_ship)
messageua 1153,6,6,1 [<link.name>]
else
remove
src.sysmessage @07a1,1,1 Anahtar geçersiz olduğu için silindi.
endif
endif
messageua 1153,6,6,1 <name>
return 1
ON=@DClick
if !(<src.uid> == <topobj.uid>)
src.sysmessage @07a1,1,1 Çantanızda olmalıdır.
return 1
elseif (<uid.<more>.type> == t_ship) && (<dispid> == i_key_copper)
dispid i_key_iron
update
src.update
endif
if (strmatch('<link.type>','t_multi')) || (strmatch('<link.type>','t_ship'))
if (<more> == 0)
more <more2>
target @1153,,1 Ne üzerinde işlem yapacaksınız ?
return 1
else
target @1153,,1 Ne üzerinde işlem yapacaksınız ?
return 1
endif
return 1
else
IF (<LINK>==04fffffff)
more2=1
target @1153,,1 Kopyalamak istediğiniz anahtarı seçiniz.
return 1
endif
endif
on=@targon_char
return 1
on=@targon_ground
return 1
on=@targon_item // kapının link'inin more1 i evin sahibi. // kapının linki ev //
obj=<src.targ.uid>
if (<uid.<obj.more>.type> == t_ship) && (<uid.<more>.type> == t_ship)
if !(<obj.link> == <more>)
src.sysmessage @07a1,1,1 Bu anahtar bu gemiye ait değil.
return 1
elseif (<obj.link.tag0.vurulduk>)
src.sysmessage @07a1,1,1 Vurulmuş bir gemide anahtarla işlem yapamazsınız.
return 1
endif
if (<obj.type> == t_ship_plank)
obj.type t_ship_side_ed
obj.dclick
obj.type t_ship_side_locked
src.sysmessage @049,,1 Kapıyı kapattınız ve kilitlediniz
return 1
elseif (<obj.type> == t_ship_side_locked)
obj.type t_ship_side
src.sysmessage @049,,1 Kapının kilidini açtınız.
return 1
elseif (<obj.type> == t_ship_side)
obj.type t_ship_side_locked
src.sysmessage @049,,1 Kapıyı kilitlediniz.
return 1
elseif (<obj.type> == t_ship_hold_lock)
obj.type t_ship_hold
src.sysmessage @049,,1 Kasanın kilidini açtınız.
return 1
elseif (<obj.type> == t_ship_hold)
obj.type t_ship_hold_lock
src.sysmessage @049,,1 Kasayı kilitlediniz.
return 1
endif
endif
if (<dmore2>==1)
if !((strmatch('<obj.type>','t_key'))
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
endif
if !((strmatch('<obj.dispid>','i_key_copper')) && !((strmatch('<obj.dispid>','i_key_iron'))
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
endif
more=<obj.more>
link=<obj.link>
attr=04
more2=0 //Ev anahtarı modu aktif /
src.sysmessage @049,,1 Anahtar başarı ile kopyalandı.
return 1
endif
if !((strmatch('<obj.type>','t_door')) || (strmatch('<obj.type>','t_door_locked')) || (strmatch('<obj.type>','t_ship_plank')) || (strmatch('<obj.type>','t_ship_side')) || (strmatch('<obj.type>','t_ship_side_locked')) || (strmatch('<obj.type>','t_ship_hold')) || (strmatch('<obj.type>','t_ship_hold_lock')))
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
endif
if (strmatch('<obj.dispid>','06a6')) || (strmatch('<obj.dispid>','06a8'))
src.sysmessage @07a1,1,1 Öncelikle kapıyı kapatınız.
return 1
endif
if (<src.obj.link.dtag0.halkaacik>==1)
src.sysmessage @07a1,1,1 Halka açık evlerin kapısını kilitleyemezsiniz.
return 1
endif
if ((<obj.more> == <more>) && (<obj.type> == t_door))
src.sysmessage @049,,1 Kapıyı kilitlediniz.
obj.type t_door_locked
return 1
elseif ((<obj.more> == <more>) && (<obj.type> == t_door_locked))
src.sysmessage @049,,1 Kapıyı açtınız.
obj.type t_door
return 1
elseif (<obj.uid> == <uid>)
return 1
else
src.sysmessage @07a1,1,1 Anahtarı bununla kullanamazsınız.
return 1
endif
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_information]
110,35
page 0
//resizepic 0 0 5150 430 450
resizepic 0 10 5150 440 450
//resizepic 10 10 3000 400 100
//resizepic 10 120 3000 400 260
//resizepic 10 390 3000 400 40
button 250 400 4005 4007 1 0 0
dtext 285 400 1152 Kapat
gumppic 16 30 100
gumppic 60 60 33
dhtmlgump 60 43 105 50 0 0 TÜRKİYE // <DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 170 30 55 55 1 0 1
dhtmlgump 195 30 100 20 0 0 <def.bfont_dred>Genel
button 170 50 55 55 1 0 2
dhtmlgump 195 50 100 20 0 0 Güvenlik
button 170 70 55 55 1 0 3
dhtmlgump 195 70 100 20 0 0 Bilgiler
button 170 90 55 55 1 0 4
dhtmlgump 195 90 100 20 0 0 Özellikler
button 170 110 55 55 1 0 5
dhtmlgump 195 110 100 20 0 0 Ev Sahibi
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dhtmlgump 285 390 1152 100 20 0 0 Banka Aç
ENDIF
dhtmlgump 25 150 300 20 0 0 Evin Sahibi: <def.bfont_dred><UID.<SRC.TARG.MORE2>.NAME>
dhtmlgump 25 215 300 20 0 0 Merhaba <def.bfont_dred><src.name>,
dhtmlgump 25 230 300 20 0 0 Ev komutları için evin içinde (' .evkomut ') yazınız.
dhtmlgump 25 245 300 20 0 0 Bu ev modern olarak dizayn edilmiş.
dhtmlgump 25 260 300 20 0 0 Bu ev düzgün inşaa edilmiş.
IF (<SRC.TARG.TAG0.PUBLIC>)
dhtmlgump 25 280 150 20 0 0 <def.bfont_dgreen>Bu ev halka açık.
ELSE
dhtmlgump 25 280 150 20 0 0 <def.bfont_red>Bu ev halka kapalı.
ENDIF
IF (<SRC.TARG.TAG0.DEMOLITION_PENDING>==1)
dtext 25 180 025 Eviniz hatalı bulunmuş.Lütfen evi kaldırınız.Aksi taktirde
dtext 25 195 025 <eval <SRC.TARG.TIMER>/86400> gun <eval (<SRC.TARG.TIMER>%86400)/3600> saat <eval ((<SRC.TARG.TIMER>%86400)%3600)/60> dakika sonra silinecek.
//ELIF (<DEF.HOUSE_DECAY_TIMER> > 0)
// dhtmlgump 20 250 100 20 0 0 Bu ev güncellendi.
//ELSE
// dhtmlgump 20 250 100 20 0 0 Bu ev güncellendi.
ENDIF
dhtmlgump 25 345 150 20 0 0 Evin Kuruluş Tarihi
dhtmlgump 250 345 150 20 0 0 <SRC.TARG.TAG0.BUILTON>
IF (<SRC.TARG.TAG0.LASTTRADED>)
dhtmlgump 25 330 150 20 0 0 Son Devretme Tarihi:
dhtmlgump 250 300 150 20 0 0 <SRC.TARG.TAG0.LASTTRADED>
ENDIF
//dtext 20 330 5 Evin fiyatı :
//dtext 250 330 1152 <SRC.TARG.LINK.VALUE> gp
dhtmlgump 25 360 150 20 0 0 Ziyaretçi sayisi :
dhtmlgump 350 360 150 20 0 0 <dSRC.TARG.TAG0.VISITS>
//button 10 390 4005 4007 1 0 6
//dtext 45 390 1152 Yasakla
//button 10 410 4005 4007 1 0 7
//dtext 45 410 1152 Yasak Kaldır
[DIALOG d_house_information BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
var.evkaldir <targ.uid>
ON=6
if !((<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>))
return 1
endif
if !((<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
return 1
endif
src.sysmessage @07a1,1,1 Kimi kovalım ?
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 5)
SRC.BANKSELF
ELSE
src.sysmessage @07a1,1,1 Çok uzaktasınız.
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_security]
110,35
page 0
//resizepic 0 0 83 430 450
resizepic 0 10 5150 440 450
button 250 400 4005 4007 1 0 0
dtext 285 400 1152 Kapat
gumppic 16 30 100
gumppic 60 60 33
dhtmlgump 60 43 105 50 0 0 TÜRKİYE //<DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
//button 10 390 4005 4007 1 0 6
//dtext 45 390 1152 Yasakla
//button 10 410 4005 4007 0 7 0
//dtext 45 410 1152 Yasak Kaldır
button 170 30 55 55 1 0 1
dhtmlgump 195 30 100 20 0 0 Genel
button 170 50 55 55 1 0 2
dhtmlgump 195 50 100 20 0 0 <def.bfont_dred>Güvenlik
button 170 70 55 55 1 0 3
dhtmlgump 195 70 100 20 0 0 Bilgiler
button 170 90 55 55 1 0 4
dhtmlgump 195 90 100 20 0 0 Özellikler
button 170 110 55 55 1 0 5
dhtmlgump 195 110 100 20 0 0 Ev Sahibi
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Banka Aç
ENDIF
page 1
button 25 130 55 55 0 2 0
dhtmlgump 45 130 150 20 0 0 Ortaklar Listesi
IF (<SRC.TARG.ISOWNER <SRC>>)
button 25 150 55 55 1 0 11
dhtmlgump 45 150 120 20 0 0 Ortak ekle.
button 25 170 55 55 0 3 0
dhtmlgump 45 170 120 20 0 0 Ortak sil.
button 25 190 55 55 1 0 12
dhtmlgump 45 190 120 20 0 0 Tüm ortakları sil.
ELSE
dhtmlgump 45 150 120 20 0 0 <def.bfont_gray>Ortak Ekle
dhtmlgump 45 170 120 20 0 0 <def.bfont_gray>Ortak Sil
dhtmlgump 45 190 120 20 0 0 <def.bfont_gray>Tüm Ortakları Sil
ENDIF
///
IF (<SRC.TARG.ISCOOWNER <SRC>>)
button 210 220 4005 4007 1 0 54
dhtmlgump 245 220 120 20 0 0 Ortaklıktan çık.
endif
IF (<SRC.TARG.ISFRIEND <SRC>>)
button 210 220 4005 4007 1 0 55
dhtmlgump 245 220 120 20 0 0 Dostluktan çık.
endif
///
button 25 220 55 55 0 4 0
dhtmlgump 45 220 150 20 0 0 Dostlar Listesi
IF (<SRC.TARG.ISOWNER <SRC>>) || (<SRC.TARG.ISCOOWNER <SRC>>)
button 25 240 55 55 1 0 21
dhtmlgump 45 240 100 20 0 0 Dost ekle.
button 25 260 55 55 0 5 0
dhtmlgump 45 260 100 20 0 0 Dost sil.
button 25 280 55 55 1 0 22
dhtmlgump 45 280 100 20 0 0 Tüm dostları sil.
ELSE
dhtmlgump 45 240 100 20 0 0 <def.bfont_gray>Dost ekle.
dhtmlgump 45 260 100 20 0 0 <def.bfont_gray>Dost sil.
dhtmlgump 45 280 100 20 0 0 <def.bfont_gray>Tüm dostları sil.
ENDIF
//button 10 310 4005 4007 0 6 0
//dhtmlgump 45 310 150 20 0 0 Yasaklı Listesi
//IF (<SRC.TARG.ISOWNER <SRC>>) || (<SRC.TARG.ISCOOWNER <SRC>>)
// button 10 330 4005 4007 1 0 31
// dhtmlgump 45 330 150 20 0 0 Tüm yasaklıları kaldır.
//ELSE
// dhtmlgump 45 330 150 20 0 0 <def.bfont_gray>Tum yasaklilari kaldir.
//ENDIF
IF (<SRC.TARG.ISOWNER <SRC>>)
IF !(<SRC.TARG.TAG0.PUBLIC>)
dhtmlgump 230 150 150 20 0 0 <def.bfont_black>Evi halka kapat.
dhtmlgump 230 170 150 20 0 0 <def.bfont_red>Evi halka aç.
button 210 170 55 55 1 0 41
ELSE
dhtmlgump 230 150 150 20 0 0 <def.bfont_red>Evi halka kapat.
dhtmlgump 230 170 150 20 0 0 <def.bfont_black>Evi halka aç.
button 210 150 55 55 1 0 41
ENDIF
ELSE
dhtmlgump 230 150 130 20 0 0 <def.bfont_gray>Evi halka kapat.
dhtmlgump 230 170 150 20 0 0 <def.bfont_black>Evi halka aç.
ENDIF
page 2
dtext 159 140 1152 Ortaklar Listesi
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
LOCAL.LIST2 += 20
IF (<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST2>+120> 1152 <UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NAME>
ENDIF
ENDFOR
page 3
dtext 159 130 1152 Ortaklar Listesi
BUTTON 175 360 2463 2464 1 0 51
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
LOCAL.LIST3 += 20
IF (<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST3>+120> 1152 <UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NAME>
DTEXT 345 <eval <LOCAL.LIST3>+120> 1152 Sil
CHECKBOX 320 <eval <LOCAL.LIST3>+120> 210 211 0 <dLOCAL._FOR>
ENDIF
ENDFOR
page 4
dtext 167 140 1152 Dostlar Listesi
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
LOCAL.LIST4 += 20
IF (<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST4>+120> 1152 <UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NAME>
ENDIF
ENDFOR
page 5
dtext 167 130 1152 Dostlar Listesi
BUTTON 175 360 2463 2464 1 0 52
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
LOCAL.LIST5 += 20
IF (<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST5>+120> 1152 <UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NAME>
DTEXT 345 <eval <LOCAL.LIST5>+120> 1152 Sil
CHECKBOX 320 <eval <LOCAL.LIST5>+120> 210 211 0 <dLOCAL._FOR>
ENDIF
ENDFOR
page 6
dtext 178 120 1152 Yasaklı Listesi
FOR 1 <DEF.MAX_HOUSE_BANS>
LOCAL.LIST6 += 20
IF (<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST6>+120> 1152 <UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NAME>
ENDIF
ENDFOR
page 7
dtext 178 120 1152 Yasaklı Listesi
BUTTON 175 360 2463 2464 1 0 53
FOR 1 <DEF.MAX_HOUSE_BANS>
LOCAL.LIST7 += 20
IF (<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>)
DTEXT 20 <eval <LOCAL.LIST7>+120> 1152 <UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NAME>
DTEXT 345 <eval <LOCAL.LIST7>+120> 1152 Sil
CHECKBOX 320 <eval <LOCAL.LIST7>+120> 210 211 0 <dLOCAL._FOR>
ENDIF
ENDFOR
[DIALOG d_house_security BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
var.evkaldir <targ.uid>
ON=6
if !((<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>))
return 1
endif
if !((<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
return 1
endif
src.sysmessage @07a1,1,1 Kimi kovalım ?
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=8
IF (<SRC.TARG.DISTANCE> < 5)
SRC.BANKSELF
ELSE
src.sysmessage @07a1,1,1 Evden çok uzaktasınız.
ENDIF
ON=11
src.sysmessage @07a1,1,1 Ortak etmek istediğiniz kişiyi seçiniz.
SRC.TARGETF f_house_add_coowner <SRC.TARG.UID>
ON=12
SRC.SDIALOG d_house_clear_coowners
ON=21
src.sysmessage @07a1,1,1 Dost etmek istediğiniz kişiyi seçiniz.
SRC.TARGETF f_house_add_friend <SRC.TARG.UID>
ON=22
SRC.DIALOG d_house_clear_friends
ON=31
SRC.DIALOG d_house_clear_bans
ON=41 // bakbak
IF (<SRC.TARG.house_find_vendor>)
src.sysmessage @07a1,1,1 Evinizde vendor var.Evi halka kapatamazsınız.
return 1
endif
IF !(<SRC.TARG.TAG0.PUBLIC>)
SRC.TARG.HOUSE_DECLARE_PUBLIC
ELSE
SRC.TARG.HOUSE_DECLARE_PRIVATE
ENDIF
ON=51
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
IF (<ARGCHK[<dLOCAL._FOR>]>==1)
src.sysmessage @07a1,1,1 Silindi.
TRY UID.<SRC.TARG.TAG.CO_OWNER_<dLOCAL._FOR>>.NOTICE=<SRC.TARG.NAME> isimli evin sahibi sizi ortakliktan atti.[<serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>]
TRYP 0 SRC.TARG.TAG.CO_OWNER_<dLOCAL._FOR>=
ENDIF
ENDFOR
SRC.DIALOG d_house_security 3
ON=52
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
IF (<ARGCHK[<dLOCAL._FOR>]>==1)
src.sysmessage @07a1,1,1 Silindi.
TRY UID.<SRC.TARG.TAG.FRIEND_<dLOCAL._FOR>>.NOTICE=<SRC.TARG.NAME> isimli evin sahibi sizi dostluktan atti.[<serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>]
TRYP 0 SRC.TARG.TAG.FRIEND_<dLOCAL._FOR>=
ENDIF
ENDFOR
SRC.DIALOG d_house_security 5
ON=53
FOR 1 <DEF.MAX_HOUSE_BANS>
IF (<ARGCHK[<dLOCAL._FOR>]>==1)
src.sysmessage @07a1,1,1 Silindi.
TRY UID.<SRC.TARG.TAG.BAN_<dLOCAL._FOR>>.NOTICE=<SRC.TARG.NAME> isimli evin sahibi sizi yasakli listesinden sildi.[<serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>]
TRYP 0 SRC.TARG.TAG.BAN_<dLOCAL._FOR>=
ENDIF
ENDFOR
SRC.DIALOG d_house_security 7
on=54 // ortiden cik
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
obj=<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>
if (<obj>==<src.uid>)
src.sysmessage @07a1,1,1 Ortaklıktan ayrıldınız.
//TRY UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE=<SRC.TARG.NAME> isimli evin sahibi sizi ortakliktan atti.[<serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>]
TRYP 0 SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>=
return 1
endif
endfor
ENDFOR
SRC.DIALOG d_house_security 3
on=55
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
obj=<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>
if (<obj>==<src.uid>)
src.sysmessage @07a1,1,1 Dostluktan ayrıldınız.
// TRY UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE=<SRC.TARG.NAME> isimli evin sahibi sizi dostluktan atti.[<serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>>]
TRYP 0 SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>=
return 1
endif
ENDFOR
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_storage]
110,35
page 0
//resizepic 0 0 83 430 450
resizepic 0 10 5150 440 450
button 280 400 4005 4007 1 0 0
dtext 285 400 1152 Kapat
gumppic 16 30 100
gumppic 60 60 33
dhtmlgump 60 43 105 50 0 0 TÜRKİYE //<DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 170 30 55 55 1 0 1
dhtmlgump 195 30 100 20 0 0 Genel
button 170 50 55 55 1 0 2
dhtmlgump 195 50 100 20 0 0 Güvenlik
button 170 70 55 55 1 0 3
dhtmlgump 195 70 100 20 0 0 <def.bfont_dred>Bilgiler
button 170 90 55 55 1 0 4
dhtmlgump 195 90 100 20 0 0 Özellikler
button 170 110 55 55 1 0 5
dhtmlgump 195 110 100 20 0 0 Ev Sahibi
//button 10 390 4005 4007 1 0 6
//dtext 45 390 1152 Yasakla
//button 10 410 4005 4007 1 0 7
//dtext 45 410 1152 Yasak Kaldır
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Banka Aç
ENDIF
dhtmlgump 123 140 200 20 0 0 <def.bfont_dblue>Ev Güvenlik İstatistikleri
//dtext 10 150 998 Increased Storage
//dtext 310 150 1152 0%
dhtmlgump 25 170 200 20 0 0 Maximum Sabit Eşya
IF (<DEF.USE_GLOBAL_STORAGE>==1)
dhtmlgump 310 170 100 20 0 0 <def.bfont_dred>Sınırsız.
ELSE
dhtmlgump 310 170 100 20 0 0 <def.bfont_dred>Sınırsız.
ENDIF
//dtext 10 190 998 Used by Moving Crate
//dtext 310 190 1152 0
dhtmlgump 25 190 200 20 0 0 Kullanılan Sabit Eşya
dhtmlgump 310 190 200 20 0 0 <def.bfont_dred>Sınırsız.
//dhtmlgump 10 230 200 20 0 0 Güvenli Kasalardaki Eşya Sayısı
//dhtmlgump 310 230 200 20 0 0 <def.bfont_dred><dSRC.TARG.TAG0.SECURE_CONT>
//dhtmlgump 10 250 200 20 0 0 Kalan Güvenli Eşya Limiti
IF (<DEF.USE_GLOBAL_STORAGE>==1)
dhtmlgump 310 250 200 20 0 0 <def.bfont_dred><eval <dDEF.GLOBAL_SECURE_STORAGE> - ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)>
dhtmlgump 310 270 200 20 0 0 <def.bfont_dred><dDEF.GLOBAL_LOCKDOWNS>
dhtmlgump 310 290 200 20 0 0 <def.bfont_dred><eval <dDEF.GLOBAL_LOCKDOWNS>-<dSRC.TARG.TAG0.LOCKED_ITEMS>>
ELSE
//dhtmlgump 310 250 200 20 0 0 <def.bfont_dred><eval <dSRC.TARG.TAG0.STORAGE_LIMIT> - ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)>
//dhtmlgump 310 290 200 20 0 0 <def.bfont_dred><eval <dSRC.TARG.TAG0.STORAGE_LIMIT>/2>
// dhtmlgump 310 270 200 20 0 0 <def.bfont_dred><eval (<dSRC.TARG.TAG0.STORAGE_LIMIT>/2)-<dSRC.TARG.TAG0.LOCKED_ITEMS>>
ENDIF
//dhtmlgump 10 290 200 20 0 0 Maximum Sabitleme
//dhtmlgump 10 270 200 20 0 0 Kalan Sabitleme Limiti
dhtmlgump 25 250 200 20 0 0 Kuluçka Sayısı
dhtmlgump 310 250 200 20 0 0 <def.bfont_dred><dsrc.targ.tag0.ostardegg> / 3
dhtmlgump 25 270 200 20 0 0 Strongbox Sayısı
dhtmlgump 310 270 200 20 0 0 <def.bfont_dred><dsrc.targ.tag0.strongbox> / 3
//dhtmlgump 10 360 200 20 0 0 Vendor Sayısı
//dhtmlgump 310 360 200 20 0 0 <def.bfont_dred><dsrc.targ.tag0.vendorsayisi> / 3
[DIALOG d_house_storage BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
var.evkaldir <targ.uid>
ON=6
if !((<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>))
return 1
endif
if !((<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
return 1
endif
src.sysmessage @07a1,1,1 Kimi Kovalım ?
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 5)
SRC.BANKSELF
ELSE
src.sysmessage @07a1,1,1 Çok uzaktasınız.
ENDIF
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_customize]
110,35
page 0
//resizepic 0 0 83 430 450
resizepic 0 10 5150 440 450
button 250 400 4005 4007 1 0 0
dtext 285 400 1152 Kapat
gumppic 16 30 100
gumppic 60 60 33
dhtmlgump 60 43 105 50 0 0 TÜRKİYE //<DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 170 30 55 55 1 0 1
dhtmlgump 195 30 100 20 0 0 Genel
button 170 50 55 55 1 0 2
dhtmlgump 195 50 100 20 0 0 Güvenlik
button 170 70 55 55 1 0 3
dhtmlgump 195 70 100 20 0 0 Bilgiler
button 170 90 55 55 1 0 4
dhtmlgump 195 90 100 20 0 0 <def.bfont_dred>Özellikler
button 170 110 55 55 1 0 5
dhtmlgump 195 110 100 20 0 0 Ev Sahibi
//button 10 390 4005 4007 1 0 6
//dtext 45 390 1152 Yasakla
//button 10 410 4005 4007 1 0 7
//dtext 45 410 1152 Yasak Kaldır
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Banka Aç
ENDIF
page 1
//dtext 45 120 998 Convert Into Customizable House
//dtext 45 160 998 Customize This House
//dtext 45 180 998 Relocate Moving Crate
//dtext 45 230 998 Change House Sign Hanger
//dtext 45 250 998 Change Signpost
//dtext 45 280 998 Change Foundation Style
IF (<SRC.TARG.ISOWNER <SRC>>)
button 25 150 55 55 0 2 0
dhtmlgump 45 150 120 20 0 0 Tabelayı değiştir.
button 25 170 55 55 1 0 21
dhtmlgump 45 170 120 20 0 0 Evin ismini değiştir.
ELSE
dhtmlgump 45 150 120 20 0 0 <def.bfont_gray>Tabelayi değiştir.
dhtmlgump 45 170 120 20 0 0 <def.bfont_gray>Evin ismini değiştir.
ENDIF
page 2
button 30 360 4005 4007 0 3 0
dtext 70 360 1152 İleri
button 30 130 4005 4007 1 0 30
tilepic 50 130 2980
button 90 130 4005 4007 1 0 31
tilepic 110 130 2982
button 150 130 4005 4007 1 0 32
tilepic 170 130 2984
button 210 130 4005 4007 1 0 33
tilepic 230 130 2986
button 270 130 4005 4007 1 0 34
tilepic 290 130 2988
button 330 130 4005 4007 1 0 35
tilepic 350 130 2990
button 30 190 4005 4007 1 0 36
tilepic 50 190 2992
button 90 190 4005 4007 1 0 37
tilepic 110 190 2994
button 150 190 4005 4007 1 0 38
tilepic 170 190 2996
button 210 190 4005 4007 1 0 39
tilepic 230 190 2998
button 270 190 4005 4007 1 0 40
tilepic 290 190 3000
button 330 190 4005 4007 1 0 41
tilepic 350 190 3002
button 30 250 4005 4007 1 0 42
tilepic 50 250 3004
button 90 250 4005 4007 1 0 43
tilepic 110 250 3006
button 150 250 4005 4007 1 0 44
tilepic 170 250 3008
button 210 250 4005 4007 1 0 45
tilepic 230 250 3010
button 270 250 4005 4007 1 0 46
tilepic 290 250 3012
button 330 250 4005 4007 1 0 47
tilepic 350 250 3014
page 3
button 10 360 4005 4007 0 4 0
button 30 130 4005 4007 1 0 48
tilepic 50 130 3016
button 90 130 4005 4007 1 0 49
tilepic 110 130 3018
button 150 130 4005 4007 1 0 50
tilepic 170 130 3020
button 210 130 4005 4007 1 0 51
tilepic 230 130 3022
button 270 130 4005 4007 1 0 52
tilepic 290 130 3024
button 330 130 4005 4007 1 0 53
tilepic 350 130 3026
button 30 190 4005 4007 1 0 54
tilepic 50 190 3028
button 90 190 4005 4007 1 0 55
tilepic 110 190 3030
button 150 190 4005 4007 1 0 56
tilepic 170 190 3032
button 210 190 4005 4007 1 0 57
tilepic 230 190 3034
button 270 190 4005 4007 1 0 58
tilepic 290 190 3036
button 330 190 4005 4007 1 0 59
tilepic 350 190 3038
button 30 250 4005 4007 1 0 60
tilepic 50 250 3040
button 90 250 4005 4007 1 0 61
tilepic 110 250 3042
button 150 250 4005 4007 1 0 62
tilepic 170 250 3044
button 210 250 4005 4007 1 0 63
tilepic 230 250 3046
button 270 250 4005 4007 1 0 64
tilepic 290 250 3048
button 330 250 4005 4007 1 0 65
tilepic 350 250 3050
page 4
button 10 360 4005 4007 0 2 0
button 30 130 4005 4007 1 0 66
tilepic 50 130 3052
button 90 130 4005 4007 1 0 67
tilepic 110 130 3054
button 150 130 4005 4007 1 0 68
tilepic 170 130 3056
button 210 130 4005 4007 1 0 69
tilepic 230 130 3058
button 270 130 4005 4007 1 0 70
tilepic 290 130 3060
button 330 130 4005 4007 1 0 71
tilepic 350 130 3062
button 30 190 4005 4007 1 0 72
tilepic 50 190 3064
button 90 190 4005 4007 1 0 73
tilepic 110 190 3066
button 150 190 4005 4007 1 0 74
tilepic 170 190 3068
button 210 190 4005 4007 1 0 75
tilepic 230 190 3070
button 270 190 4005 4007 1 0 76
tilepic 290 190 3072
button 330 190 4005 4007 1 0 77
tilepic 350 190 3074
button 30 250 4005 4007 1 0 78
tilepic 50 250 3076
button 90 250 4005 4007 1 0 79
tilepic 110 250 3078
button 150 250 4005 4007 1 0 80
tilepic 170 250 3080
button 210 250 4005 4007 1 0 81
tilepic 230 250 3082
button 270 250 4005 4007 1 0 82
tilepic 290 250 3084
button 330 250 4005 4007 1 0 83
tilepic 350 250 3086
[DIALOG d_house_customize BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
var.evkaldir <targ.uid>
ON=6
if !((<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>))
return 1
endif
if !((<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
return 1
endif
src.sysmessage @07a1,1,1 Kimi Kovalım ?
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 15)
SRC.BANKSELF
ELSE
src.sysmessage @07a1,1,1 Çok uzaktasınız.
ENDIF
ON=21
src.sysmessage @07a1,1,1 Ev ismi değişmemektedir.
ON=30 83
LOCAL.SIGN=2980
IF (<ARGN1>==80)
LOCAL.SIGN += 100
ELIF (<ARGN1> > 80)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+50
ELIF (<ARGN1>==70)
LOCAL.SIGN += 80
ELIF (<ARGN1> > 70)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+40
ELIF (<ARGN1>==60)
LOCAL.SIGN += 60
ELIF (<ARGN1> > 60)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+30
ELIF (<ARGN1>==50)
LOCAL.SIGN += 40
ELIF (<ARGN1> > 50)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+20
ELIF (<ARGN1>==40)
LOCAL.SIGN += 20
ELIF (<ARGN1> > 40)
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>+10
ELSE
LOCAL.SIGN += 2*<STRSUB 1 1 <ARGN1>>
ENDIF
TARG.DISPID=<dLOCAL.SIGN>
TARG.UPDATE
SRC.DIALOG d_house_customize
//////////////////////////////////////////////////////////////////////////////////
[DIALOG d_house_ownership]
110,35
page 0
//resizepic 0 0 83 430 450
resizepic 0 10 5150 440 450
button 250 400 4005 4007 1 0 0
dtext 285 400 1152 Kapat
gumppic 16 30 100
gumppic 60 60 33
dhtmlgump 60 43 105 50 0 0 TÜRKİYE //<DEF.CENTER><SRC.TARG.NAME><DEF.CENTERE>
button 170 30 55 55 1 0 1
dhtmlgump 195 30 100 20 0 0 Genel
button 170 50 55 55 1 0 2
dhtmlgump 195 50 100 20 0 0 Güvenlik
button 170 70 55 55 1 0 3
dhtmlgump 195 70 100 20 0 0 Bilgiler
button 170 90 55 55 1 0 4
dhtmlgump 195 90 100 20 0 0 Özellikler
button 170 110 55 55 1 0 5
dhtmlgump 195 110 100 20 0 0 <def.bfont_dred>Ev Sahibi
//button 10 390 4005 4007 1 0 6
//dtext 45 390 1152 Yasakla
//button 10 410 4005 4007 1 0 7
//dtext 45 410 1152 Yasak Kaldır
IF (<DEF.PLAYER_CAN_USE_BANK>==1)
button 250 390 4005 4007 1 0 8
dtext 285 390 1152 Banka Aç
ENDIF
IF (<SRC.TARG.ISOWNER <SRC>>)
button 25 150 55 55 1 0 21
dhtmlgump 45 150 120 20 0 0 Evi kaldır.
button 25 170 55 55 1 0 22
dhtmlgump 45 170 120 20 0 0 Evi devret.
ELSE
dhtmlgump 45 150 120 20 0 0 <def.bfont_gray>Evi Kaldır
dhtmlgump 45 170 120 20 0 0 <def.bfont_gray>Evi Devret
ENDIF
//dtext 45 190 998 Make Primary
IF (<SRC.ISGM>)
dhtmlgump 135 240 350 20 0 0 <def.bfont_red><serv.name> Yetkili Onayı
IF (<SRC.TARG.TAG0.DEMOLITION_PENDING>==1)
dhtmlgump 45 280 350 20 0 0 <def.bfont_red>Hatalı Ev
button 25 300 55 55 1 0 32
dhtmlgump 45 300 350 20 0 0 <def.bfont_dgreen>Onayla
ELSE
button 25 280 55 55 1 0 31
dhtmlgump 45 280 350 20 0 0 <def.bfont_red>Hatalı Ev
dhtmlgump 45 300 350 20 0 0 <def.bfont_dgreen>Onayla
ENDIF
ENDIF
[DIALOG d_house_ownership BUTTON]
ON=1
SRC.DIALOG d_house_information
ON=2
SRC.DIALOG d_house_security
ON=3
SRC.DIALOG d_house_storage
ON=4
SRC.DIALOG d_house_customize
ON=5
SRC.DIALOG d_house_ownership
var.evkaldir <targ.uid>
ON=6
if !((<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>))
return 1
endif
if !((<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
return 1
endif
src.sysmessage @07a1,1,1 Kimi kovalım ?
SRC.TARGETF f_house_banish <SRC.TARG.UID>
ON=7
SRC.DIALOG d_house_security 7
ON=8
IF (<SRC.TARG.DISTANCE> < 15)
SRC.BANKSELF
ELSE
src.sysmessage @07a1,1,1 Çok uzaktasınız.
ENDIF
ON=21
IF (<SRC.REGION.UID>==<SRC.TARG.LINK>)
src.sysmessage @07a1,1,1 Evin dışında olmalısın.
ELIF (<SRC.TARG.house_find_guild>)
src.sysmessage @07a1,1,1 Evde guild varken kaldıramazsın.
ELIF (<SRC.TARG.house_find_vendor>)
src.sysmessage @07a1,1,1 Evde vendor varken kaldıramazsın.
ELSE
SRC.SDIALOG d_house_demolish
ENDIF
ON=22
src.sysmessage @07a1,,1 Ev devretme islemi iptal edilmistir.
ON=31
src.sysmessage @07a1,1,1 Evi hatalı olarak işaretledin. 2 gün içinde sahibi kaldırmazsa ev silinecek.
SRC.TARG.TIMER=172800
SRC.TARG.TAG.DEMOLITION_PENDING=2
src.targ.color 025
SRC.SDIALOG d_house_ownership
var.evkaldir <targ.uid>
TRY UID.<SRC.TARG.MORE2>.NOTICE=Eviniz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> hatalı olarak işaretlendi. Evi kaldırmazsaniz 2 gün içinde silinecek.
ON=32
src.sysmessage @07a1,1,1 Evi onayladınız.
SRC.TARG.TAG.DEMOLITION_PENDING=
src.targ.color 0
SRC.SDIALOG d_house_ownership
var.evkaldir <targ.uid>
TRY UID.<SRC.TARG.MORE2>.NOTICE=Eviniz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tekrar onaylandi...
IF (<DEF.HOUSE_DECAY_TIMER> > 0)
SRC.TARG.TIMER=1296000
ELSE
SRC.TARG.TIMER=-1
ENDIF
[FUNCTION house_find_guild]
LOCAL.REGION=<REGION.UID>
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>)
IF (<TYPE>==t_stone_guild)
if (<src.isevent.e_harac>)
return <uid>
else
return 1
endif
ENDIF
ENDIF
ENDFOR
return 0
[FUNCTION house_find_vendor]
LOCAL.REGION=<REGION.UID>
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>)
if (<dtag0.vendorsayisi> >= 1)
src.sysmessage @07a1,1,1 Evinizde çalışan vendorlar olduğu sürece özel hale getiremezsiniz.
return 1
ENDIF
ENDIF
ENDFOR
return 0
[DIALOG d_house_visitor]
200,200
//resizepic 0 0 83 298 160
resizepic 5 5 5150 288 150
dhtmlgump 50 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
obj=<src.targ.LINK.MORE1>
dhtmlgump 30 50 130 20 0 0 <def.bfont_red>Sahibi : <def.bfont_dgreen><obj.name>
dhtmlgump 30 70 105 20 0 0 <def.bfont_red>Ev : <def.bfont_dgreen><src.targ.NAME>
dhtmlgump 30 90 350 20 0 0 <def.bfont_red>Silinmesine : <def.bfont_dgreen><eval <SRC.TARG.TIMER>/86400> gun <eval (<SRC.TARG.TIMER>%86400)/3600> saat <eval ((<SRC.TARG.TIMER>%86400)%3600)/60> dakika
[DIALOG d_house_type]
10,10
noclose
page 0
//resizepic 0 0 89 270 90
resizepic 5 5 5150 260 80
button 50 30 55 55 1 0 1
page 1
dhtmlgump 70 30 350 20 0 0 <def.bfont_dgreen>Ev şuanda halka açıldı.
page 2
dhtmlgump 70 30 350 20 0 0 <def.bfont_dgreen>Ev şuanda halka kapatıldı.
[DIALOG d_house_type BUTTON]
ON=1
SRC.SDIALOG d_house_security
[DIALOG d_house_clear_coowners]
110,100
noclose
//resizepic 0 0 83 310 180
resizepic 5 5 5150 300 170
dhtmlgump 56 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 30 55 400 20 0 0 <def.bfont_red>Tüm ortakları silecekmisiniz?
button 30 85 55 55 1 0 1
dhtmlgump 50 85 100 20 0 0 <def.bfont_dgreen>Evet
button 30 105 55 55 1 0 0
dhtmlgump 50 105 100 20 0 0 <def.bfont_red>Hayır
[DIALOG d_house_clear_coowners BUTTON]
ON=0
SRC.SDIALOG d_house_security
ON=1
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
TRY UID.<SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>>.NOTICE='<SRC.TARG.NAME>' isimli evdeki ortaklığınız <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde son buldu.
TRYP 0 SRC.TARG.TAG0.CO_OWNER_<dLOCAL._FOR>=
ENDFOR
SRC.SDIALOG d_house_security
src.sysmessage @07a1,1,1 Tüm ortaklar silindi.
[DIALOG d_house_clear_friends]
110,100
noclose
//resizepic 0 0 83 310 180
resizepic 5 5 5150 300 170
dhtmlgump 56 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 30 55 400 20 0 0 <def.bfont_red>Tüm dostları silecekmisiniz?
button 30 85 55 55 1 0 1
dhtmlgump 50 85 100 20 0 0 <def.bfont_dgreen>Evet
button 30 105 55 55 1 0 0
dhtmlgump 50 105 100 20 0 0 <def.bfont_red>Hayır
[DIALOG d_house_clear_friends BUTTON]
ON=0
SRC.SDIALOG d_house_security
ON=1
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
TRY UID.<SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>>.NOTICE='<SRC.TARG.NAME>' isimli evdeki dostluğunuz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde son buldu.
TRYP 0 SRC.TARG.TAG0.FRIEND_<dLOCAL._FOR>=
ENDFOR
SRC.SDIALOG d_house_security
src.sysmessage @07a1,1,1 Tüm dostlar silindi.
[DIALOG d_house_clear_bans]
110,100
noclose
//resizepic 0 0 83 310 180
resizepic 5 5 5150 300 170
dhtmlgump 56 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 30 55 400 20 0 0 <def.bfont_red>Tüm yasaklıları silecekmisiniz?
button 30 85 55 55 1 0 1
dhtmlgump 50 85 100 20 0 0 <def.bfont_dgreen>Evet
button 30 105 55 55 1 0 0
dhtmlgump 50 105 100 20 0 0 <def.bfont_red>Hayır
[DIALOG d_house_clear_bans BUTTON]
ON=0
SRC.SDIALOG d_house_security
ON=1
FOR 1 <DEF.MAX_HOUSE_BANS>
TRY UID.<SRC.TARG.TAG0.BAN_<dLOCAL._FOR>>.NOTICE='<SRC.TARG.NAME>' isimli evdeki yasaklı durumunuz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %Y> <strsub 11 0 <serv.rtime>> tarihinde son buldu.
TRYP 0 SRC.TARG.TAG0.BAN_<dLOCAL._FOR>=
ENDFOR
SRC.SDIALOG d_house_security
src.sysmessage @07a1,1,1 Tüm yasaklılar silindi.
[DIALOG d_house_demolish]
110,100
noclose
//resizepic 0 0 83 430 215
resizepic 5 5 5150 450 205
dhtmlgump 108 30 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 30 50 400 60 0 1 <def.bfont_dred>Evinizi kaldırmak istiyor musunuz?<def.bfont_black><def.br>Evinizdeki tüm sabit veya sabit olmayan eşyalar silinecektir.<def.br>Tüm bunları bilerek kabul ediyor musunuz?
button 30 120 55 55 1 0 1
dhtmlgump 50 120 100 20 0 0 <def.bfont_dgreen>Evet
button 30 140 55 55 1 0 0
dhtmlgump 50 140 100 20 0 0 <def.bfont_red>Hayır
[DIALOG d_house_demolish BUTTON]
ON=0
src.dialogclose d_house_security
src.dialogclose d_house_storage
src.dialogclose d_house_customize
src.dialogclose d_house_visitor
src.dialogclose d_house_ownership
src.dialogclose d_house_type
src.dialogclose d_house_clear_coowners
src.dialogclose d_house_clear_friends
src.dialogclose d_house_clear_bans
src.dialogclose d_house_demolish
src.dialogclose d_house_access
src.dialogclose d_notice
ON=1
IF (<SRC.REGION.UID>==<UID.<var.evkaldir>.LINK>)
src.sysmessage @07a1,1,1 Evin dışına çıkınız.
ELIF (<UID.<var.evkaldir>.house_find_guild>)
src.sysmessage @07a1,1,1 Evinizde guildstone kurulu olduğu için kaldırılamadı.Yetkililere page atınız.
ELSE
IF (<UID.<var.evkaldir>.DISTANCE> < 3)
IF (<DEF.HOUSE_USE_DEEDS>==1)
SERV.NEWITEM i_deed_<STRSUB 8 30 <TARG.LINK.BASEID>>
NEW.BOUNCE
ELSE
SRC.addgold_bank <SRC.TARG.LINK.VALUE>
src.sysmessage @07a1,1,1 <SRC.<var.evkaldir>.LINK.VALUE> gp bankanıza aktarıldı.
endif
TRY UID.<var.evkaldir>.LINK.f_house_demolish
src.sysmessage @07a1,,1 <name>
TRY UID.<var.evkaldir>.link.remove
ELSE
src.sysmessage @07a1,1,1 Uzaktasınız.
ENDIF
ENDIF
[FUNCTION f_house_demolish]
LOCAL.REGION=<REGION.UID>
FORCHARS 40
IF (<REGION.UID>==<LOCAL.REGION>)
P=<UID.<UID.<LOCAL.REGION>.MORE2>.P>
FIX
UPDATE
ENDIF
ENDFOR
FORPLAYERS 40
IF (<REGION.UID>==<LOCAL.REGION>)
P=<UID.<UID.<LOCAL.REGION>.MORE2>.P>
FIX
UPDATE
ENDIF
ENDFOR
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>)
TIMER=<eval <SERV.DecayTimer>*60>
IF (<ISEVENT.t_locked_down>) || (<ISEVENT.t_access_owner>) || (<ISEVENT.t_access_coowner>) || (<ISEVENT.t_access_friend>) || (<ISEVENT.t_access_guild>)
LINK=0fffffff
ATTR=<ATTR>-attr_move_never
attr=<ATTR>+attr_decay
EVENTS -t_locked_down
EVENTS -t_access_owner
EVENTS -t_access_coowner
EVENTS -t_access_friend
EVENTS -t_access_guild
UPDATE
elseif (strmatch('<baseid>','i_strong_box')) || (strmatch('<baseid>','i_ostard_egg_kulucka'))
remove
ELSE
ATTR=<ATTR>|attr_decay
ENDIF
ENDIF
ENDFOR
FORITEMS 40
IF (<REGION.UID>==<LOCAL.REGION>)
remove
endif
endfor
[DIALOG d_house_access]
50,50
src.ctag.house_access=<ARGN1> //asd
page 0
//resizepic 0 0 5120 220 220
resizepic 0 10 5150 200 200
dhtmlgump 10 10 200 20 0 0 <DEF.BFONT_dred><DEF.CENTER>Güvenlik Ayarları<DEF.CENTERE>
dtext 15 40 1152 Sahip: <UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE1>.NAME>
IF (<UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.ISOWNER <SRC>>)
button 10 70 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_owner>)? 4006 4007:4005 4007> 1 0 1
dhtmlgump 55 70 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_owner>)? <def.bfont_dred>:<def.bfont_black>>Ev Sahibi
ENDIF
button 20 90 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_coowner>)? 4006 4007:4005 4007> 1 0 2
dhtmlgump 60 90 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_coowner>)? <def.bfont_dred>:<def.bfont_black>>Ortaklar
button 20 110 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_friend>)? 4006 4007:4005 4007> 1 0 3
dhtmlgump 60 110 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_friend>)? <def.bfont_dred>:<def.bfont_black>>Dostlar
//IF (<UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE1>.GUILD>)
//IF (<UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.ISOWNER <SRC>>)
// button 10 130 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_guild>)? 4006 4007:4005 4007> 1 0 4
//dhtmlgump 45 130 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_access_guild>)? <def.bfont_dred>:<def.bfont_black>>Guild Üyeleri
//ENDIF
//ENDIF
button 20 150 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_locked_down>)? 4006 4007:4005 4007> 1 0 5
dhtmlgump 60 150 200 20 0 0 <QVAL (<UID.<SRC.CTAG0.HOUSE_ACCESS>.ISEVENT.t_locked_down>)? <def.bfont_dred>:<def.bfont_black>>Herkes
[DIALOG d_house_access BUTTON]
ON=1
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
//TRY REF1.LINK=<REF1.REGION.UID>
ELSE
src.sysmessage @07a1,1,1 Kasa limiti dolu.
return 1
ENDIF
ENDIF
TRY REF1.EVENTS +t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.EVENTS -t_locked_down
try ref1.attr <ref1.attr>|attr_move_never
TRY REF1.TIMER=-1
TRY REF1.UPDATE
src.sysmessage @07a1,1,1 Ev sahibi için ayarlandı.
ON=2
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
//TRY REF1.LINK=<REF1.REGION.UID>
ELSE
src.sysmessage @07a1,1,1 Güvenli kasa limiti dolu.
return 1
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS +t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.EVENTS -t_locked_down
TRY REF1.TIMER=-1
TRY REF1.UPDATE
src.sysmessage @07a1,1,1 Ortaklar için ayarlandı.
ON=3
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
//TRY REF1.LINK=<REF1.REGION.UID>
ELSE
src.sysmessage @07a1,1,1 Güvenli kasa limiti dolu.
return 1
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS +t_access_friend
TRY REF1.EVENTS -t_access_guild
TRY REF1.EVENTS -t_locked_down
try ref1.attr <ref1.attr>|attr_move_never
TRY REF1.TIMER=-1
TRY REF1.UPDATE
src.sysmessage @07a1,1,1 Dostlar için ayarlandı.
ON=4
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.ATTR> & attr_move_never)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
TRY REF2.TAG0.LOCKED_ITEMS = <eval <REF2.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <REF2.TAG0.SECURE_CONT>+<REF1.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
//TRY REF1.LINK=<REF1.REGION.UID>
ELSE
src.sysmessage @07a1,1,1 Güvenli kasa limiti dolu.
return 1
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS +t_access_guild
TRY REF1.EVENTS -t_locked_down
try ref1.attr <ref1.attr>|attr_move_never
TRY REF1.TIMER=-1
TRY REF1.UPDATE
src.sysmessage @07a1,1,1 Guild üyeleri için ayarlandı.
ON=5
REF1=<SRC.CTAG0.HOUSE_ACCESS>
REF2=<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>
IF !(<REF1.TYPE>==t_door_locked)
IF (<REF1.ATTR> & attr_move_never)
TRY REF1.LINK=0fffffff
TRY REF1.SAY=(sabitlendi)
TRY REF1.EVENTS +t_locked_down
ELSE
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<REF2.TAG0.LOCKED_ITEMS> < <def.GLOBAL_LOCKDOWNS>)) || (<REF2.TAG0.LOCKED_ITEMS> < <eval <REF2.TAG0.STORAGE_LIMIT>/2>)
TRY REF2.TAG0.LOCKED_ITEMS = <eval <UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>+1>
TRY REF2.TAG0.SECURE_CONT = <eval <UID.<UID.<UID.<SRC.CTAG0.HOUSE_ACCESS>.REGION.UID>.MORE2>.TAG0.SECURE_CONT>+<UID.<SRC.CTAG0.HOUSE_ACCESS>.RESCOUNT>>
TRY REF1.ATTR=<REF1.ATTR>+attr_move_never
TRY REF1.ATTR=<REF1.ATTR>-attr_decay
//TRY REF1.LINK=<REF1.REGION.UID>
TRY REF1.EVENTS +t_locked_down
ELSE
src.sysmessage @07a1,1,1 Güvenli kasa limiti dolu.
return 1
ENDIF
ENDIF
ENDIF
TRY REF1.EVENTS -t_access_owner
TRY REF1.EVENTS -t_access_coowner
TRY REF1.EVENTS -t_access_friend
TRY REF1.EVENTS -t_access_guild
try ref1.attr <ref1.attr>|attr_move_never
TRY REF1.TIMER=-1
TRY REF1.UPDATE
src.sysmessage @07a1,1,1 Herkese açık duruma getirildi.
[FUNCTION isowner]
IF ((<DEF.ACCOUNT_OWNERSHIP>==1) && !STRCMP("<UID.<MORE2>.ACCOUNT>","<UID.<ARGS>.ACCOUNT>")) || (<MORE2>==<ARGS>) || (<UID.<ARGS>.account.plevel> > 4)
return 1
ENDIF
return 0
[FUNCTION iscoowner]
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
IF (<TAG0.CO_OWNER_<dLOCAL._FOR>>==<ARGS>)
return 1
ENDIF
ENDFOR
return 0
[FUNCTION isfriend]
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
IF (<TAG0.FRIEND_<dLOCAL._FOR>>==<ARGS>)
return 1
ENDIF
ENDFOR
return 0
[FUNCTION isbanned]
FOR 1 <DEF.MAX_HOUSE_BANS>
IF (<TAG0.BAN_<dLOCAL._FOR>>==<ARGS>)
return 1
ENDIF
ENDFOR
return 0
[FUNCTION house_declare_public]
FORITEMS 40
IF (<REGION.UID>==<SRC.TARG.REGION.UID>)
IF (<TYPE>==t_door_locked)
TYPE=t_door
EVENTS -t_access_owner
EVENTS -t_access_coowner
EVENTS -t_access_friend
EVENTS -t_access_guild
ENDIF
IF (<TYPE>==t_multi)
//say halka acik
tag.halkaacik=1
endif
ENDIF
SRC.sDIALOG d_house_type 1
ENDFOR
TAG.PUBLIC=1
RESENDTOOLTIP
[FUNCTION house_declare_private]
FORITEMS 40
IF (<REGION.UID>==<SRC.TARG.REGION.UID>)
if ((<tag0.vendor1>) || (<tag0.vendor2>) || (<tag0.vendor3>))
src.sysmessage @07a1,1,1 Evinizde çalışan vendorlar olduğu sürece özel duruma getiremezsiniz.
return 1
else
IF (<TYPE>==t_door)
TYPE=t_door_locked
ENDIF
IF (<TYPE>==t_multi)
//say halka kapali
tag.halkaacik=
endif
SRC.sDIALOG d_house_type 2
ENDIF
TAG.PUBLIC=
endif
ENDFOR
RESENDTOOLTIP
[FUNCTION f_house_add_coowner]
IF (<ARGO.ISPLAYER>)
IF (<UID.<ARGS>.ISOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Seçilen kişi zaten ev sahibi.
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Seçilen kişi zaten ortaklar listesinde.
RETURN 1
ELIF !(<argo.region.uid> == <uid.<args>.region.uid>)
src.sysmessage @07a1,1,1 Kişi evde değil.
return 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
src.sysmessage @07a1,1,1 Seçilen kişi zaten dostlar listesinde.
RETURN 1
ENDIF
FOR 1 <DEF.MAX_HOUSE_COOWNERS>
IF !(<UID.<ARGS>.TAG0.CO_OWNER_<dLOCAL._FOR>>)
src.sysmessage @07a1,1,1 <argo.name> isimli kişiye ev için ortaklık teklifi yollandı.
TRY UID.<ARGO>.CTAG.evlocal_for <dlocal._for>
TRYSRC <argo.uid> dialogclose d_house_ortak_teklif
TRYSRC <argo.uid> dialog d_house_ortak_teklif
RETURN 1
ENDIF
ENDFOR
src.sysmessage @07a1,1,1 Ortak limiti dolu.[Max. <dDEF.MAX_HOUSE_COOWNERS>]
RETURN 1
ELSE
src.sysmessage @07a1,1,1 Hatalı seçim.
ENDIF
[FUNCTION f_house_add_friend]
IF (<ARGO.ISPLAYER>)
IF (<UID.<ARGS>.ISOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Seçilen kişi zaten ev sahibi.
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Seçilen kişi zaten ortaklar listesinde.
RETURN 1
ELIF !(<argo.region.uid> == <uid.<args>.region.uid>)
src.sysmessage @07a1,1,1 Kişi evde değil.
return 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
src.sysmessage @07a1,1,1 Seçilen kişi zaten dostlar listesinde.
RETURN 1
ENDIF
FOR 1 <DEF.MAX_HOUSE_FRIENDS>
IF !(<UID.<ARGS>.TAG0.FRIEND_<dLOCAL._FOR>>)
src.sysmessage @07a1,1,1 <argo.name> isimli kişiye ev için dostluk teklifi yollandı.
TRY UID.<ARGO>.CTAG.evlocal_for <dlocal._for>
TRYSRC <argo.uid> dialogclose d_house_dost_teklif
TRYSRC <argo.uid> dialog d_house_dost_teklif
RETURN 1
ENDIF
ENDFOR
src.sysmessage @07a1,1,1 Dost limiti dolu.[Max. <dDEF.MAX_HOUSE_FRIENDS>]
RETURN 1
ELSE
src.sysmessage @07a1,1,1 Hatalı seçim.
ENDIF
[FUNCTION f_house_banish]
IF (<ARGO.isitem>)
return 1
endif
IF (<SRC.REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 Ev içinde değilsin.
return 1
endif
IF (<ARGO.ISPLAYER>) || (<ARGO.npc>)
IF (<ARGO.UID>==<SRC.UID>)
src.sysmessage @07a1,1,1 Kendinizi yasaklayamazsınız.
RETURN 1
ELIF (<UID.<ARGS>.ISBANNED <ARGO>>)
src.sysmessage @07a1,1,1 <ARGO.NAME> zaten yasaklı.
RETURN 1
if (<argo.isplayer>)
ELIF (<argo.account.plevel> > 1)
src.sysmessage @07a1,1,1 Yetkilileri evden atamazsın
RETURN 1
endif
ELIF (<UID.<ARGS>.ISOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Ev sahibini yasaklayamazsın.
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Ortaklari yasaklayamazsın.
RETURN 1
if !(<uid.<args>.isowner <src>)
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
src.sysmessage @07a1,1,1 Dostlari yasaklayamazsın.
RETURN 1
endif
ENDIF
FOR 1 <DEF.MAX_HOUSE_BANS>
IF !(<UID.<ARGS>.TAG0.BAN_<dLOCAL._FOR>>)
TRY UID.<ARGS>.TAG.BAN_<dLOCAL._FOR>=<ARGO.UID>
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
TRY UID.<ARGO.UID>.GO=<UID.<ARGS>.P.X>,<eval <UID.<ARGS>.P.Y>+1>,<UID.<ARGS>.P.Z>,<UID.<ARGS>.P.M>
IF (<ARGO.CANMOVE S>)
TRY UID.<ARGO.UID>.MOVE S
ENDIF
TRY UID.<ARGO.UID>.UPDATE
ENDIF
src.sysmessage @07a1,1,1 Giriş yasaklandı : <ARGO.NAME>
IF (<ARGO.ISPLAYER>)
TRY UID.<ARGO>.sysmessage @07a1,1,1 Eve girişin yasaklandı.
endif
RETURN 1
ENDIF
ENDFOR
src.sysmessage @07a1,1,1 Yasaklı Limiti dolu. [Max. <dDEF.MAX_HOUSE_BANS>]
RETURN 1
ELSE
src.sysmessage @07a1,1,1 Geçersiz istek.
ENDIF
[FUNCTION f_house_eject2]
IF (<SRC.REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 Ev içerisinde değilsin.
return 1
endif
IF (<ISPLAYER>)
IF (<REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 <NAME> evde değil.
RETURN 1
ELIF (<UID>==<SRC.UID>)
src.sysmessage @07a1,1,1 Kendini atamazsın.
ENDIF
ref73 <region.uid>
TRY UID.<UID>.GO=<UID.<ARGS>.P>
TRY UID.<UID>.FIX
src.events +e_ibantheeyok
src.timerf 1,events -e_ibantheeyok
RETURN 1
elseIF (<npc>)
IF (<REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 <NAME> evde değil.
RETURN 1
endif
ref73 <region.uid>
TRY UID.<UID>.GO=<UID.<ARGS>.P>
TRY UID.<UID>.FIX
RETURN 1
ELSE
src.sysmessage @07a1,1,1 Hatalı seçim.
ENDIF
[FUNCTION f_house_eject]
IF (<ARGO.isitem>)
return 1
endif
IF (<SRC.REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 Ev içerisinde değilsin.
return 1
endif
IF (<ARGO.ISPLAYER>)
IF (<ARGO.REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 <ARGO.NAME> evde değil.
RETURN 1
ELIF (<ARGO.UID>==<SRC.UID>)
src.sysmessage @07a1,1,1 Kendini atamazsın.
RETURN 1
ELIF (<argo.account.plevel> > 1)
src.sysmessage @07a1,1,1 Yetkilileri evden atamazsın.
RETURN 1
ELIF (<UID.<ARGS>.ISOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Ev sahibini atamazsın.
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <ARGO>>)
src.sysmessage @07a1,1,1 Ortakları atamazsın.
RETURN 1
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
src.sysmessage @07a1,1,1 Ortakları atamazsın.
RETURN 1
if !(<uid.<args>.isowner <src>)
ELIF (<UID.<ARGS>.ISFRIEND <ARGO>>)
src.sysmessage @07a1,1,1 Dostları atamazsın.
RETURN 1
endif
ENDIF
ref73 <region.uid>
TRY UID.<ARGO.UID>.GO=<UID.<ARGS>.P>
TRY UID.<ARGO.UID>.FIX
src.events +e_ibantheeyok
src.timerf 1,events -e_ibantheeyok
RETURN 1
elseIF (<ARGO.npc>)
IF (<ARGO.REGION.UID>!=<UID.<ARGS>.REGION.UID>)
src.sysmessage @07a1,1,1 <ARGO.NAME> evde değil.
RETURN 1
endif
ref73 <region.uid>
TRY UID.<ARGO.UID>.GO=<UID.<ARGS>.P>
TRY UID.<ARGO.UID>.FIX
RETURN 1
ELSE
src.sysmessage @07a1,1,1 Hatalı seçim.
ENDIF
[FUNCTION f_house_lock]
IF (<ARGO.ISITEM>)
IF (<ARGO.TYPE>==t_door_locked) || (<ARGO.TYPE>==t_door) || (<ARGO.TYPE>==t_sign_gump) || (<ARGO.TYPE>==t_spell)
src.sysmessage @07a1,1,1 Bunu sabitleyemezsin.
RETURN 1
ENDIF
if (<argo.is_tabelaya_yakin>)
if !((<argo.baseid>==i_deed_pv) || (<ARGO.TYPE>==t_chair))
src.sysmessage @07a1,1,1 Tabelanın 2 kare etrafına item sabitleyemezsiniz.
return 1
endif
endif
IF (<ARGO.type> = t_corpse) || (<ARGO.type> = t_blood)
src.sysmessage @07a1,,1 Butür eşyaları sabitleyemezsiniz.
return 1
endif
IF (<ARGO.baseid> = i_rune_book)
src.sysmessage @07a1,,1 Butür eşyaları sabitleyemezsiniz.
return 1
endif
IF !(<ARGO.CONT>)
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
IF (<ARGO.ATTR> & attr_move_never)
src.sysmessage @07a1,1,1 Eşya zaten sabit.
ELSE
IF (<ARGO.ATTR> & attr_decay)
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_decay
ENDIF
TRY UID.<ARGO.UID>.LINK=<ARGO.REGION.UID>
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>|attr_move_never
TRY UID.<ARGO.UID>.SAY=(Sabitlendi)
TRY UID.<ARGO.UID>.EVENTS +t_locked_down
TRY UID.<ARGO.UID>.TIMER=-1
TRY UID.<ARGO.UID>.UPDATE
return 1
ENDIF
ELSE
src.sysmessage @07a1,1,1 Eşya evde değil.
ENDIF
ENDIF
ELSE
src.sysmessage @07a1,1,1 Bunu sabitleyemezsin.
ENDIF
[FUNCTION f_house_release]
if (<argo.dtag0.ek_ev> == 1)
if !(strmatch('<argo.tag0.anaitem>',''))
src.newitem <argo.tag0.anaitem>
src.new.bounce
foritems 3
obj=<uid>
if (<obj.link>==<argo.uid>)
obj.remove
endif
endfor
TRY UID.<ARGO.UID>.remove
endif
return 1
endif
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
if (<argo.baseid> == i_anvil)
TRY UID.<ARGO.UID>.remove
try serv.newitem i_deed_anvil
try new.bounce
return 1
endif
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
if (<argo.baseid> == i_ostard_egg_kulucka)
if (<argo.morex> == 05) && (<argo.timer> >= 1)
src.syshata Yumurta hazır.
argo.dclick
return 1
else
src.syshata Yumurtayi kaldiramazsiniz.
return 1
endif
endif
if (<argo.baseid> == i_forge)
TRY UID.<ARGO.UID>.remove
try serv.newitem i_deed_forge
try new.bounce
return 1
endif
if (<argo.baseid> == i_pickpocket_dip)
TRY UID.<ARGO.UID>.remove
try serv.newitem I_DEED_PICKPOCKN
try new.bounce
return 1
endif
if (<argo.baseid> == i_training_dummy_n)
TRY UID.<ARGO.UID>.remove
try serv.newitem i_deed_dummyn
try new.bounce
return 1
endif
if (<argo.baseid> == i_spinning_wheel)
TRY UID.<ARGO.UID>.remove
try serv.newitem i_deed_wheel_n
try new.bounce
return 1
endif
if (<argo.baseid> == i_loom_upright)
local.act <argo.uid>
try uid.<uid.<args>.tag0.<local.act>part>.remove
try uid.<uid.<args>.tag0.<uid.<args>.tag0.<local.act>part>part>.remove
try uid.<args>.tag0.<local.act>part
try uid.<args>.tag0.<uid.<args>.tag0.<local.act>part>part
try serv.newitem i_deed_loom_n
try new.bounce
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>-1>
return 1
endif
if (<argo.baseid> == i_pentagram)
if !(<argo.dispid> == 0fea)
src.sysmessage @07a1,1,1 Pentagramı kaldırmak için ortasını seçiniz.
return 1
else
local.act <argo.uid>
argo.remove
remove.m1
remove.m2
remove.m3
for 1 8
try uid.<uid.<args>.tag0.<local.act>part<dlocal._for>>.remove
try uid.<args>.tag0.<local.act>part<dlocal._for>
endfor
try serv.newitem i_deed_pentagram
try new.bounce
return 1
endif
endif
if (<argo.baseid> == 0e92)
src.sysmessage @07a1,1,1 Lutfen Cannounun kirmizi kismini secin.
return 1
endif
if (<argo.baseid> == 0e91)
src.sysmessage @07a1,1,1 Lutfen Cannounun kirmizi kismini secin.
return 1
endif
else
try sysmessage @07a1,,1 Eşya evinizde değil.
return 1
endif
IF (<ARGO.ISITEM>)
IF (<ARGO.TYPE>==t_door_locked) || (<ARGO.TYPE>==t_door) || (<ARGO.TYPE>==t_sign_gump) || (<ARGO.TYPE>==t_stone_guild)
src.sysmessage @07a1,1,1 Hatalı seçim.
RETURN 1
ENDIF
if (<argo.dtag0.ev_eki>==1)
src.sysmessage @07a1,1,1 Eşyanın diğer parçasına deneyin.
return 1
endif
if (strmatch('<argo.baseid>','i_strong_box'))
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
endif
IF !(<ARGO.CONT>)
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
IF (<ARGO.TYPE>==t_container)
LOCAL.RESCOUNT=<ARGO.RESCOUNT>
ENDIF
IF (<ARGO.ISEVENT.t_access_owner>) || (<ARGO.ISEVENT.t_access_coowner>) || (<ARGO.ISEVENT.t_access_friend>) || (<ARGO.ISEVENT.t_access_guild>)
TRY UID.<ARGO.UID>.LINK=0fffffff
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_move_never
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>+attr_decay
TRY UID.<ARGO.UID>.SAY=Sabit Degil
TRY UID.<ARGO.UID>.EVENTS -t_access_owner
TRY UID.<ARGO.UID>.EVENTS -t_access_coowner
TRY UID.<ARGO.UID>.EVENTS -t_access_friend
TRY UID.<ARGO.UID>.EVENTS -t_access_guild
TRY UID.<ARGO.UID>.EVENTS -t_locked_down // ekledim bunu
TRY UID.<ARGO.UID>.TIMER=<eval <SERV.DecayTimer>*60>
TRY UID.<ARGO.UID>.UPDATE
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>-1>
TRY UID.<ARGS>.TAG0.SECURE_CONT=<eval <UID.<ARGS>.TAG0.SECURE_CONT>-<LOCAL.RESCOUNT>>
ELIF (<ARGO.ATTR> & attr_move_never)
TRY UID.<ARGO.UID>.LINK=0fffffff
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_move_never
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>+attr_decay
TRY UID.<ARGO.UID>.SAY=[Sabit degil]
TRY UID.<ARGO.UID>.EVENTS -t_locked_down
TRY UID.<ARGO.UID>.TIMER=<eval <SERV.DecayTimer>*60>
TRY UID.<ARGO.UID>.UPDATE
obj=<argo.uid>
if (<obj.attr>&attr_newbie)
if (<obj.type> == t_container)
obj.attr=<obj.attr>-attr_newbie
obj.say newbie silindi
endif
endif
ELSE
src.sysmessage @07a1,1,1 Eşya kilitli değil.
ENDIF
ELSE
src.sysmessage @07a1,1,1 Eşya Evde değil.
ENDIF
ENDIF
ENDIF
[FUNCTION f_house_secure]
IF (<ARGO.ISITEM>)
IF (<ARGO.TYPE>==t_door_locked) || (<ARGO.TYPE>==t_door) || (<ARGO.TYPE>==t_sign_gump)
src.sysmessage @07a1,1,1 Geçersiz istek.
RETURN 1
ELIF (<UID.<ARGS>.ISCOOWNER <SRC>>) && ((<ARGO.ISEVENT.t_access_owner>) || (<ARGO.ISEVENT.t_access_guild>))
src.sysmessage @07a1,1,1 Geçersiz istek.
RETURN 1
ENDIF
if (<argo.baseid> == i_rune_book)
src.sysmessage @07a1,,1 Bu Tur esyalari sabitleyemezsiniz.
return 1
endif
IF !(<ARGO.ATTR> & attr_move_never)
src.sysmessage @07a1,1,1 Önce sabitleyiniz.
return 1
endif
if (strmatch('<argo.baseid>','i_strong_box'))
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
endif
IF !(<ARGO.CONT>)
IF (<ARGO.REGION.UID>==<UID.<ARGS>.REGION.UID>)
IF (<ARGO.ATTR> & attr_move_never) && (<ARGO.TYPE> != t_container)
src.sysmessage @07a1,1,1 Eşya zaten sabit ve güvenli
ELIF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<UID.<ARGS>.TAG0.LOCKED_ITEMS> >= <DEF.GLOBAL_SECURE_STORAGE>)) || (<UID.<ARGS>.TAG0.LOCKED_ITEMS> >= <UID.<ARGS>.TAG0.STORAGE_LIMIT>)
src.sysmessage @07a1,1,1 Limit dolu.
ELIF (<ARGO.TYPE> != t_container)
IF (<ARGO.ATTR> & attr_decay)
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>-attr_decay
ENDIF
//TRY UID.<ARGO.UID>.LINK=<ARGO.REGION.UID>
TRY UID.<ARGO.UID>.ATTR=<ARGO.ATTR>|attr_move_never
TRY UID.<ARGO.UID>.SAY=(sabitlendi)
TRY UID.<ARGO.UID>.EVENTS +t_locked_down
TRY UID.<ARGO.UID>.TIMER=-1
TRY UID.<ARGO.UID>.UPDATE
if <argo.isevent.t_evdeyereattik>
TRY UID.<ARGO.UID>.EVENTS -t_evdeyereattik
endif
TRY UID.<ARGS>.TAG0.LOCKED_ITEMS=<eval <UID.<ARGS>.TAG0.LOCKED_ITEMS>+1>
ELSE
SRC.SDIALOG d_house_access <ARGO.UID>
ENDIF
ELSE
src.sysmessage @07a1,1,1 Eşya evde degil.
ENDIF
ELSE
src.sysmessage @07a1,1,1 Eşya evde degil.
ENDIF
ENDIF
[FUNCTION f_house_transfer]
src.sysmessage @07a1,,1 Evdevretme Kaldirilmistir.
return 1
if (<argo.isplayer>)
if (<argo.check_account_typedef t_multi> >= <def.max_account_houses>)
sysmessage @020,,1 <argo.name> zaten kendi evine sahip, transfer edemezsiniz!
return 1
endif
if (<argo.uid>==<src.uid>)
src.sysmessage @03b2,,1 Evinizi kendinize transfer edemezsiniz :)
return 1
elif (<uid.<args>.isowner <argo>>)
src.sysmessage @03b2,,1 <argo.name> zaten evin sahibi!
return 1
endif
src.dialogclose d_house_demolish
try uid.<args>.tag.lasttraded=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %y> <strsub 11 0 <serv.rtime>>
try uid.<args>.more2=<argo.uid>
try uid.<args>.link.more1=<argo.uid>
src.memoryfindtype(0100).cont=<argo.uid>
src.sysmessage @03b2,,1 Eviniz <argo.name> adlı oyuncuya transfer edildi.
try uid.<argo.uid>.sysmessage @03b2,,1 <src.name> evini size transfer etti.
for 1 <def.max_house_coowners>
try uid.<uid.<args>.tag0.co_owner_<dlocal._for>>.notice='<src.targ.name>' evinizi transfer ettiğiniz için ortak listeniz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %y> <strsub 11 0 <serv.rtime>> tarihinde silinmiştir.
try uid.<args>.tag0.co_owner_<dlocal._for>=
endfor
for 1 <def.max_house_friends>
try uid.<uid.<args>.tag0.friend_<dlocal._for>>.notice='<src.targ.name>' evinizi transfer ettiğiniz için dost listeniz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %y> <strsub 11 0 <serv.rtime>> tarihinde silinmiştir.
try uid.<args>.tag0.friend_<dlocal._for>=
endfor
for 1 <def.max_house_bans>
try uid.<uid.<args>.tag0.ban_<dlocal._for>>.notice='<src.targ.name>' evinizi transfer ettiğiniz için yasaklı listeniz <serv.rtime.format %d>/<serv.rtime.format %m>/<serv.rtime.format %y> <strsub 11 0 <serv.rtime>> tarihinde silinmiştir.
try uid.<args>.tag0.ban_<dlocal._for>=
endfor
return 1
else
src.sysmessage @03b2,,1 Sadece oyuncuları seçebilirsiniz!
return 1
endif
[plevel 7]
addgold_bank
f_add_gold
[FUNCTION addgold_bank]
//SERV.NEWITEM i_bag
//NEW.COLOR=032
//NEW.CONT=<FINDLAYER.layer_bankbox>
f_add_gold <ARGS>
[FUNCTION f_add_gold]
IF (<ARGS> > 0)
SERV.NEWITEM i_gold
IF (<ARGS> > 65000)
NEW.AMOUNT=65000
NEW.CONT=<FINDLAYER.layer_bankbox>
f_add_gold <eval <ARGS>-<NEW.AMOUNT>>
ELSE
NEW.AMOUNT=<ARGS>
NEW.CONT=<FINDLAYER.layer_bankbox>
ENDIF
ENDIF
[FUNCTION remove_invalid_houses]
SERV.NEWITEM i_gold
NEW.P 1,1,0,0
NEW.invalid_house_remove
NEW.REMOVE
[FUNCTION invalid_house_remove]
FORITEMS 6144
IF (<BASEID>==i_sign_brass) && !(<LINK>==04fffffff)
IF !(<SERV.UID.<MORE2>>)
TAG.DEMOLITION_PENDING=1
TIMER=1
ENDIF
ENDIF
ENDFOR
[FUNCTION check_account_typedef]
FOR <ACCOUNT.CHARS>
LOCAL.RETURN=<eval <LOCAL.RETURN>+<ACCOUNT.CHAR.<eval <dLOCAL._FOR>-1>.f_check_typedefs <ARGS>>>
ENDFOR
return <LOCAL.RETURN>
[FUNCTION f_check_typedefs]
FOR 0 <eval <RESCOUNT>-1>
IF (<UID.<FINDCONT(<dLOCAL._FOR>).LINK>.ISITEM>)
IF (<UID.<FINDCONT(<dLOCAL._FOR>).LINK>.TYPE>==<ARGS>)
LOCAL.TYPE += 1
ENDIF
ENDIF
ENDFOR
return <LOCAL.TYPE>
[FUNCTION area]
IF (<UID.<REGION.UID>.MULTIREGION>)
LOCAL.AREAx=<eval (<STRARG <UID.<REGION.UID>.MULTIREGION>>+<STRARG <STREAT <UID.<REGION.UID>.MULTIREGION>>>)>
LOCAL.AREAy=<eval (<STRARG <STREAT <STREAT <UID.<REGION.UID>.MULTIREGION>>>>+<STRARG <STREAT <STREAT <STREAT <UID.<REGION.UID>.MULTIREGION>>>>>)>
return <eval (<LOCAL.AREAx>*<LOCAL.AREAy>)*-1>
ELIF (<SERV.ITEMDEF.<ARGS>.MULTIREGION>)
LOCAL.AREAx=<eval (<STRARG <SERV.ITEMDEF.<ARGS>.MULTIREGION>>+<STRARG <STREAT <SERV.ITEMDEF.<ARGS>.MULTIREGION>>>)>
LOCAL.AREAy=<eval (<STRARG <STREAT <STREAT <SERV.ITEMDEF.<ARGS>.MULTIREGION>>>>+<STRARG <STREAT <STREAT <STREAT <SERV.ITEMDEF.<ARGS>.MULTIREGION>>>>>)>
return <eval (<LOCAL.AREAx>*<LOCAL.AREAy>)*-1>
ENDIF
////////////////
[TYPEDEF t_door_locked]
ON=@Dclick // src-> açan , []-> kapi
if (<src.findid.t_key>)
if (<src.findid.t_key.link>==<link>)
timer 0
return 1
endif
endif
//IF (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISFRIEND <SRC>>)
//TIMER 0
//return 1
//ENDIF
[TYPEDEF t_access_owner]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
ON=@Click
MESSAGE @1153,,1 [Ev Sahibi]
IF (<TYPE> != t_door_locked)
MESSAGE @1153,,1 [sabit ve güvenli]
ENDIF
on=@pickup_ground
return 1
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF !(<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
src.sysmessage @07a1,1,1 Ev sahibine özel bir eşya.
return 1
ENDIF
ENDIF
[TYPEDEF t_access_coowner]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
on=@pickup_ground
return 1
ON=@Click
MESSAGE @1153,,1 [Ev Sahibi&Ortaklar]
IF (<TYPE> != t_door_locked)
MESSAGE @1153,,1 [sabit ve güvenli]
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF (<UID.<UID.<REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
return 0
ELSE
src.sysmessage @07a1,1,1 Ev sahibi ve ortaklara özel bir eşya.
return 1
ENDIF
ENDIF
[TYPEDEF t_access_friend]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
on=@pickup_ground
return 1
ON=@Click
MESSAGE @1153,,1 [EvSahibi&Dostlar]
IF (<TYPE> != t_door_locked)
MESSAGE @1153,,1 [sabit ve güvenli]
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF (<UID.<UID.<REGION.UID>.MORE2>.ISFRIEND <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<REGION.UID>.MORE2>.ISOWNER <SRC>>)
return 0
ELSE
src.sysmessage @07a1,1,1 Ev sahibi, ortaklar ve dostlara özel bir eşya.
return 1
ENDIF
ENDIF
[TYPEDEF t_access_guild]
ON=@ClientToolTip
IF (<TYPE> != t_door_locked)
SRC.ADDCLILOC 501644
ENDIF
on=@pickup_ground
return 1
ON=@Click
MESSAGE @1153,,1 [Ev Sahibi&Guild](<UID.<UID.<REGION.UID>.MORE1>.GUILD.name>)
IF (<TYPE> != t_door_locked)
MESSAGE @1153,,1 [sabit ve güvenli]
ENDIF
ON=@DropOn_Self
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<eval ((<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_ITEMS>+<UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>)+<UID.<UID.<REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS>)> < <UID.<UID.<REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>)
TIMERF 1,f_update_rescount <RESCOUNT>
ELSE
return 1
ENDIF
ON=@PickUp_Self
TRY UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT = <eval <UID.<UID.<REGION.UID>.MORE2>.TAG0.SECURE_CONT>-1>
ON=@DClick
IF !(<SRC.ISGM>)
IF !(<UID.<LINK.MORE1>.GUILD>)
EVENTS -t_access_guild
EVENTS +t_access_owner
return 1
ELIF (<SRC.GUILD> != <UID.<UID.<REGION.UID>.MORE1>.GUILD>)
src.sysmessage @07a1,1,1 Sadece "<UID.<UID.<REGION.UID>.MORE1>.GUILD.name>" Guildi üyeleri kullanabilir.
return 1
ENDIF
ENDIF
[TYPEDEF t_locked_down]
ON=@ClientToolTip
SRC.ADDCLILOC 501643
ON=@Click
MESSAGE @455 [sabit]
on=@pickup_ground
return 1
[FUNCTION f_update_rescount]
REF1=<UID.<REGION.UID>.MORE2>
IF (<RESCOUNT> != <ARGS>)
REF1.TAG0.SECURE_CONT += 1
ENDIF
return 1
//////////////////////////////////////////////////////////////////////////////////
[FUNCTION notice]
IF (<ISPLAYER>)
IF (<DEF.USE_NOTICE_SYSTEM>==1)
TAG.NOTICE=<ARGS>
EVENTS +e_notice
IF (<ISONLINE>)
TIMERF 1,DIALOG d_notice
ENDIF
ELSE
IF (<ISONLINE>)
sysmessage @07a1,1,1 <ARGS>
ENDIF
ENDIF
ENDIF
[EVENTS e_notice]
ON=@Login
SDIALOG d_notice
[DIALOG d_notice]
10,480
noclose
resizepic 0 0 5120 320 180
gumppictiled 10 10 300 20 2624
resizepic 10 10 3000 300 20
dtext 110 10 026 Duyuru
gumppictiled 10 40 300 100 2624
resizepic 10 40 3000 300 100
gumppictiled 10 150 300 20 2624
resizepic 10 150 3000 300 20
button 10 150 4005 4007 1 0 0
dtext 40 150 1152 Tamam
dhtmlgump 10 40 300 100 1 1 <def.bfont_black><TAG0.NOTICE>
[DIALOG d_notice BUTTON]
ON=0
TAG.NOTICE=
EVENTS -e_notice
[itemdef i_kurulmaz]
name Ev kurulmaz
id i_deed
type t_script
on=@create
color 080a
attr=090 // invis + static
on=@click
message @1153,,1 Ev kurulması yasak bölge.
return 1
[function evkurulmaz]
src.s <region.name> bölgesinde ev kurulumunu yasakladım.
serv.newitem i_kurulmaz
new.drop
[function is_tabelaya_yakin]
foritems 1
if (strmatch('<baseid>','i_sign_brass'))
local.kurulmaz +=1
endif
endfor
return <dlocal.kurulmaz>
[function isevkurulmaz]
foritems 13
if (strmatch('<baseid>','i_kurulmaz'))
local.kurulmaz +=1
endif
endfor
return <dlocal.kurulmaz>
[TYPEDEF t_deed]
ON=@DClick
if ((<baseid> == i_deed_house_stone_plaster_small) || (<baseid> == i_deed_house_stone_small) || (<baseid> == i_deed_house_stone_brick_small) || (<baseid> == i_deed_house_stone_wood_small) || (<baseid> == i_deed_house_wood_plaster_small) || (<baseid> == i_deed_shop_stone_small) || (<baseid> == i_deed_shop_marble_small) || (<baseid> == i_deed_tower_wizard) || (<baseid> == i_deed_villa_2story) || (<baseid> == i_deed_house_patio_sand) || (<baseid> == i_deed_house_3room) || (<baseid> == i_deed_house_wood_plaster_2story) || (<baseid> == i_deed_house_stone_plaster_2story) || (<baseid> == i_deed_house_patio_marble) || (<baseid> ==i_deed_tower) || (<baseid> == i_deed_keep) || (<baseid> == i_deed_castle))
if !(<dispid> == i_deed_ship) && !(<dispid> == 014f2)
if ((strmatch('<serv.itemdef.<more1>.type>','t_multi')) && !(strmatch('<more1>','i_guildstonee')) && (<SRC.CHECK_ACCOUNT_TYPEDEF t_multi> >= <DEF.MAX_ACCOUNT_HOUSES>)
src.sysmessage @07a1,1,1 Accountunuzdaki ev limiti dolu. (<dDEF.MAX_ACCOUNT_HOUSES>).
return 1
ENDIF
if !(<topobj.uid> == <src.uid>)
src.sysmessage @07a1,1,1 Bunu çantanızda değilken kullanamazsınız.
return 1
endif
if ((<src.isevkurulmaz>) || (<src.region.guarded> == 1))
src.sysmessage @07a1,1,1 Bu alana ev kuramazsınız.
return 1
endif
endif
endif
ON=@TargOn_Ground
if !(<dispid> == i_deed_ship) && !(<dispid> == 014f2)
if ((strmatch('<serv.itemdef.<more1>.type>','t_multi')) && !(strmatch('<more1>','i_guildstonee')) && (<SRC.CHECK_ACCOUNT_TYPEDEF t_multi> >= <DEF.MAX_ACCOUNT_HOUSES>)
src.sysmessage @07a1,1,1 Accountunuzdaki ev limiti dolu. (<dDEF.MAX_ACCOUNT_HOUSES>).
return 1
ENDIF
if ((<src.isevkurulmaz>) || (<src.region.guarded> == 1))
src.sysmessage @07a1,1,1 Bu alana ev kuramazsınız.
return 1
endif
src.sdialog d_evkomut
endif
ON=@TargOn_Char
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
ON=@TargOn_Item
src.sysmessage @07a1,1,1 Hatalı seçim.
return 1
//ON=@TargOn_Cancel
//IF (<DISPID>==i_gold)
// SRC.SDIALOG d_house_placement_classic
// REMOVE
//ENDIF
[function evetikla]
foritems 13
if (strmatch('<baseid>','i_sign_brass'))
dclick
endif
endfor
[DEFNAME house_placement]
house_classic_1 "i_multi_house_stone_plaster_small"
house_classic_2 "i_multi_house_stone_small"
house_classic_3 "i_multi_house_stone_brick_small"
house_classic_4 "i_multi_house_stone_wood_small"
house_classic_5 "i_multi_house_wood_plaster_small"
house_classic_6 "i_multi_house_wood_thatched_small"
house_classic_7 "i_multi_shop_stone_small"
house_classic_8 "i_multi_shop_marble_small"
house_classic_9 "i_multi_tower_wizard"
house_classic_10 "i_multi_villa_2story"
house_classic_11 "i_multi_house_patio_sand"
house_classic_12 "i_multi_cabin_log_2story"
house_classic_13 "i_multi_house_3room"
house_classic_14 "i_multi_house_wood_plaster_2story"
house_classic_15 "i_multi_house_stone_plaster_2story"
house_classic_16 "i_multi_shop_blacksmithy_large"
house_classic_17 "i_multi_house_patio_marble"
house_classic_18 "i_multi_tower"
house_classic_19 "i_multi_keep"
house_classic_20 "i_multi_castle"
//////
[FUNCTION strongboxkoy]
if (<src.is_tabelaya_yakin>)
src.sysmessage @07a1,1,1 Tabelanın 2 kare etrafına strongbox koyamazsınız.
return 1
endif
if (<src.hits> < 1)
src.sysmessage @07a1,1,1 Ölüyken yapamazsınız.
return 1
endif
foritems 40
IF (<src.REGION.UID>==<REGION.uid>)
if (<baseid>==i_strong_box)
if (<more2> == <src.uid>)
src.sysmessage @07a1,1,1 Bu evde zaten bir strongboxa sahipsin.
return 1
endif
endif
IF (<TYPE>==t_sign_gump) || (<TYPE>==t_ship_plank) ///t_ship_plank aktiflenmemiş evlerde geçio /
if !(<dtag0.strongbox> > 2 )
tag0.strongbox +=1
say @1153,,1 <src.name> Strongbox ekledi
src.newitem i_strong_box
src.new.p <src.p>
src.new.name Strong Box
src.new.link <uid>
src.new.more2 <src.uid>
else
src.sysmessage @07a1,1,1 Evde max. 3 tane strongbox olabilir.
ENDIF
endif
ENDIF
ENDFOR
return 1
[FUNCTION strongboxsil]
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
IF !(<argo.REGION.UID>==<REGION.uid>)
return 1
endif
if (<argo.baseid> == i_strong_box)
if ((<argo.more2> == <src.uid>) || (<argo.link.more1> == <src.uid>))
if (<argo.rescount> > 0)
src.sysmessage @07a1,1,1 Strongbox boş olmalı.
return 1
endif
foritems 50
IF (<src.REGION.UID>==<REGION.uid>)
IF (<TYPE>==t_sign_gump) || (<TYPE>==t_ship_plank)
tag0.strongbox -=1
say @1153,,1 <src.name> Strongbox kaldırdı
endif
endif
endfor
obj=<argo.uid>
obj.remove
src.sysmessage @07a1,1,1 Strongbox kaldırıldı.
else
if !(<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>)
src.sysmessage @07a1,1,1 Bu strongbox size ait değil.
else
if (<argo.rescount> > 0)
src.sysmessage @07a1,1,1 Strongbox boş olmalı.
return 1
endif
foritems 50
IF (<src.REGION.UID>==<REGION.uid>)
IF (<TYPE>==t_sign_gump) || (<TYPE>==t_ship_plank)
tag0.strongbox -=1
say @1153,,1 <src.name> Strongbox kaldırdı
endif
endif
endfor
obj=<argo.uid>
obj.remove
src.sysmessage @07a1,1,1 Strongbox kaldırıldı.
endif
endif
endif
endif
return 1
[function ev_sahibi]
ref1 <uid.<args>.more>
src.gouid <ref1>
[itemdef i_strong_box]
defname i_strong_box
type t_container
id i_box_brass
name strongbox
tdata2 04b
On=@Create
timer -1
attr attr_move_never
color 00
On=@Click
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
message @1153 Sahip : <src.uid.<more2>.name>
endif
if (<rescount> > 0)
messageua 1153,6,6,1 <name> [<rescount>,<eval ((<weight> / 10) - <typedef.weight>)>]
else
message @1153,,1 strongbox [eşya yok]
endif
return 1
On=@DClick
if (<src.account.plevel> > 1) && !(<src.isevent.e_alpberk>)
src.syshata BUNU STAFFLAR A C A M A Z kaydedildin kafayi yedin olm sen
return 1
endif
if !(<more2> == <src.uid>)
src.sysmessage @07a1,,1 Bu kasa size ait değil
return 1
endif
On=@PickUp_Ground
return 1
endif
[function itemup]
if !<argo.isitem>
return 1
endif
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
IF !(<argo.REGION.UID>==<REGION.uid>)
return 1
endif
endif
if !(<argo.attr>&attr_move_never)
src.sysmessage @07a1,1,1 Önce eşyayı sabitlemelisiniz.
return 1
endif
if ((<argo.baseid> == i_strong_box) || (<argo.type> == t_spell) || (<argo.baseid> == i_corpse) || (<argo.type> == t_blood) || (<argo.type> == t_door) || (<argo.type> == t_door_locked) || (<argo.type> == t_sign_gump) || (<argo.type> == t_stone_guild) || (<argo.baseid> == i_forge) || (<argo.baseid> == i_anvil) || (<argo.baseid> == i_training_dummy) || (<argo.baseid> == i_pickpocket_dip) || (<argo.baseid> == i_spinning_wheel) || (<argo.baseid> == i_loom_upright) || (<argo.baseid> == i_pentagram) || (<argo.type> == t_deed))
src.sysmessage @07a1,1,1 Bu eşyanın pozisyonuyla oynayamazsınız.
return 1
endif
if (<src.hits> < 1)
src.sysmessage @07a1,1,1 Ölüyken yapamazsınız.
return 1
endif
obj = <SRC.REGION.UID>
if ((<obj.baseid> == i_multi_house_3room) || (<obj.baseid> == i_multi_house_stone_plaster_small) || (<obj.baseid> == i_multi_house_stone_small) || (<obj.baseid> == i_multi_house_stone_brick_small) || (<obj.baseid> == i_multi_house_stone_wood_small) || (<obj.baseid> == i_multi_house_wood_plaster_small) || (<obj.baseid> == i_multi_house_wood_thatched_small))
if (<argo.p.z> >= <eval (<p.z> + 25)>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla yükseltemezsiniz.
else
argo.nudgeup
endif
elseif ((<obj.baseid> == i_multi_keep) || (<obj.baseid> == i_multi_castle) || (<obj.baseid> == i_multi_house_patio_sand) || (<obj.baseid> == i_multi_villa_2story) || (<obj.baseid> == i_multi_house_wood_plaster_2story) || (<obj.baseid> == i_multi_house_stone_plaster_2story))
if (<argo.p.z> >= <eval (<p.z> + 45)>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla yükseltemezsiniz.
else
argo.nudgeup
endif
elseif (<obj.baseid> == i_multi_ciftlik) || (<obj.baseid> == i_multi_marble_flower) || (<obj.baseid> == i_multi_mews)
if (<argo.p.z> >= <eval (<p.z> + 15)>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla yükseltemezsiniz.
else
argo.nudgeup
endif
elseif ((<obj.baseid> == i_multi_shop_stone_small) || (<obj.baseid> == i_multi_shop_marble_small) || (<obj.baseid> == i_multi_house_patio_marble) || (<obj.baseid> == i_multi_tower_wizard))
if (<argo.p.z> >= <eval (<p.z> + 65)>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla yükseltemezsiniz.
else
argo.nudgeup
endif
elseif (<obj.baseid> == i_multi_tower)
if (<argo.p.z> >= <eval (<p.z> + 85)>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla yükseltemezsiniz.
else
argo.nudgeup
endif
elseif (<obj.baseid> == i_multi_chaos)
if (<argo.p.z> >= <eval (<p.z> + 15)>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla yükseltemezsiniz.
else
argo.nudgeup
endif
else
src.sysmessage @07a1,1,1 Evinizin tipi bu komutu desteklemiyor.Anormal bir durumda bu uyarıyı alıyorsanız page atınız.
endif
[function itemdown]
if !<argo.isitem>
return 1
endif
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
IF !(<argo.REGION.UID>==<REGION.uid>)
return 1
endif
endif
if !(<argo.attr>&attr_move_never)
src.sysmessage @07a1,1,1 Önce eşyayı sabitlemelisiniz.
return 1
endif
if ((<argo.baseid> == i_strong_box) || (<argo.type> == t_spell) || (<argo.baseid> == i_corpse) || (<argo.type> == t_blood) || (<argo.type> == t_door) || (<argo.type> == t_door_locked) || (<argo.type> == t_sign_gump) || (<argo.type> == t_stone_guild) || (<argo.baseid> == i_forge) || (<argo.baseid> == i_anvil) || (<argo.baseid> == i_training_dummy) || (<argo.baseid> == i_pickpocket_dip) || (<argo.baseid> == i_spinning_wheel) || (<argo.baseid> == i_loom_upright) || (<argo.baseid> == i_pentagram) || (<argo.type> == t_deed))
src.sysmessage @07a1,1,1 Bu eşyanın pozisyonuyla oynayamazsınız.
return 1
endif
if (<argo.p.z> <= <src.p.z>)
src.sysmessage @07a1,1,1 Bu eşyayı daha fazla alçaltamazsınız.
return 1
endif
if (<src.hits> < 1)
src.sysmessage @07a1,1,1 Ölüyken yapamazsınız.
return 1
endif
argo.nudgedown
[FUNCTION vendorsayisi] /// evsistemi ile ilgili
foritems 20
IF (<src.REGION.UID>==<REGION.uid>)
IF (<TYPE>==t_sign_gump) || (<TYPE>==t_ship_plank) ///t_ship_plank aktiflenmemiş evlerde geçio /
if (<more2>)
if (<argn> == 1)
tag0.vendorsayisi +=1
say @1153 Vendor Bilgileri Eklendi
else
tag0.vendorsayisi -=1
say @1153 Vendor Bilgileri Silindi
endif
ENDIF
endif
ENDIF
ENDFOR
return 1
[FUNCTION ostardeggsayisi]
foritems 20
IF (<src.REGION.UID>==<REGION.uid>)
IF (<TYPE>==t_sign_gump) || (<TYPE>==t_ship_plank) ///t_ship_plank aktiflenmemiş evlerde geçio /
if (<more2>)
if (<argn> == 1)
tag0.ostardegg +=1
say @1153,,1 <src.name> Kuluçka Ekledi
else
tag0.ostardegg -=1
say @1153,,1 <src.name> Kuluçka Kaldırdı
endif
ENDIF
endif
ENDIF
ENDFOR
return 1
[DIALOG d_house_ortak_teklif]
10,10
page 0
//resizepic 0 0 83 310 200
resizepic 5 5 5150 300 190
dhtmlgump 55 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 25 55 350 20 0 0 <def.bfont_dgreen><name> <def.bfont_red>oyuncusunun
dhtmlgump 25 75 350 20 0 0 <def.bfont_red>evine ortak olmak istiyormusunuz?
dhtmlgump 45 100 350 20 0 0 <def.bfont_dgreen>Evet
dhtmlgump 45 120 350 20 0 0 <def.bfont_red>Hayır
button 25 100 55 55 1 0 1
button 25 120 55 55 1 0 2
[dialog d_house_ortak_teklif button]
on 1
sysmessage @07a1,1,1 <src.name> teklifinizi kabul etti.
TRY UID.<uid.<SRC.REGION.UID>.more2>.TAG.CO_OWNER_<dsrc.ctag.evlocal_for> <SRC.UID>
src.sysmessage @07a1,1,1 Evin ortaklar listesine eklendiniz.
return 1
on 2
sysmessage @07a1,1,1 <src.name> teklifinizi kabul etmedi.
src.sysmessage @07a1,1,1 Teklifi reddettiniz.
return 1
[DIALOG d_house_dost_teklif]
10,10
page 0
//resizepic 0 0 83 310 200
resizepic 5 5 5150 300 190
dhtmlgump 55 25 350 20 0 0 <def.bfont_red><serv.name> Ev Sistemi
dhtmlgump 25 55 350 20 0 0 <def.bfont_dgreen><name> <def.bfont_red>oyuncusunun
dhtmlgump 25 75 350 20 0 0 <def.bfont_red>evine dost olmak istiyormusunuz?
dhtmlgump 45 100 350 20 0 0 <def.bfont_dgreen>Evet
dhtmlgump 45 120 350 20 0 0 <def.bfont_red>Hayır
button 25 100 55 55 1 0 1
button 25 120 55 55 1 0 2
[dialog d_house_dost_teklif button]
on 1
sysmessage @07a1,1,1 <src.name> teklifinizi kabul etti.
TRY UID.<uid.<SRC.REGION.UID>.more2>.TAG.FRIEND_<dsrc.ctag.evlocal_for> <SRC.UID>
src.sysmessage @07a1,1,1 Evin dostlar listesine eklendiniz.
return 1
on 2
sysmessage @07a1,1,1 <src.name> teklifinizi kabul etmedi.
src.sysmessage @07a1,1,1 Teklifi reddettiniz.
return 1
[Function f_evkurdum]
if (<isgm>)
sysmessage @07a1,1,1 <uid.<uid.<uid.<args>.link>.more>.name> isimli kişi <uid.<args>.p> kordinatına <uid.<uid.<args>.link>.name> evini kurdu. '.evkontrol' komutu ile onaylanmamış evleri gezebilirsiniz.
endif
[speech spk_house_cmds]
ON=I wish to lock this down
on=lock
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
SRC.TARGETF f_house_lock <UID.<SRC.REGION.UID>.MORE2>
src.sysmessage @07a1,1,1 Sabitlemek istediğiniz eşyayı seçiniz.
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
ENDIF
On=*strongbox*
on=i wish to this place a strongbox
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
src.strongboxkoy
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
endif
on=komutlarr
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <SRC>>)
src.dialog d_evkomutlari
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
endif
on=remove
on=i wish to remove this
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
src.targetf strongboxsil
src.sysmessage @07a1,1,1 Silmek istediğiniz strongbox u seçiniz...
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
endif
ON=I wish to secure this
ON=secure
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
IF ((<DEF.USE_GLOBAL_STORAGE>==1) && (<dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS> < <dDEF.GLOBAL_LOCKDOWNS>) && (<eval ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)> < <dDEF.GLOBAL_SECURE_STORAGE>)) || (<dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.LOCKED_ITEMS> < <eval <dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>/2>) && (<eval ((<SRC.TARG.TAG0.SECURE_ITEMS>+<SRC.TARG.TAG0.SECURE_CONT>)+<SRC.TARG.TAG0.LOCKED_ITEMS>)> < <eval <dSRC.UID.<UID.<SRC.REGION.UID>.MORE2>.TAG0.STORAGE_LIMIT>/2>)
if (<dsrc.isevonaylanmamis> < 1)
SRC.TARGETF f_house_secure <UID.<SRC.REGION.UID>.MORE2>
src.sysmessage @07a1,1,1 Güvenli yapmak istediğiniz eşyayı seçiniz.
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
ELSE
src.sysmessage @07a1,1,1 Güvenli eşya limitiniz dolu.
ENDIF
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
ENDIF
ON=I wish to release this
On=release
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
SRC.TARGETF f_house_release <UID.<SRC.REGION.UID>.MORE2>
src.sysmessage @07a1,1,1 Sabitliğini kaldırmak istediğiniz eşyayı seçiniz.
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
ENDIF
on=item up
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
src.targetf itemup
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
endif
on=item down
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
src.targetf itemdown
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
endif
ON=*resurrect*
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>)
src.newitem i_resbekle
src.act.equip
ELSE
src.sysmessage @07a1,1,1 Ev size ait degil.
return 1
endif
ON=*I ban thee*
if (<src.hits> == 0)
src.sysmessage @07a1,1,1 Ölüyken kullanamazsınız.
return 1
endif
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<src.isevent.e_ibantheeyok>)
src.sysmessage @07a1,1,1 Biraz beklemelisiniz.
return 1
endif
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
SRC.TARGETF f_house_eject <UID.<SRC.REGION.UID>.MORE2>
src.sysmessage @07a1,1,1 Kimi atalım ?
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
ENDIF
ON=Remove thyself
if (<src.hits> == 0)
src.sysmessage @07a1,1,1 Ölüyken kullanamazsınız.
return 1
endif
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<src.isevent.e_ibantheeyok>)
src.sysmessage @07a1,1,1 Biraz beklemelisiniz.
return 1
endif
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
forplayers 5
IF (<UID>==<SRC.UID>)
ELIF (<account.plevel> > 1)
ELIF (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <uid>>)
ELIF (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <uid>>)
ELIF (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <uid>>)
if !(<uid.<UID.<SRC.REGION.UID>.MORE2>.isowner <uid>>)
ELIF (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <uid>>)
endif
ELSE
f_house_eject2 <UID.<SRC.REGION.UID>.MORE2>
ENDIF
endfor
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
ENDIF
ON=*bank*
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<src.isevent.e_ibantheeyok>)
src.sysmessage @07a1,1,1 Biraz beklemelisiniz.
return 1
endif
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <SRC>>)
if (<dsrc.isevonaylanmamis> < 1)
src.bankself
else
src.sysmessage @07a1,1,1 Eviniz onaylanmamış.
endif
endif
else
src.sysmessage @07a1,1,1 Sadece ev içinde kullanabilirsiniz
return 1
ENDIF
ON=*DROP*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*GUARD ME*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*all defend ME*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
ON=*defend ME*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*All RELEASE*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*All free*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*free*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*All friend*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*friend*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*all transfer*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*transfer*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
ON=*oc*
src.sysmessage @066d,,1 Bu Komut Engellenmistir.
return 1
[regiontype r_house_system]
On=@Enter
src.findid.i_rune_summon_creature.timer 1
if (<src.isplayer>)
src.events +e_house
src.dialogclose d_runebook
src.findid.i_rb_delay.remove
src.findid.i_rb_delay2.remove
endif
if (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<src.isevent.e_x_breakspell>)
src.FINDID.i_rb_delay.REMOVE
src.FINDID.i_rb_delay2.REMOVE
src.EVENTS -e_x_breakspell
src.f_fizzle
src.sysmessage @07a1,1,1 Evde iken recall olamaz gate açamazsınız.
ENDIF
endif
On=@EnvironChange
src.findid.i_rune_summon_creature.timer 1
on=@step
src.findid.i_rune_summon_creature.timer 1
if (<src.findid.i_rune_summon_creature>)
src.remove
endif
if (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
if (<src.isevent.e_x_breakspell>)
src.FINDID.i_rb_delay.REMOVE
src.FINDID.i_rb_delay2.REMOVE
src.EVENTS -e_x_breakspell
src.f_fizzle
src.sysmessage @07a1,1,1 Evde iken recall olamaz gate açamazsınız.
ENDIF
endif
On=@Exit
src.dialogclose d_house_ortak_teklif
src.dialogclose d_house_dost_teklif
src.events -e_house
[events e_house]
On=@EnvironChange
IF (<SRC.UID.<SRC.REGION.UID>.TYPE>==t_multi)
src.dialogclose d_runebook
src.findid.i_rb_delay.remove
src.findid.i_rb_delay2.remove
else
events -e_house
endif
On=@Login
if (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISCOOWNER <SRC>>) || (<UID.<UID.<SRC.REGION.UID>.MORE2>.ISFRIEND <SRC>>)
endif
if (<UID.<UID.<REGION.UID>.MORE2>.isowner <SRC>> == 0) && (<UID.<UID.<REGION.UID>.MORE2>.iscoowner <src>> == 0) && (<UID.<UID.<REGION.UID>.MORE2>.isfriend <src>> == 0)
obj = <uid.<REGION.UID>.more2>
ref79 <region.uid>
p <obj.p>
if (<ref79.baseid> == i_multi_stone_Three_store)
move s
move s
move w
endif
if (<ref79.baseid> == i_multi_ciftlik)
move s
move s
move s
move w
endif
if (<ref79.baseid> == i_multi_logan)
move s
move s
move w
endif
if (<ref79.baseid> == i_multi_ancient_castle)
move e
move e
move e
move e
move e
move e
move n
endif
update
endif
[itemdef i_resbekle]
name resbekle
id i_gold
type t_eq_script
weight 0
layer layer_special
On=@Create
attr attr_invis|attr_decay
On=@Equip
if (<src.hits> > 0)
src.syshata Zaten Reslisin.
return 1
else
src.syshata 15 sn icinde Resleneceksiniz.
src.stone 1
timer 15
endif
On=@Timer
cont.resurrect 1
cont.stone 0
remove
return 1
[function kimonaylamis]
targetf kimonaylamis2
[function kimonaylamis2]
src.sysmessage bu staff aq <src.targ.tag.onaylayanstaff> ehgehe
var.buonaylamis <src.targ.tag0.onaylayanstaff>
src.sysmessage sectiginiz evi <var.buonaylamis> adli staff onaylamis.
src.sysmessage su staff <src.targ.tag.onaylayanstaff> onaylamis
[function evidevret]
var.sondevret <args>
src.targetf evidevret2
[function evidevret2]
try uid.<var.sondevret>.tag.lasttraded=<serv.rtime.format %d>-<serv.rtime.format %m>-<serv.rtime.format %y> <strsub 11 0 <serv.rtime>>
try uid.<var.sondevret>.more2=<argo.uid>
try uid.<var.sondevret>.link.more1=<argo.uid>
[eof]
