Work for Brazilian ;)

 [ITEMDEF i_daemon_pot]
id=i_bottle_empty
name=Daemon Potion
TYPE=T_DAEMON_POTION
WEIGHT=0
ON=@Create
color=07a1
 
/////////////////////
 
[typedef t_daemon_potion]
on=@dclick
if (<src.findid.i_dpotion_timer>)
src.sysmessage @07a0 You're still with other Daemon Pot effect!
elif !(<src.findid.i_dpotion_timer>)
src.modar += 30
src.effect 3,i_fx_smoke,3,17,1
src.effect 1,01ed9,3,17,1
src.sysmessage @07a1 Now your armor has increased by 30 for 1 minute!
serv.newitem=i_dpotion_timer
src.equip <new>
consume 1
serv.newitem=i_bottle_empty
src.bounce <new>
src.update
endif
return 1
 
/////////////////////
 
[itemdef i_dpotion_timer]
NAME=Daemon Potion Timer
ID=i_memory
TYPE=t_eq_script
LAYER=layer_special
WEIGHT=0
on=@create
attr=attr_invis|attr_decay
color=07a8
on=@equip
timer=60
on=@timer
if !(<more1>)
cont.modar -= 30
cont.effect 1,01ed9,3,17,1
cont.sysmessage @07a3 Daemon Pot effect finished! You will be able to drink another in 20 seconds.
cont.update
more1=1
timer=20
elif (<more1>)
cont.sysmessage @07a3 Now you can drink another Daemon Pot <cont.name>!
remove
endif
return 1
[EOF]

