local unit u

set u = null

local integer i = 1
loop
     exitwhen i > 10
     call BJDebugMsg(I2S(i))
     set i = i + 1
endloop

local integer i = 1
loop
     exitwhen i > 10
     call BJDebugMsg(I2S(i))
     call BJDebugMsg(I2S(i + 1))
     set i = i + 2
endloop

Custom script:   set udg_x1 = udg_x1 + udg_H_offset[1] * Cos(udg_H_angle_1)

library Knockback

globals
     private constant real Interval = 0.01

     private constant string effekt = "Abilities\\Weapons\\AncientProtectorMissile\\AncientProtectorMissile.mdl"

     private constant string blood = "Objects\\Spawnmodels\\Critters\\Albatross\\CritterBloodAlbatross.mdl"
endglobals

private struct data
unit u
real d1
real d2

real sin
real cos

boolean r
endstruct

globals
     private timer Tim = CreateTimer()
     private data array DATAS
     private integer Total = 0
endglobals

private function IsCoordPathable takes real x, real y returns boolean
     local item u = CreateItem( 'wolg', x,y )
     local real xx = GetItemX( u ) - x
     local real yy = GetItemY( u ) - y
     call RemoveItem(u)
     set u = null
     if xx < 1 and xx > -1 and yy < 1 and yy > -1 then
         return true
     endif
     return false
endfunction

private function Execute takes nothing returns nothing
     local data dat
     local integer i = 0
     local real x
     local real y
     loop
         exitwhen i >= Total
         set dat = DATAS[i]
         set x = GetUnitX(dat.u) + dat.d1 * dat.cos
         set y = GetUnitY(dat.u) + dat.d1 * dat.sin
         if IsCoordPathable(x, y) then
             if dat.r then
                 call SetUnitX(dat.u, x)
                 call SetUnitY(dat.u, y)
             else
                 call SetUnitPosition(dat.u,x,y)
             endif
         endif
         set dat.d1 = dat.d1 - dat.d2
if dat.d1 <= 0 or not IsCoordPathable(x, y) then
             set DATAS[i] = DATAS[Total - 1]
             set Total = Total - 1
             call dat.destroy()
         endif
         set i = i + 1
     endloop
     if Total == 0 then
         call PauseTimer(Tim)
     endif
endfunction

function Knockback takes unit u, real d, real a, real t, boolean resist returns nothing
     local data dat = data.create()
     local integer q = R2I(t / Interval)
     set a = a*bj_DEGTORAD
     set dat.u = u
     set dat.d1 = 2 * d / (q + 1)
     set dat.d2 = dat.d1 / q
     set dat.sin = Sin(a)
     set dat.cos = Cos(a)
     set dat.r = resist
     if Total == 0 then
         call TimerStart(Tim, Interval, true, function Execute)
     endif
     set Total = Total + 1
     set DATAS[Total - 1] = dat
endfunction

endlibrary

function PingMinimapForForceEx takes force whichForce, real x, real y, real duration, integer style, real red, real green, real blue returns nothing
      local force bI
      local integer red255   = PercentTo255(128)
      local integer green255 = PercentTo255(128)
      local integer blue255  = PercentTo255(255)

      if (IsPlayerInForce(GetLocalPlayer(), bI)) then
          // Use only local code (no net traffic) within this block to avoid desyncs.

          // Prevent 100% red simple and flashy pings, as they become "attack" pings.
          if (red255 == 255) and (green255 == 0) and (blue255 == 0) then
              set red255 = 254
          endif

          if (style == bj_MINIMAPPINGSTYLE_SIMPLE) then
              call PingMinimapEx(50, 50, 128, red255, green255, blue255, false)
          elseif (style == bj_MINIMAPPINGSTYLE_FLASHY) then
              call PingMinimapEx(50, 50, 128, red255, green255, blue255, true)
          elseif (style == bj_MINIMAPPINGSTYLE_ATTACK) then
              call PingMinimapEx(50, 50, 128, 255, 0, 0, false)
          else
              // Unrecognized ping style - ignore the request.
          endif
            
          //call StartSound(bj_pingMinimapSound)
      endif
endfunction

functions Global takes nothing returns nothing
  local integer COUNT_OF_PLAYERS = 12
  costant integer INVERSE = 1
     global
         global unit array Units
         global boolean array Up[12]
         global boolean array Down[12]
         global boolean array Left[12]
         global boolean array Right[12]   
         global boolean array ApplyCam[12]
         global boolean array ApplyControl[12]
         global integer array Anims[12]
         global boolean array Arround[12]
         global boolean array FlagArround[12]
         global boolean array ResetFlag[12]
         global location l[12]
     endglobal
endfunction

function Trig_cameraCren_Actions takes nothing returns nothing
  local real u = gg_unit_hpea_0001
  local real x = GetUnitX(u)
  local real y = GetUnitY(u)
  call TriggerSleepAction( 0.1 )
   If ( RectContainsUnit(Rect(xy, yx, xy, yx), u) == true ) then
    set udg_Fgle = ( udg_Fgle + GetRandomReal(-10.00, 10.00) )
   endif
  set u = null
endfunction