Need help please with Messages

[Tomfloria]

Okay, So i'm trying to figure out how this is going to work, this is my code...

Code: [Select]

function LevelLogic()
StartLevelLogic()

MessageA()

end

function MessageA()
Message("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
MassageB()
end

function MessageB()
Message("The Mother Tree failed to take you places I can~But first, you need to be ready", true, 1.0, "Bottom")
WaitDialog()
end
That's the shortened down version of my problem,

Basically I want MessageA() to be shown first, then when MessageA() is complete I want it to trigger MessageB() and so forth, but I can't understand how to work it?

the full code can be viewed here...

(click to show/hide)

Code: [Select]

function LevelSetup()
SetBackdropColour(8/255,8/255,20/255)

--Special thanks to Aino, Pilchard123, Alex and Annikk.exe's Guides and Helps, Without them I wouldn't have been inspired to create this custom iPad
--campaign, also obviously, without the Game, none of this would have been possible. The Creator of this level/story is Tomfloria.

if IsiOS() then
SetMessageDarkMode(true)
end

Globals():Get("Asteroids"):Set("MinRadius",560)
    Globals():Get("Asteroids"):Set("MaxRadius",2000)
    Globals():Get("Asteroids"):Set("RadiusPowerRule",2)
Globals():Get("Asteroids"):Set("SizeFromEnergy",230)
Globals():Get("Asteroids"):Set("SizeFromStrength",230)
Globals():Get("Asteroids"):Set("SizeFromSpeed",240)
Globals():Get("Asteroids"):Set("MinCoreHealth",75)
Globals():Get("Asteroids"):Set("MaxCoreHealth",350)
Globals():Get("Asteroids"):Set("CoreHealthPowerRule",2.5)
    Globals():Get("Asteroids"):Set("MinSendDistance",3500)
    Globals():Get("Asteroids"):Set("MaxSendDistance",5500)
    Globals():Get("Asteroids"):Set("SendPowerRule",2.0)

Globals():Get("Structures"):Set("LevelDuration1",15)
Globals():Get("Structures"):Set("LevelDuration2",30)
Globals():Get("Structures"):Set("LevelDuration3",60)
Globals():Get("Structures"):Set("LevelDuration4",100)
Globals():Get("Structures"):Set("SpawnTime1",15)
Globals():Get("Structures"):Set("SpawnTime2",12)
Globals():Get("Structures"):Set("SpawnTime3",10)
Globals():Get("Structures"):Set("SpawnTime4",8)

Globals():Get("Flowers"):Set("Available",0)

Globals():Get("StructuresDefense"):Set("TreeCost",10000)
Globals():Get("StructuresDefense"):Set("LevelDuration1",100000)

Globals():Get("Game"):Set("EnemyFactionsMin",0)
Globals():Get("Game"):Set("EnemyFactionsMax",0)
Globals():Get("Game"):Set("MinAsteroidSeparation",1500)
Globals():Get("Game"):Set("MaxAsteroidNeighbourDist",6000)
Globals():Get("Game"):Set("GreysProbability",0)

--Starting Asteroid
a = GetAsteroid(0)
a = AddAsteroidWithAttribs(0,0, 1.0,1.0,1.0)
a.Owner = 1
a:AddSeedlings(40)
a.TreeCap = 4
a.Moveable = false

b = GetAsteroid(1)
b = AddAsteroidWithAttribs(4435,6753, 0.0,0.1,0.0)--2435,6753
b.Owner = 1
s = b:AddDefenseTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
s = b:AddDefenseTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
s = b:AddDefenseTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
s = b:AddDefenseTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
b.TreeCap = 0
b.Moveable = false
b:Hide(1)

c = GetAsteroid(2)
c = AddAsteroidWithAttribs(8930,13753, 0.0,0.1,0.0)
c.Owner = 0
c.TreeCap = 2
c:Hide(1)
c.Moveable = false

d = GetAsteroid(3)
d = AddAsteroidWithAttribs(5930,20753, 0.0,0.1,0.0)
d.Owner = 0
d.TreeCap = 5
d:Hide(1)
d.Moveable = false

e = GetAsteroid(4)
e = AddAsteroidWithAttribs(-2030,17053, 0.0,0.1,0.0)
e.Owner = 2
s = e:AddDefenseTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
s = e:AddDefenseTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
s = e:AddDysonTree()
s:LevelUp()
s:LevelUp()
s:LevelUp()
e:SetGraceTime(99999999)
e.TreeCap = 4
e:Hide(1)
e.SpawnCap = 10
e.Moveable = false

SetDysonTreeButtonAvailable(true)
SetDefenseTreeButtonAvailable(false)
SetFlowerDefenseButtonAvailable(false)
SetFlowerSeederButtonAvailable(false)
SetTerraformingButtonAvailable(false)
SetBeaconButtonAvailable(false)

if IsiOS() then
SetEnemyInfoAvailable(false)
SetCoreInfoAvailable(false)
SetAttribsInfoAvailable(false)

SetSpeedSwitchAvailable(false)
SetSendModeScoutAvailable(false)
SetSendModeUnitsSelectorAvailable(false)

SetSendModeButtonAvailable(false)
SetSendModeHoldAvailable(false)
SetSendModeDragAvailable(false)
else
SetTreeInfoAvailable(false)
SetEnemyInfoAvailable(false)
SetCoreInfoAvailable(false)
SetAttribsInfoAvailable(false)
end

SetCameraPositionToAsteroidID(a)
SetCameraZoomNow(-1000)

end

function LevelLogic()
StartLevelLogic()

MessageA()

while GameRunning() do

if GetEmpire(1):GetNumOwnedAsteroids() == 5 then
Pause()
MessageBox("You have won")
WaitDialog()
Unpause()
Quit(true)
end

if GetEmpire(1):GetNumOwnedAsteroids() == 0 then
Pause()
MessageBox("You have lost")
WaitDialog()
Unpause()
Quit(false)
end

coroutine.yield()
end
end

function MessageA()
Message("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
MassageB()
end

function MessageB()
Message("The Mother Tree failed to take you places I can~But first, you need to be ready", true, 1.0, "Bottom")
WaitDialog()
end

[Aino]

Have a WaitDialog in MessageA, you should put it afte rthe message has been delivered, but before MessageB is executed.

[Tomfloria]

Have a WaitDialog in MessageA, you should put it afte rthe message has been delivered, but before MessageB is executed.

Hey Aino, i've done that, but it still doesn't display the second message?

[Tomfloria]

I've changed it a bit more Aino.

Code: [Select]

function LevelLogic()
StartLevelLogic()

First = 1
Second = 0

while GameRunning() do

if (First == 1) then
MessageA()
end

if (Second == 1) then
MessageB()
end

if GetEmpire(1):GetNumOwnedAsteroids() == 5 then
Pause()
MessageBox("You have won")
WaitDialog()
Unpause()
Quit(true)
end

if GetEmpire(1):GetNumOwnedAsteroids() == 0 then
Pause()
MessageBox("You have lost")
WaitDialog()
Unpause()
Quit(false)
end

coroutine.yield()
end
end

function MessageA()
Message("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
WaitDialog()
First = 0
Second = 1
end

function MessageB()
Message("The Mother Tree failed to take you places I can~But first, you need to be ready", true, 1.0, "Bottom")
WaitDialog()
Second = 0
end
As you can see i've made the bits resembling the messages in are there, but doesn't this code

Code: [Select]

First = 1
Second = 0
state that First is a statment saying First is 1 and Second is 0 and then this peice of code

Code: [Select]

if (First == 1) then
MessageA()
end

if (Second == 1) then
MessageB()
end
finds wether First equals 1 function MessageA() will start and wether Second equals 1 then function MessageB() will start and then this...

Code: [Select]

function MessageA()
First = 0
Message("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
WaitDialog()
Second = 1
end

function MessageB()
Second = 0
Message("The Mother Tree failed to take you places I can~But first, you need to be ready", true, 1.0, "Bottom")
WaitDialog()
end

In bold says when funcation MessageA() is run First will change to equal 0, Message will play, then when the dialog is finished Second = value will change to 1 and so forth for funcation MessageB()

[Aino]

You know, you can use boolean instead of integer, if you use integer you can use one variable instead of two. I'm only sayin' because keeping a low memory waste is good, not that two ints do very much though

And when I do messages in Eufloria(long time ago now ) I do a pause, messsage, waitdialog and unpause in that order. You should do this for each message...

Add this in the bottom of your code:

Code: [Select]

function TellPlayer(message)
Pause()
MessageBox(message)
WaitDialog()
Unpause()
end

function TellPlayer(message, var1Bool, var2Double, var3String)
Pause()
MessageBox(message, var1Bool, var2Double, var3String)
WaitDialog()
Unpause()
end
and then replace:

Code: [Select]

if (First == 1) then
MessageA()
end

if (Second == 1) then
MessageB()
end
with

Code: [Select]

TellPlayer("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
TellPlayer("The Mother Tree failed to take you places I can~But first, you need to be ready", true, 1.0, "Bottom")

Hope it helps

P.S: remember to delete dead code, after this change your MessageA() and MessageB() functions will be dead codes...

[Tomfloria]

You see Aino, the reason why I don't use Pause or MessageBox is because on the iPad the graphics are much more appealing that the PC version, and also, when you use MessageBox, you'll see how unproffessional it is, I will prove this to you in pictures...

The pictures are big, so I'll spoiler them.

(click to show/hide)

The Annoying thing is though, still with your code edited to

Code: [Select]

function TellPlayer(message)
Message(message)
WaitDialog()
end

function TellPlayer(message, var1Bool, var2Double, var3String)
Message(message, var1Bool, var2Double, var3String)
WaitDialog()
end
It still doesn't do the messages in order, but jumps straight to the second TellPlayer(message) and misses the first one out completely...

[Aino]

What happened when you used pause/unpause?

[Tomfloria]

Oh, the game pauses, and never unpauses, but i can move around, but nothing it touchable, seedlings don't move at all, Pause/Unpause is annoying with the iPad.

[Tomfloria]

What do you think to this? Would this work?

Code: [Select]

-- TellPlayer = 0

-- while TellPlayer == 0 do

-- coroutine.yield()
-- end

-- if TellPlayer == 1 then

-- Message("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
-- WaitDialog()
-- end

-- if TellPlayer == 2 then

-- Message("The Mother Tree failed to take you places I can~But first, you need to be ready", true, 1.0, "Bottom")
-- WaitDialog()
-- end
but then again, how would I make TellPlayer = 1 then when 1's done change it to TellPlayer = 2

[Aino]

Do you have ScreenDraw() and LevelDraw() on the iPad?

Just write this into your map:

Code: [Select]

function ScreenDraw()
DrawSprite(1, 200, 200, 1,1,1,1, 50)
end
And tell me the results(don't worry, it's related to the topic)

[Tomfloria]

I've added it in the end after LevelLogic end yes?

And it doesn't do anything, what am I looking for?

[Tomfloria]

Aino, Check this out, I did some searching through the support.lua in the Eufloria.app file and found this

Code: [Select]

function WaitReal(t)
t = t + GetRealTime()
while GetRealTime() < t do
CheckConditions()
coroutine.yield()
end
end
So is that saying if I used WaitReal(1) like this...

Code: [Select]

if TellPlayer == 1 then
Message("-Dark Days-~Things have changed little seedlings", true, 1.0, "Top")
        WaitDialog()
WaitReal(1)
TellPlayer = 2
end
Then it would mean that after the message is done, it will wait 1 second (where the game time is in) and then TellPlayer = 1 will change to TellPlayer = 2

[Tomfloria]

It doesn't matter what it says above there, it still doesn't work haha.

[Aino]

Since ScreenDraw doesn't work, I got no idea what to do

[Tomfloria]

Well what I've done, is decided to do it by GameTime, and I'll have a code ready for you before you reply haha!