Yepyeni Bir Yarışma------Paintball

[FUNCTION paintball] 
SRC.SYSMESSAGE Welcome, when you click the okay on the paintball entry stone you will be sent to your teams HQ.  When you shoot somone they will be returned to their HQ and you will receive 1 point. 
SRC.SYSMESSAGE You double click your teams score stone to deposit the your score there. You can double click the enemy score stone to take their flag, you then double click your score stone to capture the flag. 

[ITEMDEF pballblue] 
ID=i_crossbow 
TYPE=15 
NAME=Paintball Gun (Blue) 
DAM=1 
SKILL=Archery 
REQSTR=10 
TWOHANDS=Y 
WEIGHT=0 
TDATA3=i_paintball 
TDATA4=i_paintball 

on=@create 
COLOR=4 
Hitpoints=500 
ATTR=4 

ON=@EQUIP 
SRC.TAG.OARCHERY=<SRC.ARCHERY> 
SRC.ARCHERY=0 
LINK=<SRC.UID> 

ON=@UNEQUIP 
SRC.ARCHERY=<SRC.TAG.OARCHERY> 

ON=@DAMAGE 
IF !(<SRC.FINDLAYER(22).COLOR> === 02) 
LINK.TAG.SCORE=<LINK.TAG.SCORE> +1 
SRC.GO=<SRC.TAG.BASE> 
SRC.SYSMESSAGE You have been hit! 
SRC.FINDLAYER(20).REMOVE 
SRC.TAG.FLAG=0 
ELSE 
SRC.SYSMESSAGE You were shot by your own team! 
SRC.FINDLAYER(20).REMOVE 
SRC.TAG.FLAG=0 
ENDIF 

[ITEMDEF pballred] 
ID=i_crossbow 
TYPE=15 
NAME=Paintball Gun (Red) 
DAM=5 
REQSTR=10 
TWOHANDS=Y 
WEIGHT=0 
TDATA3=i_paintball 
TDATA4=i_paintball 

on=@create 
COLOR=020 
Hitpoints=500 
ATTR=4 

ON=@EQUIP 
SRC.TAG.OARCHERY=<SRC.ARCHERY> 
SRC.ARCHERY=0 
LINK=<SRC.UID> 

ON=@UNEQUIP 
SRC.ARCHERY=<SRC.TAG.OARCHERY> 

ON=@DAMAGE 
IF !(<SRC.FINDLAYER(22).COLOR> === 020) 
SRC.FINDLAYER(20).REMOVE 
LINK.TAG.SCORE=<LINK.TAG.SCORE> +1 
SRC.TAG.FLAG=0 
SRC.GO=<SRC.TAG.BASE> 
ELSE 
SRC.SYSMESSAGE You were shot by your own team! 
SRC.FINDLAYER(20).REMOVE 
SRC.TAG.FLAG=0 
SRC.GO=<SRC.TAG.BASE> 
ENDIF 

[FUNCTION showscore] 
SRC.SYSMESSAGE You have <EVAL <SRC.TAG.SCORE>>.  Go to your base stone and double click it to deposite your points! 

[ITEMDEF i_exitstone] 
ID=i_grave_stone 
NAME=Paintball Exit Stone 
TYPE 00 

ON=@DCLICK 
src.MENU m_exit 
src.move 1
return 1

[MENU m_exit] 
Cikacak misiniz paintballdan?
ON=0 Leave Arena 
SRC.TAG.SCORE 0 
SRC.EVENTS -e_blueteam 
SRC.EVENTS -e_redteam 
SRC.FINDLAYER(21).REMOVE 
SRC.FINDLAYER(22).REMOVE 
SRC.FINDLAYER(2).REMOVE 
SRC.GO=6032,400,22
SRC.NEWITEM i_gold 
SRC.ACT.BOUNCE 
SRC.SYSMESSAGE You have retired from your day of paintballing. 
RETURN 1 
ON=0 Cancel 
RETURN 1 



