LuckyParser: an abandoned JASS parser concept

hook.before CreateItem takes integer id, real x, real y, item i returns nothing
    call SetItemUserData(i, 100)
endhook
hook.before CreateItem takes integer id, real x, real y, item i returns nothing
    call SetItemUserData(i, 100)
endhook

struct List extends Table { //Would-be array structs that extend each other
    static int test (int node=0) //Optional parameter, can just call test() and node defaults 0
    {
        DoNothing();
        int i = 0; //Free-form declaration like cJass
        return i;
    }
}

struct asdf extends unit { //Extending a native type
    void test()
    {
        call KillUnit(this); //A unit-based method ;)
    }
}

struct Alabaster extends asdf, List { //Multiple inheritance
}

//class notReal extends asdf //Syntax error, classes cannot extend structs
//struct notReal2 extends notReal //Syntax error, structs cannot extend classes
//class jackyl extends unit //Syntax error, classes cannot extend native types

class Superdude {
    static thistype create()
    {
        return .allocate(); //Classes are those vJass structs, with the hidden methods
    }
}

class Childnoob extends Superdude { //Classes work pretty much the same as vJass structs
    static thistype create()
    {
        return .allocate();
    }
}

library Something
    //Free-form global declaration
    
    hashtable h //Private by default, like Zinc
    public int yes //Non-prefixed public variable
    public int _yes //Prefixed public variable
    
    init //The "init" keyword indicates the block will be compiled during initialization
        loop
            exitwhen int i == 0 //Can free-form declare locals like in cJass
            print(i) //Auto-wrap i with I2S during compilation (same goes for reals)
            print("i is equal to " + i) //Works with concatenation
            i ++ //++ and -- operators are supported to an extent
        print("Finished!") //Notice no "endloop" is required, like Python
    
    boolean foo (float f) //A function header which takes real returns boolean
        return false
    
    init
        print("I am called during init too!")
        
        TriggerAddCondition(trigger t = CreateTrigger(), Condition(lambda
            DoNothing()
            if (true & \
                !false) //The \ operator joins lines.
        ))
        
        TriggerAddAction(t, DoNothing) //Notice "function" does not need to be typed.
    
    struct Alpha //This is an array struct in vJass
        static int thisIsSimple = 123 //Pretty much the same as in vJass
        
        static int thisIsToo()
            if (cool)
                string s = "this is cool"
            elseif (!sexy)
                s = "this is not sexy"
            else
                s = "This is pretty bad"
            print(s)
    
    struct Beta extends unit //Implies "unit" instead of "integer" within methods
        unit getSelf()
            return this
        
        int asInt()
            return GetUnitUserData(this)
        
        static void test()
            unit u = CreateUnit(0, 'hfoo', 0, 0, 0) //Hint: I typed 0 instead of Player(0)
            //u will automatically set to null during compilation
    
    class Dude //A normal vJass struct, can't extend handles
        unit foo = 1 //Initial value of 1

function blahblah returns blah

or

function blah -> integer