[DEFNAME NEW_TRACKING_SYS]
USENEWTRACKING 1
[DIALOG D_NEW_TRACKING]
200,130
SRC.CLOSEALLDIALOGS
PAGE 0
RESIZEPIC 20 20 2600 400 400
RESIZEPIC 60 60 5120 320 320
CHECKERTRANS 60 60 320 320
PAGE 1
DTEXT 140 70 88 You tracked <EVAL <CTAG0.TRACKINGCHARS>> creatures.
button 70 112 015e1 015e5 0 2 1
dtext 90 110 33 Players (<EVAL <CTAG0.TRACKEDPLAYERS>>)
button 70 142 015e1 015e5 0 3 1
dtext 90 140 33 Humans (<EVAL <CTAG0.TRACKEDHUMANS>>)
button 70 172 015e1 015e5 0 4 1
dtext 90 170 33 Monsters (<EVAL <CTAG0.TRACKEDMONSTERS>>)
button 70 202 015e1 015e5 0 5 1
dtext 90 200 33 Animals (<EVAL <CTAG0.TRACKEDANIMALS>>)
PAGE 2
DTEXT 150 70 88 Tracking - Players
IF (<CTAG0.TRACKEDPLAYERS>)
FOR 0 <EVAL <CTAG0.TRACKEDPLAYERS>-1>
DTEXT <QVAL (<LOCAL._FOR> < 14) ? 90:300> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+100> <QVAL <UID.<CTAG0.TRACKEDPLAYERS.<EVAL <LOCAL._FOR>+1>>.ISPK> ? 33:55> <UID.<CTAG0.TRACKEDPLAYERS.<EVAL <LOCAL._FOR>+1>>.NAME>
button <QVAL (<LOCAL._FOR> < 14) ? 70:280> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+102> 015e1 015e5 1 0 <EVAL <LOCAL._FOR>+10>
ENDFOR
ELSE
DTEXT 90 110 55 No player tracked.
ENDIF
button 70 385 015e3 015e7 0 1 1
PAGE 3
DTEXT 150 70 88 Tracking - Humans
IF (<CTAG0.TRACKEDHUMANS>)
FOR 0 <EVAL <CTAG0.TRACKEDHUMANS>-1>
DTEXT <QVAL (<LOCAL._FOR> < 14) ? 90:300> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+100> <QVAL <UID.<CTAG0.TRACKEDHUMANS.<EVAL <LOCAL._FOR>+1>>.ISPK> ? 33:55> <UID.<CTAG0.TRACKEDHUMANS.<EVAL <LOCAL._FOR>+1>>.NAME>
button <QVAL (<LOCAL._FOR> < 14) ? 70:280> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+102> 015e1 015e5 1 0 <EVAL <LOCAL._FOR>+100>
ENDFOR
ELSE
DTEXT 90 110 55 No human tracked.
ENDIF
button 70 385 015e3 015e7 0 1 1
PAGE 4
DTEXT 150 70 88 Tracking - Monsters
IF (<CTAG0.TRACKEDMONSTERS>)
FOR 0 <EVAL <CTAG0.TRACKEDMONSTERS>-1>
DTEXT <QVAL (<LOCAL._FOR> < 14) ? 90:300> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+100> <QVAL <UID.<CTAG0.TRACKEDMONSTERS.<EVAL <LOCAL._FOR>+1>>.ISPK> ? 33:55> <UID.<CTAG0.TRACKEDMONSTERS.<EVAL <LOCAL._FOR>+1>>.NAME>
button <QVAL (<LOCAL._FOR> < 14) ? 70:280> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+102> 015e1 015e5 1 0 <EVAL <LOCAL._FOR>+1000>
ENDFOR
ELSE
DTEXT 90 110 55 No monster tracked.
ENDIF
button 70 385 015e3 015e7 0 1 1
PAGE 5
DTEXT 150 70 88 Tracking - Animals
IF (<CTAG0.TRACKEDANIMALS>)
FOR 0 <EVAL <CTAG0.TRACKEDANIMALS>-1>
DTEXT <QVAL (<LOCAL._FOR> < 14) ? 90:300> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+100> <QVAL <UID.<CTAG0.TRACKEDANIMALS.<EVAL <LOCAL._FOR>+1>>.ISPK> ? 33:55> <UID.<CTAG0.TRACKEDANIMALS.<EVAL <LOCAL._FOR>+1>>.NAME>
button <QVAL (<LOCAL._FOR> < 14) ? 70:280> <EVAL (<QVAL (<LOCAL._FOR> < 14) ? <LOCAL._FOR>:<EVAL <LOCAL._FOR>-14>>*20)+102> 015e1 015e5 1 0 <EVAL <LOCAL._FOR>+10000>
ENDFOR
ELSE
DTEXT 90 110 55 No animals tracked.
ENDIF
button 70 385 015e3 015e7 0 1 1
[DIALOG D_NEW_TRACKING BUTTON]
ON=10 99
DIALOG D_NEW_TRACKING_MAP 1 <CTAG0.TRACKEDPLAYERS.<EVAL <ARGN1>-9>>
ARROWQUEST <UID.<CTAG0.TRACKEDPLAYERS.<EVAL <ARGN1>-9>>.P>
SERV.NEWITEM i_new_tracking_updater
NEW.MORE1=1
NEW.MORE2=<CTAG0.TRACKEDPLAYERS.<EVAL <ARGN1>-9>>
NEW.TIMER=1
NEW.CONT=<SRC>
ON=100 999
DIALOG D_NEW_TRACKING_MAP 1 <CTAG0.TRACKEDHUMANS.<EVAL <ARGN1>-99>>
ARROWQUEST <UID.<CTAG0.TRACKEDHUMANS.<EVAL <ARGN1>-99>>.P>
SERV.NEWITEM i_new_tracking_updater
NEW.MORE1=1
NEW.MORE2=<CTAG0.TRACKEDHUMANS.<EVAL <ARGN1>-99>>
NEW.TIMER=1
NEW.CONT=<SRC>
ON=1000 9999
DIALOG D_NEW_TRACKING_MAP 1 <CTAG0.TRACKEDMONSTERS.<EVAL <ARGN1>-999>>
ARROWQUEST <UID.<CTAG0.TRACKEDMONSTERS.<EVAL <ARGN1>-999>>.P>
SERV.NEWITEM i_new_tracking_updater
NEW.MORE1=1
NEW.MORE2=<CTAG0.TRACKEDMONSTERS.<EVAL <ARGN1>-999>>
NEW.TIMER=1
NEW.CONT=<SRC>
ON=10000 99999
DIALOG D_NEW_TRACKING_MAP 1 <CTAG0.TRACKEDANIMALS.<EVAL <ARGN1>-9999>>
ARROWQUEST <UID.<CTAG0.TRACKEDANIMALS.<EVAL <ARGN1>-9999>>.P>
SERV.NEWITEM i_new_tracking_updater
NEW.MORE1=1
NEW.MORE2=<CTAG0.TRACKEDANIMALS.<EVAL <ARGN1>-9999>>
NEW.TIMER=1
NEW.CONT=<SRC>
[DIALOG D_NEW_TRACKING_MAP]
200,130
SRC.CLOSEALLDIALOGS
PAGE 0
RESIZEPIC 20 20 2600 450 490
CHECKERTRANS 20 20 450 490
gumppic 50 50 5528
gumppic <EVAL (10+((<UID.<ARGS>.P.X>*100)/1337))> <EVAL (10+((<UID.<ARGS>.P.Y>*100)/1067))> 0938
gumppic <EVAL (10+((<src.p.x>*100)/1337))> <EVAL (10+((<src.p.y>*100)/1067))> 0939
dtext 70 450 55 <UID.<ARGS>.NAME> you're in <UID.<ARGS>.SEXTANTP> by the sextant.
dtext 70 470 55 Your distance is <UID.<ARGS>.DISTANCE> tiles.
[DIALOG D_NEW_TRACKING_MAP BUTTON]
ON=0
FINDID.i_new_tracking_updater.MORE1=0
ARROWQUEST
[ITEMDEF i_new_tracking_updater]
ID=i_memory
TYPE=T_EQ_SCRIPT
NAME=New Tracking Updater
[email]ON=@Timer[/email]
IF (<MORE1>) && (<UID.<MORE2>.DISTANCE <CONT>> <= 40)
TRYSRC <CONT> SRC.DIALOG D_NEW_TRACKING_MAP 1 <MORE2>
CONT.ARROWQUEST <UID.<MORE2>.P>
MORE1=1
TIMERD=1
ELSE
TRYSRC <CONT> SRC.DIALOGCLOSE D_NEW_TRACKING_MAP
REMOVE
ENDIF
RETURN 1
[EOF]

