Вот возник еще вопрос о типе. Есть такой тип:
Type enemy_ships
Field id
Field alpha#
Field rotate%
Field long$
Field x1%,z1%
Field x2%,z2%
Field x3%,z3%
Field x4%,z4%
End Type
И такой код:
While Not Eof(stream_in)
s_l = ReadLine(stream_in)
s_x = ReadLine(stream_in)
s_z = ReadLine(stream_in)
s_r = ReadLine(stream_in)
sh.enemy_ships = New enemy_ships
sh\alpha = "1"
sh\rotate = s_r
sh\long = s_l
If s_l = 1 Then
sh\id = LoadMesh("3d_1.3ds")
ScaleEntity sh\id,0.35,0.3,0.2
EntityAlpha sh\id,1
sh\x1 = s_x
sh\z1 = s_z
sh\x2 = 0
sh\z2 = 0
sh\x3 = 0
sh\z3 = 0
sh\x4 = 0
sh\z4 = 0
;Тут еще несколько похожих проверок
EndIf
Wend
Когда пытаюсь запустить программу, то на строчке, выделенной красным, она отказывается запускаться, говорит: "Variable type mismatch". Не подскажите в чем возможна проблема? Я уже много вариантов перепробовал, но все равно та же ошибка.