//*******************//
//house system //
//coded by mac-fusion//
//*******************//


[defname fhouse]
removeday 15 //silinme gün sayısı
maxcoowner 5 //max. ortak sayısı (max 8)
maxfriend 20 //max. dost sayısı (max 20)
maxitem 150 //max. sabitlenebilir item sayısı
maxstrongbox 3 //max. strongbox sayısı +1 ev sahibi hariç
maxsecurebox 10 //max. güvenli kasalar
abletopassword 1 //strongboxları şifrele
housebank 1 //evde banka açılsın

[itemdef 0bd1]
//brass sign
Defname=i_sign_brass
Type=t_sign_gump
Tdata2=064
Flip=1
Resources=2 I_BOARD, 1 i_ingot_iron
Dupelist=0bd2

On=@Create
timer=60*60*24*<eval <def.removeday> -1>

On=@Click
if (<timer> > 60*60*24*<eval <def.removeday> -5>) && !(<morex>)
message [yepyeni]
elseif (<timer> < 60*60*24*<eval <def.removeday> -5>) && !(<morex>)
message [eski]
elseif (<timer> < 60*60*24) && !(<morex>)
message [cok eski]
elseif (<morex> = 1)
message [yikilacak]
endif
message @55 <name>
return 1

On=@DClick
if (<link.baseid>) && (<link.type> = t_multi)
link.region.events +r_fhouse
link.more2 <uid>
src.ctag.flist 0
fhouse 1
endif
return 1

On=@Timer
if (<morex> = 1)
link.remove
else
timer=60*60*24
color=0481
morex=1
endif

On=@Targon_Char
ftargonchar
return 1

On=@Targon_Item
ftargonitem
return 1

[function fhouse]
call frights <src.uid>
if (<local.rights> > 0)
src.ctag.page <argn2>
sdialog d_fhouse,<argn1>
endif

[function frights]
for 1 <eval <def.maxcoowner> + <def.maxfriend>>
if (0<strarg <streat <link.tag0.allow_<dlocal._for>>>> = <args>)
if (0<strarg <link.tag0.allow_<dlocal._for>>> = 1)
local.rights 1
elseif (0<strarg <link.tag0.allow_<dlocal._for>>> = 2)
local.rights 2
endif
elseif (<link.more1> == <args>)
local.rights 3
else
for 0 <eval <src.account.chars>-1>
if (<uid.<link.more1>.account.char.<dlocal._for>.uid> = <args>)
local.rights 3
endif
endfor
endif
endfor

[regiontype r_fhouse]
On=@Enter
if (<src.ischar>)
src.events +e_fhouse
endif

On=@Exit
src.events -e_fhouse

[events e_fhouse]
On=@Login
call uid.<uid.<region.uid>.more2>.frights <src.uid>
if !(<local.rights>)
src.p <uid.<uid.<region.uid>.more2>.p>
endif

On=@ItemClick
if (<act.region.uid> == <region.uid>) && !(<act.cont>) && (<act.attr>&attr_move_never) && !(<act.type> = t_fsecure) && !((<act.baseid> == i_strong_box) || (<act.type> == t_door) || (<act.type> == t_door_locked) || (<act.type> == t_sign_gump) || (<act.type> == t_stone_guild))
act.message [sabit]
endif

[function fstrongbox]
newitem i_strong_box
act.p <src.p>
act.link <args>
act.more2 <src.uid>

[function fstrongboxcount]
for 1 <def.maxstrongbox>
if (0<streat <streat <tag0.allow_<dlocal._for>>>>)
local.strongbox +=1
endif
endfor

[typedef t_fsecure]
On=@Click
message [sabit,kilitli]
if (<rescount> > 0)
message <typedef.name> [<rescount>,<eval ((<weight> / 10) - <typedef.weight>)>]
else
message <typedef.name>
endif
return 1

On=@DClick
call frights <src.uid>
if (<local.rights> > 2)
type t_container
use
type t_fsecure
endif

