Paintball

• Massacre
• 2008-10-26 22:02
• 0 Yorumlar
• 1099 Görüntüleme

Coded by SHS-Shaku

Edited by Comrade

Bütün Bugları Fixlenmiştir

[email protected]



[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] 

Değerlendirmeler

Total votes: 0