{$CLEO .cs} wait 0 {переменные: 0@-указатель на вагоны поездов 1@-15@-вагоны 16@-типы поездов из ini файла 17@-19@-номера вагонов электрички из ini файла 29@-рандомная ячейка из ini файла 30@-wait из ini файла 31@-номер последнего блока из ini файла} :START wait 0 if not Player.Defined($PLAYER_CHAR) else_jump @NONAME_31 jump @START :NONAME_31 wait 0 if 0AAB: file_exists "CLEO\POEZD.INI" else_jump @START 0AF0: 31@ = get_int_from_ini_file "CLEO\POEZD.INI" section "0" key "SUM" //IF and SET 0AF0: 30@ = get_int_from_ini_file "CLEO\POEZD.INI" section "0" key "TIME" //IF and SET if and 0019: 30@ > 15 not 31@ == 0 else_jump @START gosub @TYPES 0@ = -382234 0085: &0(0@,1i) = 1@ // vagon 1 0@ = -382233 0085: &0(0@,1i) = 2@ // vagon 2 0@ = -382232 0085: &0(0@,1i) = 3@ // vagon 3 0@ = -382231 0085: &0(0@,1i) = 4@ // vagon 4 0@ = -382230 0085: &0(0@,1i) = 5@ // vagon 5 0@ = -382229 0085: &0(0@,1i) = 6@ // vagon 6 0@ = -382228 0085: &0(0@,1i) = 7@ // vagon 7 0@ = -382227 0085: &0(0@,1i) = 8@ // vagon 8 0@ = -382226 0085: &0(0@,1i) = 9@ // vagon 9 0@ = -382225 0085: &0(0@,1i) = 10@ // vagon 10 0@ = -382224 0085: &0(0@,1i) = 11@ // vagon 11 0@ = -382223 0085: &0(0@,1i) = 12@ // vagon 12 0@ = -382222 0085: &0(0@,1i) = 13@ // vagon 13 0@ = -382221 0085: &0(0@,1i) = 14@ // vagon 14 0@ = -382220 0085: &0(0@,1i) = 15@ // vagon 15 gosub @TYPES {------------------------------tip poezda 1 } 0@ = -382218 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382217 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382216 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382215 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382214 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382213 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382212 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382211 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382210 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382209 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382208 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382207 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382206 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382205 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382204 0085: &0(0@,1i) = 15@ // vagon 14 gosub @TYPES {------------------------------tip poezda 2 } 0@ = -382202 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382201 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382200 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382199 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382198 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382197 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382196 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382195 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382194 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382193 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382192 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382191 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382190 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382189 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382188 0085: &0(0@,1i) = 15@ // vagon 14 gosub @TYPES {------------------------------tip poezda 3 } 0@ = -382186 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382185 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382184 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382183 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382182 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382181 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382180 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382179 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382178 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382177 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382176 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382175 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382174 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382173 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382172 0085: &0(0@,1i) = 15@ // vagon 14 gosub @TYPES {------------------------------tip poezda 4 } 0@ = -382170 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382169 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382168 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382167 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382166 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382165 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382164 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382163 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382162 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382161 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382160 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382159 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382158 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382157 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382156 0085: &0(0@,1i) = 15@ // vagon 14 gosub @TYPES {------------------------------tip poezda 5 } 0@ = -382154 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382153 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382152 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382151 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382150 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382149 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382148 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382147 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382146 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382145 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382144 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382143 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382142 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382141 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382140 0085: &0(0@,1i) = 15@ // vagon 14 gosub @TYPES {------------------------------tip poezda 6 } 0@ = -382138 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382137 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382136 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382135 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382134 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382133 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382132 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382131 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382130 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382129 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382128 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382127 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382126 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382125 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382124 0085: &0(0@,1i) = 15@ // vagon 14 gosub @TYPES {------------------------------tip poezda 7 } 0@ = -382122 0085: &0(0@,1i) = 1@ // vagon 0 0@ = -382121 0085: &0(0@,1i) = 2@ // vagon 1 0@ = -382120 0085: &0(0@,1i) = 3@ // vagon 2 0@ = -382119 0085: &0(0@,1i) = 4@ // vagon 3 0@ = -382118 0085: &0(0@,1i) = 5@ // vagon 4 0@ = -382117 0085: &0(0@,1i) = 6@ // vagon 5 0@ = -382116 0085: &0(0@,1i) = 7@ // vagon 6 0@ = -382115 0085: &0(0@,1i) = 8@ // vagon 7 0@ = -382114 0085: &0(0@,1i) = 9@ // vagon 8 0@ = -382113 0085: &0(0@,1i) = 10@ // vagon 9 0@ = -382112 0085: &0(0@,1i) = 11@ // vagon 10 0@ = -382111 0085: &0(0@,1i) = 12@ // vagon 11 0@ = -382110 0085: &0(0@,1i) = 13@ // vagon 12 0@ = -382109 0085: &0(0@,1i) = 14@ // vagon 13 0@ = -382108 0085: &0(0@,1i) = 15@ // vagon 14 06D7: enable_train_traffic 1 0012: 30@ *= 1000 wait 30@ jump @START :TYPES 000A: 31@ += 1 0209: 29@ = random_int_in_ranges 1 31@ 0093: 29@ = integer 29@ to_float 0AED: 29@v = float 29@ to_string_format "%.29G" 0AF0: 16@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "TYPE" //IF and SET if 16@ == 1 else_jump @TYPE_2 0AF0: 1@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "LOKO1" //IF and SET 0AF0: 2@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "LOKO2" //IF and SET 0006:3@ = 0 0006:4@ = 0 0006:5@ = 0 0006:6@ = 0 0006:7@ = 0 0006:8@ = 0 0006:9@ = 0 0006:10@ = 0 0006:11@ = 0 0006:12@ = 0 0006:13@ = 0 0006:14@ = 0 0006:15@ = 0 jump @RETURN :TYPE_2 wait 0 if 16@ == 2 else_jump @TYPE_3 0AF0: 1@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "LOKO1" //IF and SET 0AF0: 17@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "LOKO2" //IF and SET 0AF0: 18@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG1" //IF and SET 0AF0: 19@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG2" //IF and SET 0209: 20@ = random_int_in_ranges 1 8 if 20@ == 1 else_jump @TYPE_2_2 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 17@ 0006: 5@ = 0 0006: 6@ = 0 0006: 7@ = 0 0006: 8@ = 0 0006: 9@ = 0 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_2_2 wait 0 if 20@ == 2 else_jump @TYPE_2_3 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 18@ 0085:5@ = 19@ 0085:6@ = 17@ 0006: 7@ = 0 0006: 8@ = 0 0006: 9@ = 0 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_2_3 wait 0 if 20@ == 3 else_jump @TYPE_2_4 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 18@ 0085:5@ = 19@ 0085:6@ = 18@ 0085:7@ = 17@ 0006: 8@ = 0 0006: 9@ = 0 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_2_4 wait 0 if 20@ == 4 else_jump @TYPE_2_5 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 18@ 0085:5@ = 19@ 0085:6@ = 18@ 0085:7@ = 19@ 0085:8@ = 17@ 0006: 9@ = 0 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_2_5 wait 0 if 20@ == 5 else_jump @TYPE_2_6 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 18@ 0085:5@ = 19@ 0085:6@ = 18@ 0085:7@ = 19@ 0085:8@ = 18@ 0085:9@ = 17@ 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_2_6 wait 0 if 20@ == 6 else_jump @TYPE_2_7 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 18@ 0085:5@ = 19@ 0085:6@ = 18@ 0085:7@ = 19@ 0085:8@ = 18@ 0085:9@ = 19@ 0085:10@ = 17@ 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_2_7 0085:2@ = 18@ 0085:3@ = 19@ 0085:4@ = 18@ 0085:5@ = 19@ 0085:6@ = 18@ 0085:7@ = 19@ 0085:8@ = 18@ 0085:9@ = 19@ 0085:10@ = 18@ 0085:11@ = 17@ 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_3 wait 0 if 16@ == 3 else_jump @TYPE_4 0AF0: 1@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "LOKO1" //IF and SET 0AF0: 17@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "LOKO2" //IF and SET 0AF0: 18@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG1" //IF and SET 0AF0: 19@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG2" //IF and SET 0AF0: 20@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG3" //IF and SET 0AF0: 21@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG4" //IF and SET 0AF0: 22@ = get_int_from_ini_file "CLEO\POEZD.INI" section 29@v key "VAG5" //IF and SET if not 17@ == 0 else_jump @TYPE_3_1 0085:2@ = 17@ jump @TYPE_3_2 :TYPE_3_1 gosub @TYPE_3_search 0085:2@ = 23@ jump @TYPE_3_2 :TYPE_3_2 gosub @TYPE_3_search 0085:3@ = 23@ gosub @TYPE_3_search 0085:4@ = 23@ gosub @TYPE_3_search 0085:5@ = 23@ gosub @TYPE_3_search 0085:6@ = 23@ gosub @TYPE_3_search 0085:7@ = 23@ gosub @TYPE_3_search 0085:8@ = 23@ 0209: 28@ = random_int_in_ranges 1 7 if 28@ == 1 else_jump @TYPE_3_3 0006: 9@ = 0 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_3_3 wait 0 if 28@ == 2 else_jump @TYPE_3_4 gosub @TYPE_3_search 0085:9@ = 23@ 0006: 10@ = 0 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_3_4 wait 0 if 28@ == 3 else_jump @TYPE_3_5 gosub @TYPE_3_search 0085:9@ = 23@ gosub @TYPE_3_search 0085:10@ = 23@ 0006: 11@ = 0 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_3_5 wait 0 if 28@ == 4 else_jump @TYPE_3_6 gosub @TYPE_3_search 0085:9@ = 23@ gosub @TYPE_3_search 0085:10@ = 23@ gosub @TYPE_3_search 0085:11@ = 23@ 0006: 12@ = 0 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_3_6 wait 0 if 28@ == 5 else_jump @TYPE_3_7 gosub @TYPE_3_search 0085:9@ = 23@ gosub @TYPE_3_search 0085:10@ = 23@ gosub @TYPE_3_search 0085:11@ = 23@ gosub @TYPE_3_search 0085:12@ = 23@ 0006: 13@ = 0 0006: 14@ = 0 0006: 15@ = 0 jump @RETURN :TYPE_3_7 gosub @TYPE_3_search 0085:9@ = 23@ gosub @TYPE_3_search 0085:10@ = 23@ gosub @TYPE_3_search 0085:11@ = 23@ gosub @TYPE_3_search 0085:12@ = 23@ gosub @TYPE_3_search 0085:13@ = 23@ 14@ == 0 15@ == 0 jump @RETURN :TYPE_3_search 0209: 27@ = random_int_in_ranges 1 6 if 27@ == 1 else_jump @TYPE_3_search_2 0085:23@ = 18@ jump @RETURN :TYPE_3_search_2 wait 0 if 27@ == 2 else_jump @TYPE_3_search_3 if not 19@ == 0 else_jump @TYPE_3_search_2_2 0085:23@ = 19@ jump @RETURN :TYPE_3_search_2_2 0085:23@ = 18@ jump @RETURN :TYPE_3_search_3 wait 0 if 27@ == 3 else_jump @TYPE_3_search_4 if not 19@ == 0 else_jump @TYPE_3_search_2_2 if not 20@ == 0 else_jump @TYPE_3_search_3_2 0085:23@ = 20@ jump @RETURN :TYPE_3_search_3_2 0085:23@ = 19@ jump @RETURN :TYPE_3_search_4 wait 0 if 27@ == 4 else_jump @TYPE_3_search_5 if not 19@ == 0 else_jump @TYPE_3_search_2_2 if not 20@ == 0 else_jump @TYPE_3_search_3_2 if not 21@ == 0 else_jump @TYPE_3_search_4_2 0085:23@ = 21@ jump @RETURN :TYPE_3_search_4_2 0085:23@ = 20@ jump @RETURN :TYPE_3_search_5 wait 0 if not 19@ == 0 else_jump @TYPE_3_search_2_2 if not 20@ == 0 else_jump @TYPE_3_search_3_2 if not 21@ == 0 else_jump @TYPE_3_search_4_2 if not 22@ == 0 else_jump @TYPE_3_search_5_2 0085:23@ = 22@ jump @RETURN :TYPE_3_search_5_2 0085:23@ = 21@ jump @RETURN :TYPE_4 jump @START :RETURN return