{$CLEO}

{$I inloop}
{$I forallcars}

     0A97: 0@ = car veh struct
     0A8E: 1@ = 0@ + 0x590
     0A8D: 2@ = read_memory 1@ size 1 virtual_protect 0
     0A8E: 1@ = 0@ + 0x5B8
     0A8D: 3@ = read_memory 1@ size 1 virtual_protect 0
     if and
          2@ == 6  // if(train->m_bVehicleType == VEHICLETYPE_TRAIN && (train->m_bFlags & TRAINFLAG_IS_FRONT_CARRIAGE))
          08B7: test 3@ bit 3
     then
          //
               // код для этого вагона
          //
          // for(i = train->m_pNextCarriage; i; i = i->m_pNextCarriage)
          0A8E: 1@ = 0@ + 0x5B4
          0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
          while 1@ <> 0
               //
                   // код для других вагонов, 0@ - структура главного вагона, 1@ - структура этого вагона
               //
               0A8E: 1@ = 1@ + 0x5B4
               0A8D: 1@ = read_memory 1@ size 4 virtual_protect 0
          end
     end

{$I for_end}
{$I end}

while true
     32@ = 0
     wait 5
     if
         not player.Defined($PLAYER_CHAR)
     then
         continue
     end

     if
         0AE2: 0_Train = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 0 pass_wrecked 1 //IF and SET
     then
         repeat
             0A97: 0_CarriageStruct = car 0_Train struct
             0A8E: 31@ = 0_CarriageStruct + 1424 // int
             0A8D: 31@ = read_memory 31@ size 1 virtual_protect 0
             if
                 31@ == 6
             then     
                 0_CarriageStruct += 0x5D0
                 0A8D: 0_CarriageStruct = read_memory 0_CarriageStruct size 4 virtual_protect 0
                 if
                     0_CarriageStruct == 0   // предыдущий вагон отсутствует (данный вагон является нулевым)
                 then
                     if
                         8981: not train 0_Train wrecked  
                     then
                         gosub @_CTrain_process_control
                     end
                 end
             end
         until 8AE2: not 0_Train = random_vehicle_near_point 0.0 0.0 0.0 in_radius 6000.0 find_next 1 pass_wrecked 1 //IF and SET
     end
end

while true  
       0A97: 7@ = car 6@ struct   
       7@ += 0x5D0  
       0A8D: 7@ = read_memory 7@ size 4 virtual_protect 0   
       if   
            7@ == 0  
       then  
            break  
       else  
            0085: 6@ = 7@ // (int)  
       end  
end

0A97: 6@ = car 6@ struct  
while 6@ <> 0
     0085: 7@ = 6@ // (int)
     6@ += 0x5D0   
     0A8D: 6@ = read_memory 6@ size 4 virtual_protect 0     
end
// Теперь в 7@ записан адрес структуры 0 вагона

CGlass (Осколки стекла)

Начало: 0xC3E058 Размер одного элемента: 112 байт   
   CGlass +0x0 =  [RwMatrix]Матрица поворота и позиции   
   CGlass +0x60 =  [dword]Время создания   
   CGlass +0x6D =  [byte]Флаг существования

0x05A0 | WORD               pathPointID        // Текущий номер точки маршрута (номер строчки в tracks, нумерация от нуля)

0A8E: 0_TrainRoute = 0_CarriageStruct + 0x5C0 // int Читаем номер маршрута - он записан в структуре вагона по смещению 0x5C0
0A8D: 0_TrainRoute = read_memory 0_TrainRoute size 1 virtual_protect 0 // train route
0_TrainRoute *= 4 // далее вычисляем адрес массива структур точек данного маршрута

0A8E: 0_StartOfTracksNdatContent = 0_TrainRoute + 0xC38024 // _tracksDatContents // int  
0A8D: 0_StartOfTracksNdatContent = read_memory 0_StartOfTracksNdatContent size 4 virtual_protect 0 // start of tracksN.dat content

0A8E: 0_CurrentPointAdress = 0_CarriageStruct + 0x5A0 // int Получаем номер текущей точки
0A8D: 0_CurrentPointAdress = read_memory 0_CurrentPointAdress size 2 virtual_protect 0 // current point of train
0_CurrentPointAdress *= 10 // умножаем на размер структуры точки - 10 байтов
005A: 0_CurrentPointAdress += 0_StartOfTracksNdatContent // прибавили смещение к началу массива - получили адрес текущей точки

0085: 6@ = 0_CurrentPointAdress // (int)  
0A8E: 7@ = 0_CurrentPointAdress + 2 // int  Y NPoint
0A8E: 8@ = 0_CurrentPointAdress + 4 // int  Z NPoint

for 31@ = 0 to 2
     0A8D: 6@(31@,3i) = read_memory 6@(31@,3i) size 2 virtual_protect 0
     if
         6@(31@,3i) >= 0x8000 // negative word
     then
         6@(31@,3i) += 0xFFFF0000 // convert to negative dword
     end  
     0093: 6@(31@,3f) = integer 6@(31@,3i) to_float
     6@(31@,3f) /= 8.0       
end  
// координаты записаны в 6@, 7@, 8@

for 0@ = 0 to 619 //4
             0A90: 1@ = 32 * 0@ // int
             1@ += 0x9788C0