Делаем из Ресурсообменника игровой автомат

[bluder 238]

В этом гайде я покажу как сделать из ресурсообменника игровой автомат.

 

 

Нам понадобится:

Ресурсообменник - 1

Фильтр - 2

Пневматическая труба - 6

Таймер - 1

Детектор предметов - 1

Сундук - 1

Связка проводов - 5

Белые провода - 4

Оранжевые провода - 4

Центральный процессор - 1

Монитор - 1

Дисковод - 1

IO Декодер - 1

Загрузочная дискета - 1

Пустая дискета - 1

 

Начнем:

 

Устанавливаем ресурсообменник, 2 фильтра, детектор предметов, и сундук (скрин 1, 2)

 

Ставим полублоки из RP2 таким образом (скрин 3, 4, 5)

 

Ставим блок и на него таймер. Настраиваем таймер на 0,800s

 

Детектор предметов настраиваем как на скрине 9

 

Пополняем наш банк алмазами

 

Проводим связку проводов, потом белый и оранжевый провод

 

Устанавливаем компьютер. Центральный процессор внизу, поверх него Монитор, слева Дисковод, справа IO Декодер. Связка проводов должна быть подсоединена к IO декодеру (скрин 13)

 

В верхний фильтр ставим 1 алмаз, в нижний фильтр 2 алмаза

 

Вставляем загрузочную дискету в Дисковод

 

Открываем ЦП и нажимаем Start

 

Перед нами операционная система MineOS 1.2

 

Пишем нашу программу

 

Вытаскиваем дискету из дисковода, и вставляем пустую. Открываем монитор и пишем SAVE" bluder".

 

Мы сохранили программу на дискету, осталось запустить ее. Пишем 2 bludergame, где 2 обозначает соотношение выигрыша (1/2), если написать 3, будет 1/3, если 1 - шанс выигрыша 100%.

[Гость Zetonator]

Продвинутое казино А ведь твои идеи с необычным использование обменника дали мне идею тоже построить что то в этом роде .

Лайки кончились .

Изменено 14 июля 2015 пользователем Zetonator

[Lumenous 98]

Лайки кончились .

Я за тебя поставлю c:

[bluder 238]

Код программы:

\ 1 IOX (белый)

\ 2 IOX (оранжевый)

: var
VARIABLE ;

0 var $rand
0 var $random
1 var $percentage
var rnd HERE rnd !

: IOXGET
IOX@ AND IF 1 ELSE 0 THEN ;

: RANDOM rnd @ 31421 * 6927 + DUP rnd ! ;
: CHOOSE ( u1 -- u2 ) RANDOM UM* NIP ;

: win
2 IOXSET
5 TICKS
2 IOXRST
5 TICKS
;

: rand
$percentage @ CHOOSE $random !
$random @ 0 = IF
win
1 $rand !
ELSE
0 $rand !
THEN
0 $random !
;

: bludergame
$percentage !
BEGIN
1 IOXGET IF
rand
CR ." WIN:" $rand @ .
0SP
THEN
AGAIN
;

 

[Perfecto 0]

Тоесть если 1к3,то если ложить 1 алмаз,выйграешь 3?

[Folkem 1770]

Тоесть если 1к3,то если ложить 1 алмаз,выйграешь 3?

Там 1 к 2 вроде бы. Да и не всегда сможешь получить 2.

[bluder 238]

Тоесть если 1к3,то если ложить 1 алмаз,выйграешь 3?

 

математика это не твое парень

[Гость BOOM96]

bludnic, ты ли это?

[Empire 292]

bludnic, ты ли это?

Тоже так подумал, да и блудник сегодня на форум заходил что очень подозрительно. 

[RobinGud532 6]

Класс , думаю надо попробовать сделать на RedPower 2

Изменено 15 июля 2015 пользователем RobinGud532

[bluder 238]

 

это маркетинг детка

Изменено 22 июля 2015 пользователем bluder