On=@PickUp_Ground
return 1

[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

On=@Click
if (<src.region.uid> == <link.uid>)
message <src.uid.<more2>.name>
endif
if (<rescount> > 0)
message a <name> [<rescount>,<eval ((<weight> / 10) - <typedef.weight>)>]
else
message a strongbox [esya yok]
endif
return 1

On=@DClick
call frights <src.uid>
if (<local.rights> > 1)
if (<link.more1> == <src.uid>) || (<more2> == <src.uid>) || (<src.account.plevel> > 5)
if (<def.abletopassword> = 1)
src.ctag.password
src.ctag.strongbox
src.ctag.newpassword
src.ctag.strongboxuid <uid>
try uid.<link.more2>.fhouse 10
return 1
endif
else
return 1
endif
endif

On=@PickUp_Ground
return 1
endif

[function faddmember]
src.targ.ctag.argn1 <argn1>
src.targ.ctag.argn2 <argn2>
src.targ.ctag.argn3 <argn3>
src.targ.timerf 1,sdialog d_fquestion

[dialog d_fquestion]
5,5
nomove
resizepic 0 0 9300 275 120
checkertrans 0 0 275 155
resizepic 5 5 9300 265 110

dhtmlgump 15 20 223 60 0 0 <uid.<src.ctag.argn1>.name>, sizi bu eve <qval (strmatch(<src.dctag.argn3>,1))?dost:ortak> olarak eklemek istiyor, kabul ediyormusunuz?
dhtmlgump 40 60 140 20 0 0 Evet
dhtmlgump 40 80 150 20 0 0 Hayir
button 20 60 56 55 1 0 1
button 20 80 56 55 1 0 2

[dialog d_fquestion button]
on=1
if (strmatch(<src.dctag.argn3>,1))
local.faddmember <ddef.maxfriend>
elseif (strmatch(<src.dctag.argn3>,2))
local.faddmember <ddef.maxcoowner>
endif

if (<uid.<src.ctag.argn2>.tag0.<qval (strmatch(<src.dctag.argn3>,1))?friend:coowner>> < <local.faddmember>)
try uid.<src.ctag.argn2>.tag0.<qval (strmatch(<src.dctag.argn3>,1))?friend:coowner> <eval <uid.<src.ctag.argn2>.tag0.<qval (strmatch(<src.dctag.argn3>,1))?friend:coowner>> + 1>
for 1 <local.faddmember>
if !(<uid.<src.ctag.argn2>.tag0.allow_<dlocal._for>>)
try uid.<src.ctag.argn2>.tag.allow_<dlocal._for> <src.dctag.argn3> <src.uid>
try uid.<src.ctag.argn1>.sysmessage @55 <src.name>, eve <qval (strmatch(<src.dctag.argn3>,1))?dost:ortak> olarak eklendi.
src.sysmessage @55 Bu eve <qval (strmatch(<src.dctag.argn3>,1))?dost:ortak> olarak eklendiniz.
return 1
endif
endfor
else
src.sysmessage @55 Bu evin <qval (strmatch(<src.dctag.argn3>,1))?dost:ortak> ekleme limiti dolmus.
endif

on=2
try uid.<src.ctag.argn1>.sysmessage @55 Teklifiniz kabul edilmedi.


[dialog d_fhouse]
5,5
resizepic 0 0 9300 385 240
checkertrans 0 0 385 240
resizepic 5 5 9300 375 230

button 10 20 100 100 0 1 99
dhtmlgump 40 40 100 20 0 0 Ev Sahibi:
dhtmlgump 30 60 130 40 0 0 <uid.<link.more1>.name>
dhtmlgump 40 160 100 20 0 0 Komutlar
dhtmlgump 40 180 100 20 0 0 Re-Deed
dhtmlgump 40 200 100 20 0 0 Devret
dhtmlgump 160 160 100 30 0 0 Dost Ekle
dhtmlgump 160 180 100 20 0 0 Dost Listesi
dhtmlgump 160 200 100 20 0 0 Dost Temizle
dhtmlgump 280 160 100 20 0 0 Ortak Ekle
dhtmlgump 280 180 100 20 0 0 Ortak Listesi
dhtmlgump 280 200 100 20 0 0 Ortak Temizle
button 20 160 56 55 0 3 99 //99 no action
button 20 180 56 55 0 4 99
button 20 200 56 55 0 5 99
button 140 160 56 55 1 0 1 //add friend
button 140 180 56 55 0 6 99
button 140 200 56 55 0 7 99
button 260 160 56 55 1 0 2 //add coowner
button 260 180 56 55 0 8 99
button 260 200 56 55 0 9 99

page 1 //default
call uid.<link>.fstrongboxcount
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Evin Ismi : <name>
dhtmlgump 180 40 160 20 0 0 <def.bfont_red>Yikilmasina : <qval (<morex> = 1) ? <eval (<timer> / 86400)>:<eval (<timer> / 86400) +1>>g <eval ((<timer> / 3600) - (<timer> / 86400) * 24)>s <eval ((<timer> / 60) - (<timer> / 3600) * 60)>d
dhtmlgump 160 60 160 20 0 0 Esya <link.dtag0.item>/<ddef.maxitem>
dhtmlgump 160 80 160 20 0 0 Dost <link.dtag0.friend>/<ddef.maxfriend>
dhtmlgump 160 100 160 20 0 0 Ortak <link.dtag0.coowner>/<ddef.maxcoowner>
dhtmlgump 260 60 160 20 0 0 Strongbox <dlocal.strongbox>/<ddef.maxstrongbox>
dhtmlgump 260 80 160 20 0 0 Kilitli <link.dtag0.securebox>/<ddef.maxsecurebox>

button 160 20 56 55 0 2 99
button 160 40 56 55 1 0 3

page 2 //change name
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Yeni Ev Ismi
resizepic 180 40 3000 180 20
dtextentry 190 40 160 20 0 1
button 180 80 56 55 1 0 4
button 260 80 56 55 0 1 99
dhtmlgump 200 80 150 20 0 0 Degistir
dhtmlgump 280 80 150 20 0 0 Iptal

page 3 //commands 1
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Komutlar
button 340 20 015e3 015e7 0 1 99 //last
dhtmlgump 180 40 190 100 1 1 <def.bfont_red><qval (<def.housebank> = 1)?house bank - bank<def.br>:?>house menu - menu <def.br>house help - help<def.br>i ban thee<def.br>i wish to place a strongbox<def.br>i wish remove this<def.br>i wish lock this down<def.br>i wish release this<def.br>i wish to secure this<def.br>item up<def.br>item down

page 4 //re-deed
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Re-Deed (topla)
button 340 20 015e3 015e7 0 1 99 //last
dhtmlgump 180 40 200 40 0 0 Evi re-deed edecekmisiniz? Eve ait tum esyalar silinecek.
button 180 80 56 55 1 0 6
button 260 80 56 55 0 1 99
dhtmlgump 200 80 150 20 0 0 Evet
dhtmlgump 280 80 150 20 0 0 Hayir

page 5 //change owner
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Devret
button 340 20 015e3 015e7 0 1 99 //last
dhtmlgump 180 40 200 40 0 0 Evi baska bir oyuncuya devretmek istediginize eminmisiniz?
button 180 80 56 55 1 0 7
button 260 80 56 55 0 1 99
dhtmlgump 200 80 150 20 0 0 Evet
dhtmlgump 280 80 150 20 0 0 Hayir

page 6 //friends list
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Dost Listesi
button 340 20 015e3 015e7 1 0 8 //last
if (<eval <link.tag0.friend> -4> > <src.ctag0.flist>)
button 360 20 015e1 015e5 1 0 9 //next
endif
dorigin 0 20
for 1 4
if (<strarg <link.tag0.allow_<eval <local._for> + <src.ctag.flist>>>> = 1)
button 160 *20 56 55 1 0 <eval (<local._for> + <src.ctag.flist>) +99>
dhtmlgump 180 - 150 20 0 0 <uid.<strarg <streat <link.tag0.allow_<eval <local._for> + <src.ctag.flist>>>>>.name> <eval (<local._for> + <src.ctag.flist>) +99>
endif
endfor

page 7 //friends clear
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Dost Temizle
button 340 20 015e3 015e7 0 1 99 //last
dhtmlgump 180 40 200 40 0 0 Evinize dost olan tum oyunculari silmek istediginizden eminmisiniz?
button 180 80 56 55 1 0 10
button 260 80 56 55 0 1 99
dhtmlgump 200 80 150 20 0 0 Evet
dhtmlgump 280 80 150 20 0 0 Hayir

page 8 //coowner list
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Ortak Listesi
button 340 20 015e3 015e7 1 0 11 //last
if (<eval <link.dtag0.coowner> -4> > <src.ctag0.flist>)
button 360 20 015e1 015e5 1 0 12 //next
endif
dorigin 0 20
for 1 4
if (<strarg <link.dtag0.allow_<eval <local._for> + <src.ctag.flist>>>> = 2)
button 160 *20 56 55 1 0 <eval (<local._for> + <src.ctag.flist>) +199>
dhtmlgump 180 - 150 20 0 0 <uid.<strarg <streat <link.tag0.allow_<eval <local._for> + <src.ctag.flist>>>>>.name> <eval (<local._for> + <src.ctag.flist>) +199>
endif
endfor

page 9 //coowners clear
dhtmlgump 180 20 150 20 0 0 <def.bfont_blue>Ortak Temizle
button 340 20 015e3 015e7 0 1 99 //last
dhtmlgump 180 40 200 40 0 0 Evinize ortak olan tum oyunculari silmek istediginizden eminmisiniz?
button 180 80 56 55 1 0 13
button 260 80 56 55 0 1 99
dhtmlgump 200 80 150 20 0 0 Evet
dhtmlgump 280 80 150 20 0 0 Hayir

page 10 //strongbox password
dhtmlgump 180 20 200 20 0 0 <def.bfont_blue>Strongbox Sifresi
resizepic 180 40 3000 60 20
if (strlen(<src.ctag0.password>) = 2)
dhtmlgump 190 40 200 20 0 0 <strsub 1 1 <src.ctag.password>>
elseif (<src.ctag0.password>) && (strlen(<src.ctag0.password>) > 2)
for <eval (strlen(<src.ctag.password>)) -1>
dhtmlgump <eval (<local._for> *10) +180> 40 200 20 0 0 *
endfor
endif

ref1=<src.ctag.strongboxuid>
if (<ref1.tag0.password>) && (strlen(<src.ctag0.password>) < 5)
dhtmlgump 180 60 200 20 0 0 <def.bfont_red>4 haneli sifrenizi girin
if (strlen(<src.ctag0.password>) > 1)
button 240 40 56 55 1 0 33
dhtmlgump 260 40 150 20 0 0 Sifirla
endif
elseif !(<ref1.tag0.password>)
dhtmlgump 180 60 200 20 0 0 <def.bfont_red>Daha once sifre belirlemediniz
elseif (<ref1.tag0.password>) && (<ref1.tag0.password> = <src.ctag0.password>)
dhtmlgump 180 60 200 20 0 0 <def.bfont_blue>Girdiginiz sifre dogru
endif

//**********************\\ special thank%s 2 "jeem" 4 this code%s x) //**********************\\

button 180 80 <qval (<src.ctag0.password>) ? <qval (strlen(<src.ctag0.password>) < 5) ? 56 : 55> : 55> 55 <qval (<src.ctag0.password>) ? <qval (strlen(<src.ctag0.password>) < 5) ? 1 : 0> : 0> 0 20
dhtmlgump 185 100 150 20 0 0 0

dorigin 180 80
for 9
button *15 - <qval (strlen(<src.ctag0.password>) < 5) ? 56 : 55> 55 <qval (strlen(<src.ctag0.password>) < 5) ? 1 : 0> 0 <eval <local._for> +20>
dhtmlgump +5 +20 150 20 0 0 <dlocal._for>
endfor

button 240 <qval (<src.ctag0.strongbox> = 1) ? 40 : -4000> 56 55 1 0 30
button 300 <qval (<src.ctag0.strongbox> = 1) ? 40 : -4000> 56 55 0 1 31
dhtmlgump 260 <qval (<src.ctag0.strongbox> = 1) ? 40 : -4000> 150 20 0 0 Ac
dhtmlgump 320 <qval (<src.ctag0.strongbox> = 1) ? 40 : -4000> 150 20 0 0 Sifre

button 240 <qval (<src.ctag0.newpassword> = 1) ? 40 : -4000> 56 55 1 0 32
button 300 <qval (<src.ctag0.newpassword> = 1) ? 40 : -4000> 56 55 1 0 33
dhtmlgump 260 <qval (<src.ctag0.newpassword> = 1) ? 40 : -4000> 150 20 0 0 Tamam
dhtmlgump 320 <qval (<src.ctag0.newpassword> = 1) ? 40 : -4000> 150 20 0 0 Iptal

[dialog d_fhouse button]
on=1 //friend add
call frights <src.uid>
if (<local.rights> > 1)
morex 1
target @55 Eve dost olarak eklenecek kisiyi secin.
else
src.sysmessage @55 Bunu sadece ev sahibi veya ortagi yapabilir.
fhouse 1
endif

on=2 //coowner add
call frights <src.uid>
if (<local.rights> > 2)
morex 2
target @55 Eve ortak olarak eklenecek kisiyi secin.
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
fhouse 1
endif

on=3 //refresh
call frights <src.uid>
if (<local.rights> > 2)
src.sysmessage @55 Eviniz yenilendi.
timer=60*60*24*<eval <def.removeday> -1>
morex=00
color=00
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
endif
fhouse 1

on=4 //change name
call frights <src.uid>
if (<local.rights> > 2)
name <argtxt[1]>
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
endif
fhouse 1

on=6 //re-deed
call frights <src.uid>
if (<local.rights> > 2)
src.newitem=i_deed
src.act.more=<link.baseid>
src.act.name=<link.name>
src.act.bounce
src.act.attr 04
link.remove
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
fhouse 1
endif

on=7 //change owner
call frights <src.uid>
if (<local.rights> > 2)
morex 3
target @55 Evi devredeceginiz kisiyi secin.
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
fhouse 1
endif

on=8 //last page friends list
if (<src.ctag0.flist> < 4)
fhouse 1
else
src.ctag.flist -=4
fhouse 6
endif

on=9 //next page friends list
src.ctag.flist +=4
fhouse 6

on=10 //friends clear
call frights <src.uid>
if (<local.rights> > 1)
for 1 <def.maxfriend>
if (<strarg <link.tag0.allow_<dlocal._for>>> = 1)
link.tag.allow_<dlocal._for>
endif
endfor
link.tag.friend 0
src.sysmessage @55 Eve dost olan tum oyuncular silindi.
else
src.sysmessage @55 Bunu sadece ev sahibi veya ortagi yapabilir.
endif

on=11 //last page friends list
if (<src.ctag0.flist> < 4)
fhouse 1
else
src.ctag.flist -=4
fhouse 8
endif

on=12 //next page friends list
src.ctag.flist +=4
fhouse 8

on=13 //coowners clear
call frights <src.uid>
if (<local.rights> > 2)
for 1 <def.maxcoowner>
if (0<strarg <link.dtag0.allow_<dlocal._for>>> = 2)
try uid.0<streat <streat <link.tag0.allow_<dlocal._for>>>>.remove
link.tag.allow_<dlocal._for>
endif
endfor
link.tag.coowner 0
src.sysmessage @55 Eve ortak olan tum oyuncular silindi.
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
endif

on=100,120
call frights <src.uid>
if (<local.rights> > 1)
src.sysmessage @55 <uid.<strarg <streat <link.tag.allow_<eval <argn> -99>>>>.name>, dost listenizden silindi.
link.tag0.friend -=1
link.tag0.allow_<eval <argn> -99>

for 1 <def.maxfriend>
if !(<link.tag0.allow_<eval <local._for>>>)
link.tag0.allow_<eval <local._for>> <link.tag0.allow_<eval <local._for> +1>>
link.tag0.allow_<eval <local._for> +1>
endif
endfor
fhouse 6
else
src.sysmessage @55 Bunu sadece ev sahibi veya ortagi yapabilir.
endif

on=200,208
call frights <src.uid>
if (<local.rights> > 2)
src.sysmessage @55 <uid.<strarg <streat <link.tag.allow_<eval <argn> -199>>>>.name>, ortak listenizden silindi.
link.tag0.coowner -=1
if (0<streat <streat <link.tag0.allow_<eval <argn> -199>>>>)
try uid.<streat <streat <link.tag0.allow_<eval <argn> -199>>>>.remove
endif
link.tag0.allow_<eval <argn> -199>

for 1 <def.maxcoowner>
if !(<link.tag0.allow_<eval <local._for>>>)
link.tag0.allow_<eval <local._for>> <link.tag0.allow_<eval <local._for> +1>>
link.tag0.allow_<eval <local._for> +1>
endif
endfor
fhouse 8
else
src.sysmessage @55 Bunu sadece ev sahibi yapabilir.
endif

on=20 29
ref1=<src.ctag.strongboxuid>
src.ctag.password .= <eval <argn> - 20>
if (strlen(<src.ctag0.password>) > 4)
if (<ref1.tag0.password>) && (<ref1.tag0.password> = <src.ctag.password>)
src.ctag.strongbox 1
elseif !(<ref1.tag0.password>)
src.ctag.newpassword 1
else
src.dialogclose d_fhouse
src.ctag.password
src.sysmessage @55 Sifre yanlis
endif
endif
fhouse 10

on=30
ref1=<src.ctag.strongboxuid>
ref1.open

on=32
ref1=<src.ctag.strongboxuid>
ref1.tag0.password <src.ctag0.password>
ref1.open
src.sysmessage @55 Strongbox sifreniz [<strsub 1 4 <src.ctag.password>>] olarak belirlendi.

on=33
src.ctag.password
src.ctag.newpassword
fhouse 10

[function ftargonchar]
call frights <src.targ.uid>
if (<dmorex> > 9)
return 0
elseif (<local.rights> > 0)
src.sysmessage @55 <src.targ.name>, bu eve zaten uye.
elseif !(<src.targ.region.uid> == <region.uid>)
src.sysmessage @55 <src.targ.name>, evinizde degil.
else
if (<dmorex> = 1) && (<src.targ.npc> < 1) //add friend
if (<link.tag0.friend> < <def.maxfriend>)
src.sysmessage @55 Dost ekleme teklifi soruluyor.
faddmember <src.uid> <link.uid> 1
else
src.sysmessage @55 Bu eve daha fazla dost ekleyemezsiniz.
endif
elseif (<dmorex> = 2) && (<src.targ.npc> < 1) //add coowner
if (<link.tag0.coowner> < <def.maxcoowner>)
src.sysmessage @55 Ortak ekleme teklifi soruluyor.
faddmember <src.uid> <link.uid> 2
else
src.sysmessage @55 Bu eve daha fazla ortak ekleyemezsiniz.
endif
elseif (<dmorex> = 3) && (<src.targ.npc> < 1) //change owner
if (<src.targ.memoryfindtype.memory_guard>)
if !(<src.targ.memoryfindtype.memory_guard.link.type> == t_ship)
src.sysmessage @55 <src.targ.name>, zaten bir eve sahip.
return 1
endif
endif
if (<src.memoryfindtype.memory_guard>)
if (<src.memoryfindtype.memory_guard.link> == <link.uid>)
src.memoryfindtype.memory_guard.remove
endif
endif
link.more1 <src.targ.uid>
src.sysmessage @55 <src.targ.name>, evin yeni sahibi.
src.targ.sysmessage @55 Evin yeni sahibi sizsiniz.
src.newitem i_key_copper
src.act.cont <src.targ.findlayer.21.uid>
src.act.link <link.uid>
src.act.more <link.uid>
src.act.attr 04
elseif (<dmorex> = 4) //ban the bastard x)
src.sysmessage @55 <src.targ.name>, evden kovuldu.
src.targ.sysmessage @55 <src.name>, sizi evden kovdu.
src.targ.go <p>
endif
endif

[function ftargonitem]
if (<src.targ.cont>) || (<src.targ.type> == t_stone_guild) || (<src.targ.type> == t_spell) || (<src.targ.baseid> == i_corpse) || (<src.targ.type> == t_blood) || (<src.targ.type> == t_door) || (<src.targ.type> == t_door_locked) || (<src.targ.baseid> == i_pouch) || (<src.targ.baseid> == i_sign_brass)
src.sysmessage @55 Bunun uzerinde islem yapamazsiniz.
elseif !(<src.targ.region.uid> == <link.region.uid>)
src.sysmessage @55 Esya evinizde degil.
else
if (<dmorex> = 10) && (<src.targ.attr>&attr_move_never) && (<src.targ.baseid> = i_strong_box) && (<src.targ.more2> == <src.uid>) || (<link.more1> == <src.uid>)
for 1 <def.maxcoowner>
if (0<strarg <streat <link.tag0.allow_<dlocal._for>>>> = <src.targ.more2>)
link.tag.allow_<dlocal._for> 2 <src.targ.more2> 0
src.targ.remove
else
if (<link.more1> = <src.uid>)
link.tag.allow_0
endif
src.targ.remove
endif
return 1
endfor
elseif (<dmorex> = 11) && !(<src.targ.attr>&attr_move_never) && !(<src.targ.link.baseid>)
if (<src.targ.isneartype t_sign_gump 2>) || (<src.targ.isneartype t_door 2>) || (<src.targ.isneartype t_door_locked 2>)
src.sysmessage @55 Evin tabela veya kapi yakinlarina esya sabitleyemezsiniz.
else
if (<link.tag0.item> < <ddef.maxitem>)
link.tag0.item +=1
src.targ.link <link.uid>
src.targ.attr <src.targ.attr>&~attr_decay
src.targ.attr <src.targ.attr>|attr_move_never
src.targ.timer -1
src.targ.message [sabit]
src.targ.message <src.targ.name>
else
src.sysmessage @55 Bu eve daha esya sabitleyemezsiniz.
endif
endif
elseif (<dmorex> = 12) && (<src.targ.attr>&attr_move_never) && !(<src.targ.baseid> == i_strong_box)
link.tag0.item -=1
if (<src.targ.type> = t_fsecure)
link.tag0.securebox -=1
endif
src.targ.link 04fffffff
src.targ.attr <src.targ.attr>&~attr_move_never
src.targ.attr <src.targ.attr>|attr_decay
src.targ.tag.updown
src.targ.message [sabit degil]
src.targ.message <src.targ.name>
elseif (<dmorex> = 13) && (<src.targ.attr>&attr_move_never) && (<src.targ.link> == 04fffffff)
src.targ.nudgeup 1
src.targ.tag0.updown +=1
elseif (<dmorex> = 14) && (<src.targ.attr>&attr_move_never) && (<src.targ.link> == 04fffffff)
if (<src.targ.tag0.updown> > 0)
src.targ.nudgedown 1
src.targ.tag0.updown -=1
endif
elseif (<dmorex> = 15)
if (<link.tag0.securebox> < <ddef.maxsecurebox>)
if (<src.targ.type> = t_fsecure) || (<src.targ.baseid> = i_strong_box)
src.sysmessage @55 Bu kutu veya canta zaten kilitli.
elseif !(<src.targ.type> = t_container)
src.sysmessage @55 Sadece kutu ve cantalari kilitlebilirsiniz.
elseif !(<src.targ.attr>&attr_move_never)
src.sysmessage @55 Kilitlemek istediginiz kutuyu, once sabitlemelisiniz.
else
link.tag0.securebox +=1
src.targ.type t_fsecure
src.targ.link <link.uid>
src.targ.message [kilitli]
src.targ.message <src.targ.name>
endif
else
src.sysmessage @55 Bu eve daha kutu kilitleyemezsiniz.
endif
endif
endif

[speech spk_house_cmds]
on=menu
on=house menu
call uid.<more2>.frights <src.uid>
if (<local.rights> > 0)
try uid.<more2>.fhouse 1
endif

on=help
on=house help
call uid.<more2>.frights <src.uid>
if (<local.rights> > 0)
try uid.<more2>.fhouse 3
endif

on=i ban thee
call uid.<more2>.frights <src.uid>
if (<local.rights> > 0)
try uid.<more2>.morex 4
try uid.<more2>.target @55 Evden kovacaginiz kisiyi secin.
endif

on=i wish to place a strongbox
call uid.<more2>.frights <src.uid>
if (<local.rights> > 1)
if (<more1> = <src.uid>) && (<tag0.allow_0>)
src.sysmessage @55 Size ait bir strongbox var.
return 1
elseif (<more1> = <src.uid>) && !(<tag0.allow_0>)
src.fstrongbox <uid>
tag.allow_0 1
return 1
endif
call fstrongboxcount
if (<local.strongbox> >= <def.maxstrongbox>)
src.sysmessage @55 Bu eve daha fazla strongbox koyamazsiniz.
return 1
endif
for 1 <def.maxcoowner>
if (0<strarg <streat <tag0.allow_<dlocal._for>>>> = <src.uid>)
if (0<streat <streat <tag0.allow_<dlocal._for>>>>)
src.sysmessage @55 Size ait bir strongbox var.
else
src.fstrongbox <uid>
tag.allow_<dlocal._for> 2 <src.uid> <new>
endif
return 1
endif
endfor
endif

on=i wish to remove this
call uid.<more2>.frights <src.uid>
if (<local.rights> > 1)
try uid.<more2>.morex 10
try uid.<more2>.target
endif

on=i wish to lock this down
call uid.<more2>.frights <src.uid>
if (<local.rights> > 1)
if (<tag0.item> < <ddef.maxitem>)
try uid.<more2>.morex 11
try uid.<more2>.target
else
src.sysmessage @55 Bu eve daha esya sabitleyemezsiniz.
endif
endif

on=i wish to release this
call uid.<more2>.frights <src.uid>
if (<local.rights> > 1)
try uid.<more2>.morex 12
try uid.<more2>.target
endif

on=item up
call uid.<more2>.frights <src.uid>
if (<local.rights> > 1)
try uid.<more2>.morex 13
try uid.<more2>.target
endif

on=item down
call uid.<more2>.frights <src.uid>
if (<local.rights> > 1)
try uid.<more2>.morex 14
try uid.<more2>.target
endif

on=bank
call uid.<more2>.frights <src.uid>
if (<local.rights> > 0)
if (<def.housebank> = 1)
src.bankself
endif
endif

on=i wish to secure this
call uid.<more2>.frights <src.uid>
if (<local.rights> > 2)
if (<tag0.securebox> < <ddef.maxsecurebox>)
try uid.<more2>.morex 15
try uid.<more2>.target
else
src.sysmessage @55 Bu eve daha fazla kutu kilitleyemezsiniz.
endif
endif

[eof]