Koydum...
[ITEMDEF i_sosyal_cris]
ID=01f19
type=t_eq_scriptple
name a Sosyal Crystal
Value=3000
weight 20
on=@create
tag.1 1
color 080a
attr attr_move_never|attr_newbie
On=@click
message @0481,,1 Ceza Sayaci
return 1
On=@dclick
if (<color> == 00542)
tag.1 <tag.bm>
tag.bm
color 00543
endif
if (<topobj.uid> != <src.uid>)
src.sysmessage Bunu kullanabilmeniz icin cantaniza almalisiniz.
else
sdialog d_sosyalinfo
endif
return 1
on=@targon_char
return 1
on=@targon_ground
return 1
on=@targon_item
if !(strmatch('<baseid>','i_sosyal_cris'))
src.sysmessage @38 Sistem hatasi.
return 1
endif
if (strmatch('<src.targ.type>','t_ore'))
tag.1 <eval <tag.1>>+<eval <src.targ.amount>>
src.sysmessage <eval <src.targ.amount>> ore eklediniz !
src.targ.remove
src.tag.cezaaldim2=<eval <tag.1>> + <eval <tag.cezaaldim2>>
else
src.sysmessage Bunu cristal'e ekleyemezsiniz.
endif
return 1
[dialog d_sosyalinfo]
100,0
resizepic 5 70 5054 250 200
resizepic 15 80 3000 231 180
dtext 50 85 1 Ore Tasiyici
tilepic 55 112 <eval 01bf2> // blood moss
gumppic 30 128 2443
dtext 50 130 5 <eval <tag.1>>
dtext 150 130 5 Cikart
dtext 130 190 100 Ekle
button 85 190 4005 4006 1 0 1
button 107 130 4005 4006 1 0 6
[dialog d_sosyalinfo TEXT]
[dialog d_sosyalinfo BUTTON]
on=1
target Lutfen cristal'e eklemek istediginiz ore'u secin.
on=6
cikisx=1
[itemdef i_sdelay]
name Skill Delay
id 0186a
type t_eq_script
weight 0
layer layer_special
On=@Create
attr attr_invis|attr_newbie
timer 3
On=@Equip
timer 3
On=@Timer
attr attr_decay
remove
[plevel 1]
basla
kazmaver
[plevel 2]
sosyal
sosyals
[function sosyal]
src.newitem i_sosyal_itemci
src.act.equip
[function sosyals]
src.newitem i_sosyal_itemci2
src.act.equip
[itemdef i_sosyal_itemci2]
id=i_memory
type=t_eq_script
name=sosyal
on=@equip
target @0481 Kimin " Sosyal Cezasina " Bakalim?
timer 20
on=@targon_char
src.dialog d_sosyalcezaveriom2
return 1
on=@timer
attr=attr_decay
remove
[dialog d_sosyalcezaveriom2]
0,0
page 0
resizepic 190 175 5120 335 260
resizepic 200 185 3000 317 240
//resizepic 214 260 3000 275 22 // ceza
//resizepic 214 300 3000 275 22
//resizepic 290 350 3000 200 22
htmlgump 220 195 200 20 0 0 0
htmlgump 220 215 240 20 1 0 0
htmlgump 220 260 240 20 2 0 0
htmlgump 220 280 240 20 6 0 0
htmlgump 220 295 240 20 8 0 0
//htmlgump 220 310 100 20 9 0 0
//htmlgump 460 382 100 20 3 0 0 // cezayi ver
//htmlgump 240 382 100 20 5 0 0 // vazgec
//textentry 220 260 253 25 0 0 4
//textentry 220 300 253 25 0 1 7
//textentry 300 350 253 25 0 2 10
htmlgump 220 380 300 20 11 0 0
//button 220 385 2103 2104 1 0 1 //
[dialog d_sosyalcezaveriom2 TEXT]
<serv.name> Sosyal Ceza Sistemi
Cezali player: <src.targ.name>
Verilen ceza miktari: <eval <tag.cezaaldim>>
Vazgec!
<tag.sosyal>
Cezayi ver!
Verilme sebebi: <tag.sosyalsebep>
<tag.sosyalsebep>
Cezayi veren: <src.name>
Ceza tarihi: <tag.sosyaltarih>
<tag.sosyaltarih>
Toplam Aldigi Ceza: <eval <tag.sosyalceza>>
[dialog d_sosyalcezaveriom2 BUTTON]
[itemdef i_sosyal_itemci]
id=i_memory
type=t_eq_script
name=sosyal
on=@equip
target @2085 'Sosyal ceza kime vereyim abi?
timer 20
on=@targon_char
src.dialog d_sosyalcezaveriom
return 1
on=@timer
attr=attr_decay
remove
[dialog d_sosyalcezaveriom]
0,0
page 0
resizepic 190 175 5120 335 260
resizepic 200 185 3000 317 240
resizepic 214 260 3000 275 22 // ceza
resizepic 214 300 3000 275 22
resizepic 290 350 3000 200 22
htmlgump 220 195 200 20 0 0 0
htmlgump 220 215 240 20 1 0 0
htmlgump 220 240 240 20 2 0 0
htmlgump 220 280 240 20 6 0 0
htmlgump 220 330 240 20 8 0 0
htmlgump 220 350 100 20 9 0 0
htmlgump 460 382 100 20 3 0 0 // cezayi ver
htmlgump 240 382 100 20 5 0 0 // vazgec
textentry 220 260 253 25 0 0 4
textentry 220 300 253 25 0 1 7
textentry 300 350 253 25 0 2 10
button 425 380 4018 4019 1 0 0
button 220 385 2103 2104 1 0 1 //
[dialog d_sosyalcezaveriom TEXT]
<serv.name> Sosyal Ceza Sistemi
Ceza alacak player: <src.targ.name>
Verilecek ceza miktari:
Vazgec!
<src.tag.sosyal>
Cezayi ver!
Verilme sebebi:
<src.tag.sosyalsebep>
Cezayi veren: <src.name>
Ceza tarihi: <serv.rtime>
<tag.sosyaltarih>
[dialog d_sosyalcezaveriom BUTTON]
On 0
sysmessage @0481,,1 Ceza i$lemi iptal edildi.
on 1
if !(<isnum <argtxt[0]>>)
sysmessage @0481,,1 Sadece rakam girmelisiniz.
return 1
else
src.targ.tag.sosyalsebep <argtxt[1]>
src.targ.tag.sosyaltarih <argtxt[2]>
src.targ.tag.cellatkim <src.name> // Kacamazsin bendeeen hayt! - lyn
src.targ.tag.kazdim=<src.mining>
src.targ.mining=1000
src.targ.tag.sosyalceza (<eval <src.targ.tag.sosyalceza>> + 1)
src.targ.go 5220,1862
src.targ.tag.cezaaldim <argtxt[0]>
src.targ.events +e_sosyal
src.targ.stone 1
src.targ.tag.cezalandimbe 1
src.targ.sysmessage @38 Sosyal hizmet cezasi aldiniz. <eval <src.targ.tag.cezaaldim>> adet ore toplamaniz gerekmektedir.Ba$lamak icin .basla yazmaniz yeterlidir.
src.targ.sysmessage @50 .Basla yaziniz!
return 1
endif
[events e_sosyal]
on=@click
if (<tag.cezalandimbe> == 1)
message [<eval(<tag.sosyalceza>>, Sosyal Ceza]
endif
On=@HitTry
if (<account.plevel> < 2)
return 1
endif
On=@SpellCast
if (<account.plevel> < 2)
f_fizzle
return 1
endif
On=@GetHit
if (<account.plevel> < 2)
src.hits=100
return 1
endif
On=@Attack
if (<account.plevel> < 2)
return 1
endif
On=@SkillStart
if (<account.plevel> < 2)
if !((<src.action> == id(Skill_MINING) || (<src.action> == Skill_MINING))
skill fail
return 1
endif
endif
[function kazmaver]
if (<src.isevent.e_sosyal>)
if (<tag.cezalandimbe> == 1)
if !(<findid.i_sosyal_pick>)
src.newitem i_sosyal_pick
src.act.equip
return 1
endif
endif
endif
[function basla]
if (<src.isevent.e_sosyal>)
if (<tag.cezalandimbe> == 1)
sysmessage @0481,,1 <eval <tag.cezaaldim>> Ore cikarcan calis kopek !!!
sysmessage @0481,,1 Ceza bitiminde cikmak icin cantandaki cristali kullanicaksin.
src.stone 0
src.newitem i_sosyal_pick
src.act.equip
src.newitem i_sosyal_cris
src.act.bounce
return 1
endif
endif
[function cikisx]
src.cikis
return 1
[function cikis]
if (<eval <tag.cezaaldim2>> > <eval <tag.cezaaldim>>)
src.go moonglow
src.tag.cezaaldim2
src.tag.cezaaldim
src.events -e_sosyal
src.mining=0
src.mining=<src.tag.kazdim>
src.findid.i_sosyal_pick.remove
src.findid.i_sosyal_cris.remove
src.tag.cezalandimbe
src.tag.aldimbenbunlari
src.tag.sosyaltarih
src.tag.sosyalsebep
src.tag.cellatkim
src.nightsight 0
src.tag.kazdim
else
src.sysmessage @0481,,1 Daha fazla ore cikarmalisiniz !!!
endif
[itemdef i_sosyal_eventer]
name Sosyal Eventer
id i_grave_stone
on=@create
color 0810
attr 010
timer 15
on=@click
message @0481,,1 Sosyal Ceza Kontrol
//message @0481,,1 <eval <tag.young>>
return 1
on=@dclick
if (<src.account.plevel> > 3)
sosyalkontrol=1
timer 5
else
src.Sysmessage Sosyal Ceza !!!
//sosyalkontrol=1
endif
return 1
on=@timer
sosyalkontrol=1
timer=200
return 1
[function sosyalkontrol2]
if (<account.plevel> < 2)
if !(<src.isevent.e_sosyal>)
events +e_sosyal
hits 100
str 100
stam 100
dex 100
nightsight 1
endif
endif
return 1
[function sosyalkontrol]
region.allclients sosyalkontrol2
return 1
[itemdef i_sosyal_pick]
id i_pickaxe
type T_WEAPON_MACE_PICK
flip 1
dam 1,15
twohands N
weight 0.1
dupelist 0e86
skillmake TINKERING 100.0,t_tinker_tools
resources 400 i_ingot_iron
On=@Create
hitpoints 5
attr attr_move_never|attr_newbie
color 38
On=@Click
message @0481,,1 a Social Axe
return 1
On=@TargOn_Item
return 1
On=@TargOn_Char
return 1
On=@TargOn_Ground
if <src.findlayer.layer_horse.uid>
src.sysmessage Binek altinizdayken kazi yapamazsiniz.
return 1
endif
on=@equip
if ((<src.body> == c_dragon_green))
src.sysmessage Dragon iken silah kullanamazsiniz.
unequip
return 1
endif
[plevel 5]
sosyalaf
[function sosyalaf]
src.targ.go moonglow
src.targ.tag.cezaaldim2
src.targ.tag.cezaaldim
src.targ.events -e_sosyal
src.targ.mining=0
src.targ.mining=<src.tag.kazdim>
src.targ.findid.i_sosyal_pick.remove
src.targ.findid.i_sosyal_cris.remove
src.targ.tag.cezalandimbe
src.targ.tag.aldimbenbunlari
src.targ.tag.sosyaltarih
src.targ.tag.sosyalsebep
src.targ.tag.cellatkim
src.targ.nightsight 0
src.targ.tag.kazdim
return 1
[EOF]
