New scripters ask advanced peeps how to script something

[BC wins]

I made this topic so that I and other new lvl makers can ask you experts (like anik) how to do something in lua

[BC wins]

i am trying to make 100 seedlings appear at the moment i scout a planet using the
 OnAsteroidRevealed function

(click to show/hide)

function OnAsteroidRevealed(id, owner)
   if id == 3 and owner == 0 then
   GetAsteroid(3):AddSeedlings(100)
      return
   end

end

can someone tell me what i am doing wrong

BC wins    

[Sniped50]

I don't think you need that 'return' bit. OnAsteroidRevealed(id,owner) is always automatically called every time an asteroid is discovered, no matter how many times it's been called before.

I'm not sure whether that will work, but try it out. There doesn't seem to be anything else wrong with your code on it's own. If it doesn't work, then it's probably a piece of code elsewhere that's the problem (for instance, if you have 3 asteroids, and, like here, you want to add seedlings to asteroid 3, then in fact you should put GetAsteroid(2), because asteroid numbers start at 0, not 1, and go up from there).

[annikk.exe]

Did Sniped's suggestion work?

I also think you don't need the Return bit.

Also, if you still can't get it working, the solution (somewhat involved) is to simply switch a variable from false to true when the asteroid is revealed, then catch that in a While loop in the LevelLogic and add the seedlings that way.  You would need to set the value to false again as well to prevent looping and infinite seeds appearing.

...yea, hopefully just removing Return and double-checking the asteroid ID numbers will sort it :>

[BC wins]

this is about how to get the 400 seedlings from your test lvl to move properly with the timer
first my whole lvl

(click to show/hide)

function LevelSetup()

   -- Set Global Values
   Globals.G.Asteroids=(0)
   Globals.G.EnemyFactionsMin=(1)
   Globals.G.EnemyFactionsMax=(1)


   -- Asteroid 0 - starting asteroid
   a = AddAsteroidWithAttribs(0,0, 0.99,0.99,0.99)
   a.Owner = 1
   a.TreeCap = 20
   a:SetRadius(800)
   a.SendDistance = 3000

   a:AddSeedlings(150)
        a.Moveable = false

   -- Asteroid 1
   a = AddAsteroidWithAttribs(2000,0, 0.4,0.6,0.5)
   a.Owner = 2
   a.TreeCap = 20
   a:SetRadius(600)
   a.SendDistance = 3000
   
   a:AddSeedlings(100)
   a.Moveable = false

        -- Asteroid 2
   a = AddAsteroidWithAttribs(2000,-2000, 0.9,0.9,0.78)
   a.Owner = 2
   a.TreeCap = 10
   a:SetRadius(700)
   a.SendDistance = 3000
   
   a:AddSeedlings(100)
        a.Moveable = false
end



function LevelLogic()
   

-- Greet the player
   Timer = GetGameTime() + 5


   while GetGameTime() < Timer do

      coroutine.yield()
   end

   Pause()
   MessageBox("Take the asteroid to the east to win.  Don't lose yours.")
   WaitDialog()
   Unpause()



        -- Add some enemies to Asteroid 1
        Timer = GetGameTime() + 15

   while GetGameTime() < Timer do

      coroutine.yield()
        end

        -- Add some reinforcements
        GetAsteroid(1):AddSeedlings(400)
       
       
        Timer = GetGameTime() + 15

   while GetGameTime() < Timer do

      coroutine.yield()
        end
        GetAsteroid(1):SendSeedlingsToTarget(2,400,GetAsteroid(0))


        -- Winning and Losing
        gamewon = 0
   
   while gamewon == 0 do
   
      coroutine.yield()
   end
   
   if gamewon == 1 then
      
      Pause()
      MessageBox("You have won.")
      WaitDialog()
      Unpause()
      
      Quit(true)
   end
   
   if gamewon == 2 then
      
      Pause()
      MessageBox("You have lost.")
      WaitDialog()
      Unpause()
      
      Quit(false)
   end



end


function OnAsteroidTaken(id, owner)
   
   
   if id == 1 and owner == 1 then
      gamewon = 1
      return
   end
   
   if id == 0 and owner == 2 then
      gamewon = 2
      return
   end
   
end

and here's the timer bit

(click to show/hide)

  -- Add some enemies to Asteroid 1
        Timer = GetGameTime() + 15

   while GetGameTime() < Timer do

      coroutine.yield()
        end

        -- Add some reinforcements
        GetAsteroid(1):AddSeedlings(400)
       
       
        Timer = GetGameTime() + 15

   while GetGameTime() < Timer do

      coroutine.yield()
        end
        GetAsteroid(1):SendSeedlingsToTarget(2,400,GetAsteroid(0))

