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

 Правила этого форума ОБЩИЕ ПРАВИЛА ФОРУМА
 
 Ответить в эту темуОткрыть новую тему
> Казино, Азартные Игры
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


******

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


********

ex. Администратор
Сообщений: 1.360
Регистрация: 9.9.2006
Группа: Супермодераторы
Наличность: 1173
Пользователь №: 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

 

- Текстовая версия | Версия для КПК Сейчас: 16.4.2024, 19:09
Русская версия Invision Power Board v2.1.7 © 2024  IPS, Inc.
Лицензия зарегистрирована на: UoKit.com
Designed by Nickostyle