Casper74 -     12-11-2011 23:20 GMT -    
Merhaba arkadaşlar Şimdiden yardimlariniz icin teşekkürederim sorunum arkadaşlar evi kurduktan sonra ortak edemiyorum tabelayi actiktan sonra ortak etme bölümüne giriyorum ve ortak et diyorum ve ortak simgesi geliyor ama evete tiklayamiyorum ama hayira tiklayabiliyorum bunu yapamadim bana ayarlarmisiniz scipteri versem acaba Evet işaretine tiklayamiyorum ama hayir işaretine tıklayabiliyorum acaba yardim edebilirmisiniz scipteri bu arkaşlar

//*******************//

//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.>)

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 Evet

button 20 80 56 55 1 0 2 Hayir



[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]

Son güncelleme: TheRaskol tarafından 13-11-2011 16:42 GMT tarihinde, önce.

Reckless -     13-11-2011 10:17 GMT -    

[dialog d_fquestion]

5,5

nomove

resizepic 0 0 9300 275 130

checkertrans 0 0 275 155

resizepic 5 5 9300 265 120



dhtmlgump 15 20 250 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 80 30 20 0 0 Evet

dhtmlgump 40 100 30 20 0 0 Hayir

button 20 80 56 55 1 0 1 Evet

button 20 100 56 55 1 0 2 Hayir

Yukarıdaki ile değiştirirsen sorun ortadan kalkıcaktır.
Son güncelleme: TheRaskol tarafından 13-11-2011 16:43 GMT tarihinde, önce.

Casper74 -     13-11-2011 14:24 GMT -    
Reckless

Cok teşekkür ederim allah razi olsun birde bi sıkıntım daha var small house kuruyorum her komut calişiyor ama büyük tower ve Keepde komutlar calişmiyor örnek I wish to lock this down calişmiyor i ban thee calişmiyor Stronxbox calişmiyor onlar icinde yardimci olurmusunuz acaba ?

Xearth -     14-11-2011 17:57 GMT -    
Region'a speech verdiğinizden emin olun ;

[speech spk_house_cmds]

bakın.