[ITEMDEF i_enterstone] 
ID=i_grave_stone 
NAME=Paintball Entry Stone 
TYPE 00 

ON=@DCLICK 
DIALOG d_paintballentry 
RETURN 1 

[DIALOG d_paintballentry] 
100, 100 
noclose 
nomove 
PAGE 0 
resizepic 25 25 5054 335 200 
resizepic 35 35 3000 315 180 
text 55 42 32 0 
text 55 60 152 1 
text 55 75 152 2 
text 55 90 152 3 
text 55 105 152 4 
text 55 120 152 5 
button 104 150 243 241 1 0 1 
button 238 148 2311 2312 1 0 2 
text 64 190 162 6 

[DIALOG d_paintballentry TEXT] 
-=-=-=-=-=-= WARNING =-=-=-=-=-=- 
Clicking okay will remove all items 
you are wearing and all items in your 
back pack. If you have something that 
you wish to keep click cancel do not 
click okay! 
Paintball System by SHS Shaku 


[DIALOG d_paintballentry BUTTON] 
on=1 
SRC.BANK 
SRC.SYSMESSAGE Here is your bank use the stone again when you are ready to enter. 
RETURN 1 

on=2 
IF (<EVAL <MOREX>> === 1) 
MOREX=0 
SRC.EVENTS -e_blueteam 
SRC.FINDLAYER(25).REMOVE 
SRC.FINDLAYER(13).REMOVE 
SRC.FINDLAYER(6).REMOVE 
SRC.FINDLAYER(19).REMOVE 
SRC.FINDLAYER(4).REMOVE 
SRC.FINDLAYER(10).REMOVE 
SRC.FINDLAYER(7).REMOVE 
SRC.FINDLAYER(24).REMOVE 
SRC.NEWITEM=pballred 
SRC.ACT.EQUIP 
SRC.NEWITEM=i_robe 
SRC.ACT.NAME=Paintball Robe [Red] 
SRC.ACT.COLOR=020 
SRC.ACT.EQUIP 
SRC.FINDLAYER(21).REMOVE 
SRC.GO=6123,403,22 // --------------- RED TEAM 
SRC.EVENTS e_redteam 
SRC.TAG.BASE=6123,403,22 // ------ RED TEAM 
SRC.NEWITEM=i_paintball 
SRC.ACT.AMOUNT 1000 
SRC.ACT.COLOR=020 
SRC.ACT.BOUNCE 
RETURN 1 
ELSE 
MOREX=1 
SRC.EVENTS -e_redteam 
SRC.FINDLAYER(25).REMOVE 
SRC.FINDLAYER(13).REMOVE 
SRC.FINDLAYER(6).REMOVE 
SRC.FINDLAYER(19).REMOVE 
SRC.FINDLAYER(4).REMOVE 
SRC.FINDLAYER(10).REMOVE 
SRC.FINDLAYER(7).REMOVE 
SRC.FINDLAYER(24).REMOVE 
SRC.NEWITEM=pballblue 
SRC.ACT.EQUIP 
SRC.NEWITEM=i_robe 
SRC.ACT.NAME=Paintball Robe [Blue] 
SRC.ACT.COLOR=02 
SRC.ACT.EQUIP 
SRC.FINDLAYER(21).REMOVE 
SRC.GO=6037,490,22 // --------------- BLUE TEAM 
SRC.EVENTS e_blueteam 
SRC.TAG.BASE=6037,490,22 // ------ BLUE TEAM 
SRC.NEWITEM=i_paintball 
SRC.ACT.AMOUNT 1000 
SRC.ACT.BOUNCE 
RETURN 1 
ENDIF 

[EVENTS e_blueteam] 

