~random 1
;
; Altimeter script v1.1
;
; Use this to get any positions height above sea level, very useful for avioding setting random generated
; waypoints in the sea, and for "seek higher ground" commands.
; Output is either a public variable "Altitude" or a hinted onscreen message
;
;
; [Position X, Position Y,"hint"] exec "altimeter.sqs" = ONSCREEN MESSAGE
; [Position X, Position Y,"var"] exec "altimeter.sqs" = VARIABLE "altitude" IS PRODUCED
;
; example [getpos player select 0,getpos player select 1] exec "altimeter.sqs"
;
;
;********************************************************************************************************************
? format ["%1",AltimeterZERO] == "scalar bool array string 0xffffffef" : AltimeterZERO = "logic" camcreate [0,0,0]
? format ["%1",AltimeterPOS] == "scalar bool array string 0xffffffef" : AltimeterPOS = "logic" camcreate [0,0,0]
AltimeterPOS setpos [(_this select 0),(_this select 1)]
_pos1 = getpos AltimeterPOS
_pos2 = getpos AltimeterZERO
_B = sqrt (((_pos1 select 0) - (_pos2 select 0))^2 + ((_pos1 select 1) - (_pos2 select 1))^2)
_C = AltimeterPOS distance AltimeterZERO
_A = sqrt (_c^2 - _b^2)
? _this select 2 == "hint" : hint format ["Altitude %1",_A]
? _this select 2 == "var" : Altitude = _a
#EXIT
exit