Exodus -  29-07-2009 13:27
Kod:
[EVENTS e_young]
ON=@HitTry
IF !(<TAG0.EVENT.ID>)
IF (<SRC.ISPLAYER>)
RETURN 1
ENDIF
ENDIF

ON=@Hit
IF !(<SRC.ISPLAYER>)
IF (<SRC.ACTION> == -1) || (<SRC.ACTION> == 069)
SRC.ATTACK <UID>
ENDIF
ENDIF

ON=@GetHit
IF !(<TAG0.EVENT.ID>)
IF (<SRC.ISPLAYER>)
RETURN 1
ENDIF
ENDIF

ON=@Login
IF (<HVAL <ACCOUNT.TOTALCONNECTTIME>/60> >= 40) || (<SKILLTOTAL> >= 4500)
MESSAGELOC 946,3,1019038
NAME=<TAG0.BEFOREYOUNGNAME>
TAG.BEFOREYOUNGNAME
EVENTS -e_young
UPDATE
ENDIF

ON=@ClientToolTip
IF !(<TAG0.EVENT.ID>)
SRC.ADDCLILOC 1049644,Young Player
ENDIF

ON=@DeathCorpse
IF !(<TAG0.EVENT.ID>)
GO 1470,1613,20
TRY UID.<ARGO.UID>.P=1470,1613,20
TRY UID.<ARGO.UID>.UPDATE
ENDIF

ON=@SpellCast
IF !(<TAG0.EVENT.ID>)
IF (<ACT.ISPLAYER>)
IF (!<ACT.ISEVENT.e_young>)
SYSMESSAGELOC 946,3,502650
ENDIF
ENDIF
ENDIF

ON=@LogOut
IF !(<TAG0.EVENT.ID>)
ARGN1=1
ENDIF

ON=@Attack
IF !(<TAG0.EVENT.ID>)
IF (!<SRC.ISPLAYER>)
SRC.ATTACK <UID>
ENDIF
ENDIF

[FUNCTION ISFIGHTINGME]
FORCHARMEMORYTYPE MEMORY_FIGHT
IF (<LINK> == <ARGN1>)
RETURN 1
ENDIF
ENDFOR
RETURN 0

[DIALOG D_NEWPLAYER_TEXT]
250,100
noclose

PAGE 0
resizepic 30 15 5120 430 410

FOR 29
gumppic <EVAL (<LOCAL._FOR>*15)+15> 15 0280a
IF (<LOCAL._FOR> < 29)
gumppic <EVAL (<LOCAL._FOR>*15)+13> 420 0280a
ENDIF
ENDFOR
gumppic 445 420 0280a

gumppic 415 30 203
gumppic 415 75 203
gumppic 415 105 203
FOR 13
gumppic 415 <EVAL (<LOCAL._FOR>*30)+2> 10460
ENDFOR

gumppic 30 30 202
gumppic 30 75 202
gumppic 30 105 202
gumppic 29 105 0242f
FOR 13
gumppic 45 <EVAL (<LOCAL._FOR>*30)+2> 10460
ENDFOR

gumppic 425 300 028ac
gumppic 425 150 028ab
gumppic 425 0 028aa

gumppic -5 10 028b5
gumppic 25 0 028b4
gumppic 45 130 028ab
gumppic -22 280 028a2

gumppic 368 50 0589
gumppic 377 60 01580

gumppic 85 35 0232d
dhtmlgump 125 45 100 35 0 0 <DEF.BFONT_WHITE>xxx Shard
gumppictiled 125 65 150 1 9101

button 310 400 02eec 02eed 1 0 0

dhtmlgump 110 130 270 250 1 1 <DEF.BFONT_SIZE7>xx Shard <SRC.NAME>!<DEF.BFONT_SIZE3><DEF.BR>Aciklama 1<DEF.BR><DEF.BFONT_RED>aciklama 2.<DEF.BR>aciklama 3<DEF.BR>son aciklama <DEF.HTMLLINK_SITE>.

[FUNCTION OPENDNEWPLAYERDIALOG]
DIALOG_UP D_NEWPLAYER_TEXT

[EOF]

YORUMLAR (1)

!Blues! 21-12-2010 10:50    
xx yerine <serv.name> kullansan.

BENZER SAYFALAR