|
[itemdef I_hp_basici]
ID=I_robe
NAME=HITS ROBE
VALUE=25000000
DYE=0
WEIGHT=0
ARMOR=0
TYPE=T_CLOTHING
on=@CREATE
ATTR 4
COLOR 080a
hitpoints 9999
ON=@CLICK
message @07a1,1 Hits Robe
RETURN 1
ON=@EQUIP
TRIGGER @TIMER
ON=@TIMER
TIMER=20
CONT.HITS +=30
IF (<CONT.HITS> > <CONT.maxhits>)
CONT.HITS = <CONT.maxhits>
ENDIF
RETURN 1
[itemdef I_hp_basici]
ID=I_robe
NAME=HITS ROBE
VALUE=25000000
DYE=0
WEIGHT=0
ARMOR=0
TYPE=T_CLOTHING
on=@CREATE
ATTR 4
COLOR 080a
hitpoints 9999
Timer=259200
ON=@CLICK
message @07a1,1 Hits Robe
src.sysmessage @07a1,1,1 <f_timergoster <timer>> Saniye sonra silinecek.
RETURN 1
ON=@EQUIP
src.f_hpci
on=@timer
remove
return 1
[FUNCTION f_timergoster]
if (<args> > 86400)
local.sure=<EVAL <args>/86400> gün <EVAL <EVAL <args>%86400>/3600> saat <EVAL <EVAL <EVAL <args>%86400>%3600>/60> dakika <EVAL <EVAL <EVAL <args>%86400>%3600>%60> saniye
Elseif (<args> > 3600)
local.sure=<EVAL <args>/3600> saat <EVAL <EVAL <args>%3600>/60> dakika <EVAL <EVAL <args>%3600>%60> saniye
Elseif (<args> > 60)
local.sure=<EVAL <args>/60> dakika <EVAL <args>%60> saniye
Else
local.sure=<args> saniye
Endif
return <local.sure>
[FUNCTION f_hpci]
if !(<src.findid.i_hp_item>)
SERV.NEWITEM I_hp_item,1,<UID>,1
Endif
[itemdef I_hp_item]
name Hits Bonus
id 0186h
type t_eq_script
weight 0
layer layer_special
ON=@EQUIP
timer 1
ON=@timer
if !(<cont.findlayer(22).baseid>==I_hp_basici)
remove
Else
Cont.f_hp_bas
Timer=20
RETURN 1
endif
On=@Create
attr attr_invis|attr_newbie
[function f_hp_bas]
hits +=30
IF (<HITS> > <maxhits>)
HITS = <maxhits>
ENDIF
[itemdef I_hp_basici]
ID=I_robe
NAME=HITS ROBE
VALUE=25000000
DYE=0
WEIGHT=0
ARMOR=0
TYPE=T_CLOTHING
on=@CREATE
ATTR 4
COLOR 080a
hitpoints 9999
TAG0.SURE <Eval <Serv.Time> + (259200*10)> // (<SERV.TIME> + 10) 1 Saniyeye eşit
TIMER 20
ON=@CLICK
message @55,,1 <Zaman <EVAL (<DTAG0.SURE> - <SERV.TIME>)/10>>
message @07a1,1 Hits Robe
RETURN 1
ON=@EQUIP
ON=@TIMER
LOCAL.SURE <EVAL (<DTAG0.SURE> - <SERV.TIME>)/10>
IF (<DLOCAL.SURE> > 20)
TIMER 20
CONT.HITS +=30
IF (<CONT.HITS> > <CONT.maxhits>)
CONT.HITS = <CONT.maxhits>
ENDIF
ELSE
IF (<DLOCAL.SURE> > 0)
TIMER <DLOCAL.SURE>
ELSE
REMOVE
ENDIF
ENDIF
RETURN 1Sureyi yil ay gün saat dakika saniye bazlı göstermek içinde şöyle birşey kullanabilirsin[Function Zaman]
Local.Yil <Eval <Args>/31536000>
Local.Yildankalan <Eval <Args> - <Eval <dLocal.Yil>*31536000>>
Local.Ay <Eval <dLocal.Yildankalan>/2592000>
Local.AydanKalan <Eval <Eval <dLocal.Yildankalan> - <dLocal.Ay>*2592000>>
Local.Hafta <Eval <dLocal.Aydankalan>/604800>
Local.HaftadanKalan <Eval <Eval <dLocal.AydanKalan> - <dLocal.Hafta>*604800>>
Local.Gun <Eval <dLocal.HaftadanKalan>/86400>
Local.GundenKalan <Eval <Eval <dLocal.HaftadanKalan> - <dLocal.Gun>*86400>>
Local.Saat <Eval <dLocal.GundenKalan>/3600>
Local.SaatdanKalan <Eval <Eval <dLocal.GundenKalan> - <dLocal.Saat>*3600>>
Local.Dakika <Eval <dLocal.SaatdanKalan>/60>
Local.DakikadanKalan <Eval <Eval <dLocal.SaatdanKalan> - <dLocal.Dakika>*60>>
Local.Saniye <dLocal.DakikadanKalan>
If (<Args> >= 31536000)
Return <dLocal.Yil> yıl <dLocal.Ay> ay <dLocal.Hafta> hafta <dLocal.Gun> gün <dLocal.Saat> saat <dLocal.Dakika> dk <dLocal.Saniye> sn
ElseIf (<Args> < 31536000) && (<Args> >= 2592000)
Return <dLocal.Ay> ay <dLocal.Hafta> hafta <dLocal.Gun> gün <dLocal.Saat> saat <dLocal.Dakika> dk <dLocal.Saniye> sn
ElseIf (<Args> < 2592000) && (<Args> >= 604800)
Return <dLocal.Hafta> hafta <dLocal.Gun> gün <dLocal.Saat> saat <dLocal.Dakika> dk <dLocal.Saniye> sn
ElseIf (<Args> < 604800) && (<Args> >= 86400)
Return <dLocal.Gun> gün <dLocal.Saat> saat <dLocal.Dakika> dk <dLocal.Saniye> sn
ElseIf (<Args> < 86400) && (<Args> >= 3600)
Return <dLocal.Saat> saat <dLocal.Dakika> dk <dLocal.Saniye> sn
ElseIf (<Args> < 3600) && (<Args> >= 60)
Return <dLocal.Dakika> dk <dLocal.Saniye> sn
ElseIf (<Args> < 60)
Return <dLocal.Saniye> sn
Endif[Function Nekadar]
Src.Say <Zaman <ARGS>> şeklinde de test edebilirsin
/10>" <DTAG0.SURE> şeklinde kapalı olması gerekiyordu
|
|
| Konu | Kategori | Son cevap | Son yazan | Mesaj | Görüntüleme | |
|---|---|---|---|---|---|---|
|
|
Çanta içindeki çantaya item aktarma
Son cevap: 02-05 22:33 · Son yazan: Karaoglan · Mesaj: 5 · Görüntü: 3310
|
Script Yardımı | 02-05 22:33 | 5 | 3310 | |
|
|
Üzerinde item varken ingot seçme
Son cevap: 24-01 23:01 · Son yazan: astor · Mesaj: 7 · Görüntü: 3776
|
ITEM Script Yardımı | 24-01 23:01 | 7 | 3776 | |
|
|
Verdoarlarda item arama
Son cevap: 04-08 22:33 · Son yazan: 4s3d3 · Mesaj: 4 · Görüntü: 2520
|
DIALOG Script Yardımı | 04-08 22:33 | 4 | 2520 | |
|
|
Duvar atan item - Çözüldü
Son cevap: 11-05 11:16 · Son yazan: zeezvu · Mesaj: 12 · Görüntü: 6074
|
ITEM Script Yardımı | 11-05 11:16 | 12 | 6074 | |
|
|
İtem isimleri vs. sorunu
Son cevap: 10-04 01:41 · Son yazan: Athynas · Mesaj: 2 · Görüntü: 2008
|
ITEM Script Yardımı | 10-04 01:41 | 2 | 2008 |