uiox 0 Posted October 8, 2002 And the dream : Createmarker [Pos, type, dir,color,text] Only for icon, I don't want abuse I can do that for the moment, but with 1200 predifened markers ---> 800 k for an empty mission... Share this post Link to post Share on other sites
uiox 0 Posted October 8, 2002 This : </span><table border="0" align="center" width="95%" cellpadding="3" cellspacing="1"><tr><td>Code Sample </td></tr><tr><td id="CODE"> _subarray = (ArrayOfWPforGroup  select _WhoCall) _Prec =(count _subArray)-1 _Group = rSquadParameters select _WhoCall select 0 ? count _subarray==0 :_PosGroup = getPos  leader _Group ? count _subarray!=0 :_PosGroup = ArrayOfWPforGroup select _WhoCall select _Prec select 10 _PosOrderX = (_PosGroup select 0) + ((sin Direction) * Distance) _PosOrderY = (_PosGroup select 1) + ((cos Direction) * Distance) _PosOrder = [_PosOrderX,_PosOrderY,0] direction = (direction + 0.5 - ((direction + 0.5) % 1)) _Angle = direction/ 10 _Angle = (_Angle + 0.5 - ((_Angle + 0.5) % 1)) _Angle = _Angle *10 ? _Angle  < 180 : _AnglePlus =  180 ? _Angle  == 180 :_AnglePlus =  0 ? _Angle  > 180 :_AnglePlus =  - 180 _Angle = _Angle  + _AnglePlus ;ArrayCurMarkerUnit   ArrayCurMarkerDiz  ArrayCurMarkerAngle   CurNumMarkerUnit  CurNumMarkerDiz _PosInArray = _Angle / 10 _Marker = ArrayCurMarkerAngle select _PosInArray CurNumMarkerAngle = CurNumMarkerAngle +1 ?CurNumMarkerAngle > 100 : ["No marker, 100 maxi"] exec "Dialogue\alertWP.sqs" ?CurNumMarkerAngle > 100 :Goto "MainLoop" _AngleNum =_Angle + 1000 _CurMarkerAngleStr = Format ["%1_%2",_AngleNum ,CurNumMarkerAngle ] ArrayCurMarkerAngle set [_PosInArray ,_CurMarkerAngleStr  ] _markerColor = ((rSquadParameters select _WhoCall) select 5)select 1 _markerType = ArrayMarkerInternalWP select lbCurSel 111  _marker SetMarkerPos _PosOrder _marker SetMarkerSize rOrderMarkerSize _marker SetMarkerColor _markerColor _marker SetMarkerType _markerType _Number =count _subarray ? _Number >9 : goto "Diz" _MarkerUnit = ArrayCurMarkerUnit select _Number CurNumMarkerUnit  = CurNumMarkerUnit  +1 ArrayCurMarkerUnit  set [_Number ,format ["%1_%2",_Number ,CurNumMarkerUnit  ]] _MarkerDiz  = "" _MarkerUnit SetMarkerPos _PosOrder _MarkerUnit SetMarkerSize rOrderMarkerSize _MarkerUnit SetMarkerColor _markerColor _MarkerUnit SetMarkerType "dot" _MarkerUnit setMarkerSize [0, 0] goto "skipDiz" #Diz _Diz = 0 _Diz =(_Number- (_Number mod 10))/10 _Number = _Number -(_Diz*10) _MarkerUnit = ArrayCurMarkerDiz select _Number CurNumMarkerDiz  = CurNumMarkerDiz  +1 ArrayCurMarkerDiz  set [_Number ,format ["10%1_%2",_Number ,CurNumMarkerDiz  ]] _MarkerUnit SetMarkerPos _PosOrder _MarkerUnit SetMarkerSize rOrderMarkerSize _MarkerUnit SetMarkerColor _markerColor _MarkerUnit SetMarkerType "dot" _MarkerUnit setMarkerSize [0, 0] _MarkerDiz = ArrayCurMarkerunit select _Diz CurNumMarkerunit  = CurNumMarkerunit  +1 ArrayCurMarkerunit  set [_diz ,format ["%1_%2",_Diz ,CurNumMarkerunit  ]] _MarkerDiz SetMarkerPos _PosOrder _MarkerDiz SetMarkerSize rOrderMarkerSize _MarkerDiz SetMarkerColor _markerColor _MarkerDiz SetMarkerType "dot" _MarkerDiz setMarkerSize [0, 0] <span id='postcolor'> Or this : SetMarkerDir [curmarker,_direction] Setmarkertext [curmarker,format ["%1",_Number] ] Share this post Link to post Share on other sites
Placebo 29 Posted October 8, 2002 Sounds like a mission editing thread to me Moving to ME Share this post Link to post Share on other sites