[DIALOG D_SAVING_DLG]
180,340
noclose
nomove
PAGE 0
resizepic 10 10 5120 280 100
checkertrans 10 10 280 100
tilepic 30 30 4168
dtext 80 25 55 The Shard Is Saving
dtext 80 45 55 This process can take
dtext 80 65 55 a few minutes.
[FUNCTION CLOSESAVINGDLG]
TRYSRC <UID> SRC.DIALOGCLOSE D_SAVING_DLG
[EOF]

[EVENTS e_young]
[email]ON=@HitTry[/email]
IF !(<TAG0.EVENT.ID>)
IF (<SRC.ISPLAYER>)
RETURN 1
ENDIF
ENDIF
[email]ON=@Hit[/email]
IF !(<SRC.ISPLAYER>)
IF (<SRC.ACTION> == -1) || (<SRC.ACTION> == 069)
SRC.ATTACK <UID>
ENDIF
ENDIF
[email]ON=@GetHit[/email]
IF !(<TAG0.EVENT.ID>)
IF (<SRC.ISPLAYER>)
RETURN 1
ENDIF
ENDIF
[email]ON=@Login[/email]
IF (<HVAL <ACCOUNT.TOTALCONNECTTIME>/60> >= 40) || (<SKILLTOTAL> >= 4500)
MESSAGELOC 946,3,1019038
NAME=<TAG0.BEFOREYOUNGNAME>
TAG.BEFOREYOUNGNAME
EVENTS -e_young
UPDATE
ENDIF
[email]ON=@ClientToolTip[/email]
IF !(<TAG0.EVENT.ID>)
SRC.ADDCLILOC 1049644,Young Player
ENDIF
[email]ON=@DeathCorpse[/email]
IF !(<TAG0.EVENT.ID>)
GO 1470,1613,20
TRY UID.<ARGO.UID>.P=1470,1613,20
TRY UID.<ARGO.UID>.UPDATE
ENDIF
[email]ON=@SpellCast[/email]
IF !(<TAG0.EVENT.ID>)
IF (<ACT.ISPLAYER>)
IF (!<ACT.ISEVENT.e_young>)
SYSMESSAGELOC 946,3,502650
ENDIF
ENDIF
ENDIF
[email]ON=@LogOut[/email]
IF !(<TAG0.EVENT.ID>)
ARGN1=1
ENDIF
[email]ON=@Attack[/email]
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>Exodus 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>Welcome to Exodus Shard <SRC.NAME>!<DEF.BFONT_SIZE3><DEF.BR>Here comes some explanations about the shard:<DEF.BR><DEF.BFONT_RED>Shard tries to "mix" the best of OSI (Original Server), with new features and characteristics from a sphere shard. The PvP is new, "mixing" OSI elements, like damages "calculation", speed, etc and Sphere's too, like: no damage styles and new stuff too, like a change in armor calculating. Here we have known system and loved in OSI's style too, like Doom Dungeon, NPCs Quests (there are plenty of quests in the world) and even simple things like items found in loots.<DEF.BR>As you're starting, it's nice to search quests that can help you with money and skills. There are in Britain and Minoc many quests in this way.<DEF.BR>To know more about us, visit our site<DEF.HTMLLINK_SITE>.
[FUNCTION OPENDNEWPLAYERDIALOG]
DIALOG_UP D_NEWPLAYER_TEXT
[EOF]