Çok sene olduğu için .net konusunda emin değilim şu an, uzun süredir yazmıyorum.
Eski script packimi buldum sayende maillerimde; bunu atayım belki işine yarar değiştirirsin vs.
[ITEMDEF i_moongate]
ID=i_moongate_blue
TYPE=t_telepad
NAME=MoongateOn=@Create
color 0455
more1 5
attr 010On=@DClick
if !(<src.hits> >= <src.str>)
dialogclose d_moongate
src.sysh_trk Hata: Yaralı iken geçemezsiniz.
return 1
endifif !(<src.flags>&statf_stone)
if (<distance> > 3)
src.sysh_trk Hata: Moongateye ulaşamıyorsunuz.
else
if (<src.findid.i_moongater>)
src.findid.i_moongater.remove
endif
serv.newitem i_moongater
new.link <uid>
new.morep <morep>
new.equip
endif
endif
return 1ON=@Step
if !(<src.flags>&statf_dead) && !(<src.hits> >= <src.str>)
dialogclose d_moongate
src.sysh_trk Yaralı iken geçemezsiniz.
return 1
endifif !(<src.flags>&statf_stone)
if (<src.findid.i_moongater>)
src.findid.i_moongater.remove
endif
serv.newitem i_moongater
new.link <uid>
new.morep <morep>
new.equip
endif
return 1On=@Click
message @080a <name>
return 1On=@Timer
if (<more1>)
more1 <more1> - 1
timer 1
else
sfx 528
remove
endif
return 1
[itemdef i_moongater]
name Moongater
id i_handr_1
type t_eq_script
weight 0
layer layer_specialOn=@Create
attr attr_invis|attr_can_decayOn=@Equip
timer 30
src.sdialog d_moongate
On=@Timer
trysrc <topobj.uid> topobj.dialogclose d_moongate
remove
return 1[dialog d_moongate]
250,90
resizepic 0 0 9300 171 320
resizepic 12 12 9300 150 297
dtext 20 20 1153 <region.name>local.satir 50
for 1 7
dtext 55 <dlocal.satir> 0455 <serv.map(<def.sehir<dlocal._for>>,0).region.name>
button 35 <dlocal.satir> 0151a 01519 1 0 <dlocal._for>
local.satir +=30
endfordtext 55 <dlocal.satir> 0455 Skara Brae
button 35 <dlocal.satir> 0151a 01519 1 0 8
local.satir += 30
//dtext 55 <dlocal.satir> 0455 Pazar Alanı
//button 35 <dlocal.satir> 0151a 01519 1 0 9
[dialog d_moongate button]
On 0
findid.i_moongater.removeOn 1 8
if !(<src.flags>&statf_dead) && !(<src.hits> >= <src.str>)
src.sysh_trk Yaralı iken geçemezsiniz.
return 1
endif
if (<findid.i_moongater.link.distance> > 3)
src.sysh_trk Moongateye çok uzaksınız.
src.findid.i_moongater.remove
return 1
endif
local.sehirp1 Britain Moongate
local.sehirp2 Moonglow Moongate
local.sehirp3 2702,693,5 minoc-vesper moongate
local.sehirp4 trinsic moongate
local.sehirp5 771,752,5 yew moongate
local.sehirp6 1499,3772,5 jhelom moongate
local.sehirp7 3563,2139,34 magincia moongate
local.sehirp8 skara brae moongate
src.go <local.sehirp<dargn>>
findid.i_moongater.timer 1[itemdef i_gater]
name gater
id i_handr_1
type t_eq_script
weight 0
layer layer_specialOn=@Create
attr attr_invis|attr_can_decayOn=@Equip
timer 30
src.dialog d_gatetravel
On=@Timer
remove
return 1
[dialog d_gatetravel]
220,250
resizepic 0 0 9300 171 120
resizepic 12 12 9300 150 97
dtext 20 10 045 Gateden geçmek,
dtext 20 25 045 istiyormusunuz ?
dtext 55 50 1153 Evet
dtext 55 80 1153 Hayır
button 35 50 0151a 01519 1 0 1
button 35 80 0151a 01519 1 0 0[dialog d_gatetravel button]
On=0
findid.i_gater.removeOn=1
if !(<findid.i_gater.link.isitem>)
src.sysh_trk Gate siz geçmeden kapanmış.
findid.i_gater.remove
elseif (<findid.i_gater.link.distance> > 3)
src.sysh_trk Gateye çok uzaksınız.
findid.i_gater.remove
else
go <findid.i_gater.morep>
findid.i_gater.timer 2
endif[EOF]