Weird Syntax Error

wraithseeker · 04-30-2009, 10:05 AM

JASS:



library Knockback initializer Init requires DestructableLib, IsTerrainWalkable, GroupUtils, PUI

globals
    private constant real    TIME         = 0.03                     // The timer interval.
    private constant real    CHAINRADIUS  = 100.00                   // The radius a unit can get chained when near the unit target.
    private constant real    SPEEDFACTOR  = 0.75                     // How much speed will be reduced when a unit chains another unit.
    private constant real    RADIUS       = 128.00                   // The radius to check tree.
    private constant real    HEIGHTLEVEL  = 200.00                   // The default height level that stops chaining or killing trees when in the air.
    private constant real    FACTOR       = 0.3333                   // Or 0.25 for smoothness.
    private constant string  GROUND       = "MDX\\Dust.mdx"          // The effect for ground.
    private constant string  WATER        = "MDX\\SlideWater.mdx"    // The effect for water.
    private constant string  COLLISION    = "MDX\\DustAndRocks.mdx"  // The effect when at cliff
    private constant string  FLYING       = "MDX\\TornadoMissile.mdx"// The effect when flying
    private constant string  ATTACHPOINT  = "origin"                 // The attachment point for effects
endglobals

globals
    private constant integer INVULNERABLE   = 'Avul'               
    private constant integer FLYID          = 'Amrf' 
    private rect     TreeRect               = null
    private boolexpr TreeCheck              = null
    private boolexpr ChainFilter            = null
    private unit     Target                 = null
    private unit     Source                 = null
    private real MapMaxX                    = 0
    private real MapMaxY                    = 0
    private real MapMinX                    = 0
    private real MapMinY                    = 0
    private Knock D
endglobals

private function CheckTrees takes nothing returns boolean
    return IsDestructableTree(GetFilterDestructable())
endfunction

private function Trees takes nothing returns nothing
    call KillDestructable(GetEnumDestructable())
endfunction

private function ChainCheck takes nothing returns boolean
    return Target != GetFilterUnit() and IsUnitEnemy(GetFilterUnit(),GetOwningPlayer(Source)) and IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND) == true and IsUnitType(GetFilterUnit(), UNIT_TYPE_MECHANICAL) == false and GetWidgetLife(GetFilterUnit()) > 0.405 and GetUnitAbilityLevel(GetFilterUnit(),INVULNERABLE) <= 0
endfunction

function ParabolaZ takes real h, real d, real x returns real
  return (4 * h / d) * (d - x) * (x / d)
endfunction

private function IsPointOutside takes real x, real y returns boolean
    return (x > MapMaxX or y > MapMaxY or x < MapMinX or y < MapMinY)
endfunction

struct Knock
 //! runtextmacro PUI()
    private static timer Timer = CreateTimer()
    private static Knock array D
    private static integer Count = 0
    unit        source          = null
    unit        target          = null
    integer     mode            = 0
    group       hit             = null
    real        cos             = 0
    real        sin             = 0 
    real        speed           = 0
    real        decrement       = 0
    real        distance        = 0
    real        positionZ       = 0
    effect      effects         = null
    boolean     terrain         = false
    boolean     trees           = false
    boolean     chain           = false
    boolean     fly             = false
    
   private method TerrainCheck takes nothing returns integer
        local real x = GetUnitX(.target)
        local real y = GetUnitY(.target)
    
        if IsTerrainWalkable(x + 50.00 * .cos,y + 50.00 * .sin) == false then
            return 3
        else
            if IsTerrainPathable(x,y,PATHING_TYPE_FLOATABILITY) then
                return 1
            elseif not IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY) then
                return 2
            endif
        endif 
        
        return 0
    endmethod
    
    
method KnockbackStop takes unit target returns boolean
    local Knock d = Knock[target]
    local integer i = Knock.Count - 1
    if d != 0 then
        call d.release()
        if Knock.Count > 0 then
             set Knock.D[i] = Knock.D[Knock.Count]
        else
            call PauseTimer(Knock.Timer)
        endif
        return true
    endif
    return false
endmethod
        
