Код:

Script ace.service.dump.mine.behind.ship Version: 1 for Script Engine Version: 32 Description Dump of a mine behind ship. Arguments 1: ship , Var/Ship , 'ship' Source Text 001   $sector = $ship -> get sector 002   $size = $ship -> get size of object 003   $size = $size + 10 004   $a = $ship -> get rot alpha 005   $a = $a - 16384 006   $b = $ship -> get rot beta 007   $x = $ship -> get x position 008   $y = $ship -> get y position 009   $z = $ship -> get z position 010    011   $sin.b =  = fixed sin $b 012   $sin.b = $sin.b * 1000 / 655355 013   $cos.b =  = fixed cos $b 014   $cos.b = $cos.b * 1000 / 655355 015   $size.y = $size * $sin.b / 100 016   $size.x.z = $size * $cos.b / 100 017   $sin.a =  = fixed sin $a 018   $sin.a = $sin.a * 1000 / 655355 019   $cos.a =  = fixed cos $a 020   $cos.a = $cos.a * 1000 / 655355 021   $size.x = $size.x.z * $cos.a / 100 022   $size.z = $size.x.z * $sin.a / 100 023   $x = $x + $size.x 024   $y = $y + $size.y * -1 025   $z = $z + $size.z 026    027   $mine =  create ship: type=Мина СКВОШ owner=Player addto=$sector x=$x y=$y z=$z 028    029   return null

$i = 1
$arrst = get station array: of race $Arg0 class/type= null
$count = size of array $arrst
$arrnst = array alloc: size= $count
$t1 = [TRUE]
$tovr = 0
$tovrmin = 0
$tovrmax = 0
while $i < $count
$s = $arrst [ $i ]

$y = $s -> uses ware $Arg1 as primary resource
$y1 = $s -> uses ware $Arg1 as secondary resource
if $y == [TRUE] OR $y1 == [TRUE]
$kolvot = 0
$cena = $s -> get price of ware $Arg1
$srcena = get average price of ware $Arg1
$mincena = get min price of ware $Arg1
$kolvot = $s -> get free amount of ware $Arg1 in cargo bay
$kolvomt = $s -> get max. store amount of ware $Arg1
$tovr = $tovr + $kolvot
if $cena < $srcena
$tovrmin = $tovrmin + $kolvot
end
if $cena > $srcena
$tovrmax = $tovrmax + $kolvot
end
end
inc $i =
end
write to player logbook: printf: fmt= "%sОбщее количество товара %s,средняя цена %s,товару по цене ниже средней %s,товару по цене выше средней %s " , "" , $tovr , $srcena , $tovrmin , $tovrmax

return null

$i = 1
$arrst = get station array: of race $Arg0 class/type= null
$count = size of array $arrst
$arrnst = array alloc: size= $count
$t1 = [TRUE]
$tovr = 0
$tovrmin = 0
$tovrmax = 0
while $i < $count
$s = $arrst [ $i ]
$t = $s -> can sell ware $Arg1
if $t == $t1
$kolvot=0
$cena = $s -> get price of ware $Arg1
$srcena = get average price of ware $Arg1
$mincena = get min price of ware $Arg1
$kolvot = $s -> get amount of ware $Arg1 in cargo bay
$kolvomt = $s -> get max. store amount of ware $Arg1
$tovr = $tovr + $kolvot
if $cena < $srcena
$tovrmin = $tovrmin + $kolvot
end
if $cena > $srcena
$tovrmax = $tovrmax + $kolvot
end
end
inc $i =
end
write to player logbook: printf: fmt= "%sОбщее количество товара %s,средняя цена %s,товару по цене ниже средней %s,товару по цене выше средней %s ","", $tovr , $srcena , $tovrmin , $tovrmax

return null

Код:

Script ace.service.dump.mine.behind.ship Version: 1 for Script Engine Version: 32 Description Dump of a mine behind ship. Arguments 1: ship , Var/Ship , 'ship' Source Text 001   $sector = $ship -> get sector 002    003   $size = $ship -> get size of object 004   $a = $ship -> get rot alpha 005   $b = $ship -> get rot beta 006   $g = $ship -> get rot gamma 007   $g.1 = $g - 16384 008   $e = $a + 16384 009    010   $fix =  = fixed sin $a 011   $sin.a = $fix * 100 / 65535 012   $fix =  = fixed cos $a 013   $cos.a = $fix * 100 / 65535 014   $fix =  = fixed sin $b 015   $sin.b = $fix * 100 / 65535 016   $fix =  = fixed cos $b 017   $cos.b = $fix * 100 / 65535 018   $fix =  = fixed sin $g.1 019   $sin.g = $fix * 100 / 65535 020   $fix =  = fixed cos $g.1 021   $cos.g = $fix * 100 / 65535 022   $fix =  = fixed sin $e 023   $sin.e = $fix * 100 / 65535 024   $fix =  = fixed cos $e 025   $cos.e = $fix * 100 / 65535 026    027   $x = $ship -> get x position 028   $y = $ship -> get y position 029   $z = $ship -> get z position 030    031   $x = $x + ( $size + 5 ) * $cos.b * $sin.a / 10000 + ( $size / 2 + 15 ) * $cos.g * $sin.e / 10000 032   $y = $y + ( $size + 5 ) * $sin.b / 100 * -1 + ( $size / 2 + 15 ) * $sin.g / 100 033   $z = $z + ( $size + 5 ) * $cos.b * $cos.a / 10000 * -1 + ( $size / 2 + 15 ) * $cos.g * $cos.e / 10000 * -1 034    035   $mine =  create ship: type=Мина СКВОШ owner=Player addto=$sector x=$x y=$y z=$z 036   $mine -> set rotation: alpha=$a beta=$b gamma=$g 037    038   return null