Моя первая игрушка под Windows (10 лет спустя)

[Smitt&Wesson]

Предыстория.
Жил в Казахстане в 90-х годах. Заказали мне бандюки игру. Назвали её ТЕЛЕСПРИНТ. В те времена небыло таких компов как нынче. Зделал я её на РК-86 (кто помнит). В течении 6-и лет (с 1989-го по 1995-й) она мне приносила неплохой доход (по тем временам). При зарплатах на заводах - 300р, я получал в месяц 1000р. Но, развал Союза с последующими эксцессами привёл к тому, что из казахстана я перебрался в Россию. Но братва осталась. Они тоже перебрались в Москву.
Некоторый период затишья, и они меня нашли .
Заказ вучал так - "Зделать то-же самое, но на новой элементной базе". Ну, "элементная база" тогда (в 2002-м), только начала в ходить в моду. Пентюх 1-й считался самым крутым компом, но мне его купили .
С 2002 по 2003-й создал игру ТЕЛЕСПРИНТ 5,4 Мб.
Вот выкладываю.
Аннотации к игре:
Тогда, я не знал, как прописывать относительные пути, поэтому каталог проги, нужно грузить в корневой.
Для активизации игрока, нажимаются клавиши 1-6.
Ставка изменяется клавишами "+" и "-".
Пуск и пробел - совмещены.
Выход из программы - ESC.

Интересно было-бы знать, может ли такая (доработанная штука) прокатить в наше время? По-сути, это - тотализатор, но не "однорукий бандит", в классическом понимании.

[Smitt&Wesson]

Специально делаю кросспост. Братва, ну чё, в самом деле...

[Человек_Борща]

Интересная игрушка. Но мне быстро надоела, играть нескем.

Установка:
1. Кладем папку с игрой на C диск.
2. Делаем ярлык игры, ставим совместимость с WinXP, ставим запуск от админа.
3. Запускаем, играем.

Игрушка прикольная, но за тотализатор сойти не может т.к.:
1. Частенько проскакивает выигрыш 1 и того же номера 2 или даже 3 раза подряд. Что плохо как минимум =) Исправить бы это.
2. Ну и забег по прямой как-то скучно что ли... мб по-кругу интереснее? Добавить к этому шансы на "занесло","перевернулся","вылет ел за пределы дороги", "встретился с деревом" и ещё как-то способствовать этому самому, т.е. чем-то прикормил и какой-то коэф. изменился(какой он изначально, не известно). И от этого зависит "добежит или нет"

Ну вот такая бредятина

[Smitt&Wesson]

Ну, почему сразу бредятина. Очень даже ценные советы. Правда не знаю, буду ли я её дорабатывать.
На счёт выпадения чисел, я тоже это заметил, видимо с генератором случайных чисел какая-то проблема.
На счёт "скучности". Если ставки делают 6-о игроков, то вокруг этой игрушки очень даже не скучно было.
На счёт графики согласен - слабовата, но игрульке-то уже 10 лет. Когда я её писал, я понятия не имел, что такое DirectX и с чем его едят.

Повторю вопрос: кто как считает, если её "довести до ума" под какую категорию игр она попадает?
1. Тотализатор
2. Лотерея
3. Однорукий бандит
4. Рулетка
И если выставить его в парке, нпример, не нарушу-ли я закон об игровых автоматах и казино.

[Человек_Борща]

На счёт "скучности". Если ставки делают 6-о игроков, то вокруг этой игрушки очень даже не скучно было.

Это понятно, просто одному явно скучно.

На счёт графики согласен - слабовата, но игрульке-то уже 10 лет. Когда я её писал, я понятия не имел, что такое DirectX и с чем его едят.

Графика в самый раз, ничего лишнего.

На счёт выпадения чисел, я тоже это заметил, видимо с генератором случайных чисел какая-то проблема.

Если он основан на Random и Randomize(аналог Delphi), то Randomize следует вызывать с каждом витке цикла(он там есть наверняка), тогда случайность повтора снизится.


Если довести до ума, то это тотализатор или русская рулетка(в обоих ставка на удачу, удача не в том чтобы словить пулю).
По-поводу закона, он не нарушается если есть разрешение на размещение игрового автомата в разрешенном для этого месте(там вроде бы целый список, где их нельзя ставить/строить/размещать).

[Smitt&Wesson]

Сообщение от Человек_Борща

Если он основан на Random и Randomize(аналог Delphi), то Randomize следует вызывать с каждом витке цикла(он там есть наверняка), тогда случайность повтора снизится.

Там так и зделано. Генератор постоянно меняет значения в каждом цикле. Он задаёт время задержки для каждой лошадки. Причём всегда разное. Т.е. кончился декремент очередной задержки, лошадка передвинулась на один шаг и сформировалась новая задержка из текущего значения рандома.

Если довести до ума, то это тотализатор или русская рулетка(в обоих ставка на удачу, удача не в том чтобы словить пулю).

Так вот я и говорю, что это лотерея, а лотерею никто не отменял.

По-поводу закона, он не нарушается если есть разрешение на размещение игрового автомата в разрешенном для этого месте(там вроде бы целый список, где их нельзя ставить/строить/размещать).

М-да. Нужно будет посоветоваться на юридическом форуме.

А может ещё количество лошадок увеличить? Скажем до 12-и?

[revizor]

Smitt&Wesson, почему не запускается игра? Архив распаковал в отдельную папку, запускаю telesprint.exe и появляется ошибка "Cannot open AVI" Что делать то?

[Smitt&Wesson]

Сообщение от revizor

Smitt&Wesson, почему не запускается игра? Архив распаковал в отдельную папку, запускаю telesprint.exe и появляется ошибка "Cannot open AVI" Что делать то?

В отдельной папке не запустится. Нет относительных путей (когда писал, не знал как это делается). Нужно разместить каталог самой проги в корневом каталоге диска С:.
Т.е. С:\TELESPRINT

[revizor]

Нужно разместить каталог самой проги в корневом каталоге диска С:

Все, я понял. спасибо

[Человек_Борща]

Там так и зделано. Генератор постоянно меняет значения в каждом цикле. Он задаёт время задержки для каждой лошадки. Причём всегда разное. Т.е. кончился декремент очередной задержки, лошадка передвинулась на один шаг и сформировалась новая задержка из текущего значения рандома.

Как вариант, внутри сделать ещё цикл, если новое число = старому, то просчитывать вероятность того, что оно сейчас выпадет, иначе генерировать новое.
Например так:

var
 bArray:array[1..3] of Boolean;
 i:ShortInt;
begin
 ...
 for i:=1 to 3 do
 begin
   Randomize; //Каждый раз новая константа для случайных чисел.
   X:=RandomRange(1,100);
   If (((X div 100)*100) => <Установленный % вероятности>) then 
   bArray[i]:=True;
 end;
 if (ShortInt(bArray[1])+ShortInt(bArray[2])+ShortInt(bArray[3])) > 1 then //Хотя бы 2 из 3
 <Оставляем число> else <создаем новое>
end;

М-да. Нужно будет посоветоваться на юридическом форуме.

Википедия кое-чего подскажет. Там есть ссылки на законы которые регулируют игорный бизнес.

А может ещё количество лошадок увеличить? Скажем до 12-и?

Может лучше без статических чисел? Число+1?
Допустим играет 6 человек, все сделали ставки, а доп. лошадка добавляет шансы на ничью. Если ничья, то деньги отходят на след. ставку и игроки должны делать ставку и суммы заново(появляется азарт из-за возможности сорвать банк )