Урок №5 Скрипт по созданию рандомного обьекта из списка в списке секто...

Урок №5
Скрипт по созданию рандомного обьекта из списка в списке секторов.

Смысл в том, чтобы создать в нужных нам секторах обломки кораблей...

Код: 001  $Sector.list = array alloc: size=0 002  append {Argon Prime} to array $Sector.list 003  append {Black Hole Sun} to array $Sector.list 004  append {Cloudbase North West} to array $Sector.list 005  append {Earth} to array $Sector.list 006    007  $Sector.list.size = size of array $Sector.list 008  $Count = 0 009  while $Count < $Sector.list.size 010    $Sector = $Sector.list[$Count] 011     012    $Wracks.var = random value from 1 to 4 - 1 013     014    if $Wracks.var == 1 015      $Wracks = 110 016    else if $Wracks.var == 2 017      $Wracks = 111 018    else if $Wracks.var == 3 019      $Wracks = 113 020    else if $Wracks.var == 4 021      $Wracks = 114 022    end 023     024    $X = random value from -30000 to 30000 - 1 025    $Y = random value from -30000 to 30000 - 1 026    $Z = random value from -30000 to 30000 - 1 027     028    $CREATE = create special: type=$Wracks addto=$Sector x=$X y=$Y z=$Z 029     030    inc $Count = 031  end 032  return null

001  Создание арейя (списка)

002 - 005  Команда добавления секторов в список (арей)
 
007 - 010 Незнаю как это назвать... скажу проще... это разбивание списка на поштучный, к каждому из которого будут применены команды до пункта END

012 Команда рандомного выбора числа от 1 до 4
 
014, 016, 018, 020 сравнение числа на соответствие

015, 017, 019, 021 В случеи соответствия чисел указывается номер (в папке тайпс есть файл Тспециал, в котором и можно посмотреть под коким номером что находится) обломков.

022    Конец для соответствий чисел.

024 - 026 выбор рандомной позиции по X Y X координатам... от -30км до 30км
    
028 Это сама команда по созданию специальных обьектов
 
030 Обнуление
031 Это тот самый пункт END
032 Завершение скрипта.


П.с. Вот и все! Удачной писанины...