function CheckRange takes unit u, unit un returns real
     if IsUnitInRange( un, u, 2000.0 ) then
       if IsUnitInRange( un, u, 1500.0 ) then
         if IsUnitInRange( un, u, 1000.0 ) then
           return 1.0
         endif
         return 0.8
       endif
      return 0.6
     else
      return 0.4
     endif
endfunction

set y = CheckRange( un, u )

      set dx = GetWidgetX(un) - GetWidgetX(u)
      set dy = GetWidgetY(un) - GetWidgetY(u)
      set d = SquareRoot( dx * dx + dy * dy )
      if d < 1000 then
         set y = 1.00
      elseif d <= 1500 and d > 1000 then
         set y = 0.80
      elseif d <= 2000 and d > 1500 then
         set y = 0.60
      elseif d > 2000 then
         set y = 0.40
      endif

function r takes integer a, integer b returns integer
    if a==547 then
        return 1
    endif
    return r(a+b,b)
endfunction

...

real z=r(0,0)

      set dx = GetWidgetX(un) - GetWidgetX(u)
      set dy = GetWidgetY(un) - GetWidgetY(u)
      set d = SquareRoot( dx * dx + dy * dy )
      if d < 1000 then
         set y = 1.00
      elseif d <= 1500 then
         set y = 0.80
      elseif d <= 2000 then
         set y = 0.60
      elseif d > 2000 then
         set y = 0.40
      endif