Um....help?

[Pilchard123]

I've just made a very simple map (only two asteroids) as a practice for making better stuff, and the attached message comes up. Any help?

If it's of any use, here's the code.

Code: [Select]

function LevelSetup()




-- Asteroid 0
a = AddAsteroidWithAttribs(0,0,1,1,1)
a.Owner = 1
a.TreeCap = 2
a:SetRadius(50)

a.AddSeedlings(50)
s = AddDysonTree()
s:LevelUp


-- Asteroid 1
a = AddAsteroidWithAttribs(400,0,1,1,1)
a.Owner = 0
a.TreeCap = 5
a:SetRadius(50)


end

function LevelLogic()
gamewon = 0
roidnumber = 2
while GameRunning() do
if GetEmpire(1):GetNumOwnedAsteroids() == 0 then
gamewon = 1
elseif GetEmpire(1):GetNumOwnedAsteroids() == roidnumber then
gamewon = 2
end
coroutine.yield()
end


while gamewon == 0 do

coroutine.yield()
end

if gamewon == 1 then
Pause()
WaitDialog()
MessageBox('You have won.')
Unpause()
Quit(true)
end

if gamewon == 2 then

Pause()
MessageBox('You have lost.')
Unpause()
Quit(false)
end

end

[annikk.exe]

I'm proof-reading your code now.


On the first asteroid, you have this line:

Code: [Select]

s:LevelUp
which should really be this:

Code: [Select]

s:LevelUp()

[annikk.exe]

Ok there's a problem in your function level logic too.

Code: [Select]

while GameRunning() do
This is the first While loop.
It will never end.  The game is always running.  :>

Therefore your second While loop will never be triggered.  The game will go on spinning around the first While loop forever, and never get to the parts below it.
To fix, I'd suggest ditching the second While loop altogether, and instead replace the above-quoted line with the following:

Code: [Select]

while gamewon == 0 do

[annikk.exe]

Also I found this:

Code: [Select]

a.AddSeedlings(50)
Adding seedlings is a function, not a property of the asteroid :>
Dots imply a property.  Colons imply a function.


Should be this:

Code: [Select]

a:AddSeedlings(50)

[annikk.exe]

Also this:

Code: [Select]

s = AddDysonTree()
should be this:

Code: [Select]

s = a:AddDysonTree()

[annikk.exe]

I would recommend adding this line at the very beginning of your LevelSetup()

Code: [Select]

Globals.G.Asteroids=0
If you don't add this line, the game will assume there ought to be lots of asteroids, and will procedurally generate a few dozen in a ring.  Since you only want the asteroids you specify to exist, you set the global default number to 0.  That way only the asteroids you subsequently declare will be added to the game.

Can try removing it later, if you want to see what happens in its absence.  :>

[annikk.exe]

Few more bits and pieces.


   Globals.G.EnemyFactionsMin=(0)
   Globals.G.EnemyFactionsMax=(0)


These lines in your LevelSetup() will prevent the game from auto-adding enemy empires that you don't want.


If the win condition is met, this is what happens:

Code: [Select]

Pause()
MessageBox('You have lost.')
Unpause()
Quit(false)


It says lost instead of won.
Also, you need a WaitDialog() after the MessageBox.




If the lose condition is met, this is what happens:

Code: [Select]

Pause()
WaitDialog()
MessageBox('You have won.')
Unpause()
Quit(true)

It says won instead of lost.
Also, the WaitDialog() should be after the MessageBox, not before.

[annikk.exe]

Working version, with the changes listed above.

(click to show/hide)

Code: [Select]

function LevelSetup()


Globals.G.Asteroids=0
Globals.G.EnemyFactionsMin=(0)
Globals.G.EnemyFactionsMax=(0)

-- Asteroid 0
a = AddAsteroidWithAttribs(0,0,1,1,1)
a.Owner = 1
a.TreeCap = 2
a:SetRadius(50)

a:AddSeedlings(50)
s = a:AddDysonTree()
s:LevelUp()


-- Asteroid 1
a = AddAsteroidWithAttribs(400,0,1,1,1)
a.Owner = 0
a.TreeCap = 5
a:SetRadius(50)


end

function LevelLogic()
gamewon = 0
roidnumber = 2
while gamewon == 0 do
if GetEmpire(1):GetNumOwnedAsteroids() == 0 then
gamewon = 1
elseif GetEmpire(1):GetNumOwnedAsteroids() == roidnumber then
gamewon = 2
end

coroutine.yield()
end


if gamewon == 1 then
Pause()

MessageBox('You have lost.')
WaitDialog()
Unpause()
Quit(false)
end

if gamewon == 2 then

Pause()
MessageBox('You have won.')
WaitDialog()
Unpause()
Quit(true)
end

end

Don't click the button though.  :>  You'll wind up a better coder if you take 10 minutes to apply the changes listed above on your own.  Plus, it's way more satisfying.  :>
But yea, it's there if you really get stuck.

[Pilchard123]

Thanks annikk. I've just worked out what the error message means - I was using UTF-8 encoding, not ANSI. Why I didn't check that, I don't know.

[annikk.exe]

Ah right - heh.  :>  Didn't think of that.  I was kind of bemused when I didn't find any reference to a variable called "i" on line 1...

[Alex]

I love you guys! 

[annikk.exe]

We love you too!!! <3