Euflorium: The Eufloria Community

Eufloria => Eufloria Classic => Eufloria Classic Mods => Topic started by: BC wins on August 13, 2010, 09:36:41 PM

Title: New scripters ask advanced peeps how to script something
Post by: BC wins on August 13, 2010, 09:36:41 PM

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 13, 2010, 09:40:23 PM

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    

Title: Re: New scripters ask advanced peeps how to script something
Post by: Sniped50 on August 14, 2010, 05:40:05 AM

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).

Title: Re: New scripters ask advanced peeps how to script something
Post by: annikk.exe on August 15, 2010, 08:15:10 AM

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 :>

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 16, 2010, 08:18:22 AM

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))

Title: Re: New scripters ask advanced peeps how to script something
Post by: Terrial on August 16, 2010, 12:38:16 PM

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


Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 16, 2010, 10:03:32 PM

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 16, 2010, 10:12:43 PM

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: Pilchard123 on August 16, 2010, 10:30:53 PM

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 17, 2010, 03:36:18 AM

k thx :)

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 17, 2010, 04:23:56 AM

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 ? :) 

Title: Re: New scripters ask advanced peeps how to script something
Post by: Pilchard123 on August 17, 2010, 05:06:17 AM

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.

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 17, 2010, 05:22:52 AM

ok thanks :)

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: Terrial on August 17, 2010, 08:19:18 AM

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: Pilchard123 on August 17, 2010, 05:19:53 PM

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

Title: Re: New scripters ask advanced peeps how to script something
Post by: BC wins on August 17, 2010, 05:43:10 PM

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 :D

Title: Re: New scripters ask advanced peeps how to script something
Post by: annikk.exe on August 17, 2010, 10:44:49 PM

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.  :>

Title: Re: New scripters ask advanced peeps how to script something
Post by: Pilchard123 on August 17, 2010, 11:11:09 PM

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.

Title: Re: New scripters ask advanced peeps how to script something
Post by: annikk.exe on August 17, 2010, 11:25:05 PM

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".

Title: Re: New scripters ask advanced peeps how to script something
Post by: Pilchard123 on August 17, 2010, 11:38:47 PM

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.