Скрипты для адреналина

[SoundShocking]

@iSergo,
var rnd:integer;

rnd:=random(10);

if(rnd=1) then engine.moveto();
if(rnd=2) then engine.moveto();

http://www.delphibasics.ru/Random.php

 

[iSergo]

@SoundShocking, спасибо большое, кажется понял, буду пытаться применить

 

[aegypiusmonachus]

@iSergo, http://delphibasics.ru/Randomize.php используй.

 

[dArk]

Лучше заюзать case:

num := random(3);

case num of
  0: go_to_hs;
  1: go_to_fog;
  2: go_to_it;
end;

 

[iSergo]

@dArk,
Применил, вроде работает, но не до конца понимаю что это значит "case", не могли бы вы объяснить вкратце, что эта функция означает и когда её лучше применять, ну или типа того.. В общем я сделал, сам не понял что сделал, хотелось бы немножко наставлений от гуру

 

[dArk]

@iSergo, когда нужно проверить одно и то же выражение, и переменную, на соответствие разным значениям, вместо каскадных if, по типу:

num := random(3);

if num = 0 then
begin

end;
if num = 1 then
begin

end;
if num = 2 then
begin

end;

можно, и нужно использовать case, который, фактически, делает то же самое. Он вычисляет выражение, стоящее после case, затем проверяет его на равенство какой либо из веток внутри case, т. е.

0:
1:
2:

И если найдено совпадение, то управление передается на эту ветку.