EO2 Night and Day system and Time

Is it possible to make an EO2 game have a Night and Day system where it will switch to night after, lets say, 30 minutes and switch back to day after, maybe, 15 minutes? And I would like for it to be Server-centered – IE, everyone sees nights and days at exactly the same time when logged on. Would this be possible?

If it is, please help me to accomplish this and not just say “yes”.

Or with a little more work you could make something like this:
http://imgur.com/a/p5qgl#1

Also, is it possible to add an Admin Access Level in EO2? Such as admin level “Scratso” that has the entire chat text x colour for y player?

Here you are good sir.

http://www.eclipseorigins.com/community/index.php?/topic/129374-dx7-daynight-system/

Options.DayNight = 1 ‘New part
    SaveOptions
    Else
    LoadOptions
    End If
    If Options.DayNight = 0 Then ‘New
    frmServer.Label8.Visible = False ‘New

It expects an end of statement on the top and bottom line there. The bits that were highlighted are marked in bold.

Delete all  â€˜parts and replace them with ’

It’s meant to be a comment, but got screwed up when the forum switch happened.

Delete all  â€˜parts and replace them with ’

It’s meant to be a comment, but got screwed up when the forum switch happened.

OK, I’ll try that

frmServer.Label8.Visible = False 'New

the .Label8 is highlighted and it says Method or Data Member not Found

You need to create a label with the control name of ‘Label8’ and place it on ‘frmServer’.

I saw later on 😛 Thanks though!

“Subscript Out of Range” “Runtime error ‘9’”

Hmmmm, ya done messed xD

What does it highlight?

Hmmmm, ya done messed xD

What does it highlight?

I followed the instructions exactly!

Ill post the highlights latr.

Public Sub CacheResources(ByVal mapNum As Long)
    Dim x As Long, y As Long, Resource_Count As Long
    Resource_Count = 0

For x = 0 To Map(mapNum).MaxX
        For y = 0 To Map(mapNum).MaxY

If Map(mapNum).Tile(x, y).Type = TILE_TYPE_RESOURCE Then
                Resource_Count = Resource_Count + 1
                ReDim Preserve ResourceCache(mapNum).ResourceData(0 To Resource_Count)
                ResourceCache(mapNum).ResourceData(Resource_Count).x = x
                ResourceCache(mapNum).ResourceData(Resource_Count).y = y
**                ResourceCache(mapNum).ResourceData(Resource_Count).cur_health = Resource(Map(mapNum).Tile(x, y).Data1).health**
            End If

Next
    Next

ResourceCache(mapNum).Resource_Count = Resource_Count
End Sub

**Bold **for highlight.

Do you have any previous mods in your Engine?

Do you have any previous mods in your Engine?

yes. Might they be clashing?

Quite possibly yes.

Quite possibly yes.

oh 😞 ah well

This might be a silly question, but did you remember to delete all your maps?  I don’t remember 100%, but I think this adds something to the map file, so you have to delete them for it to work.  Try making a backup, then deleting all your maps and seeing if it works then.

This might be a silly question, but did you remember to delete all your maps?  I don’t remember 100%, but I think this adds something to the map file, so you have to delete them for it to work.  Try making a backup, then deleting all your maps and seeing if it works then.

I didn’t see that on the tutorial but I’ll try anyway.

Log in to reply