static method create takes unit source, unit target, real angle, real speed, real decrement, boolean tree,boolean chain, boolean fly returns Knock
    local Knock d = Knock.allocate()
    if target == null or source == null or speed == null or decrement == null then
        debug call BJDebugMsg("Invalid Values!")
        call d.destroy()
    endif
    set d.source        = source
    set d.target        = target
    set d.trees         = tree
    set d.fly           = fly
    set d.chain         = chain
    set d.hit           = NewGroup()
    set d.speed         = speed * TIME
    set d.decrement     = decrement * TIME
    set d.sin           = Sin(angle)
    set d.cos           = Cos(angle)
    set d.distance      = -1 * speed * speed / (2 * -decrement / TIME)
    set d.positionZ     = 0
    
    if d.fly then
        call SetUnitPathing(d.target,false)
        call UnitAddAbility(d.target,FLYID)
        call UnitRemoveAbility(d.target,FLYID)
        set d.effects = AddSpecialEffectTarget(FLYING,d.target,ATTACHPOINT)
    endif
    
    set d.mode = d.TerrainCheck()
    if d.mode == 1 then
        set d.effects = AddSpecialEffectTarget(GROUND,d.target,ATTACHPOINT)
    elseif d.mode == 2 then
        set d.effects = AddSpecialEffectTarget(WATER,d.target,ATTACHPOINT)
    elseif d.mode == 3 then
        set d.effects = AddSpecialEffectTarget(COLLISION,d.target,ATTACHPOINT)
    endif
    set Knock[target] = d
    if Knock.Count == 0 then
        call TimerStart(Knock.Timer,TIME,true,function Knock.Periodic)
    endif
    set Knock.D[Knock.Count] = d
    set Knock.Count = Knock.Count + 1
    return d
    endmethod
    
private method onDestroy takes nothing returns nothing
    call DestroyEffect(.effects)
    call ReleaseGroup(.hit)
    call SetUnitFlyHeight(.target,0,0)
    call SetUnitPathing(.target,true)
endmethod
        
private method action takes nothing returns boolean
    local unit    t    = null
    local real    x    = 0.00
    local real    y    = 0.00
    local real    cx   = 0.00
    local real    cy   = 0.00
    local integer mode = 0
    local real height
    local Knock d
    set mode = .mode
    set x = GetUnitX(.target)
    set y = GetUnitY(.target)
    set height = GetUnitFlyHeight(.target)
    set .positionZ = .positionZ + .speed
        
    if height >= HEIGHTLEVEL then
        set .chain = false
        set .trees = false
    endif
        
    if .speed <= 0 or IsPointOutside(x,y) then
        return true
    endif
    
    if .trees then
        call SetRect(TreeRect,x-RADIUS,y-RADIUS,x+RADIUS,y+RADIUS)
        call EnumDestructablesInRect(TreeRect,TreeCheck,function Trees)
    endif
        
    if .fly then
        call SetUnitFlyHeight(.target,ParabolaZ(FACTOR*.distance,.distance,.positionZ),0)
    endif
        
    set .mode = .TerrainCheck()
    if .mode == 1 and (mode == 2 or mode == 3) then
        call DestroyEffect(.effects)
        set .effects = AddSpecialEffectTarget(GROUND,.target,ATTACHPOINT)
    elseif .mode == 2 and (mode == 1 or mode == 3) then
        call DestroyEffect(.effects)
        set .effects = AddSpecialEffectTarget(WATER,.target,ATTACHPOINT)
    elseif .mode == 3 and (mode == 1 or mode == 2) then
        call DestroyEffect(.effects)
        set .effects = AddSpecialEffectTarget(COLLISION,.target,ATTACHPOINT)
    endif
        
    if .chain == true then
        call GroupEnumUnitsInRange(ENUM_GROUP,x,y,CHAINRADIUS,ChainFilter)
        loop
            set t = FirstOfGroup(ENUM_GROUP)
            exitwhen t == null
            if not IsUnitInGroup(t,.hit) then
                set cx = GetUnitX(t)
                set cy = GetUnitY(t)
                call GroupAddUnit(.hit,t)
                set d = Knock.create(.source,t,Atan2(cy-y,cx-x),(.speed/TIME)*SPEEDFACTOR,(.decrement/TIME),.trees,.chain,.fly)
                call GroupAddUnit(.hit,.target)
                set Knock.D[Knock.Count] = d
                set .Count = .Count + 1
            endif
            call GroupRemoveUnit(ENUM_GROUP,t)
        endloop
    endif
    
        return false
endmethod
    
private static method Periodic takes nothing returns nothing
    local integer i = 0
    loop
        exitwhen i < 0
        if Knock.D[i].action() then
            set Knock.Count = Knock.Count - 1
            if Knock.Count > 0 then
                set Knock.D[i] = Knock.D[Knock.Count]
                set i = i - 1
            else
                call PauseTimer(.Timer)
            endif
        endif
        set i = i + 1
        endloop
