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]
Total votes: 0
Bulunamadı.
Ultima Online 23 saniye önce
Sunucular 1 hafta önce
Sunucular 1 hafta önce
Sohbet & Geyik 2 hafta önce
Sunucular 2 hafta önce
Ultima Online 2 hafta önce
Ultima Online 1 ay önce
Sunucular 1 ay önce
Sphere Scripting 1 ay önce
Ultima Online 1 ay önce
Sunucular 1 ay önce
Diğer Oyunlar 1 ay önce
2024-10-31 22:47
2024-10-14 17:45
2024-09-26 14:21
2024-07-08 22:50
2024-07-08 22:34
2024-06-19 22:05
2024-06-01 02:19
2024-05-31 21:17
Yorumlar (0)