bi kaç serverda kullandığım için yayınlamayı uygun gördüm.Hataları pm atabilirsiniz.



[Comment Hapis Sistemi]

yazar: KeLL

tarih: 30 Haziran 2008 -Saat:20.35

uzunluk:Commentle birlikte 96 satır



[defname hapis]

suc1 Hakaret / Küfür

suc2 Bug Abuse

suc3 Alan İhlali

suc4 Hatalı Page

suc5 Yetkiliye saygısızlık

sucsure1 7200	// 2 saat

sucsure2 21600	// 6 saat

sucsure3 3600	// 1 saat

sucsure4 3600	// 1 saat

sucsure5 3600	// 1 saat



[function hapis]

sdialog d_hapisdialog



[function affet]

targetf f_affet



[function f_affet]

if (<argo.restest 1 i_jailcik>)

argo.findid.i_jailcik.timer 1

endif



[dialog d_hapisdialog]

0,0

nomove

resizepic 0 0 9400 300 250

dhtmlgump 90 *10 300 30 0 0  <def.BFONT_SIZE7> <def.BFONT_RED> <serv.name> UO Hapis Menüsü

for a 1 5

dhtmlgump 30 ((<dlocal.a>*20)+25) 300 30 0 0 <def.suc<dlocal.a>>

button 10 ((<dlocal.a>*20)+25) 2511 2510 1 0 <dlocal.a>

endfor



[dialog d_hapisdialog BUTTON]

on 1 5

sys_norm <def.suc<argn>> Suçundan hapse atmak istediğiniz oyuncuyu seçin!

targetf f_cezaver



[function f_cezaver]

obj= <argo>

obj.tag.sucu <def.suc<argn1>>

obj.go jail

obj.events e_hapis

newitem i_jailcik

new.timer <def.sucsure<argn1>>

new.cont <obj.uid>



[itemdef i_jailcik]

id=i_memory

type=t_eq_script

name=jailsuresi



on=@create

attr attr_decay|attr_invis|attr_newbie



on=@timer

cont.tag.ceza

cont.events -e_hapis

cont.go 5280,1186

cont.sys_ok Cezaniz sona erdi.



[events e_hapis]

on=@click

if (<findid.i_jailcik>)

local.temp = <findid.i_jailcik.timer>

local.hours = <dlocal.temp> / 3600

local.temp = <dlocal.temp> - (3600 * <dlocal.hours>)

local.minutes = <dlocal.temp> / 60

local.seconds = <dlocal.temp> - (60 * <dlocal.minutes>)

msg_er [<dlocal.hours> saat, <dlocal.minutes> dakika, <dlocal.seconds> saniye]

msg_er [<tag0.sucu>]

endif

on=@damage

return 1

on=@hit

return 1

on=@gethit

return 1

on=@spelleffect

return 1

on=@spellcast

f_fizzle

return 1

on=@skillstart

src.action -1

return 1

on=@itemdclick

sys_er Cezalıyken yapamazsınız!

return 1

on=@death

timerf 1,resurrect

Değerlendirmeler

0

Total votes: 0