Здравствуйте, гость ( Вход | Регистрация )

 
Ответить в эту темуОткрыть новую тему
> Казино, Азартные Игры
Solar
сообщение 28.6.2006, 11:58
Сообщение #1


*****

Группа: Пользователи
Наличность: 0
Пользователь №: 5.926



Народ, у кого есть скрипт на какието азартые игры или на казино, прошу выложить сюда если не жалко поделиться. Спасибо.


--------------------
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
MurziK
сообщение 28.6.2006, 21:26
Сообщение #2


****

Группа: Пользователи
Наличность: 0
Пользователь №: 4.864
Возраст: 27



Код
[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]
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Solar
сообщение 29.6.2006, 9:09
Сообщение #3


*****

Группа: Пользователи
Наличность: 0
Пользователь №: 5.926



спасибо


--------------------
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
MurziK
сообщение 29.6.2006, 17:00
Сообщение #4


****

Группа: Пользователи
Наличность: 0
Пользователь №: 4.864
Возраст: 27



пожалуйста
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
makbyk
сообщение 9.6.2021, 11:21
Сообщение #5


*

Registred
Сообщений: 1
Регистрация: 9.6.2021
Группа: Пользователи
Наличность: 0
Пользователь №: 19.990
Возраст: 31



Я нагадил спамом, но теперь я забанен! (IMG:style_emoticons/default/tongue.gif)

Сообщение отредактировал Deadly - 15.6.2021, 12:18
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
kklej
сообщение 9.6.2021, 14:32
Сообщение #6


******

Группа: Пользователи
Наличность: 15477
Пользователь №: 13.346



чтоб тебя драконы отымели под хвост за такие скрипты
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Deadly
сообщение 9.6.2021, 15:18
Сообщение #7


********

ex. Администратор
Сообщений: 1.362
Регистрация: 9.9.2006
Группа: Супермодераторы
Наличность: 1148
Пользователь №: 7.737



Цитата(kklej @ 9.6.2021, 16:32) *
Чтоб тебя драконы отымели под хвост за такие скрипты

Спасибо, улыбнуло. (IMG:style_emoticons/default/smile.gif)

P.S: Спам удалил.


--------------------
Контактная ICQ: 390-899-494. Изображение
Умейте ценить тех людей, которым всегда есть до вас дело. Они не вечны (с).
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения

Ответить в эту темуОткрыть новую тему
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия | Версия для КПК Сейчас: 1.11.2024, 2:47
Designed by Nickostyle