endmethod

endstruct

function IsKnockedBack takes unit target returns boolean
    return Knock[target] != 0
endfunction

private function Init takes nothing returns nothing
    set TreeRect    = Rect(0.00,0.00,1.00,1.00)
    set TreeCheck   = Filter(function CheckTrees)
    set ChainFilter = Filter(function ChainCheck)
    set MapMaxX     = GetRectMaxX(bj_mapInitialPlayableArea)
    set MapMaxY     = GetRectMaxY(bj_mapInitialPlayableArea)
    set MapMinX     = GetRectMinX(bj_mapInitialPlayableArea)
    set MapMinY     = GetRectMinY(bj_mapInitialPlayableArea)     
endfunction

endlibrary

Do you all know why in my Timer, Knock array, and integer count, I have to put a Knock. infront of them instead of just doing a .?

**Vexorian** · 04-30-2009, 02:51 PM

It sometimes helps that when you put a giantic script, you would point us in which lines the syntax error is?

Alevice · 04-30-2009, 03:15 PM

Quote:

Originally Posted by wraithseeker

Do you all know why in my Timer, Knock array, and integer count, I have to put a Knock. infront of them instead of just doing a .?

Becaus ethey are static memebr?

wraithseeker · 04-30-2009, 03:17 PM

For some other cases, there is no need. Can anyone tell me why the knockbacking of the unit isn't working right?

JASS:

 

 
library Knockback initializer Init requires DestructableLib, IsTerrainWalkable, GroupUtils, PUI

globals
    private constant real    TIME         = 0.03                     // The timer interval.
    private constant real    CHAINRADIUS  = 100.00                   // The radius a unit can get chained when near the unit target.
    private constant real    SPEEDFACTOR  = 0.75                     // How much speed will be reduced when a unit chains another unit.
    private constant real    RADIUS       = 128.00                   // The radius to check tree.
    private constant real    HEIGHTLEVEL  = 200.00                   // The default height level that stops chaining or killing trees when in the air.
    private constant real    FACTOR       = 0.3333                   // Or 0.25 for smoothness.
    private constant string  GROUND       = "MDX\\Dust.mdx"          // The effect for ground.
    private constant string  WATER        = "MDX\\SlideWater.mdx"    // The effect for water.
    private constant string  COLLISION    = "MDX\\DustAndRocks.mdx"  // The effect when at cliff
    private constant string  FLYING       = "MDX\\TornadoMissile.mdx"// The effect when flying
    private constant string  ATTACHPOINT  = "origin"                 // The attachment point for effects
endglobals

globals
    private constant integer INVULNERABLE   = 'Avul'               
    private constant integer FLYID          = 'Amrf' 
    private rect     TreeRect               = null
    private boolexpr TreeCheck              = null
    private boolexpr ChainFilter            = null
    private unit     Target                 = null
    private unit     Source                 = null
    private real MapMaxX                    = 0
    private real MapMaxY                    = 0
    private real MapMinX                    = 0
    private real MapMinY                    = 0
    private Knock D
endglobals

private function CheckTrees takes nothing returns boolean
    return IsDestructableTree(GetFilterDestructable())
endfunction

private function Trees takes nothing returns nothing
    call KillDestructable(GetEnumDestructable())
endfunction

private function ChainCheck takes nothing returns boolean
    return Target != GetFilterUnit() and IsUnitEnemy(GetFilterUnit(),GetOwningPlayer(Source)) and IsUnitType(GetFilterUnit(), UNIT_TYPE_GROUND) == true and IsUnitType(GetFilterUnit(), UNIT_TYPE_MECHANICAL) == false and GetWidgetLife(GetFilterUnit()) > 0.405 and GetUnitAbilityLevel(GetFilterUnit(),INVULNERABLE) <= 0
endfunction

function ParabolaZ takes real h, real d, real x returns real
  return (4 * h / d) * (d - x) * (x / d)
endfunction

private function IsPointOutside takes real x, real y returns boolean
    return (x > MapMaxX or y > MapMaxY or x < MapMinX or y < MapMinY)
endfunction