ON=@CLICK 
IF (<SRC.TAG.FLAG> === 1) 
MESSAGE <NAME> [Blue] 
MESSAGE [FLAG] 
SRC.HITS=<SRC.STR> 
MESSAGE [Score: <EVAL <TAG.SCORE>>] 
RETURN 1 
ELSE 
MESSAGE <NAME> [Blue] 
SRC.HITS=<SRC.STR> 
MESSAGE [Score: <EVAL <TAG.SCORE>>] 
RETURN 1 

[EVENTS e_redteam] 

ON=@CLICK 
IF (<SRC.TAG.FLAG> === 1) 
MESSAGE <NAME> [Red] 
MESSAGE [FLAG] 
SRC.HITS=<SRC.STR> 
MESSAGE [Score: <EVAL <TAG.SCORE>>] 
RETURN 1 
ELSE 
MESSAGE <NAME> [Red] 
SRC.HITS=<SRC.STR> 
MESSAGE [Score: <EVAL <TAG.SCORE>>] 
RETURN 1 

[ITEMDEF i_paintball] 
ID=i_gold 
NAME=paintball 
TYPE=00 

ON=@CREATE 
COLOR=02 

ON=@DCLICK 
RETURN 1 

[ITEMDEF i_score_stone] 
ID=0db 
NAME=Paintball Score Stone 
TYPE=00 

ON=@CLICK 
IF (<COLOR> === 02) && !(<EVAL <MOREZ>> === 1) 
MESSAGE [Team Score: <EVAL <MOREX>>] 
MESSAGE  [FLAG]
NAME=Blue Teams Score Stone 
ELSEIF (<COLOR> === 020) && !(<EVAL <MOREZ>> === 1) 
MESSAGE [Team Score: <EVAL <MOREX>>] 
MESSAGE  [FLAG] 
NAME=Red Teams Score Stone 
ELSEIF (<COLOR> === 020) && (<EVAL <MOREZ>> === 1) 
MESSAGE [Team Score: <EVAL <MOREX>>] 
NAME=Red Teams Score Stone 
ELSEIF (<COLOR> === 02) && (<EVAL <MOREZ>> === 1) 
MESSAGE [Team Score: <EVAL <MOREX>>] 
NAME=Blue Teams Score Stone 
ENDIF 

ON=@DCLICK 
IF (<COLOR> === <SRC.FINDLAYER(22).COLOR>) && !(<SRC.TAG.FLAG> === 1) 
MOREX=<MOREX> +<EVAL <SRC.TAG.SCORE>> 
SRC.TAG.SCORE=0 
SRC.SYSMESSAGE Your points have been deposited! 
RETURN 1 
ELSEIF (<COLOR> === <SRC.FINDLAYER(22).COLOR>) && (<SRC.TAG.FLAG> === 1) 
SRC.TAG.FLAG 0 
SRC.SYSMESSAGE YOU CAPTURED THE FLAG! 15 team points! 
MOREX=<EVAL <MOREX>> +15 
SRC.FINDLAYER(20).REMOVE 
SRC.TAG.FLAG 0 
RETURN 1 
ELSEIF !(<COLOR> === <SRC.FINDLAYER(22).COLOR>) && !(<SRC.TAG.FLAG> === 1) && !(<EVAL <MOREZ>> === 1) 
SRC.SYSMESSAGE You Grabbed the flag! 
SRC.NEWITEM i_cape 
SRC.ACT.COLOR=<COLOR> 
SRC.ACT.NAME=a flag 
SRC.ACT.ATTR=08000 
SRC.ACT.EQUIP 
SRC.TAG.FLAG=1 
LINK=<SRC.UID> 
MOREZ=1 
TIMER=1 
RETURN 1 
ELSEIF (<EVAL <MOREZ>> === 1) 
SRC.SYSMESSAGE Your team already has the flag! 
RETURN 1 
ENDIF 

ON=@TIMER 
IF (<LINK.TAG.FLAG> === 1) 
TIMER 1 
RETURN 1 
ELSE 
MOREZ 0 
RETURN 1 
ENDIF 

[EOF]