Код
[ITEMDEF i_stone_kasino]
ID=i_decorative_armor
DEFNAME=i_stone_kasino
NAME=ODHOPYKUU 6AHDUT
CATEGORY=Kairo's Items
SUBSECTION=Casino
DESCRIPTION=Odnorukiy bandit
ON=@CREATE
COLOR=color_bronze
TIMER=-1
ATTR=08050
MORE=0
ON=@DCLICK
IF (<SRC.TARG.DISTANCE> > 3)
SRC.SYSMESSAGE=Вы не можете до этого достать.
RETURN 1
ELSE
IF (<SRC.WEIGHT> + 10.0)>((<SRC.STR>*3.8) + 1.0)
SRC.MESSAGE You have too many items in your backpack for playing!
RETURN 1
ELSEIF (<SRC.TARG.MORE>==0)&&(<TIMER>==-1)
SRC.TARG.MORE=1
SRC.TARG.MORE2=7003
SRC.TARG.MOREX=7003
SRC.TARG.MOREY=7003
TIMER=15
SRC.DIALOG d_stone_kasino
ELSE
SRC.MESSAGE Another player use <SRC.TARG.NAME>
ENDIF
RETURN 1
ENDIF
RETURN 1
ON=@TIMER
MORE=0
TIMER=-1
RETURN 1
[DIALOG d_stone_kasino]
70, 70
page 0
resizepic 50 50 83 390 300//2600
resizepic 115 80 5100 260 90
text 195 20 1152 0
resizepic 80 190 5100 330 90
tilepic 70 85 5384
tilepic 340 85 5404
text 207 170 150 1
text 160 35 1152 7
button 95 220 1270 1269 1 0 1
button 155 220 1270 1269 1 0 2
button 215 220 1270 1269 1 0 3
button 275 220 1270 1269 1 0 4
button 335 220 1270 1269 1 0 5
button 190 300 1284 1283 1 0 0
text 110 200 4 2
text 168 200 4 3
text 220 200 4 4
text 280 200 4 5
text 340 200 4 6
//text 130 350 1152 8
//text 185 370 1152 9
page 1
gumppic 130 90 <SRC.TARG.MORE2>
gumppic 210 90 <SRC.TARG.MOREX>
gumppic 290 90 <SRC.TARG.MOREY>
[DIALOG d_stone_kasino TEXT]
partykill
CTABKA
100
500
1000
3000
5000
Casino, partykill
[DIALOG d_stone_kasino BUTTON]
ONBUTTON=0
SRC.TARG.MORE=0
SRC.TARG.TIMER=-1
SRC.SYSMESSAGE=Thank you for playing in partykill Casino!
RETURN 1
ONBUTTON=1
IF (<SRC.TARG.TIMER>==-1)
SRC.SYSMESSAGE Sorry, you have to reactivate the game!
RETURN 1
ELSE
SRC.TARG.TIMER=15
SRC.SYSMESSAGE CTABKA = 100 gold coin
IF <SRC.RESTEST 100 i_gold>
SRC.CONSUME 100 i_gold
SRC.TARG.MORE2=RAND(7)
SRC.TARG.MOREX=RAND(7)
SRC.TARG.MOREY=RAND(7)
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)&&(<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=1000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE YOU HAVE WON 1000gp!!!
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
SRC.DIALOG d_stone_kasino
RETURN 1
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=200
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 200gp!!!
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=200
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 200gp!!!
ELSE
IF (<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=200
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 200gp!!!
ENDIF
ENDIF
ENDIF
ENDIF
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
ELSE
SRC.SYSMESSAGE You do not have 100 gold to play!
SRC.TARG.MORE=0
SRC.TARG.TIMER=-1
RETURN 1
ENDIF
SRC.DIALOG d_stone_kasino
ENDIF
ONBUTTON=2
IF (<SRC.TARG.TIMER>==-1)
SRC.SYSMESSAGE Sorry, you have to reactivate the game!
RETURN 1
ELSE
SRC.TARG.TIMER=15
SRC.SYSMESSAGE CTABKA = 500 gold coin
IF <SRC.RESTEST 500 i_gold>
SRC.CONSUME 500 i_gold
SRC.TARG.MORE2=RAND(7)
SRC.TARG.MOREX=RAND(7)
SRC.TARG.MOREY=RAND(7)
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)&&(<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=5000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE YOU HAVE WON 5000gp!!!
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
SRC.DIALOG d_stone_kasino
RETURN 1
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=1000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 1000gp!!!
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=1000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 1000gp!!!
ELSE
IF (<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=1000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 1000gp!!!
ENDIF
ENDIF
ENDIF
ENDIF
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
ELSE
SRC.SYSMESSAGE You do not have 500 gold to play!
SRC.TARG.MORE=0
SRC.TARG.TIMER=-1
RETURN 1
ENDIF
SRC.DIALOG d_stone_kasino
ENDIF
ONBUTTON=3
IF (<SRC.TARG.TIMER>==-1)
SRC.SYSMESSAGE Sorry, you have to reactivate the game!
RETURN 1
ELSE
SRC.TARG.TIMER=15
SRC.SYSMESSAGE CTABKA = 1000 gold coin
IF <SRC.RESTEST 1000 i_gold>
SRC.CONSUME 1000 i_gold
SRC.TARG.MORE2=RAND(7)
SRC.TARG.MOREX=RAND(7)
SRC.TARG.MOREY=RAND(7)
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)&&(<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=10000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE YOU HAVE WON 10000gp!!!
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
SRC.DIALOG d_stone_kasino
RETURN 1
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=2000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 2000gp!!!
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=2000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 2000gp!!!
ELSE
IF (<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=2000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 2000gp!!!
ENDIF
ENDIF
ENDIF
ENDIF
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
ELSE
SRC.SYSMESSAGE You do not have 1000 gold to play!
SRC.TARG.MORE=0
SRC.TARG.TIMER=-1
RETURN 1
ENDIF
SRC.DIALOG d_stone_kasino
ENDIF
ONBUTTON=4
IF (<SRC.TARG.TIMER>==-1)
SRC.SYSMESSAGE Sorry, you have to reactivate the game!
RETURN 1
ELSE
SRC.TARG.TIMER=15
SRC.SYSMESSAGE CTABKA = 3000 gold coin
IF <SRC.RESTEST 3000 i_gold>
SRC.CONSUME 3000 i_gold
SRC.TARG.MORE2=RAND(8)
SRC.TARG.MOREX=RAND(8)
SRC.TARG.MOREY=RAND(8)
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)&&(<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=30000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE YOU HAVE WON 30000gp!!!
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
SRC.DIALOG d_stone_kasino
RETURN 1
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=6000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 6000gp!!!
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=6000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 6000gp!!!
ELSE
IF (<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=6000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 6000gp!!!
ENDIF
ENDIF
ENDIF
ENDIF
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
ELSE
SRC.SYSMESSAGE You do not have 3000 gold to play!
SRC.TARG.MORE=0
SRC.TARG.TIMER=-1
RETURN 1
ENDIF
SRC.DIALOG d_stone_kasino
ENDIF
ONBUTTON=5
IF (<SRC.TARG.TIMER>==-1)
SRC.SYSMESSAGE Sorry, you have to reactivate the game!
RETURN 1
ELSE
SRC.TARG.TIMER=15
SRC.SYSMESSAGE CTABKA = 5000 gold coin
IF <SRC.RESTEST 5000 i_gold>
SRC.CONSUME 5000 i_gold
SRC.TARG.MORE2=RAND(9)
SRC.TARG.MOREX=RAND(9)
SRC.TARG.MOREY=RAND(9)
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)&&(<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=50000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE YOU HAVE WON 50000 gold coins!!!
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
SRC.DIALOG d_stone_kasino
RETURN 1
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREX>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=10000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 10000gp!!!
ELSE
IF (<SRC.TARG.MORE2>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=10000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 10000gp!!!
ELSE
IF (<SRC.TARG.MOREX>==<SRC.TARG.MOREY>)
SRC.NEWITEM=i_gold
SRC.ACT.AMOUNT=10000
SRC.ACT.BOUNCE
SRC.SYSMESSAGE You won 10000gp!!!
ENDIF
ENDIF
ENDIF
ENDIF
SRC.TARG.MORE2=<SRC.TARG.MORE2>+7000
SRC.TARG.MOREX=<SRC.TARG.MOREX>+7000
SRC.TARG.MOREY=<SRC.TARG.MOREY>+7000
ELSE
SRC.SYSMESSAGE You do not have 5000 gold to play!
SRC.TARG.MORE=0
SRC.TARG.TIMER=-1
RETURN 1
ENDIF
SRC.DIALOG d_stone_kasino
ENDIF
[EOF]