struct Knock
 //! runtextmacro PUI()
    private static timer Timer = CreateTimer()
    private static Knock array D
    private static integer Count = 0
    unit        source          = null
    unit        target          = null
    integer     mode            = 0
    group       hit             = null
    real        cos             = 0
    real        sin             = 0 
    real        speed           = 0
    real        decrement       = 0
    real        distance        = 0
    real        positionZ       = 0
    effect      effects         = null
    boolean     terrain         = false
    boolean     trees           = false
    boolean     chain           = false
    boolean     fly             = false
    
   private method TerrainCheck takes nothing returns integer
        local real x = GetUnitX(.target)
        local real y = GetUnitY(.target)
    
        if IsTerrainWalkable(x + 50.00 * .cos,y + 50.00 * .sin) == false then
            return 3
        else
            if IsTerrainPathable(x,y,PATHING_TYPE_FLOATABILITY) then
                return 1
            elseif not IsTerrainPathable(x,y,PATHING_TYPE_WALKABILITY) then
                return 2
            endif
        endif 
        
        return 0
    endmethod
    
    
method KnockbackStop takes unit target returns boolean
    local Knock d = Knock[target]
    local integer i = Knock.Count - 1
    if d != 0 then
        call d.release()
        if Knock.Count > 0 then
             set Knock.D[i] = Knock.D[Knock.Count]
        else
            call PauseTimer(Knock.Timer)
        endif
        return true
    endif
    return false
endmethod
        
static method create takes unit source, unit target, real angle, real speed, real decrement, boolean tree,boolean chain, boolean fly returns Knock
    local Knock d = Knock.allocate()
    if target == null or source == null or speed == 0.00 or decrement == 0.00 then
        debug call BJDebugMsg("Invalid Values!")
        call d.destroy()
    endif
    set d.source        = source
    set d.target        = target
    set d.trees         = tree
    set d.fly           = fly
    set d.chain         = chain
    set d.hit           = NewGroup()
    set d.speed         = speed * TIME
    set d.decrement     = decrement * TIME
    set d.sin           = Sin(angle)
    set d.cos           = Cos(angle)
    set d.distance      = -1 * speed * speed / (2 * -decrement / TIME)
    set d.positionZ     = 0.
    
    if d.fly then
        call SetUnitPathing(d.target,false)
        call UnitAddAbility(d.target,FLYID)
        call UnitRemoveAbility(d.target,FLYID)
        set d.effects = AddSpecialEffectTarget(FLYING,d.target,ATTACHPOINT)
    endif
    
    set d.mode = d.TerrainCheck()
    if d.mode == 1 then
        set d.effects = AddSpecialEffectTarget(GROUND,d.target,ATTACHPOINT)
    elseif d.mode == 2 then
        set d.effects = AddSpecialEffectTarget(WATER,d.target,ATTACHPOINT)
    elseif d.mode == 3 then
        set d.effects = AddSpecialEffectTarget(COLLISION,d.target,ATTACHPOINT)
    endif
    set Knock[target] = d
    if Knock.Count == 0 then
        call TimerStart(Knock.Timer,TIME,true,function Knock.Periodic)
    endif
    set Knock.D[Knock.Count] = d
    set Knock.Count = Knock.Count + 1
    return d
    endmethod
    
private method onDestroy takes nothing returns nothing
    call DestroyEffect(.effects)
    call ReleaseGroup(.hit)
    call SetUnitFlyHeight(.target,GetUnitDefaultFlyHeight(.target),0)
    call SetUnitPathing(.target,true)
endmethod
        
