я давно не писал, ща попробую с мобилы $x = 0 $y = 0 $pos = array allo...

я давно не писал, ща попробую с мобилы

Код: $x = 0 $y = 0 $pos = array alloc: size=3 $pos[0] = 0 $pos[1] = 0 $pos[2] = 0 while $x < 23   $y = 0   while $y < 19     $sector = get sector from universe index: x=$x, y=$y     if $sector->exists       $text = 'sector=' + $sector       write to log file 9999  append=[TRUE]  value=$text       $ships = find ship: sector=$sector class or type=null race=null flags=[Find.Multiple] refobj=null maxdist=null maxnum=9999 refpos=$pos       $n = 0       $size = size of array $ships       while $n < $size         $ship = $ships[$n]         $name = $ship->get name         $race = $ship->get owner race         $px = $ship->get x position         $py = $ship->get y position         $pz = $ship->get z position         $text = '  ship name=' + $name + ' owner race=' + $race + ' x=' + $px + ' y=' + $py + ' z=' + $pz         write to log file 9999  append=[TRUE]  value=$text         inc $n =       end     end     inc $y =   end   inc $x = end return null

Вроде работает, у меня вместо русских букав - каракули какие то