;improved and much more smaller position-script by Softegg, softegg.ofp@gmx.de
;
;inspired by Fishion, Jerommeke and toadlife
;
;syntax: [(x-coordinates),(y-coordinates)] exec "(scriptname)"

_obj = _this select 0
_xpos = _this select 1
_ypos = _this select 2

_letters = ["Aa","Ab","Ac","Ad","Ae","Af","Ag","Ah","Ai","Aj","Ba","Bb","Bc","Bd","Be","Bf","Bg","Bh","Bi","Bj","Ca","Cb","Cc","Cd","Ce","Cf","Cg","Ch","Ci","Cj","Da","Db","Dc","Dd","De","Df","Dg","Dh","Di","Dj","Ea","Eb","Ec","Ed","Ee","Ef","Eg","Eh","Ei","Ej","Fa","Fb","Fc","Fd","Fe","Ff","Fg","Fh","Fi","Fj","Ga","Gb","Gc","Gd","Ge","Gf","Gg","Gh","Gi","Gj","Ha","Hb","Hc","Hd","He","Hf","Hg","Hh","Hi","Hj","Ia","Ib","Ic","Id","Ie","If","Ig","Ih","Ii","Ij","Ja","Jb","Jc","Jd","Je","Jf","Jg","Jh","Ji","Jj"]
_numbers = ["99","98","97","96","95","94","93","92","91","90","89","88","87","86","85","84","83","82","81","80","79","78","77","76","75","74","73","72","71","70","69","68","67","66","65","64","63","62","61","60","59","58","57","56","55","54","53","52","51","50","49","48","47","46","45","44","43","42","41","40","39","38","37","36","35","34","33","32","31","30","29","28","27","26","25","24","23","22","21","20","19","18","17","16","15","14","13","12","11","10","09","08","07","06","05","04","03","02","01","00"]

?_xpos<0 or _xpos>12800:_xcoor="??";goto "Ycoor"

_xcoor = _letters select ((_xpos-64)/128)

#Ycoor

?_ypos<0 or _ypos>12800:_ycoor="??";goto "ShowXYcoor"

_ycoor = _numbers select ((_ypos-64)/128)

#ShowXYcoor

_obj sidechat format ["This is %1, requesting air strike in map grid %2 %3!",_obj,_xcoor,_ycoor]

?(airstrikes <= 0): goto "neg"
?(airstrikes > 0): goto "aff"

#neg
~5
whq1 sidechat format ["This is air traffic control, negative %1, no air strikes availible at this time.",_obj]
exit

#aff
~5
airstrikes = airstrikes - 1
whq1 sidechat format ["This is air traffic control, affirmative %1, air strike en route.",_obj]
?!(local server): goto "contnotlocal"
_waircrft = "A10" createVehicle getmarkerpos "wtnkpool"

"SoldierWB" createUnit [getMarkerPos "wtnkpool", groupairstrk, "TMP1=this"]

#contnotlocal

_crew1 = TMP1

_crew1 assignasdriver _waircrft
_crew1 moveindriver _waircrft

_waircrft setpos [85,12698,500]
_waircrft setvelocity [0,-300,0]

[groupairstrk, 1] setWPPos getPos _obj

[_crew1] CommandMove GetPos _obj

_ammo = (_waircrft ammo "MaverickLauncher")

_value = 480

#chkcraft
~1
?!(alive _waircrft): whq1 sidechat "This is air traffic control, a fixed wing air asset has been destroyed!" and goto "deletecraft"
?(_ammo <= 0): goto "rtb"
_value = _value - 1
?(_value <= 0): goto "rtb"
goto "chkcraft"

#rtb
_crew1 sidechat "Ammunition expended, returning to base."
[groupairstrk, 1] setWPPos [85,12698]
[_crew1] CommandMove [85,12698]
~30

#deletecraft
~10
deletevehicle _waircrft
deletevehicle _crew1

exit