private method action takes nothing returns boolean
    local unit    t    = null
    local real    x    = 0.00
    local real    y    = 0.00
    local real    cx   = 0.00
    local real    cy   = 0.00
    local integer mode = 0
    local real height = 0.00
    local Knock d
    set mode = .mode
    set x = GetUnitX(.target)
    set y = GetUnitY(.target)
    set height = GetUnitFlyHeight(.target)
    set .positionZ = .positionZ + .speed
    set x = x + .speed * .cos
    set y = y + .speed * .sin
        
    if height >= HEIGHTLEVEL then
        set .chain = false
        set .trees = false
    endif
        
    if .speed <= 0 or IsPointOutside(x,y) then
        return true
    endif
    
     call SetUnitPosition(.target,x,y)
     
    if .trees then
        call SetRect(TreeRect,x-RADIUS,y-RADIUS,x+RADIUS,y+RADIUS)
        call EnumDestructablesInRect(TreeRect,TreeCheck,function Trees)
    endif
        
    if .fly then
        call SetUnitFlyHeight(.target,ParabolaZ(FACTOR*.distance,.distance,.positionZ),0)
    endif
        
    set .mode = .TerrainCheck()
    if .mode == 1 and (mode == 2 or mode == 3) then
        call DestroyEffect(.effects)
        set .effects = AddSpecialEffectTarget(GROUND,.target,ATTACHPOINT)
    elseif .mode == 2 and (mode == 1 or mode == 3) then
        call DestroyEffect(.effects)
        set .effects = AddSpecialEffectTarget(WATER,.target,ATTACHPOINT)
    elseif .mode == 3 and (mode == 1 or mode == 2) then
        call DestroyEffect(.effects)
        set .effects = AddSpecialEffectTarget(COLLISION,.target,ATTACHPOINT)
    endif
        
    if .chain == true then
        call GroupEnumUnitsInRange(ENUM_GROUP,x,y,CHAINRADIUS,ChainFilter)
        loop
            set t = FirstOfGroup(ENUM_GROUP)
            exitwhen t == null
            if not IsUnitInGroup(t,.hit) then
                set cx = GetUnitX(t)
                set cy = GetUnitY(t)
                call GroupAddUnit(.hit,t)
                set d = Knock.create(.source,t,Atan2(cy-y,cx-x),(.speed/TIME)*SPEEDFACTOR,(.decrement/TIME),.trees,.chain,.fly)
                call GroupAddUnit(d.hit,.target)
                set Knock.D[Knock.Count] = d
                set Knock.Count = Knock.Count + 1
            endif
            call GroupRemoveUnit(ENUM_GROUP,t)
        endloop
    endif
     set .speed = .speed - .decrement
        return false
endmethod
    
private static method Periodic takes nothing returns nothing
    local integer i = 0
    loop
        exitwhen i >= Knock.Count
        if Knock.D[i].action() then
            set Knock.Count = Knock.Count - 1
            if Knock.Count > 0 then
                set Knock.D[i] = Knock.D[Knock.Count]
                set i = i - 1
            else
                call PauseTimer(.Timer)
            endif
        endif
        set i = i + 1
        endloop
endmethod

endstruct

function IsKnockedBack takes unit target returns boolean
    return Knock[target] != 0
endfunction

private function Init takes nothing returns nothing
    set TreeRect    = Rect(0.00,0.00,1.00,1.00)
    set TreeCheck   = Filter(function CheckTrees)
    set ChainFilter = Filter(function ChainCheck)
    set MapMaxX     = GetRectMaxX(bj_mapInitialPlayableArea)
    set MapMaxY     = GetRectMaxY(bj_mapInitialPlayableArea)
    set MapMinX     = GetRectMinX(bj_mapInitialPlayableArea)
    set MapMinY     = GetRectMinY(bj_mapInitialPlayableArea)     
endfunction

endlibrary

wraithseeker · 05-01-2009, 02:31 AM

There is no syntax error and here's a bump.

For the lines highlighted for the static Knock array D, I have to put a Knock. infront of it else i'll have a syntax error, any clues?

The knockback looks very choppy and unnatural right now for some reason, am I doing something wrong?

**Vexorian** · 05-01-2009, 04:09 AM

what's the syntax error you get?

Feroc1ty · 05-01-2009, 04:10 AM

Quote:

Originally Posted by Vexorian

what's the syntax error you get?

He said he's not getting an error.

**Vexorian** · 05-01-2009, 04:11 AM

Quote:

For the lines highlighted for the static Knock array D, I have to put a Knock. infront of it else i'll have a syntax error, any clues?

wraithseeker · 05-01-2009, 04:25 AM

D is not a member of struct Knock.

**Vexorian** · 05-01-2009, 12:50 PM

Quote:

private Knock D

change the name of this global to something else.

05-01-2009, 02:31 AM	#5
wraithseeker User Join Date: Feb 2009 Posts: 406	There is no syntax error and here's a bump. For the lines highlighted for the static Knock array D, I have to put a Knock. infront of it else i'll have a syntax error, any clues? The knockback looks very choppy and unnatural right now for some reason, am I doing something wrong? Last edited by wraithseeker : 05-01-2009 at 02:37 AM.

Thread Tools	Search this Thread
Show Printable Version Email this Page	Search this Thread: Advanced Search

05-01-2009, 04:25 AM	#9
wraithseeker User Join Date: Feb 2009 Posts: 406	D is not a member of struct Knock.