| Ltdima | Дата: Понедельник, 02 Июля 2012, 22:02 | Сообщение # 1 |
частый гость
Сейчас нет на сайте
| Доброго времени суток.Сегодня начал изучать изучать blitz3d и вот появилась проблема в rnd.Когда я делал игру с использованием RND то заметил, что результат всегда один и тот же ,в qbasic проблема решалась randomize timer ,а здесь я даже не знаю... 
P.S И ,чтобы не создавать другую тему ,как сделать нормальным изображение кириллицы при использовании graphics.
P.P.S Заранее спасибо 
|
|
|
| |
| Figure09 | Дата: Понедельник, 02 Июля 2012, 22:33 | Сообщение # 2 |
постоянный участник
Сейчас нет на сайте
| SeedRnd MilliSecs()
SetFont LoadFont("arial cyr")
Безумие сделает жизнь веселей.
|
|
|
| |
| Ltdima | Дата: Понедельник, 02 Июля 2012, 22:51 | Сообщение # 3 |
|
частый гость
Сейчас нет на сайте
| Что-то не работает, вот как я сделал:
.start
Graphics 640,480
SetFont LoadFont("arial cyr")
Print"Угадай число!"
ug=Rnd(3)
.error
guess=Input("Введите число от 1 до 3")
If guess<ug Then Print"нет,число больше"
If guess>ug Then Print"нет,число меньше"
If guess=ug Then Goto win
Goto error
.win
r=Input("В яблочко,желаете повторить?y/n")
If r="y" Then Goto start
If r="n" Then Goto e
Goto win
.e
End
Ах да, а rnd работает:) 
Сообщение отредактировал Ltdima - Понедельник, 02 Июля 2012, 22:57 |
|
|
| |
