scope CameraControl 
     globals 
         real facing = 90.00 
         real sens   = 0.05 
         real td     = 300.00 
         real fz     = 8000 
         real aoa    = 0.00 
         real fov    = 0.00 
         real roll   = 0.00 
         real rot    = 0.00 
         real zoff   = 0.00 
         private real x      = 0.00 
         private real y      = 0.00 
         private real z      = 0.00 
     endglobals 
      
     private function Actions takes nothing returns nothing 
      local integer mx = GetMouseX() 
      local integer my = GetMouseY() 
      local integer vx = GetWindowWidth()/2 
      local integer vy = GetWindowHeight()/2 
      local location l = Location(GetUnitX(center), GetUnitY(center)) 
         set vx      = vx - mx 
         set vy      = vy - my 
         set x       = GetUnitX(center)// + td * Cos(facing * bj_DEGTORAD) 
         set y       = GetUnitY(center)// + td * Sin(facing * bj_DEGTORAD) 
         set z       = UnitZ + 150      // + td * Cos(aoa    * bj_DEGTORAD) 
         //call SetUnitX(target, x) 
         //call SetUnitY(target, y) 
         call SetCameraPosition(x, y) 
         call SetCameraQuickPosition(x, y) 

         call SetCameraField(CAMERA_FIELD_ZOFFSET, z, 0 ) 
         call RemoveLocation(l) 

         set facing  = facing + (vx * sens) 
         if(facing > 360) then 
             set facing = facing - 360 
         endif 
         if(facing < 0) then 
             set facing = facing + 360 
         endif 
         call SetCameraField(CAMERA_FIELD_ROTATION, facing, 0 ) 

         set aoa     = aoa + (vy * sens) 
         if(aoa > 10) then 
             set aoa = 10 
         endif 
         if(aoa < -30) then 
             set aoa = -30 
         endif 
          
         //call SetUnitFacing(center,facing) 
          
         call SetCameraField(CAMERA_FIELD_ANGLE_OF_ATTACK, aoa, 0 ) 

         set td      = td// + vy 
         call SetCameraField(CAMERA_FIELD_TARGET_DISTANCE, td, 0 ) 

         set roll    = 0.00 
         call SetCameraField(CAMERA_FIELD_ROLL, roll, 0 ) 

         set fov     = 120.00 
         call SetCameraField(CAMERA_FIELD_FIELD_OF_VIEW, fov, 0 ) 

         call SetCameraField(CAMERA_FIELD_FARZ, fz, 0 ) 

         call SetMouseX(GetWindowWidth()/2) //GetWindowWidth is part of WindowAPI 
         call SetMouseY(GetWindowHeight()/2) //GetWindowHeight is part of WindowAPI 
     endfunction 

     //=========================================================================== 
     public function InitTrig takes nothing returns nothing 
         set gg_trg_CameraControl = CreateTrigger() 
         call TriggerAddAction(gg_trg_CameraControl, function Actions) 
         call TriggerRegisterTimerEvent(gg_trg_CameraControl, 0.01, true) 
     endfunction 
endscope

globals 
     CAMERA GameCamera = NULL 
     player GamePlayer = null 
     unit GameUnit = null 
     real facing     = 90.00 
     real aoa    = 0.00 
     real sens       = 0.005 
     trigger GameTimer = null 
     constant real GamePeriod = 0.01 
endglobals 

function GameUpdate takes nothing returns nothing 
     local integer mx = GetMouseX() 
     local integer my = GetMouseY() 
     local integer vx = GetWindowWidth()/2 
     local integer vy = GetWindowHeight()/2 
     //===================== 
     local real ang = GetUnitFacing(GameUnit)*bj_DEGTORAD 
     local real tx = GetUnitX(GameUnit) 
     local real ty = GetUnitY(GameUnit) 
     local real tz = GetTerrainZ(tx, ty)+GetUnitDefaultFlyHeight(GameUnit)+150 
     local real dex = (tx-550*Cos(ang))-GameCamera.Eye.x //(tx-550*Cos(ang))- 
     local real dey = (ty-550*Sin(ang))-GameCamera.Eye.y //(ty-550*Sin(ang))- 
     local real dez = (tz+100)-GameCamera.Eye.z//(tz+100)- 
     local real X2 = GameCamera.Eye.x+(dex*0.07) 
     local real Y2 = GameCamera.Eye.y+(dey*0.07) 
     local real Z2 = GameCamera.Eye.z+(dez*0.07) 
     //===================== 
     set vx      = vx - mx 
     set vy      = vy - my 
     //===================== 
     set facing = facing + (vx * sens) 
     if(facing > 360) then 
         set facing = facing - 360 
     endif 
     if(facing < 0) then 
         set facing = facing + 360 
     endif 
     set aoa = aoa + (vy * sens) 
     if(aoa > 10) then 
         set aoa = 10 
     endif 
     if(aoa < -30) then 
         set aoa = -30 
     endif 
     //===================== 
     call SetMouseX(GetWindowWidth()/2) 
     call SetMouseY(GetWindowHeight()/2) 
     call GameCamera.ApplyCameraForPlayer(GamePlayer, false) 
     call GameCamera.SetEyeAndAt(X2, Y2, Z2, tx, ty, tz) 
     call GameCamera.SetYawPitchRoll(facing,aoa,0,false) 
     call ClearTextMessages() 
     call DisplayTextToPlayer(Player(0),0,0,"  facing:"+R2S(facing)+"  aoa:"+R2S(aoa))  
endfunction 

//=========================================================================== 
function StartGame takes nothing returns nothing 
     set GameUnit = CreateUnit(GamePlayer, 'Hpal', 0, 0, 0) 
     set GameCamera = CAMERA.New() 
     set GameTimer = CreateTrigger() 
     call TriggerRegisterTimerEvent(GameTimer, GamePeriod, true) 
     call TriggerAddAction(GameTimer, function GameUpdate) 
     call DestroyTimer(GetExpiredTimer()) 
endfunction