[Terrial]

An alternative way to write that is:

(click to show/hide)

Code: [Select]

Timer = GetGameTime() + 15

If GetGameTime() >= Timer then
     GetAsteroid(1):AddSeedlings(400)
     Timer = Timer + 15
end
If GetGameTime() >= Timer then
     GetAsteroid(1):SendSeedlingsToTarget(2,400,GetAsteroid(0))
end


[BC wins]

thanks
i'll go see if it works
don't understand the
 Timer = Timer + 15
bit

[BC wins]

i had to change the caps in the If
but it says they expect then near =

[Pilchard123]

The Timer = Timer + 15 means that the timer will be set to 15 seconds past its previous value.

[BC wins]

k thx

[BC wins]

i have another question
about the function OnAsteroidTaken
I want something to happen with a certain planet when taken over by a certain player regardless of the owner.
Something like
if id == 7 and aggressor == 1 then
   GetAsteroid(7)SendDistance = 5000   
      return
   end

can someone help ?  

[Pilchard123]

You don't need the return line in any of the Eufloria functions, I think, but definitely not that one. Anyway

Code: [Select]

function OnAsteroidTaken(id, owner)
   if id == 7 and owner == 1 then
      GetAsteroid(7)SendDistance = 5000   
   end
end
should work, yeah.

[BC wins]

ok thanks

but I want something to happen with a certain planet when taken over by a certain player regardless of the owner.

[Terrial]

use this:

(click to show/hide)

Code: [Select]

Challenger = GetAsteroid(0).Owner
Owner = Challenger

while GameRunning() do

Challenger = GetAsteroid(7).Owner

if Challenger ~= Owner then
Owner = Challenger
                GetAsteroid(7)SendDistance = 5000
        end
coroutine.yield()
end


This will go into effect every time a new player takes the asteroid

[Pilchard123]

"owner" means the NEW owner, as far as I know...

[BC wins]

thx terrial
i tried it but the game crashes when i take the asteroid
plus i really need it to be player specific as in (Challenger(1))

and i really am confused now is the owner in
function OnAsteroidTaken (id, owner)
the new owner or old owner ?
it would explain why my function are going wrong

[annikk.exe]

BC,

Can you clarify what you want to happen.  Using words like "owner" is no good unless you also specify whether they are the owner before or after the asteroid is taken.

Remember that OnAsteroidTaken is run immedietely after the asteroid is taken, therefore it will return the asteroid's owner as being the aggressor, not the empire that lost the asteroid.




Depending on how you want this to work, try one of these:

Code: [Select]

function OnAsteroidTaken(id,owner)

  if id == 7 then

    Pause()
    MessageBox("Asteroid 7 was taken by Empire" .. owner)
    WaitDialog()
    Unpause()

  end

endThis code will display a message box anytime asteroid 7 gets a new owner.

Code: [Select]

function LevelLogic()

  runonce = false
  specificowner = 3  --change as you like, doesn't have to be empire 3

  while GameRunning() do



    if runonce == false and GetAsteroid(7).Owner == specificowner then

      Pause()
      MessageBox("Asteroid 7 was taken by Empire" .. specificowner)
      WaitDialog()
      Unpause()

      runonce = true

    end


    if GetAsteroid(7).Owner ~= 3 then

      runonce = false

    end

  coroutine.yield()
  end

endThis code will display a message box anytime the empire mentioned in "specificowner" captures asteroid 7 - but it won't display a message if a different empire captures it.



Hope this halps.  :>

[Pilchard123]

BC's code: (direct copy-paste)

Code: [Select]

if id == 7 and aggressor == 1 then
   GetAsteroid(7)SendDistance = 5000  
      return
   end

I'd guess that s/he wants Asteroid 7 to have a SendDistance of 5000 when captured by by the player.

I'd suggest:

Code: [Select]

OnAsteroidTaken(id, aggressor)
   if id == 7 and aggressor == 1 then
      GetAsteroid(7):SendDistance = 5000  
   end
end

BC, you need a colon ( : ) between the GetAsteroid(7) and SendDistance. I forgot it in the last code I gave you, which might explain why it doesn't work.

EDIT: Stupid smileys.

[annikk.exe]

I might be wrong, but I think that probably won't work; "aggressor" isn't naturally contained in OnAsteroidTaken.  You would need to use "owner".

[Pilchard123]

I know, but that confused BC. Just wondered if aggressor would work if you treated it like owner.

BC, just replace aggressor with owner. Should work then.