'small' update:

Code:

.myclass
set this:x 50
set this:y 70

ret

public:ToString:
echo x
ret
.end

set x new(myclass)
set x:z 30
jmp x:ToString

exit 0



You can set and work with class variables now. The example above will show the following output:

Quote:


Instance of 'myclass' (`x`='50' `y`='70' `z`='30' )





Classes can inherit from other classes now:

Code:

.mother
ret

public:ToString:
echo x
ret
.end

.child:mother
set this:x 50
set this:y 30

ret
.end

set x new(child)
jmp x:ToString



The example above will show the following output:

Quote:


Instance of 'child' (`x`='50' `y`='30' )





Last edited by MichaelFriedrich; 11/22/07 23:19.

Your friendly mod is at your service.