# luck
library Runes
	globals
		constant integer SpellID = 'A000'
		constant integer RuneID  = 'o000'
		constant real    dt      = 0.2

	//==========================================================
	//  CONFIGURATION
	//==========================================================

	float Range(int level)                    // The range where the runes detect units.
		return 120. + 50. * (level - 1)

	float Radius(int level)                   // The radius where the runes will be placed.
		return 2 * Range(level)

	integer Amount(int level)                 // The amount of runes to be placed
		return 4 + 1 * (level - 1)

	float Damage(integer level)               // The damage dealt to units near the rune.
		return 350. + 50. * (level - 1)

	float Duration(integer level)             // The damage dealt to units near the runes.
		return 40. + 5. * (level - 1)		

	//==========================================================
	//  END OF CONFIGURATION
	//==========================================================

	globals
		group G = CreateGroup()

	string GetFX(integer id)
		return GetAbilityEffectById(SpellID, EFFECT_TYPE_SPECIAL, id)

	class rune
		public unit c
		public player p
		public effect f
		public float x
		public float y
		public float d = 0.
		public integer l
		public integer i

		static integer counter=0
		static thistype array runes
		static integer do=0
		static integer id=0
		public static unit dummy=null

		filter GetUnits() // This is a filter type, so just throw in return false for me at the end, please.
			unit u = GetFilterUnit()
			if (GetWidgetLife(u) > 0.405 and !IsUnitType(u, UNIT_TYPE_FLYING)) 
				SetUnitOwner(rune.dummy,rune.runes[rune.id].p,false)
				if (GetWidgetLife(rune.runes[rune.id].c) > 0.405)
					UnitDamageTarget(rune.runes[rune.id.c,u,Damage(rune.runes[rune.id].l),false,false,ATTACK_TYPE_SIEGE,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_ROCK_HEAVY_BASH)

				else
					UnitDamageTarget(rune.dummy,u,Damage(rune.runes[rune.id].l),false,false,ATTACK_TYPE_SIEGE,DAMAGE_TYPE_NORMAL,WEAPON_TYPE_ROCK_HEAVY_BASH)
			rune.do++
			u=null

		void destroy()
			DestroyEffect(.f)
			if (.d < Duration(.L))
				DestroyEffect(AddSpecialEffect(GetFX(1),.x,.y))
				DestroyEffect(AddSpecialEffect(GetFX(2),.x,.y))
			rune.counter--
			rune.runes[rune.counter].i=.i
			rune.runes[.i]=rune.runes[rune.counter]

		public static void Start(unit c,real x,real y)
			rune R=thistype.allocate()
			if (IsPlayerAlly(GetLocalPlayer(),GetOwningPlayer(c))
				set R.f=AddSpecialEffect(GetFX(0),x,y)
			else
				set R.f=AddSpecialEffect("Abilities\\Spells\\NightElf\\TreeofLifeUpgrade\\TreeofLifeUpgradeTargetArt.mdl",x,y)
			R.c=c
			R.p=GetOwningPlayer(c)
			R.x=x
			R.y=y
			R.l=GetUnitAbilityLevel(c,SpellID)
			R.i=rune.counter
			rune.runes[rune.counter]=integer(R)
			rune.counter++

		public method Update()
			integer i=0
			loop
				exitwhen i >= rune.counter
				rune.id = i
				rune.do = 0
				rune.runes[i].d=rune.runes[i].d+dt
				GroupEnumUnitsInRange(G,rune.runes[i].x,rune.runes[i].y,Range(rune.runes[i].l),Condition(rune.GetUnits))
				if (rune.do>0 or rune.runes[i].d>=Duration(rune.runes[i].l))
					rune.runes[i].destroy()
				i++

	boolean Conditions()
		return GetUnitTypeId(GetSummonedUnit()) == RuneID

	void Actions()
		unit c=GetSummoningUnit()
		unit r=GetSummonedUnit()
		real lx=GetUnitX(r)
		real ly=GetUnitY(r)
		real fc=GetUnitFacing(c)*bj_DEGTORAD
		real a=Amount(GetUnitAbilityLevel(c,SpellID))
		real R=Radius(GetUnitAbilityLeveL(c,SpellID))
		real angle=2*bj_PI/a
		integer count=0
		real x
		real y
		RemoveUnit(r)
		Rune.start(c,lx,ly)
		loop exitwhen count == a // just push it down one line.
			x = lx + R * Cos(fc + count * angle)
			y = ly + R * SIN(fc + count * angle)
			rune.Start(c,x,y)
			count++
		c=null
		r=null

	void onInit
		trigger t=CreateTrigger()
		TriggerRegisterAnyUnitEventBJ(t,EVENT_PLAYER_UNIT_SUMMON)
		TriggerAddCondition(t,Condition(Conditions))
		TriggerAddAction(t,Actions)
		Preload(GetFX(0))
		Preload(GetFX(1))
		Preload(GetFX(2))
		rune.dummy=CreateUnit(Player(15),RuneID,0,0,0)
		ShowUnit(rune.dummy,false)
		TimerStart(CreateTimer(),dt,true,rune,Update)

# endluck

library T32
    
    globals
        public constant float _PERIOD = 0.03125
        public constant int   _FPS    = R2I(1 / PERIOD)
        public int            _Tick   = 0
        
        trigger Trig = CreateTrigger()
    
    init
        TimerStart(CreateTimer(), PERIOD, true, lambda
            Tick++
            TriggerEvaluate(Trig)
        )
    
    public module T32x
        private thistype next
        private thistype prev
        
        #if ! thistype.periodic.exists
            throw "T32 Error: The .periodic() method could not be found in the struct!"
        
        void startPeriodic()
            debug if this.prev != 0 | thistype:0.next == this
                print "T32 ERROR: Struct #$this had startPeriodic called while already running!"
            thistype:0.next.prev = this
            this.next = thistype:0.next
            thistype:0.next = this
            this.prev = 0
        
        void stopPeriodic()
            debug if this.prev == 0 & thistype:0.next != this
                print "T32 ERROR: Struct #$this had stopPeriodic called while not running!"
            this.prev.next = this.next
            this.next.prev = this.prev
            debug this.prev = 0
        
        init
            TriggerAddCondition(Trig, Condition(filter
                thistype this = thistype:0.next
                while this != 0
                    this.periodic()
                    this = this.next
            ))

library X requires TimerUtils
    # if ! SetTimerData.exists
        throw "TimerUtils is not in here"

#if ! SetTimerData.exists
    void SetTimerData (timer whichTimer, int data)
        SaveInteger(hash, GetHandleId(whichTimer), data)

integer i
string s = i.toString()
real x = unit.getTrigger().getX() // or something neater
trigger trig = trigger.create() // or maybe even juste .create() but i'm not a fan of this and would make the parser slower.
trig.addCondition(...)

debug { s = "this is just a debug" ; BJDebugMsg(s)
s = "i don't like using DisplayTextToPlayer with GetLocalPlayer for debug message because GetLocalPlayer is lame in replays" ; BJDebugMsg(s) }

debug
    // your debug stuff
    // go here

DoNothing() // end of debug