Community Game Project built in modules on a flowchart 2

Community Forums/Common Room/Community Game Project built in modules on a flowchart 2

skidracer

(Posted April) [#1]

Continued from here.

Mainsworthy

(Posted April) [#2]

that looks nice Adam. seems skidracer joined in too :)

Mainsworthy

(Posted April) [#3]

I now know a few things, so I will concentrate on using clear and commented code, & tidyup what Ive done , I really didn't know what I was doing when I started, but I can see structure is better.

AdamStrange

(Posted May) [#4]

ok. i'm looking into the systems, their makeup, etc.
i've got a list of basic things to do, etc.

But... There is a text version of Elite. I thought I would go over this and extract stuff from it. Hopefully being able to integrate it all later.

Stay tuned

Mainsworthy

(Posted May) [#5]

any chance of a link to that text version, I would be interested too , if its available to people to see?

I'm tunedin Adam, keep going beyond

AdamStrange

(Posted May) [#6]

ok. first thing is a planet/system namer.

initially based on the elite code. but then scrapped, tweaked and shortened


'a console app is the simplest kind of app.
'It has no window and just responds via the console

'namespace is what we call the app.
'Other files with the same namespace will behave as if they are a single unified file
Namespace myConsoleApp

'we need to import the standard library <std>
#Import "<std>"

'using means we dont have to preface commands with std. all the time
Using std..


class SystemNames
	method New()
		Local i:int
		Local output:string
		For i = 0 To 50
		
			output = CreateSystemName()
		
			Print output
		Next
	End method


	method CreateSystemName:String()
		
		Local name:string = ""
		Local newName:string
		Local k:int
		
		For k = 0 To Rnd(2,  5)
			newName = syllables.Mid( Rnd( syllables.Length /2 )*2, Rnd(2)+1 )
			
			'make sure that names are not packed with vowels following vowels
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select newName.Left(1)
						Case "a", "e", "i", "o", "u", "y"
							name += "n"
					End Select
			Default
				'or constantent runs
				Select newName.Left(1)
					Case "a", "e", "i", "o", "u", "y"
					Default
						name += "a"
				End Select
			End Select
			
			name += newName
		Next
		
		'make sure that a short name has a proper ending
		If name.Length < 5 Then
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select Rnd(10)
						Case 0 name += "d"
						Case 1 name += "n"
						Case 2 name += "s"
						Case 3 name += "r"
						Case 4 name += "ru"
						Case 5 name += "no"
						Case 6 name += "na"
						Case 7 name += "ri"
						Case 8 name += "ra"
						Case 9 name += "st"
					End Select
			End Select
		End If

		name = name.Mid(0, 1).ToUpper() + name.Mid(1, name.Length )
		
		Return name
	End method
	
	
	field syllables:string = "lexegezacebisousesarmaindireaeratenberalavetiedorquanteisrion"
End class



'here is the main function which is called. and the simplest text "hello world" is outputted to the console
Function Main()
	Local p:SystemNames = New SystemNames()
End

I'll keep working at this as asteroids need definitions that are different form planets, etc

but you now have a basic naming system...

here's the link to Ian Bells page with the elite text source
http://www.iancgbell.clara.net/elite/text/

Mainsworthy

(Posted May) [#7]

Adam you are very professional in your work, thanks for the link,

AdamStrange

(Posted May) [#8]

ok. working my through things and thinking how all this is to be incorporated.

basically generate system - done
next generate name and system information - being done

heres the next region of the info code:


Namespace myConsoleApp

'we need to import the standard library <std>
#Import "<std>"

'using means we dont have to preface commands with std. all the time
Using std..

Const HEX_VALUE:string = "0123456789ABCDEF"

const governmentString := new string[] ( "Anarchy","Feudal","Party Shared","Dictatorship",
                    "Communist","Confederacy","Democracy","Corporate State")

const economyString := new string[] ( "Rich Industrial","Average Industrial","Poor Industrial","Mainly Industrial",
                     "Mainly Agriculture","Rich Agriculture","Average Agriculture","Poor Agriculture")

class PlanetInfo
	method New()
	End method

	method Generate( seed:int )
		gs = seed
		
		x = int(((gs Shr 24) & 255) Shr 1) & 255
		Local a:int = x + (gs Shr 8 & 255)
		
		If ((gs Shr 24 & 255) > 127) Then a = a + 1
		goatsoupseed1 = ((gs + a) Shr 4 & 255) 'And 255
		goatsoupseed2 = gs + x Shr 8 & 255
		
		'a = any carry Left from above
		a = a Shl 8

		x = gs Shr 16 & 255
		a = (a + x + gs & 255) & 255
		goatsoupseed3 = a Shr 1 & 255
		goatsoupseed4 = gs+x & 255
		
		government =(goatsoupseed2 shr 3) &7

		economy =(goatsoupseed1 shr 3) &7
		if government <= 1 Then
			economy = economy | 2
		End If

		techLevel = ((goatsoupseed1 shl 8) &3) + (economy shr 7)
		techLevel += government Shl 1
		if government &1 = 1 then techLevel += 3
		If techLevel < 2 Then techLevel += 1
	End method

	
	Field x:int = 0
	Field y:int = 0
	Field economy:int = 0
	Field government:int = 0
	Field techLevel:int = 0
	Field population:int = 0
	Field productivity:int = 0
	Field name:string
	Field goatsoupseed1:int
	Field goatsoupseed2:int
	Field goatsoupseed3:int
	Field goatsoupseed4:int
	Field gs:int
End class

class SystemNames
	method New()
	End method

	method SystemName:String( seed:int )
		SeedRnd( seed )
		Local name:string = ""
		Local newName:string
		Local k:int
		
		For k = 0 To int(Rnd(3, 5))
			newName = syllables.Mid( Rnd( syllables.Length /2 )*2, Rnd(2)+Rnd(1) )
			
			'make sure that names are not packed with vowels following vowels
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select newName.Left(1)
						Case "a", "e", "i", "o", "u", "y"
							name += "n"
					End Select
			Default
				'or constantent runs
				Select newName.Left(1)
					Case "a", "e", "i", "o", "u", "y"
					Default
						Select int(Rnd(5))
							Case 0 name += "a"
							Case 1 name += "e"
							Case 2 name += "i"
							Case 3 name += "o"
							Case 4 name += "u"
						End Select
				End Select
			End Select
			
			name += newName
		Next
		
		'make sure that a short name has a proper ending
		If name.Length < 5 Then
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select int(Rnd(10))
						Case 0 name += "d"
						Case 1 name += "n"
						Case 2 name += "s"
						Case 3 name += "r"
						Case 4 name += "ru"
						Case 5 name += "no"
						Case 6 name += "na"
						Case 7 name += "ri"
						Case 8 name += "ra"
						Case 9 name += "st"
					End Select
			End Select
		End If

		name = name.Mid(0, 1).ToUpper() + name.Mid(1, name.Length )
		
		Return name
	End method
	
	field syllables:string = "lexegezacebisousesarmaindireaeratenberalavetiedorquanteisrion"
End class



Function Main()
	Local solar:SystemNames = New SystemNames()
	Local planet:PlanetInfo = New PlanetInfo()
	
	Local k:int
	Local pl:int
	Local seed:int
	SeedRnd(585)
	
	For k = 1 To 5
		seed = Rnd(1000000)
		Print solar.SystemName( seed )
		
		Local planets:int = Rnd(1, 7)
		For pl = 1 To planets
			planet.Generate( seed*pl )
			Print "planet "+pl'+"  seed "+planet.gs+"  "+planet.goatsoupseed1+" "+planet.goatsoupseed2+" "+planet.goatsoupseed3+" "+planet.goatsoupseed4
			Print "  Government "+governmentString[ planet.government ]
			Print "  Economy "+economyString[ planet.economy ]
			Print "  TechLevel "+planet.techLevel
		next
	Next
	
End

basically I am adding the elite basic concepts. government type, economy and tech level
These are all based from the given seed, so will be unique, so we don't need to store the data, just the seeds. and we are generating them, so we only need an initial seed to kick off everything.

AdamStrange

(Posted May) [#9]

and lastly we have the inhabitants


Namespace myConsoleApp

'we need to import the standard library <std>
#Import "<std>"

'using means we dont have to preface commands with std. all the time
Using std..

Const HEX_VALUE:string = "0123456789ABCDEF"

const governmentString:string[] = new string[] ( "Anarchy","Feudal","Party Shared","Dictatorship",
                    "Communist","Confederacy","Democracy","Corporate State")

const economyString:string[] = new string[] ( "Rich Industrial","Average Industrial","Poor Industrial","Mainly Industrial",
                     "Mainly Agriculture","Rich Agriculture","Average Agriculture","Poor Agriculture")

const inhabitants1:string[]= new string[] ( "Large", "Fierce", "Harmless", "Small" )

const inhabitants2:string[] = new string[] ( "Green", "Red", "Yellow", "Blue", "Black", "Pink", "Citreen", "Grey", "Steel" )

const inhabitants3:string[] = new string[] ( "Slimy", "Bug-Eyed", "Horned", "Horny", "Bony", "Fat", "Furry", "Scaly", "Wet", "amorphous", "fluid" )
    
const inhabitants4:string[] = new string[] ( "Rodents", "Frogs", "Lizards", "Fish", "Birds", "Humanoids", "Felines", "Ovines", "Insects" )


     
class PlanetInfo
	method New()
	End method

	method Generate( seed:int )
		gs = seed
		
		x = int(((gs Shr 24) & 255) Shr 1) & 255
		Local a:int = x + (gs Shr 8 & 255)
		
		If ((gs Shr 24 & 255) > 127) Then a = a + 1
		goatsoupseed1 = ((gs + a) Shr 4 & 255) 'And 255
		goatsoupseed2 = gs + x Shr 8 & 255
		
		'a = any carry Left from above
		a = a Shl 8

		x = gs Shr 16 & 255
		a = (a + x + gs & 255) & 255
		goatsoupseed3 = a Shr 1 & 255
		goatsoupseed4 = gs+x & 255
		
		government =(goatsoupseed2 shr 3) &7

		economy =(goatsoupseed1 shr 3) &7
		if government <= 1 Then
			economy = economy | 2
		End If

		techLevel = ((goatsoupseed1 shl 8) &3) + (economy shr 7)
		techLevel += government Shl 1
		if government &1 = 1 then techLevel += 3
		If techLevel < 2 Then techLevel += 1

		population = 4 * techLevel + economy
		population *= (government * economy)+20

		productivity = ((economy shr 7)+3) * (government+4)
		productivity += (population Mod 50)

		'; inhabits name
'		local tmp:int = ((((goatsoupseed1/256) Mod 2)+((goatsoupseed2/256) Mod 2)) Mod 2)+(((((goatsoupseed1/512) Mod 2)+((goatsoupseed4/512) Mod 2)) Mod 2)*2)+(((((goatsoupseed1/1024) Mod 2)+((goatsoupseed3/1024) Mod 2)) Mod 2)*4)
'		local v1:int = (Int((goatsoupseed3/256)/4) Mod 8)+1
'		local v2:int = (Int((goatsoupseed3/256)/32))+1
'		local v3:int = tmp+1
'		local v4:int = ((tmp+(goatsoupseed3/256) Mod 4) Mod 8)+1
		local i1:int = goatsoupseed1 mod 4
		local i2:int = goatsoupseed2 mod 9
'		If i2 <> "" Then i2 = " "+i2
		local i3:int = goatsoupseed3 mod 11
'		If i3 <> "" Then i3 = " "+i3
		local i4:int = goatsoupseed4 mod 9
'		If i4 <> "" Then i4 = " "+i4
		If goatsoupseed4 Mod 256 < 127 Then
			inhabitants = "Human Colonists"
		Else
			select goatsoupseed3 Mod 11
				Case 0, 1
					inhabitants = inhabitants4[i4]
				Case 2, 3
					inhabitants = inhabitants1[i1]+" "+inhabitants2[i2]+" "+inhabitants4[i4]
				Case 4, 5
					inhabitants = inhabitants2[i2]+" "+inhabitants3[i3]+" "+inhabitants4[i4]
				Case 6, 7
					inhabitants = inhabitants1[i1]+" "+inhabitants4[i4]
				default
					inhabitants = inhabitants1[i1]+" "+inhabitants2[i2]+" "+inhabitants3[i3]+" "+inhabitants4[i4]
			End Select
			
		End if

	End method

	
	Field x:int = 0
	Field y:int = 0
	Field economy:int = 0
	Field government:int = 0
	Field techLevel:int = 0
	Field population:int = 0
	Field productivity:int = 0
	Field name:string
	field inhabitants:string
	Field goatsoupseed1:int
	Field goatsoupseed2:int
	Field goatsoupseed3:int
	Field goatsoupseed4:int
	Field gs:int
End class

class SystemNames
	method New()
	End method

	method SystemName:String( seed:int )
		SeedRnd( seed )
		Local name:string = ""
		Local newName:string
		Local k:int
		
		For k = 0 To int(Rnd(3, 5))
			newName = syllables.Mid( Rnd( syllables.Length /2 )*2, Rnd(2)+Rnd(1) )
			
			'make sure that names are not packed with vowels following vowels
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select newName.Left(1)
						Case "a", "e", "i", "o", "u", "y"
							name += "n"
					End Select
			Default
				'or constantent runs
				Select newName.Left(1)
					Case "a", "e", "i", "o", "u", "y"
					Default
						Select int(Rnd(5))
							Case 0 name += "a"
							Case 1 name += "e"
							Case 2 name += "i"
							Case 3 name += "o"
							Case 4 name += "u"
						End Select
				End Select
			End Select
			
			name += newName
		Next
		
		'make sure that a short name has a proper ending
		If name.Length < 5 Then
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select int(Rnd(10))
						Case 0 name += "d"
						Case 1 name += "n"
						Case 2 name += "s"
						Case 3 name += "r"
						Case 4 name += "ru"
						Case 5 name += "no"
						Case 6 name += "na"
						Case 7 name += "ri"
						Case 8 name += "ra"
						Case 9 name += "st"
					End Select
			End Select
		End If

		name = name.Mid(0, 1).ToUpper() + name.Mid(1, name.Length )
		
		Return name
	End method
	
	field syllables:string = "lexegezacebisousesarmaindireaeratenberalavetiedorquanteisrion"
End class



Function Main()
	Local solar:SystemNames = New SystemNames()
	Local planet:PlanetInfo = New PlanetInfo()
	
	Local k:int
	Local pl:int
	Local seed:int
	SeedRnd(585)
	
	For k = 1 To 5
		seed = Rnd(1000000)
		Print solar.SystemName( seed )
		
		Local planets:int = Rnd(1, 7)
		For pl = 1 To planets
			planet.Generate( seed*pl )
			Print "planet "+pl'+"  seed "+planet.gs+"  "+planet.goatsoupseed1+" "+planet.goatsoupseed2+" "+planet.goatsoupseed3+" "+planet.goatsoupseed4
			Print "  Government "+governmentString[ planet.government ]
			Print "  Economy "+economyString[ planet.economy ]
			Print "  TechLevel "+planet.techLevel
			Print "  Population "+planet.population
			Print "  Inhabitants "+planet.inhabitants
			Print "  Productivity "+planet.productivity
		next
	Next
	
End

I had to take quite a few liberties with the last bit. you can see some of the original code and the new versions - just using some dirty mod functions. but it works brilliantly.
I also added the ability to use different length inhabitants text, so it gives wider variations.

Mainsworthy

(Posted May) [#10]

I thought you may like to see what Ive been doing :)

its not elite , but its good fun

https://numbergamer8.itch.io/miniatures-game-tool

Mainsworthy

(Posted May) [#11]

I hope you post your progress soon, I can only guess your making a proper job of it, I know how a game like elite deserves proper detail .

Mainsworthy

(Posted May) [#12]

I wasn't suggesting you post code, that can be a long job, just what your upto.

Mainsworthy

(Posted May) [#13]

Ok, Ive started converting Rogue3 to Monkey2, I'm not going to do much with the code except move it across, so all the globals etc nwill still be there, I hope I don't run into to much compiler headjams, still noob at monkey, so thought it would help crossover.

Mainsworthy

(Posted May) [#14]

 #Import "<std>"
#Import "<mojo>"

Using std..
Using mojo..
#Import "assets/r3b.png"
#Import "assets/blank.png"


#Import "assets/backdrop1.png"
#Import "assets/zones.png"
#Import "assets/zone1s.png"  
#Import "assets/zone2s.png"  
#Import "assets/zone3s.png"
#Import "assets/zone4s.png"
#Import "assets/zone5s.png"
#Import "assets/zone6s.png"
#Import "assets/zone7s.png"
#Import "assets/zone8s.png"
#Import "assets/zone9s.png"
#Import "assets/zone10s.png"



#Import "assets/zones2.png"
#Import "assets/zones12.png"
#Import "assets/zones22.png"
#Import "assets/zones32.png"
#Import "assets/zones42.png"
#Import "assets/zones52.png"
#Import "assets/zones62.png"
#Import "assets/zones72.png"
#Import "assets/zones82.png"
#Import "assets/zones92.png"
#Import "assets/zones102.png"



#Import "assets/loca.png")
#Import "assets/loca2.png")
#Import "assets/loca3.png")
#Import "assets/b.png")

#Import "assets/ch.png")

#Import "assets/action.png"
#Import "assets/action2.png"
#Import "assets/action3.png"
#Import "assets/action4.png"
#Import "assets/action5.png"
#Import "assets/action6.png"
#Import "assets/action7.png"
#Import "assets/action8.png"
#Import "assets/action9.png"
#Import "assets/action10.png"
#Import "assets/action11.png"





#Import "assets/bomb1.png"
#Import "assets/bomb2.png"
#Import "assets/bomb3.png"
#Import "assets/bomb4.png"


#Import "assets/b.png"
#Import "assets/tv1.png"
#Import "assets/tv2.png"
#Import "assets/tv3.png"
#Import "assets/tv4.png"
#Import "assets/tv5.png"
#Import "assets/tv6.png"
#Import "assets/tv7.png"
#Import "assets/tv8.png"
#Import "assets/tv9.png"
#Import "assets/tv10.png"
#Import "assets/tv11.png"
'#Import "assets/tv12.png"

#Import "assets/switch.png"
#Import "assets/switch2.png"
#Import "assets/power.png"
#Import "assets/over.png"
	Global raidrun:int[] = New int[ 111 ]
	Global raidrun2:int[] = New int[ 151 ]


#Import "assets/power.png"
Const Size := New Vec2i( 950,720 )
'doraid(canvas:Canvas)
Const GAME_INTRO:Int = 1
Const GAME_GAME:int = 2
Global gold2:int = 0
Global Selectit:int = 1
Global zover:int = 0
Global go:int = 0
Global cf6:int = 0
Global cf7:int = 0
Global cf8:int = 0
Global cf9:int = 0
Global goo:int = 0
Global firstraid:int = 0
'Global cf1:int = 0
'Global cf2:int = 0
'Global cf3:int = 0
'Global cf4:int = 0
'Global cf5:int = 0
Global Off:int = 0
Global pos:int = 100
Global pos2:int = 99
Global tracked:int = 0
Global bombs:int = 4
Global abomb:int = 1
Global abomb2:int = 1
Global abomb3:int = 1
Global abomb4:int = 1
Global abomb5:int = 1
Global abomb6:int = 1
Global abomb7:int = 1
Global abomb8:int = 1
Global gg:int = 0
Global done:int = -1
Global energy:int = 4

Global hull1:int = 8
Global hull2:int = 8
Global hull3:int = 8
Global hull4:int = 8

Global crew:int = 7
Global cargo:int = 0
Global missiles:int = 0
Global riders:int = 0
Global droids:int = 0
Global fuel:int = 48
Global rep:int = 100
Global gold:int = 125


Global sh1:int = 0
Global sh2:int = 0
Global sh3:int = 0
Global sh4:int = 0

Global spcar:int = 0
Global spfuel:int = 0
Global spscrap:int = 0
Global spore:int = 0

Global advance:int = 0

Global nofuel:int = 0
Global runner:int = 0
Global hits:int = 0
Global hits2:int = 0
Global hits3:int = 0
Global hits4:int = 0
Global tot:int = 0
Global hitsz:int = 0
Global jj:int = 0

Global tt2:int = 0
Global tt:int = 0
Global oo:int = 0
Global oo2:int = 0
Global tttt:int = 0

Global itchy:int = 1

Global m1:String = "Welcome Captain Rogue three"
Global m2:String = "Your Aboard DragonBreath"
Global m3:String = "A Fighter class Scout Ship"
Global m4:String = "The Top Row of indicators = Power"
Global m5:String = "The Big Buttons = Ships Commands"
Global m6:String = "The Buttons to the Left = Lasers "
Global m7:String = "  Powered from Power upto 4 Power"
Global m8:String = "The Next are Shields upto 4 Power"
Global m9:String = "When You Power Something it takes"
Global m10:String = "  Power from the Engines."
Global m11:String = "The Bottom Row of Icons Are the"
Global m12:String = "Current Mission Path & expected"
Global m13:String = "  Situations. You Progress by"
Global m14:String = "  Reaching the mission objective"

Function Main()
	New AppInstance
	
	New MyWindow
	
	App.Run()
End
Class MyWindow Extends Window
		Method New()
			
				    Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable )
				    Layout = "fill"
				    _timer = New Timer( 60, OnUpdate )
				    r3b = Image.Load( "asset::r3b.png" )
				    blank = Image.Load( "asset::blank.png" )
				    backdrop1 = Image.Load( "asset::backdrop1.png" )
				    zones = Image.Load( "asset::zones.png" )
				    zone1s = Image.Load( "asset::zone1s.png" )
				    zone2s = Image.Load( "asset::zone2s.png" )
				    zone3s = Image.Load( "asset::zone3s.png" )
				    zone4s = Image.Load( "asset::zone4s.png" )
				    zone5s = Image.Load( "asset::zone5s.png" )
				    zone6s = Image.Load( "asset::zone6s.png" )
				    zone7s = Image.Load( "asset::zone7s.png" )
				    zone8s = Image.Load( "asset::zone8s.png" )
				    zone9s = Image.Load( "asset::zone9s.png" )
				    zone10s = Image.Load( "asset::zone10s.png" )
				     				    				    
	            	zones2 = Image.Load( "asset::zones2.png") 
	            	zones12 = Image.Load( "asset::zones12.png")
	            	zones22 = Image.Load( "asset::zones22.png")
	            	zones32 = Image.Load( "asset::zones32.png")
	            	zones42 = Image.Load( "asset::zones42.png")
	            	zones52 = Image.Load( "asset::zones52.png") 
	            	zones62 = Image.Load( "asset::zones62.png")
	            	zones72 = Image.Load( "asset::zones72.png")
	            	zones82 = Image.Load( "asset::zones82.png")
	            	zones92 = Image.Load( "asset::zones92.png")
	                zones102 = Image.Load( "asset::zones102.png")
	                
				    loca = Image.Load( "asset::loca.png" )
				    		    
				    loca2 = Image.Load( "asset::loca2.png" )
				    loca3 = Image.Load( "asset::loca3.png" )
	            	tv = Image.Load( "asset::b.png" )
				    ch = Image.Load( "asset::ch.png" )
				    
				   	action = Image.Load( "asset::action.png" )
				   	action2 = Image.Load( "asset::action2.png" )	
				   		action3 = Image.Load( "asset::action3.png" )
				   		action4 = Image.Load( "asset::action4.png" )
				   			action5 = Image.Load( "asset::action5.png" )
				  	action6 = Image.Load( "asset::action6.png" )
				  		action7 = Image.Load( "asset::action7.png" )
					action8 = Image.Load( "asset::action8.png" )
					action9 = Image.Load( "asset::action9.png" )	  		 			
			action10 = Image.Load( "asset::action10.png" )
				action11 = Image.Load( "asset::action11.png" )
						   	 
				 bomb1 = Image.Load( "asset::bomb1.png" )	
				 bomb2 = Image.Load( "asset::bomb2.png" )
				 bomb3 = Image.Load( "asset::bomb3.png" )	
				 bomb4 = Image.Load( "asset::bomb4.png" )						 			 	
				 tv1 = Image.Load( "asset::tv1.png" )
				 tv2 = Image.Load( "asset::tv2.png" )
				 tv3 = Image.Load( "asset::tv3.png" )
				 tv4 = Image.Load( "asset::tv4.png" )
				  tv5 = Image.Load( "asset::tv5.png" )
				 tv6 = Image.Load( "asset::tv6.png" )
				 tv7 = Image.Load( "asset::tv7.png" )
				 tv8 = Image.Load( "asset::tv8.png" )
				  tv9 = Image.Load( "asset::tv9.png" )
				 tv10 = Image.Load( "asset::tv10.png" )
				 tv11 = Image.Load( "asset::tv11.png" )
				 'tv2 = Image.Load( "asset::tv2.png" )
				 
				 switch = Image.Load( "asset::switch.png" )		    
				 switch2 = Image.Load( "asset::switch2.png" )
				 power = Image.Load( "asset::power.png" )		    
				 over = Image.Load( "asset::over.png" )		    		      		    
					    
				    End
				    
Method drawit(canvas:Canvas)

canvas.DrawImage(backdrop1,0,0)
Local f:Int = 0
For f = 0 To energy
canvas.DrawImage(power,40+(f*30),30)
Next
For f = 0 To 9
If f = 0 Then canvas.DrawImage(zones,80+(f*80),100)
If f = 1 Then canvas.DrawImage(zone1s,80+(f*80),100)
If f = 2 Then canvas.DrawImage(zone2s,80+(f*80),100)
If f = 3 Then canvas.DrawImage(zone3s,80+(f*80),100)
If f = 4 Then canvas.DrawImage(zone4s,80+(f*80),100)
If f = 5 Then canvas.DrawImage(zone5s,80+(f*80),100)
If f = 6 Then canvas.DrawImage(zone6s,80+(f*80),100)
If f = 7 Then canvas.DrawImage(zone7s,80+(f*80),100)
If f = 8 Then canvas.DrawImage(zone8s,80+(f*80),100)
If f = 9 Then canvas.DrawImage(zone9s,80+(f*80),100)


Next
If pos < 10 Then canvas.DrawImage(loca,65+(pos*80),85)

If _mouseX > 65+15 And _mouseX < 65 + 80+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones2,_mouseX-40,_mouseY-40,0)
Endif

If _mouseX > 65+80+15 And _mouseX < 65 + 160+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones12,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+80+80+15 And _mouseX < 65 + 240+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones22,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+240+15 And _mouseX < 65 + 320+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones32,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+320+15 And _mouseX < 65 + 400+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones42,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+400+15 And _mouseX < 65 + 480+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones52,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+480+15 And _mouseX < 65 + 560+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones62,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+560+15 And _mouseX < 65 + 640+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones72,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+640+15 And _mouseX < 65 + 720+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones82,_mouseX-40,_mouseY-40)
Endif

If _mouseX > 65+720+15 And _mouseX < 65 + 800+15 And _mouseY > 85 And _mouseY < 165
canvas.DrawImage(zones92,_mouseX-40,_mouseY-40)
Endif



For f = 0 To tracked
	
If raidrun2[f] = 0 Then canvas.DrawImage(action,40+(f*30),660)

If raidrun2[f] = 1 Then canvas.DrawImage(action2,40+(f*30),660)
If raidrun2[f] = 2 Then canvas.DrawImage(action3,40+(f*30),660)
If raidrun2[f] = 3 Then canvas.DrawImage(action4,40+(f*30),660)
If raidrun2[f] = 4 Then canvas.DrawImage(action5,40+(f*30),660)
If raidrun2[f] = 5 Then canvas.DrawImage(action6,40+(f*30),660)
If raidrun2[f] = 6 Then canvas.DrawImage(action7,40+(f*30),660)
If raidrun2[f] = 7 Then canvas.DrawImage(action8,40+(f*30),660)
If raidrun2[f] = 8 Then canvas.DrawImage(action9,40+(f*30),660)
If raidrun2[f] = 9 Then canvas.DrawImage(action10,40+(f*30),660)
If raidrun2[f] = 10 Then canvas.DrawImage(action11,40+(f*30),660)
Next

If pos2 < 90 Then canvas.DrawImage(loca2,36+(pos2*30),655)

If bombs > 0
For f = 1 To bombs
If abomb = 1 Then canvas.DrawImage(bomb1,40,220+(f*55))
If abomb = 2 Then canvas.DrawImage(bomb2,40,220+(f*55))
If abomb = 3 Then canvas.DrawImage(bomb3,40,220+(f*55))
If abomb = 4 Then canvas.DrawImage(bomb4,40,220+(f*55))
Next
Endif

If abomb > 0 Then canvas.DrawImage(loca3,36,215+(abomb*55))




If bombs > 0
For f = 1 To bombs
If abomb2 = 1 Then canvas.DrawImage(bomb1,100,220+(f*55))
If abomb2 = 2 Then canvas.DrawImage(bomb2,100,220+(f*55))
If abomb2 = 3 Then canvas.DrawImage(bomb3,100,220+(f*55))
If abomb2 = 4 Then canvas.DrawImage(bomb4,100,220+(f*55))
Next
Endif

If abomb2 > 0 Then canvas.DrawImage(loca3,36+60,215+(abomb2*55))


If bombs > 0
For f = 1 To bombs
If abomb3 = 1 Then canvas.DrawImage(bomb1,160,220+(f*55))
If abomb3 = 2 Then canvas.DrawImage(bomb2,160,220+(f*55))
If abomb3 = 3 Then canvas.DrawImage(bomb3,160,220+(f*55))
If abomb3 = 4 Then canvas.DrawImage(bomb4,160,220+(f*55))
Next
Endif

If abomb3 > 0 Then canvas.DrawImage(loca3,36+60+60,215+(abomb3*55))


If bombs > 0
For f = 1 To bombs
If abomb4 = 1 Then canvas.DrawImage(bomb1,220,220+(f*55))
If abomb4 = 2 Then canvas.DrawImage(bomb2,220,220+(f*55))
If abomb4 = 3 Then canvas.DrawImage(bomb3,220,220+(f*55))
If abomb4 = 4 Then canvas.DrawImage(bomb4,220,220+(f*55))
Next
Endif

If abomb4 > 0 Then canvas.DrawImage(loca3,36+60+60+60,215+(abomb4*55))


If bombs > 0
For f = 1 To bombs
If abomb5 = 1 Then canvas.DrawImage(bomb1,320,220+(f*55))
If abomb5 = 2 Then canvas.DrawImage(bomb2,320,220+(f*55))
If abomb5 = 3 Then canvas.DrawImage(bomb3,320,220+(f*55))
If abomb5 = 4 Then canvas.DrawImage(bomb4,320,220+(f*55))

Next
Endif

If abomb5 > 0 Then canvas.DrawImage(loca3,36+60+60+60+60+40,215+(abomb5*55))


If bombs > 0
For f = 1 To bombs
If abomb6 = 1 Then canvas.DrawImage(bomb1,380,220+(f*55))
If abomb6 = 2 Then canvas.DrawImage(bomb2,380,220+(f*55))
If abomb6 = 3 Then canvas.DrawImage(bomb3,380,220+(f*55))
If abomb6 = 4 Then canvas.DrawImage(bomb4,380,220+(f*55))
Next
Endif

If abomb6 > 0 Then canvas.DrawImage(loca3,36+60+60+60+120+40,215+(abomb6*55))

If bombs > 0
For f = 1 To bombs
If abomb7 = 1 Then canvas.DrawImage(bomb1,440,220+(f*55))
If abomb7 = 2 Then canvas.DrawImage(bomb2,440,220+(f*55))
If abomb7 = 3 Then canvas.DrawImage(bomb3,440,220+(f*55))
If abomb7 = 4 Then canvas.DrawImage(bomb4,440,220+(f*55))
Next
Endif

If abomb7 > 0 Then canvas.DrawImage(loca3,36+60+60+60+180+40,215+(abomb7*55))


If bombs > 0
For f = 1 To bombs
If abomb8 = 1 Then canvas.DrawImage(bomb1,500,220+(f*55))
If abomb8 = 2 Then canvas.DrawImage(bomb2,500,220+(f*55))
If abomb8 = 3 Then canvas.DrawImage(bomb3,500,220+(f*55))
If abomb8 = 4 Then canvas.DrawImage(bomb4,500,220+(f*55))

Next
Endif

If abomb8 > 0 Then canvas.DrawImage(loca3,36+60+60+60+240+40,215+(abomb8*55))

canvas.DrawImage(tv,570,230)

canvas.DrawText(m1 ,620,270)
canvas.DrawText(m2 ,620,290)
canvas.DrawText(m3 ,620,310)
canvas.DrawText(m4 ,620,330)
canvas.DrawText(m5 ,620,350)
canvas.DrawText(m6 ,620,370)
canvas.DrawText(m7 ,620,390)
canvas.DrawText(m8 ,620,410)
canvas.DrawText(m9 ,620,430)
canvas.DrawText(m10 ,620,450)
canvas.DrawText(m11 ,620,470)
canvas.DrawText(m12 ,620,490)
canvas.DrawText(m13 ,620,510)
canvas.DrawText(m14 ,620,530)

If pos = 80 Then itchy = 1


If itchy = 1 Then canvas.DrawImage(switch,580,200)
If itchy = 2 Then canvas.DrawImage(switch2,635,200)



If itchy = 2
canvas.DrawImage(blank,570,230)

canvas.DrawImage(tv,570,230)
canvas.DrawImage(tv1,730,370)

If sh1 > 0
For f = 1 To sh1
canvas.DrawImage(tv3,670+(f*32),310)
Next
Endif

If sh3 > 0
For f = 1 To sh3
canvas.DrawImage(tv3,670+(f*32),430)
Next
Endif

If sh2 > 0
For f = 1 To sh2
canvas.DrawImage(tv3,770+(f*32),370)
Next
Endif

If sh4 > 0
For f = 1 To sh4
canvas.DrawImage(tv3,700-(f*32),370)
Next
Endif

If spcar > 0
For f = 1 To spcar
canvas.DrawImage(tv5,580+(f*32),470)
Next
Endif
If spscrap > 0
For f = 1 To spscrap
canvas.DrawImage(tv5,700+(f*32),470)
Next
Endif

If spore > 0
For f = 1 To spore
canvas.DrawImage(tv6,580+(f*32),510)
Next
Endif
If spfuel > 0
For f = 1 To spfuel
canvas.DrawImage(tv11,700+(f*32),510)
Next
Endif

If runner > 0
For f = 1 To runner
canvas.DrawImage(tv10,800+(f*32),510)
Next
Endif

 If raidrun2[pos2] = 4 canvas.DrawImage(tv7,610,270)
 If raidrun2[pos2] = 5 canvas.DrawImage(tv8,610,270)

'If spcar > 3 Then spcar = 0
'spfuel = Rnd(1,30)
'If spfuel > 3 Then spfuel = 0
'spscap = Rnd(1,20)
'If spscrap > 3 Then spscrap = 0
'spore = Rnd(1,12)
'If spore > 2 Then spore = 0
'runner = Rnd(1,12)
'If runner > 1 Then runner = 0



Endif

End Method



Method DrawTheIntro( canvas:Canvas )
		canvas.Color = Color.White
Global gh:Int = 0
gh = Rnd(1,10000)
'DrawImage intro,0,0
canvas.DrawImage( r3b,700,200)

 canvas.DrawText(" 'Rogue three Privateer v14 64Bit'   By Mark Ainsworth ref 210665",200,20)
 canvas.DrawText(" ",20,50)
 canvas.DrawText(" This is a Space Adventure you are a Privateer Rogue Three, with Random Missions",100,80)

 canvas.DrawText(" complete as many missions as possible, however you can.",100,110)

canvas.DrawText("Your Main objective is to complete as many missions as possble.",50,150)
canvas.DrawText("Your Mission is randomly generated and displayed at the bottom.",50,170)
canvas.DrawText("The Mission has a number of objectives,from pickingup passenders",50,190)
canvas.DrawText("collecting cargo,or mining ore, then reaching the objective.",50,210)
canvas.DrawText("there are extra oppertunities for fule and anti-matter and cargo",50,230)
canvas.DrawText("If you use your sensors. You can attack or fire missiles at ships",50,250)
canvas.DrawText("If your Lasers are not at full power they cant attack or defend",50,270)
canvas.DrawText("Your ship, you cant have a laser at level 4 it wont work! you",50,290)
canvas.DrawText("Must charge your lasers to full level 4 for them to be of any use.",50,310)
canvas.DrawText("Your Shield protect your Hull, you can have shields working on",50,330)
canvas.DrawText("Lower power settings, but they will only absorb hits as much as",50,350)
canvas.DrawText("there charged. the scoop control allows you to pickup lose cargo",50,370)
canvas.DrawText("Or fuel or even anti-matter, use your sensors to find these.",50,390)
canvas.DrawText("the repair and upgrade options are only available at starbases you",50,410)
canvas.DrawText("see starbases in the mission track. you can buy missiles etc at",50,430)
canvas.DrawText("starbases or mission start.",50,450)
canvas.DrawText("You Need Engine Anti-matter to power your lasers & Shields, you",50,470)
canvas.DrawText("Start with a good amount, but as you take hits, you will need to",50,490)
canvas.DrawText("Hunt with your sesers to find more. You cant replace anti-matter",50,510)
canvas.DrawText("at a starbase, you have to find it, its easy to run out of it.",50,530)
canvas.DrawText("You get Fuel at the start of a mission when you upgrade, But Not",50,550)
canvas.DrawText("during the mission at starbases. Anti-matter is the most valuable",50,570)
canvas.DrawText("Resource, hard to replace,without Lasers and shields you wont win",50,590)
canvas.DrawText("Battles. You improve your score by improving Reputation & Missions",50,610)
canvas.DrawText("You wont be able to use the last 3 Power cells for lasers or shields.",50,630)

 canvas.DrawText(" !PRESS ENTER OR CLICK MOUSE!",200,670)
		
End Method 						    
				    
Method DrawTheGame( canvas:Canvas )
		canvas.Color = Color.White
If firstraid = 1 Then doraid(canvas)		
'If AppTerminate() = True Then End
'Cls
drawit(canvas)

'chooseit(canvas)

domessage(canvas)

If nofuel > 0 Then gameover(canvas)
If off > 0 Then gameover(canvas)
If pos = 9 And advance = 1 
tt2 = 0
fuel = fuel - 1
If fuel < 1 Then nofuel = 1
pos2 = pos2 + 1
If pos2 > 95 Then pos2 = 0

If pos2 = tracked Then pos = 80 
If pos2 = tracked Then done = done + 1
advance = 0
If pos = 80 Then doraid(canvas)

sh1 = Rnd(1,15)
If sh1 > 3 Then sh1 = 0
sh2 = Rnd(1,15)
If sh2 > 3 Then sh2 = 0
sh3 = Rnd(1,15)
If sh3 > 3 Then sh3 = 0
sh4 = Rnd(1,15)
If sh4 > 3 Then sh4 = 0
spcar = Rnd(1,20)
If spcar > 3 Then spcar = 0
spfuel = Rnd(1,30)
If spfuel > 3 Then spfuel = 0
spscrap = Rnd(1,20)
If spscrap > 3 Then spscrap = 0
spore = Rnd(1,12)
If spore > 2 Then spore = 0
runner = Rnd(1,22)
If runner > 1 Then runner = 0


m1  = "You Have Warped to the"
m2  = "Next destination in your "
m3  = "Mission. Check Sensors"
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""
Local cf4:Int = 0
Local cf3:Int = 0
cf4 = Rnd(1,5)

If cf4 = 1 And raidrun2[pos2] = 1 
m1  = "You Have Warped BUT A"
m2  = "Passeenger you pickedup"
m3  = "----is a thief ----"
m4  = ""
itchy = 1

cf3 = Rnd(1,5)
cf3 = Rnd(1,5)
If raidrun2[pos2] = 1 Then m4  = "Passenger steals "+cf3+" credits"

If gold > 1 And cf3 > 1
gold = gold - 1
cf3 = cf3 - 1
EndIf
If gold > 1 And cf3 > 1
gold = gold - 1
cf3 = cf3 - 1
EndIf
If gold > 1 And cf3 > 1
gold = gold - 1
cf3 = cf3 - 1
EndIf
If gold > 1 And cf3 > 1
gold = gold - 1
cf3 = cf3 - 1
EndIf
If gold > 1 And cf3 > 1
gold = gold - 1
cf3 = cf3 - 1
EndIf

EndIf

If raidrun2[pos2] = 1 Then m5  = "Passenger Picked-up"
If raidrun2[pos2] = 1 Then riders = riders + 1
If raidrun2[pos2] = 2 Then m6  = "Cargo Picked-up"
If raidrun2[pos2] = 2 Then cargo = cargo + 1
If raidrun2[pos2] = 3 Then m7  = "Ore Mined Cargo Increased"
If raidrun2[pos2] = 3 Then cargo = cargo + 1

If raidrun2[pos2] = 4 Then m9  = "You are At a STARBASE"
If raidrun2[pos2] = 4 Then m10  = "You may UPGRADE"
If raidrun2[pos2] = 4 Then m11  = "DONT TRY TO UPGRADE"
If raidrun2[pos2] = 4 Then m12  = "IF YOU DONT HAVE THE"
If raidrun2[pos2] = 4 Then m13  = "CREDITS,OR YOU WILL"
If raidrun2[pos2] = 4 Then m14  = "BE ARRESTED"

If raidrun2[pos2] = 5 Then m9  = "You are At a Pirate"
If raidrun2[pos2] = 5 Then m10  = "Base, & Black market"
If raidrun2[pos2] = 5 Then m11  = "Outpost"
If raidrun2[pos2] = 5 Then m12  = "You can use Black"
If raidrun2[pos2] = 5 Then m13  = "Market Button To"
If raidrun2[pos2] = 5 Then m14  = "Check For Jobs"

If raidrun2[pos2] > 5 And raidrun2[pos2] < 10
Local cf:Int = 0
Local cf2:Int = 0	
cf = Rnd(1,40)
cf2 = Rnd(1,2)

If cf = 1
itchy = 1
m1  = "You Have Warped forawrd"
m2  = "         BUT"
m3  = "You have tripped A Mine"
m4  = "All cargo Lost"
cargo = 0
EndIf

If cf = 2
itchy = 1
m1  = "You Have Warped forawrd"
m2  = "         BUT"
m3  = "You have tripped A Mine"
m4  = "All passengers killed"
riders = 0
EndIf

If cf = 3
itchy = 1
If fuel > 1 And cf2 > 1 Then fuel = fuel - 1 
If fuel > 1 And cf2 > 0 Then fuel = fuel - 1 

m1  = "You Have Warped forawrd"
m2  = "         BUT"
m3  = "You have tripped A Mine"
m4  = ""+cf2+" Fuel Lost"

EndIf
If cf = 4
itchy = 1
If energy > 3 And cf2 > 1 Then energy = energy - 1 
If energy > 3 And cf2 > 0 Then energy = energy - 1 

m1  = "You Have Warped forawrd"
m2  = "     !!!!!BUT!!!!"
m3  = "You have tripped A Mine"
m4  = "if 5+ then"+cf2+" Anti-Matter Lost"

EndIf

EndIf


EndIf




End method

	'respond to any key presses
	Method OnKeyEvent( event:KeyEvent ) Override
		'heres the best way to check for shift keys etc
		Local command:Bool = event.Modifiers & Modifier.Gui
		Local shift:Bool = event.Modifiers & Modifier.Shift
		Local alt:bool = event.Modifiers & Modifier.Alt
		
		Select event.Type
			Case EventType.KeyDown
			
				Select event.Key
					Case Key.Enter
						Select _gameMode
							Case GAME_INTRO
								_gameMode = GAME_GAME
						End Select
							
				End Select
				
			Case EventType.KeyUp
				Select event.Key
 		    Case Key.Space
			
					Case Key.Enter
					Case Key.Escape
						App.Terminate()	
				End Select
				
		End Select
	End

Method OnMouseEvent( event:MouseEvent ) Override
		'set up some global mouse cars so we can use these throught to program
					If zover = 1 Then return
		_mouseX = event.Location.X
		_mouseY = event.Location.Y
		
		
		
		Select event.Type
	        'Right-click deselects all options and moves map
			Case EventType.MouseRightClick
				
				Case EventType.MouseClick
					
				If _gameMode = GAME_INTRO 
					_gameMode = GAME_GAME
					Return
					Endif	
					
If   _mouseX > 580 And _mouseX < 625 And _mouseY > 200 And _mouseY < 225 
itchy = 1
Endif
If   _mouseX > 635 And _mouseX < 670 And _mouseY > 200 And _mouseY < 225
itchy = 2
Endif
			'use 4 Adds chit at the mouse cursor
			Local f:Int = 0
For f = 1 To 4
If   _mouseX > 36 And _mouseX < 88  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb < f And energy < 26 And f = 1
energy = energy + (f-abomb)
abomb = f
EndIf
If abomb < f And energy < 25 And f = 2
energy = energy + (f-abomb)
abomb = f
EndIf
If abomb < f And energy < 24 And f = 3
energy = energy + (f-abomb)
abomb = f
EndIf
If abomb < f And energy < 23 And f = 4
energy = energy + (f-abomb)
abomb = f
EndIf

If abomb > f And energy-1 > abomb-f
energy = energy - (abomb-f)
abomb = f
EndIf


EndIf
Next

For f = 1 To 4
If   _mouseX > 36+60 And _mouseX < 88+60  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb2 < f And energy < 26 And f = 1
energy = energy + (f-abomb2)
abomb2 = f
EndIf
If abomb2 < f And energy < 25 And f = 2
energy = energy + (f-abomb2)
abomb2 = f
EndIf
If abomb2 < f And energy < 24 And f = 3
energy = energy + (f-abomb2)
abomb2 = f
EndIf
If abomb2 < f And energy < 23 And f = 4
energy = energy + (f-abomb2)
abomb2 = f
EndIf
If abomb2 > f And energy-1 > abomb2-f
energy = energy - (abomb2-f)
abomb2 = f
EndIf

EndIf
Next


For f = 1 To 4
If   _mouseX > 36+60+60 And _mouseX < 88+60+60  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb3 < f And energy < 26 And f = 1
energy = energy + (f-abomb3)
abomb3 = f
EndIf
If abomb3 < f And energy < 25 And f = 2
energy = energy + (f-abomb3)
abomb3 = f
EndIf
If abomb3 < f And energy < 24 And f = 3
energy = energy + (f-abomb3)
abomb3 = f
EndIf
If abomb3 < f And energy < 23 And f = 4
energy = energy + (f-abomb3)
abomb3 = f
EndIf

If abomb3 > f And energy-1 > abomb3-f
energy = energy - (abomb3-f)
abomb3 = f
EndIf
EndIf
Next


For f = 1 To 4
If   _mouseX > 36+60+60+60 And _mouseX < 88+60+60+60  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb4 < f And energy < 26 And f = 1
energy = energy + (f-abomb4)
abomb4 = f
EndIf
If abomb4 < f And energy < 25 And f = 2
energy = energy + (f-abomb4)
abomb4 = f
EndIf
If abomb4 < f And energy < 24 And f = 3
energy = energy + (f-abomb4)
abomb4 = f
EndIf
If abomb4 < f And energy < 23 And f = 4
energy = energy + (f-abomb4)
abomb4 = f
EndIf
If abomb4 > f And energy-1 > abomb4-f
energy = energy - (abomb4-f)
abomb4 = f
EndIf
EndIf
Next

For f = 1 To 4
If   _mouseX > 36+60+60+60+60+40 And _mouseX < 88+60+60+60+60+40  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb5 < f And energy < 26 And f = 1
energy = energy + (f-abomb5)
abomb5 = f
EndIf
If abomb5 < f And energy < 25 And f = 2
energy = energy + (f-abomb5)
abomb5 = f
EndIf
If abomb5 < f And energy < 24 And f = 3
energy = energy + (f-abomb5)
abomb5 = f
EndIf
If abomb5 < f And energy < 23 And f = 4
energy = energy + (f-abomb5)
abomb5 = f
EndIf
If abomb5 > f And energy-1 > abomb5-f
energy = energy - (abomb5-f)
abomb5 = f
EndIf

EndIf
Next

For f = 1 To 4
If   _mouseX > 36+60+60+60+120+40 And _mouseX < 88+60+60+60+120+40  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb6 < f And energy < 26 And f = 1
energy = energy + (f-abomb6)
abomb6 = f
EndIf
If abomb6 < f And energy < 25 And f = 2
energy = energy + (f-abomb6)
abomb6 = f
EndIf
If abomb6 < f And energy < 24 And f = 3
energy = energy + (f-abomb6)
abomb6 = f
EndIf
If abomb6 < f And energy < 23 And f = 4
energy = energy + (f-abomb6)
abomb6 = f
EndIf

If abomb6 > f And energy-1 > abomb6-f
energy = energy - (abomb6-f)
abomb6 = f
EndIf
EndIf
Next

For f = 1 To 4
If   _mouseX > 36+60+60+60+180+40 And _mouseX < 88+60+60+60+180+40  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb7 < f And energy < 26 And f = 1
energy = energy + (f-abomb7)
abomb7 = f
EndIf
If abomb7 < f And energy < 25 And f = 2
energy = energy + (f-abomb7)
abomb7 = f
EndIf
If abomb7 < f And energy < 24 And f = 3
energy = energy + (f-abomb7)
abomb7 = f
EndIf
If abomb7 < f And energy < 23 And f = 4
energy = energy + (f-abomb7)
abomb7 = f
EndIf
If abomb7 > f And energy-1 > abomb7-f
energy = energy - (abomb7-f)
abomb7 = f
EndIf
EndIf
Next

For f = 1 To 4
If   _mouseX > 36+60+60+60+240+40 And _mouseX < 88+60+60+60+240+40  And _mouseY > 215+(f*55) And _mouseY < 215+(f*55) + 59 
If abomb8 < f And energy < 26 And f = 1
energy = energy + (f-abomb8)
abomb8 = f
EndIf
If abomb8 < f And energy < 25 And f = 2
energy = energy + (f-abomb8)
abomb8 = f
EndIf
If abomb8 < f And energy < 24 And f = 3
energy = energy + (f-abomb8)
abomb8 = f
EndIf
If abomb8 < f And energy < 23 And f = 4
energy = energy + (f-abomb8)
abomb8 = f
EndIf

If abomb8 > f And energy-1 > abomb8-f
energy = energy - (abomb8-f)
abomb8 = f
EndIf
EndIf
Next


		 f = 0
			For f = 0 To 9
If   _mouseX > 80 + (f*80) And _mouseX < 160 + (f*80) And _mouseY > 100 And _mouseY < 181 

pos = f
goo = 1
endif
Next
If goo = 1
If pos = 9 Then advance = 1
If pos = 2







m11  = ""
m12  = ""
m13  = ""
m14  = ""
m10  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m5  = "Anti-Matter Energy source "+runner
m1  = "Floating Cargo scooped = "+spcar
m2  = "Floating Fuel scooped = "+spfuel
m3  = "Space Scrap scooped= "+spscrap
m4  = "Asteroid Ore scooped= "+spore

cargo = cargo + spcar + spscrap + spore
fuel = fuel + spfuel

energy = energy + runner
Local cf5:Int = 0
Local cf6:Int = 0
Local cf7:Int = 0
Local cf8:Int = 0
Local cf9:Int = 0
cf5 = Rnd(1,15)

If cf5 = 1

cf6 = Rnd(1,5)
hull1 = hull1 - cf6
If hull1 < 0 Then hull1 = 0

cf7 = Rnd(1,5)
hull2 = hull2 - cf7
If hull2 < 0 Then hull2 = 0

cf8 = Rnd(1,5)
hull3 = hull3 - cf8
If hull3 < 0 Then hull3 = 0

cf9 = Rnd(1,5)
hull4 = hull4 - cf9
If hull4 < 0 Then hull4 = 0

itchy = 1
m9  = "Your Scoop Arm damages"
m10  = "your Hull------------"
m11  = "Front Hull - "+cf6
m12  = "Right Hull - "+cf7
m13  = "Rear Hull - "+cf8
m14  = "Left Hull - "+cf9
m7  = ""
m8  = ""
m6  = ""

EndIf

If energy > 25 Then energy = 25

runner = 0
spcar = 0
spscrap = 0
spore = 0
spfuel = 0

EndIf


If pos = 8 And pos2 < 97

m1  = "SORRY YOU CAN ONLY UPGRADE"
m2  = "AT MISSION START OR WHEN YOU"
m3  = "ARE AT A STARBASE"
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""

EndIf

If pos = 8 And pos2 = 97

m1  = "Cargo Sold = "+cargo

m2  = "Passengers Paid = "+riders
m3  = ""
If gold > 2 Then m3  = "Missiles bought 4"
m4  = "Missiles are energy based"
m5  = "and do not last longer than"
m6  = "a mission. your ship only"
m7  = "has 4 missile bays. but"
m8  = "the energy fluxator can"
m9  = "only use missiles in 4s"
m10  = "so you must buy 4 missiles"
m11  = "at a time."
m12  = ""
m13  = "DONT KEEP REBUYING"
m14  = "MISSILES"



gold = gold + cargo + riders


cargo = 0
riders = 0

If gold > 3
gold = gold - 4
missiles = 4
EndIf

EndIf


If pos = 8 And raidrun2[pos2] = 4

m1  = "Cargo Sold = "+cargo
m2  = "Passengers Paid = "+riders
m3  = ""

If gold > 2 Then m3  = "Missiles bought 4"
m4  = "Missiles are energy based"
m5  = "and do not last longer than"
m6  = "a mission. your ship only"
m7  = "has 4 missile bays. but"
m8  = "the energy fluxator can"
m9  = "only use missiles in 3s"
m10  = "so you must buy 4 missiles"
m11  = "at a time."
m12  = ""
m13  = "DONT KEEP REBUYING"
m14  = "MISSILES"

gold = gold + cargo + riders


cargo = 0
riders = 0

If gold > 3
gold = gold - 4
missiles = 4
EndIf

EndIf
If pos = 7 And pos2 < 97

m1  = "SORRY YOU CAN ONLY REPAIR HULL"
m2  = "AT MISSION START OR WHEN YOU"
m3  = "ARE AT A STARBASE"
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""

EndIf
If pos = 7 And raidrun2[pos2] = 4


m1  = "FIXING HULL"

m2  = ""
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = "DONT KEEP FIXING"
m14  = "HULL"


gg = gold
Local g:Int = 0
For g = 0 To 8
If gold > 0 And hull1 < 8
gold = gold - 1
hull1 = hull1 + 1
EndIf
Next

For g = 0 To 8
If gold > 0 And hull2 < 8
gold = gold - 1
hull2 = hull2 + 1
EndIf
Next

For g = 0 To 8
If gold > 0 And hull3 < 8
gold = gold - 1
hull3 = hull3 + 1
EndIf
Next

For g = 0 To 8
If gold > 0 And hull4 < 8
gold = gold - 1
hull4 = hull4 + 1
EndIf
Next

gg = gg - gold
m10  = "Total cost = "+gg
EndIf

If pos = 5 And raidrun2[pos2] < 5
m1  = "ILLEAGLE JOBs NOT"
m2  = "Avaiable Here"
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""

EndIf
If pos = 5 And raidrun2[pos2] > 5

m1  = "ILLEAGLE JOBs NOT"
m2  = "Avaiable Here"
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""
EndIf


If pos = 5 And raidrun2[pos2] = 5 And tt2 = 0
'dispreadme()

m1  = "ILLEAGLE JOB"
m2  = ""
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""

tt2 = 1

tt = Rnd(1,12)

If tt = 1
oo = Rnd(1,5)
oo2 = Rnd(1,3)
m3  = "5 Passengers board"
m4  = "No Questions, just"
m5  = "take the fare at a"
m6  = "Starbase"
m7  = "plus "+oo+" credits now"
gold = gold + oo
EndIf
If tt = 2
oo = Rnd(1,3)
oo2 = Rnd(1,3)
m3  = " "+oo+" Passengers board"
m4  = "No Questions, just"
m5  = "take the fare at a"
m6  = "Starbase"
riders = riders + oo
EndIf
If tt = 3
oo = Rnd(1,3)
oo2 = Rnd(1,3)

m3  = "transport cargo"
m4  = "No Questions, just"
m5  = "take the job and"
m6  = "deliver to Starbase"
m7  = "plus "+oo+" credits now"
gold = gold + oo
EndIf
If tt = 4
oo = Rnd(1,3)
oo2 = Rnd(1,3)

m3  = "transport "+oo2+" ore"
m4  = "No Questions, just"
m5  = "take the job and"
m6  = "deliver to Starbase"
m7  = "plus "+oo+" credits now"
cargo = cargo + oo2

gold = gold + oo
EndIf
If tt = 5
oo = Rnd(1,3)
oo2 = Rnd(1,3)

m3  = "Acceppt Missiles"
m4  = "No Questions, and"
m5  = "take "+oo2+" cargo And"
m6  = "deliver to Starbase"
m7  = "plus "+oo+" credits now"
cargo = cargo + oo2
gold = gold + oo
missiles = 4
EndIf

If tt = 6
oo = Rnd(1,3)
oo2 = Rnd(1,5)

m3  = ""
m4  = "No Questions"
m5  = "take "+oo2+" cargo And"
m6  = "deliver to Starbase"
m7  = "plus "+oo+" credits now"
cargo = cargo + oo2
gold = gold + oo
EndIf

If tt = 7
oo = Rnd(1,3)
oo2 = Rnd(1,5)

m3  = "Take "+oo2+" Fuel"
m4  = "No Questions"
m5  = "take "+oo2+" cargo And"
m6  = "deliver to Starbase"
m7  = "plus "+oo+" credits now"
cargo = cargo + oo2
gold = gold + oo
fuel = fuel + oo2
EndIf

If tt = 8
oo = Rnd(1,3)
oo2 = Rnd(1,5)

m3  = "Take 1 Anti-matter cell"
m4  = "No Questions"
m5  = "take "+oo2+" cargo And"
m6  = "deliver to Starbase"
m7  = "plus "+oo+" credits now"
cargo = cargo + oo2
gold = gold + oo
energy = energy + 1
If energy > 25 Then energy = 25
EndIf

If tt = 9
oo = Rnd(1,3)
oo2 = Rnd(1,5)

m3  = "Rogue Pirate Takes"
m4  = "All Your Cargo, And"
m5  = "kidnaps your passengers"
m6  = ""
m7  = "plus takes "+oo+" credits"
cargo = 0
riders = 0
gold = gold - oo
EndIf


If tt = 10


m3  = "No illeagle Activity"
m4  = "All is quiet"
m5  = ""
m6  = ""


EndIf

If tt = 11


m3  = "No illeagle Activity"
m4  = "All is quiet"
m5  = ""
m6  = ""


EndIf
If tt = 12


m3  = "No illeagle Activity"
m4  = "All is quiet"
m5  = ""
m6  = ""


EndIf

EndIf


If pos = 6 

m1  = "EMERGENCY HYPERJUMP"
m2  = "BACK UPTO 5 ZONES"
m3  = "FUEL WILL BE DOUBLE"
m4  = "Reputation will lose 5"
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""


pos2 = pos2 - 5
If pos2 < 0 Then pos2 = 0
fuel = fuel - 10
If fuel < 0 Then fuel = 0
If fuel = 0 Then nofuel = 1
If fuel = 0 Then Off = 1
rep = rep - 5
If rep < 1 Then Off = 1
EndIf


If pos = 7 And pos2 = 97

m1  = "FIXING HULL"

m2  = ""
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = "DONT KEEP FIXING"
m14  = "HULL"


gg = gold
Local g:Int = 0
For g = 0 To 8
If gold > 0 And hull1 < 8
gold = gold - 1
hull1 = hull1 + 1
EndIf
Next

For g = 0 To 8
If gold > 0 And hull2 < 8
gold = gold - 1
hull2 = hull2 + 1
EndIf
Next

For g = 0 To 8
If gold > 0 And hull3 < 8
gold = gold - 1
hull3 = hull3 + 1
EndIf
Next

For g = 0 To 8
If gold > 0 And hull4 < 8
gold = gold - 1
hull4 = hull4 + 1
EndIf
Next

gg = gg - gold
m10  = "Total cost = "+gg
EndIf

If pos = 4 And missiles > 0
hits = 0
m1  = "ATTACKING SHIPS"
m2  = "WITH MISSILES"
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""

If sh1 > 0
	Local f1:Int = 0
f1 = Rnd(0,1)
m3  = "Forward ships lose "+f1
sh1 = sh1 - f1
EndIf
If sh2 > 0
	Local f1:Int = 0
f1 = Rnd(0,1)
m4  = "Right ships lose "+f1
sh2 = sh2 - f1
EndIf
If sh3 > 0
	Local f1:Int = 0
f1 = Rnd(0,1)
m5  = "Rear ships lose "+f1
sh3 = sh3 - f1
EndIf
If sh4 > 0
	Local f1:Int = 0
f1 = Rnd(0,1)
m6  = "Left ships lose "+f1
sh4 = sh4 - f1
EndIf
If sh1 < 0 Then sh1 = 0
If sh2 < 0 Then sh2 = 0
If sh3 < 0 Then sh3 = 0
If sh4 < 0 Then sh4 = 0

missiles = 0
EndIf

If pos = 3
hits = 0
m1  = "ATTACKING SHIPS"
m2  = ""
m3  = ""
m4  = ""
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = ""
m11  = ""
m12  = ""
m13  = ""
m14  = ""
itchy = 1
If abomb = 1
gold2 = 0
	Local f1:Int = 0
f1 = Rnd(0,sh1)
m2  = "Forward ships lose "+f1
If sh1 > 0 rep = rep + 1
If sh1 > 0 gold = gold + (f1*3)
If sh1 > 0 gold2 = gold2 + (f1*3)

sh1 = sh1 - f1
If sh1 < 0 Then sh1 = 0
EndIf

m3  = " you recive "+sh1+" Hits Forward"
hits = hits + sh1
If abomb2 = 1
	Local f1:Int = 0
f1 = Rnd(0,sh2)
m4  = "Right ships lose "+f1


If sh2 > 0 rep = rep + 1
If sh2 > 0 gold = gold + (f1*3)
If sh2 > 0 gold2 = gold2 + (f1*3)



sh2 = sh2 - f1
If sh2 < 0 Then sh2 = 0
EndIf

m5  = " you recive "+sh2+" Hits Right"
hits2 = hits2 + sh2
If abomb3 = 1
	Local f1:Int = 0
f1 = Rnd(0,sh3)
m6  = "Rear ships lose "+f1


If sh3 > 0 rep = rep + 1
If sh3 > 0 gold = gold + (f1*3)
If sh3 > 0 gold2 = gold2 + (f1*3)



sh3 = sh3 - f1
If sh3 < 0 Then sh3 = 0
EndIf

m7  = " you recive "+sh3+" Hits Rear"
hits3 = hits3 + sh3
If abomb4 = 1
	Local f1:Int = 0
f1 = Rnd(0,sh4)
m8  = "Left ships lose "+f1


If sh4 > 0 rep = rep + 1
If sh4 > 0 gold = gold + (f1*3)
If sh4 > 0 gold2 = gold2 + (f1*3)



sh4 = sh4 - f1
If sh4 < 0 Then sh4 = 0
EndIf

m9  = " you recive "+sh4+" Hits Left"
hits4 = hits4 + sh4

tot = hits+hits2+hits3+hits4
m11  = "Total Hits = "+tot
If tot > 0 rep = rep - tot
If tot > 0 gold = gold - tot

m13  = "reputation  "+rep
m14  = "credits  "+gold+"  Reward = "+gold2+" credits"

If gold < 1 Then nofuel = 1
If gold < 1 Then Off = 1
If rep < 1 Then nofuel = 1
If rep < 1 Then Off =  1


EndIf

hitsz = hits
For f = 0 To hitsz
jj = 0
If hits > 0
If abomb5 = 1 
hits = hits - 1
abomb5 = abomb5 + 1
jj = 1
EndIf
EndIf

If hits > 0
If abomb5 = 2
hits = hits - 1
abomb5 = abomb5 + 1
jj = 1

EndIf
EndIf

If hits > 0
If abomb5 = 3
hits = hits - 1
abomb5 = abomb5 + 1
jj = 1

EndIf
EndIf

If hits > 0 And jj = 0

If abomb5 = 4
hull1 = hull1 - 1
hits = hits - 1
If hull1 < 1 Then nofuel = 1
If hull1 < 1 Then Off = 1

EndIf
EndIf
Next






hitsz = hits2
For f = 0 To hitsz
jj = 0

If hits2 > 0
If abomb6 = 1 
hits2 = hits2 - 1
abomb6 = abomb6 + 1
jj = 1

EndIf
EndIf

If hits2 > 0
If abomb6 = 2
hits2 = hits2 - 1
abomb6 = abomb6 + 1
jj = 1

EndIf
EndIf

If hits2 > 0
If abomb6 = 3
hits2 = hits2 - 1
abomb6 = abomb6 + 1
jj = 1

EndIf
EndIf

If hits2 > 0 And jj = 0

If abomb6 = 4
hull2 = hull2 - 1
hits2 = hits2 - 1
If hull2 < 1 Then nofuel = 1
If hull2 < 1 Then Off = 1


EndIf
EndIf
Next






hitsz = hits3
For f = 0 To hitsz
jj = 0

If hits3 > 0
If abomb7 = 1 
hits3 = hits3 - 1
abomb7 = abomb7 + 1
jj = 1

EndIf
EndIf

If hits3 > 0
If abomb7 = 2
hits3 = hits3 - 1
abomb7 = abomb7 + 1
jj = 1

EndIf
EndIf

If hits3 > 0
If abomb7 = 3
hits3 = hits3 - 1
abomb7 = abomb7 + 1
jj = 1

EndIf
EndIf

If hits3 > 0 And jj = 0

If abomb7 = 4
hull3 = hull3 - 1
hits3 = hits3 - 1
If hull3 < 1 Then nofuel = 1
If hull3 < 1 Then Off = 1


EndIf
EndIf
Next




hitsz = hits4
For f = 0 To hitsz
jj = 0

If hits4 > 0
If abomb8 = 1 
hits4 = hits4 - 1
abomb8 = abomb8 + 1
jj = 1

EndIf
EndIf

If hits4 > 0
If abomb8 = 2
hits4 = hits4 - 1
abomb8 = abomb8 + 1
jj = 1

EndIf
EndIf

If hits4 > 0
If abomb8 = 3
hits4 = hits4 - 1
abomb8 = abomb8 + 1
jj = 1

EndIf
EndIf

If hits4 > 0 And jj = 0

If abomb8 = 4
hull4 = hull4 - 1
hits4 = hits4 - 1
If hull4 < 1 Then nofuel = 1
If hull4 < 1 Then Off = 1


EndIf
EndIf
Next




Endif
goo = 0

			If zover = 1 Then return
			Case EventType.MouseUp
				
			Case EventType.MouseWheel	
					
				Case EventType.MouseEnter
			Case EventType.MouseLeave
			Case EventType.MouseMove
				
			End Select					
		
	End Method	
	
	
	
	
	
	
	
	
	
	
	
	
	
	
	Method doraid(canvas:Canvas)
firstraid = 0
tracked = Rnd(5,28)
'bombs = 4
local abomb:int = 1
local f:int = 0
For f = 0 To 9
raidrun[f] = f
Next
local f3:int = 0
For f3 = 0 To tracked
raidrun2[f3] = Rnd(1,9)
Next
raidrun2[tracked] = 10

If pos2 < 90 Then pos2 = 97
If pos2 = 97 Then missiles = 0
If pos2 = 97

If gold < 1 Then nofuel = 1
If nofuel = 1 Then gameover(canvas)

If gold < 38
fuel = fuel + gold
gold = 0
Endif

If gold > 37
gold = gold - 38
fuel = fuel + 38
Endif

Endif
End Method

Method domessage(canvas:Canvas)

If pos > 11
m1  = "Welcome Captain Rogue three"
m2  = "Your Aboard DragonBreath"
m3  = "A Fighter class Scout Ship"
m4  = "The Top Row of indicators = Power"
m5  = "The Big Buttons = Ships Commands"
m6  = "The Buttons to the Left = Lasers "
m7  = "  Powered from Power upto 4 Power"
m8  = "The Next are Shields upto 4 Power"
m9  = "When You Power Something it takes"
m10  = "  Power from the Engines."
m11  = "The Bottom Row of Icons Are the"
m12  = "Current Mission Path & expected"
m13  = "  Situations. You Progress by"
m14  = "  Reaching the mission objective"
Endif

If pos = 0
	Local d:Int = 0
d = energy + 1
m1  = "Power From Engines = "+d
If pos2 < 97 Then m2  = "Mission is at "+pos2+" of "+tracked
If pos2 = 97 Then m2  = "Mission begun of 0 to "+tracked

m3  = "Forward Hull Strength = "+hull1
m4  = "Rear Hull Strength = "+hull3
m5  = "Right Hull Strength = "+hull2
m6  = "Left Hull Strength = "+hull4
'm7  = "Total Able Crew = "+crew
tttt = (rep * done) + gold
m7  = "Current score = "+tttt

'm7  = ""
m8  = "Cargo crates Onboard = "+cargo
m9  = "   --->MISSILES = "+missiles
m10  = "Passengers = "+riders

'm11  = "Repair Droids = "+droids
m11  = ""
m12  = "  ===>FUEL<=== = "+fuel
m13  = "Reputation +Good -Bad = "+rep
m14  = "=CREDITS = "+gold
Endif

If pos = 1

m1  = "Ships in front = "+sh1
m2  = "Ships Behind "+sh3
m3  = "Ships Right = "+sh2
m4  = "Ships Left = "+sh4
m5  = ""
m6  = ""
m7  = ""
m8  = ""
m9  = ""
m10  = "Anti-matter Energy source = "+runner
m11  = "Floating Cargo crates = "+spcar
m12  = "Floating Fuel Cells = "+spfuel
m13  = "Space Scrap = "+spscrap
m14  = "Asteroid Ore = "+spore
Endif

If pos = 80

m1  = "Mission Complete = "
m2  = "You Have Been Assigned"
m3  = "Your New Mission"
m4  = "Good Luck Captain"
m5  = "---------------------"
m6  = "You May Now Upgrade"
m7  = "if you have credits"
m8  = "Credits you have = "+gold
m9  = "You May sell Cargo"
m10  = "cargo onboard = "+cargo
m11  = "Passengers Pay you "
m12  = "For Transpoting  them "
m13  = "Passengers onboard = "+riders
m14  = "Missions Completed = "+done
Endif



End Method

Method gameover(canvas:Canvas)

canvas.DrawImage(over,270,80)
canvas.DrawText("GAME OVER",400,200)

canvas.DrawText("Front Shield = "+abomb5,400,260)

canvas.DrawText("Right Shield = "+abomb6,400,280)

canvas.DrawText("Rear Shield = "+abomb7,400,300)

canvas.DrawText("Left Shield = "+abomb8,400,320)

canvas.DrawText("Front hull = "+hull1,400,340)

canvas.DrawText("Right hull = "+hull2,400,360)

canvas.DrawText("Rear hull = "+hull3,400,380)

canvas.DrawText("Left hull = "+hull4,400,400)

canvas.DrawText("Fuel = "+fuel,400,420)

canvas.DrawText("Reputation = "+rep,400,440)

canvas.DrawText("Credits = "+gold,400,460)
canvas.DrawText("Missions Completed = "+done,400,480)

tttt = (rep * done) + gold
canvas.DrawText("Final score Reputation * Missions + credits = "+tttt,400,510)

'canvas.DrawText("PRESS ENTER TO EXIT",400,600)
'If AppTerminate() = True Then End

'If KeyHit(KEY_ENTER) Then End

zover = 1
'Goto rrrr
End Method



	
	
	
	
	
	
	
	
	
	
	
		'the timer ticks 60 times a second and handles the screen update
	Field _timer:Timer
		   
	'what mode is the game in, showing the intro, playing, ended, etc
	Field _gameMode:Int = GAME_INTRO
	Field r3b:Image  
Field blank:Image  
Field off:Int = 0  

Field backdrop1:Image  
Field zones:Image  
Field zone1s:Image    
Field zone2s:Image    
Field zone3s:Image  
Field zone4s:Image  
Field zone5s:Image  
Field zone6s:Image  
Field zone7s:Image  
Field zone8s:Image  
Field zone9s:Image  
Field zone10s:Image  



Field zones2:Image  
Field zones12:Image  
Field zones22:Image  
Field zones32:Image  
Field zones42:Image  
Field zones52:Image  
Field zones62:Image  
Field zones72:Image  
Field zones82:Image  
Field zones92:Image  
Field zones102:Image  



Field loca:Image  
Field loca2:Image  
Field loca3:Image  
Field b:Image  

Field ch:Image  

Field action:Image  
Field action2:Image  
Field action3:Image  
Field action4:Image  
Field action5:Image  
Field action6:Image  
Field action7:Image  
Field action8:Image  
Field action9:Image  
Field action10:Image  
Field action11:Image  
Field over:Image  




Field bomb1:Image  
Field bomb2:Image  
Field bomb3:Image  
Field bomb4:Image  

Field tv:Image  
Field tv1:Image  
Field tv2:Image  
Field tv3:Image  
Field tv4:Image  
Field tv5:Image  
Field tv6:Image  
Field tv7:Image  
Field tv8:Image  
Field tv9:Image  
Field tv10:Image  
Field tv11:Image  
'Field tv12:Image  

Field switch:Image  
Field switch2:Image  
Field power:Image  	
Field _mouseX:Int
	Field _mouseY:Int	
Protected
	Method OnUpdate()
		RequestRender()
	End Method
	
	
	Method OnRender( canvas:Canvas ) Override

		'fill the screen canvas with a color
		canvas.Color = Color.Black
		canvas.DrawRect( 0, 0, Width, Height )

		Select _gameMode
			Case GAME_INTRO
				DrawTheIntro( canvas )
			Case GAME_GAME
			
 			
				DrawTheGame( canvas )
			
		End Select
	End
End

ok I did a port from blitzmax to monkey2 of rogue3 elite type game, turn based, I had to do a few little adjustments, but its virtualy the same

https://numbergamer8.itch.io/rogue-three-privateer

AdamStrange

(Posted May) [#15]

yay. methods and no gotos....

I'm back!

Mainsworthy

(Posted May) [#16]

missed your posts, looking forward to seeing those moons orbiting on the nav map ::)

Blitzplotter

(Posted May) [#17]

Great to see how this project is progressing, great work ;)

AdamStrange

(Posted May) [#18]

sooo. I've been decoding goatsoup. which is the planet description system for the original elite. wan't nice and needed all sorts of odd things added etc to get it usable.


Namespace myConsoleApp

'we need to import the standard library <std>
#Import "<std>"

'using means we dont have to preface commands with std. all the time
Using std..

Const Hex:string = "0123456789ABCDEF"

const governmentString:string[] = new string[] ( "Anarchy","Feudal","Party Shared","Dictatorship",
					"Communist","Confederacy","Democracy","Corporate State")

const economyString:string[] = new string[] ( "Rich Industrial","Average Industrial","Poor Industrial","Mainly Industrial",
					"Mainly Agriculture","Rich Agriculture","Average Agriculture","Poor Agriculture")

const inhabitants1:string[]= new string[] ( "Large", "Fierce", "Harmless", "Small", "Intelligent",
					"Psychic", "Devious", "Unpleasant", "Strange", "Unusual", "Wierd", "Tiny", "Georgeous" )

const inhabitants2:string[] = new string[] ( "Green", "Red", "Yellow", "Blue", "Black", "Pink", "Citreen",
					"Grey", "Glittering" )

const inhabitants3:string[] = new string[] ( "Slimy", "Bug-Eyed", "Horned", "Horny", "Bony", "Fat", "Furry",
					"Scaly", "Wet", "amorphous", "fluid" )
    
const inhabitants4:string[] = new string[] ( "Rodents", "Frogs", "Lizards", "Fish", "Birds", "Humanoids",
					"Felines", "Ovines", "Insects", "Robots", "Worms", "Flashes", "Cyborgs", "Humans" )

const pairs0:string = "ABOUSEITILETSTONLONUTHNOALLEXEGEZACEBISOUSESARMAINDIREAERATENBERALAVETIEDORQUANTEISRION"

const description:string[] = new string[] ( "known", "notable", "well known", "famous", "noted", 
					"basically", "locally", "most", "reasonably", "almost",
					"ancient", "\x95", "great", "vast", "pink",
					"\x9E \x9D plantations", "mountains", "\x9C", "\x94 forests", "oceans",
					"shyness", "silliness", "mating traditions", "loathing of \x86", "love for \x86",
					"food blenders", "tourists", "poetry", "discos", "\x8E",
					"talking tree", "crab", "bat", "lobst", "\xB2",
					"beset", "plagued", "ravaged", "cursed", "scourged",
					"\x96 civil war", "\x9B \x98 \x99s", "a \x9B disease", "\x96 earthquakes", "\x96 solar activity",
					"its \x83 \x84", "the \xB1 \x98 \x99","its inhabitants' \x9A \x85", "\xA1", "its \x8D \x8E",
					"juice", "brandy", "water", "brew", "fluid",
					"\xB2", "\xB1 \x99", "\xB1 \xB2", "\xB1 \x9B", "\x9B \xB2",
					"fabulous", "exotic", "hoopy", "unusual", "exciting",
					"food", "night life", "casinos", "social media", " \xA1 ",
					"\xB0", "The planet \xB0", "The world \xB0", "This planet", "This world",
					"n unremarkable", " boring", " dull", " tedious", " revolting",
					"planet", "world", "place", "little planet", "dump",
					"wasp", "moth", "grub", "ant", "\xB2",
					"poet", "arts graduate", "yak", "snail", "slug",
					"tropical", "dense", "rain", "impenetrable", "exuberant",
					"funny", "wierd", "unusual", "strange", "peculiar",
					"frequent", "occasional", "unpredictable", "extreme", "deadly",
					"\x82 \x81 for \x8A", "\x82 \x81 for \x8A and \x8A", "\x88 by \x89", "\x82 \x81 for \x8A but \x88 by \x89","a\x90 \x91",
					"\x9B", "mountain", "edible", "tree", "spotted",
					"\x9F", "\xA0", "\x87oid", "\x93", "\x92",
					"ancient", "exceptional", "strange", "ingrained", "\x95",
					"killer", "deadly", "evil", "lethal", "vicious",
					"acid swamps", "dust clouds", "ice bergs", "rock formations", "volcanoes",
					"plant", "tulip", "banana", "corn", "\xB2weed", 
					"\xB2", "\xB1 \xB2", "\xB1 \x9B", "inhabitant", "\xB1 \xB2", 
					"shrew", "beast", "bison", "snake", "wolf", 
					"leopard", "cat", "monkey", "goat", "fish", 
					"\x8C \x8B", "\xB1 \x9F \xA2","its \x8D \xA0 \xA2", "\xA3 \xA4", "\x8C \x8B", 
					"meat", "cutlet", "steak", "burger", "soup", 
					"ice", "mud", "Zero-G", "vacuum", "\xB1 ultra", 
					"hockey", "cricket", "karate", "polo", "tennis" )
					

class PlanetInfo
	method New()
	End method

	method Generate( seed:long, name:string )
'		Print "planetSeed:"+seed
		gs = seed
		
		planetName = name
		
		x = int(((gs Shr 24) & 255) Shr 1) & 255
		Local a:int = x + (gs Shr 8 & 255)
		
		If ((gs Shr 24 & 255) > 127) Then a = a + 3
		goatsoupseed1 = ((gs + a) Shr 4 & 255) 'And 255
		goatsoupseed2 = gs + x Shr 8 & 255
		
		'a = any carry Left from above
		a = a Shl 8

		x = gs Shr 16 & 255
		a = (a + x + gs & 255) & 255
		goatsoupseed3 = a Shr 1 & 255
		goatsoupseed4 = gs+x & 255
		
		government =(goatsoupseed2 shr 3) &7

		economy =(goatsoupseed1 shr 3) &7
		if government <= 1 Then
			economy = economy | 2
		End If

		techLevel = ((goatsoupseed1 shl 8) &3) + (economy shr 7)
		techLevel += government Shl 1
		if government &1 = 1 then techLevel += 3
		If techLevel < 2 Then techLevel += 1

		population = 4 * techLevel + economy
		population *= (government * economy)+20

		productivity = ((economy shr 7)+3) * (government+4)
		productivity += (population Mod 50)

		'; inhabits name
		local i1:int = goatsoupseed1 mod 13
		local i2:int = goatsoupseed2 mod 9
		local i3:int = goatsoupseed3 mod 11
		local i4:int = (goatsoupseed4+goatsoupseed2) mod 13
		If goatsoupseed4 Mod 256 < 127 Then
			inhabitants = inhabitants1[i4]+" Human Colonists"
		Else
			select goatsoupseed3 Mod 11
				Case 0, 1
					inhabitants = inhabitants4[i4]
				Case 2, 3
					inhabitants = inhabitants1[i1]+" "+inhabitants2[i2]+" "+inhabitants4[i4]
				Case 4, 5
					inhabitants = inhabitants2[i2]+" "+inhabitants3[i3]+" "+inhabitants4[i4]
				Case 6, 7
					inhabitants = inhabitants1[i1]+" "+inhabitants4[i4]
				default
					inhabitants = inhabitants1[i1]+" "+inhabitants2[i2]+" "+inhabitants3[i3]+" "+inhabitants4[i4]
			End Select
			
		End if

		info = GoatSoup( "\x8F is \x97", "" )
	End method


	method GetRnd:int()
		local a:int
		Local x:int
		x = (goatsoupseed1 * 2) & 255
		a = x + goatsoupseed3
		if goatsoupseed1 > 127 Then a += 1
		goatsoupseed1 = a & 255
		goatsoupseed3 = x

		a = a / 256
		x = goatsoupseed2
		a = (a + x + goatsoupseed4) & 255
		goatsoupseed2 = a
		goatsoupseed4 = x
		return a
	End method

'void goat_soup(const char *source,plansys * psy)
	method GoatSoup:string( input:string, incoming:string )
	
'		Print "INPUT:"+input
		Local pos:int = 0
		Local txt:string = ""
		
		While pos < input.Length
		
			If input[pos] = 92 Then
				If txt <> "" Then
					incoming += txt
'					Print " TEXT:"+txt
					txt = ""
				End If
				
				Local p1:int = Hex.Find( input.Mid(pos + 2, 1) )-8
				Local p2:int = Hex.Find( input.Mid(pos + 3, 1) )

				Local text:int = (p1 * 80) + (p2 * 5) -5
				If text < 180 Then
					Local offset:int = GetRnd() Mod 5
'					Print offset

					text += offset

					incoming = GoatSoup( description[text], incoming )
				Else
					Select text
						Case 235 'planet name
							incoming += planetName
						Case 240 'planet name +ian
							incoming += planetName+"ian"
						Case 245 'random name using pairs[]
							local i:int
							local len:int = goatsoupseed4 Mod 3
'							Print "len:"+len
							Local name:string = ""
							for i = 0 To len
								local x:int = goatsoupseed2 Mod 60
								name = pairs0.Mid(x, 4)
							Next
							name = name.Mid(0, 1).ToUpper() + name.Mid(1, name.Length ).ToLower()
							incoming += name
					
					End Select
				End If
				
				pos += 4
			Else
				txt += input.Mid(pos, 1)
				pos += 1
			End If
		Wend
		
		If txt.Length > 0 Then
'			Print " TEXT2:"+txt
			incoming += txt
		End If
		
		Return incoming
	End method

	
	Field x:int = 0
	Field y:int = 0
	Field economy:int = 0
	Field government:int = 0
	Field techLevel:int = 0
	Field population:int = 0
	Field productivity:int = 0
	Field name:string
	field info:string
	field inhabitants:string
	Field goatsoupseed1:int
	Field goatsoupseed2:int
	Field goatsoupseed3:int
	Field goatsoupseed4:int
	Field gs:int
	field planetName:String
End Class

class SystemNames
	method New()
	End method

	method SystemName:String( seed:int )
'		Print "SystemSeed:"+seed
		SeedRnd( seed )
		Local name:string = ""
		Local newName:string
		Local k:int
		
		For k = 0 To int(Rnd(3, 5))
			newName = syllables.Mid( Rnd( syllables.Length /2 )*2, Rnd(2)+Rnd(1) )
			
			'make sure that names are not packed with vowels following vowels
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select newName.Left(1)
						Case "a", "e", "i", "o", "u", "y"
							name += "n"
					End Select
			Default
				'or constantent runs
				Select newName.Left(1)
					Case "a", "e", "i", "o", "u", "y"
					Default
						Select int(Rnd(5))
							Case 0 name += "a"
							Case 1 name += "e"
							Case 2 name += "i"
							Case 3 name += "o"
							Case 4 name += "u"
						End Select
				End Select
			End Select
			
			name += newName
		Next
		
		'make sure that a short name has a proper ending
		If name.Length < 5 Then
			Select name.Right(1)
				Case "a", "e", "i", "o", "u", "y"
					Select int(Rnd(10))
						Case 0 name += "d"
						Case 1 name += "n"
						Case 2 name += "s"
						Case 3 name += "r"
						Case 4 name += "ru"
						Case 5 name += "no"
						Case 6 name += "na"
						Case 7 name += "ri"
						Case 8 name += "ra"
						Case 9 name += "st"
					End Select
			End Select
		End If

		name = name.Mid(0, 1).ToUpper() + name.Mid(1, name.Length )
		
		Return name
	End method
	
	field syllables:string = "lexegezacebisousesarmaindireaeratenberalavetiedorquanteisrion"
End class



Function Main()
	Local solar:SystemNames = New SystemNames()
	Local planet:PlanetInfo = New PlanetInfo()
	
	Local k:int
	Local pl:int
	Local seed:int
	SeedRnd(585)
	
	For k = 1 To 1'5
		seed = Rnd(1000000)
		Print solar.SystemName( seed )
		
		Local planets:int = Rnd(1, 7)
		For pl = 1 To planets
			seed = Rnd(1000000)
			planet.Generate( seed, solar.SystemName( seed ) )
			
			Print "planet "+planet.planetName'+"  seed "+planet.gs+"  "+planet.goatsoupseed1+" "+planet.goatsoupseed2+" "+planet.goatsoupseed3+" "+planet.goatsoupseed4
			Print "  Government "+governmentString[ planet.government ]
			Print "  Economy "+economyString[ planet.economy ]
			Print "  TechLevel "+planet.techLevel
			Print "  Population "+planet.population
			Print "  Inhabitants "+planet.inhabitants
			Print "  Productivity "+planet.productivity
		
			print planet.info
		Next
	Next
	
End

it gives some great answers...

AdamStrange

(Posted May) [#19]

the last part is the basis for trading.
wach planet will have a trading market with prices, etc. using this we should be able to build on top of it.

Mainsworthy

(Posted May) [#20]

Great stuff :) I just ran it, very cool to have it generate this

AdamStrange

(Posted May) [#21]

all this will be fed back into the system/planet drawing, so we finally have complete systems with economies. using all the info we can then further refine the looks, etc.
E.G.
asteroids will have very different things from planets
we can further narrow this down say moons are more likely to have mineral and mining...

But, working on basic markets to form the basis for trading.

one very interesting thing (from a monkey programming point) is how to define data with the const.

We can use this to form the basics for speech later on...

Mainsworthy

(Posted May) [#22]

glad you like it BP :) its Adams project, I'm just taking it all in

AdamStrange

(Posted May) [#23]

ok. Here's the list of items that can be bought and sold:
"Food", "Textiles", "Isotopes", "Androids", "Water",
"Slaves", "Alcohol", "Science Equipment", "Drive Parts",
"Narcotics", "Containers", "Tech Parts", "Machinery",
"Alloys", "Weapons", "Biological Equipment", "Minerals",
"Gold", "Platinum", "Gem-Stones", "Alien Tech"

in essence I have covered most things. So we can use this as a starting point.
E.G. biological + weapons would make a biological weapon, but you would need research i suppose?

You get the idea.

Now I have bas prices and a basic market system. just the display, not the actual buying/selling.

What we need now is a place to store all this.
My thoughts are this:

every unit (ship, planet, etc) has a hold and a list of the items in the hold.
So a planet would have a big hold (or maybe not). a ship would have a small hold.
maybe there would be different holds for different cargos.
So, if you were a smuggler there would be a normal hold and a secret one.

Now.
Lets assume that for any sized hold, you need a drive to transport it. the bigger/heavier the good, the bigger the drive, or the slower it would move.

and of course if you needed weapons, cloaking, etc that would also need more power.

So... How about a ship design part. You have off the shelf basic parts to build your ship. these can be upgraded, or a new ship design built, or modified.
That would make all the nasty stuff simple (like how big a hold is, what drive capability, etc.

we could use a grid, and you just drop the ship bits onto the grid. Looking into the future, this could also be done in 3d!
But what are people thoughts on this?

Mainsworthy

(Posted May) [#24]

The grid idea seems good, but Ive played these games before and you need to have things in the right part of the grid eg:forward lasers top, rear at the bottom. so when you do combat you can take damage in the right location,

xlsior

(Posted May) [#25]

in essence I have covered most things. So we can use this as a starting point.

you may want to consider 'agricultural equipment', 'electronics/luxury items', and perhaps something dangerous like 'toxic waste' or 'radioactive materials'

(In Elite, 'slaves' will turn into 'fertilizer' if you forgot to add life support to your cargo bays)

Mainsworthy

(Posted May) [#26]

:)

also to keep things simple, instead of cargo having different effects, you could use more of the grid for heavy cargo etc..

you could use total energy from the engines and use it for propultion, shieds,lasers, etc... so you split your power to suit whats going on.

also consider a banking system, so when your ships gets blasted you can buy a new one.

Mainsworthy

(Posted May) [#27]

also you want some cargo as passengers

Mainsworthy

(Posted May) [#28]

fuel could also take cargo space

Mainsworthy

(Posted May) [#29]

escape pod is cargo

Mainsworthy

(Posted May) [#30]

you want to be able to scavenge cargo, and mine for it.

AdamStrange

(Posted May) [#31]

we're getting ahead of things, but all brilliant suggestions. we need to start small and then work out from there ;)

I'm just doing some icons for the first go...

AdamStrange

(Posted May) [#32]

code time. This one is incredibly useful


Namespace myLetterboxApp

#import "gameui"

#Import "<std>"
#Import "<mojo>"

Using std..
Using mojo..


#Import "assets/ship32x32_font.png"



Const Size := New Vec2i( 950,620 )



Function Main()
	New AppInstance
	
	New MyWindow
	
	App.Run()
End


class ImageFont
	method New( imageFont:Image )
		ImageFont = imageFont
	End method
	
	method New( image:string )
		ImageFont = Image.Load( image )
	End method


	Property ImageFont:Image()
		Return _imageFont
	Setter( imageFont:Image )
		_imageFont = imageFont
		_charWidth = int(imageFont.Width) Shr 4
		_charHeight = int(imageFont.Height) Shr 4
	End

	method DrawChar( canvas:Canvas, x:int, y:int, width:int, height:int, char:int, charWidth:int = 1, charHeight:int = 1 )
		Local xx:int = _charWidth * char Mod 16
		Local yy:int = _charHeight * (char Shr 4)
		
		canvas.DrawRect( x, y, width, height, _imageFont, xx, yy, _charWidth*charWidth, _charHeight*charHeight )
	End method
	
private
	field _imageFont:Image
	
	field _charWidth:int
	field _charHeight:int
End Class


Class MyWindow Extends Window

	Method New()
		Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable )
	
		Layout = "fill"

		'initial rndseed
		SeedRnd( 742 )


		Page = new UXPageView( "The page wot I created" )
		Page.SetGrid( 24, 18 )
		Page.ShowGrid = True

		'load assets
		_imageFont = new ImageFont( "asset::ship32x32_font.png" )

	End


	Method OnRender( canvas:Canvas ) Override
		'set up a measure that will recalculate if the window is resized
		If _width <> Width or _height <> Height Then
			'The Page Must be laid out
			Page.OnRecalcLayout( 0, 0, Width, Height )
			
			_width = Width
			_height = Height
		End if

		canvas.Color = Color.Black
		canvas.DrawRect( 0, 0, Width, Height )

		'draw the page. currently this is just showing the page grid
		Page.OnRender( canvas )
		
		'need this for pixels and not smoothed.
		'by default images (when drawn) are smoothed. we need the image not smoothed
		'so we disable texture filtering
		canvas.TextureFilteringEnabled = False
		
		canvas.Color = Color.White
		_imageFont.DrawChar( canvas, 10, 10, 100, 100, 0 )
	End
	
	

	
	'this is needed to allow the Size to be correct. this is called automatically
	Method OnMeasure:Vec2i() Override
		Return Size
	End
	
private	
	'global window size to track when window has changed
	field _width:int = 0
	field _height:int = 0

	'set up the page to hold our controls
	field Page:UXPageView
	
	field _imageFont:ImageFont
	
End

you will need this graphic:

it's a 32x32 bitmap font. you can load it into my fontsprite editor to completely mess with it if you want.

But the code is the important bit. it sets up a basic page, but also has the base class for the font drawing.

Feed it the png file, turn OFF texture filtering in the OnRender and then draw your character. you can't rotate, but you can scale, or resize depending on the data you give the DrawChar method.

Let me know if there are any issues with this one... It's going to form the backbone of what comes next...

Mainsworthy

(Posted May) [#33]

Caught signal:Memory access violation

Just tried running it, but got above error, try putting all code together in one block and posting what you have got and I will have another go.

Mainsworthy

(Posted May) [#34]

its ok, just did the windows10 update that reset my save folder so assets was not there, just resaved correct path, and is running

AdamStrange

(Posted May) [#35]

no probs...
The code above allows you to deal with bitmap font sprites.

Next code will bring palettes into the mix and finally the map code will meld all three things together....

AdamStrange

(Posted May) [#36]

couple of pics

The first one shows a palette on the left, and on the right the new palette loader in place just showing that it works

Next up is the map loader:

This shows the palette, plus a grey diamond which comes from the font.
The bottom 'ships' come directly from the map, and consist of a background 'blueprint' outline of the ships. with a second layer showing the grid cells that are available to drop cargo slots, drive units, scanners, etc.

Using this we can create the ships in the map editor.
there is another thing that I hadn't considered, but... Because we have the outline separate, we could use the colour information to show damage or engine overheating....

and onto the slots...

Here we can see all the ship slots being filled.
From the top we have:
Scanner
Jumpdrive
laser, targeting, laser
cargo, cargo, cargo
cargo, cargo, cargo, cargo, cargo
stardrive, power, stardride, power, stardrive

each slot item can be upgraded, so there would be more power, etc. but that would cost.
I suppose you could start with a simple ship, or base blueprint and credit, or credit balance.
New blueprints could be found or bought etc

Mainsworthy

(Posted May) [#37]

https://numbergamer8.itch.io/rogue-three-privateer

I did a trade stocks on rogue3, not anything like yours Adam, I just was passing time.

YOUR STUFF ABOVE LOOKS REALLY GOOD NOW ADAM

AdamStrange

(Posted May) [#38]

here's the code for palette loading:

Namespace GameUI

#Import "<std>"
Using std..


class ColorPalette
	field COLOR_USED:bool[] = New bool[256]
	field VOXEL_PALETTE:uint[] = New uint[256]
	field VOXEL_PALETTE1:uint[] = New uint[256]

	field g_paletteCount:int = 255
	field g_paletteX:int = 16
	field g_paletteY:int = 16


	method New( filePath:string )
		LoadVPalette( filePath )
		ResetRGBColors()
	End method
	
	property GridX:int()
		Return g_paletteX
	Setter( gridX:int )
		g_paletteX = Clamp( gridX, 1, 32 )
	End

	property GridY:int()
		Return g_paletteY
	Setter( gridY:int )
		g_paletteY = Clamp( gridY, 1, 32 )
	End
	

	method SetGridXY( gridX:int,  gridY:int )
		g_paletteX = Clamp( gridX, 1, 32 )
		g_paletteY = Clamp( gridY, 1, 32 )
	End method
	method SetGridSize( gridX:int,  gridY:int )
		g_paletteX = Clamp( gridX, 1, 32 )
		g_paletteY = Clamp( gridY, 1, 32 )
	End method
	
	
	method SetRGBA( pos:int, col:Color )
		If pos < 0 or pos > 255 Then Return
		
		VOXEL_PALETTE[ pos ] = ($ff Shl 24) | ((int(col.b*255) & $ff) Shl 16) | ((int(col.g*255) & $ff) Shl 8) | (int(col.r*255) & $ff)
	End method
	
	method SetRGBA( pos:int, r:int, g:int, b:int, a:int )
		If pos < 0 or pos > 255 Then Return

		VOXEL_PALETTE[ pos ] = ((a & $ff) Shl 24) | ((r & $ff) Shl 16) | ((g & $ff) Shl 8) | (b & $ff)
'		Print pos +" "+VOXEL_PALETTE[ pos ]
'		Print pos+"  "+r+" "+g+" "+b
	End method
	
	
	method GetRGBA:Color( pos:uInt)
		pos = Clamp( int(pos), 0, 255 )

		local argb:UInt = VOXEL_PALETTE[ pos ]
		local a:int = (argb Shr 24) & $ff
		local b:int = (argb Shr 16) & $ff
		local g:int = (argb Shr 8) & $ff
		local r:int = argb & $ff
		
	'	Print pos+"  "+r+" "+g+" "+b+" "+a
		Return ColorI( r, g, b, a )
	End method
	
	method GetBGRA:Color( pos:uInt)
		pos = Clamp( int(pos), 0, 255 )

		local argb:UInt = VOXEL_PALETTE[ pos ]
		local a:int = (argb Shr 24) & $ff
		local r:int = (argb Shr 16) & $ff
		local g:int = (argb Shr 8) & $ff
		local b:int = argb & $ff
		
	'	Print pos+"  "+r+" "+g+" "+b+" "+a
		Return ColorI( r, g, b, a )
	End method
	
	method ResetRGBColors()
		Local k:int
		For k = 0 To 255
			VOXEL_PALETTE[ k ] = VOXEL_PALETTE1[ k ]
		Next
	End method
	
	method ClearRGBColors()
		Local k:int
		For k = 0 To 255
			VOXEL_PALETTE[ k ] = $ff222222
		Next
	End method
	
	
	method LoadVPalette:bool( path:string )
		Local file := Stream.Open( path, "r" )
		If Not file Then
			Print "Cant Load "+path
			Return False
		End If
		
		Local gridX:int
		Local gridY:int
		Local header:string = file.ReadCString()
		
		If header = "mx2palette" Then
			Local count:int = file.ReadUInt()
	'		Print count+" Colors"
			If count < 256 Then
				gridX = file.ReadUInt()
				If gridX < 33 Then
					gridY = file.ReadUInt()
					If gridY < 33 Then
						Local k:int
						Local red:int
						Local green:int
						Local blue:int
						Local alpha:int
						For k = 0 Until count
							red = file.ReadFloat() * 255
							green = file.ReadFloat() * 255
							blue = file.ReadFloat() * 255
							alpha = file.ReadFloat() * 255
							If k < 256 Then
								VOXEL_PALETTE1[ k ] = ((alpha & $ff) Shl 24) | ((blue & $ff) Shl 16) | ((green & $ff) Shl 8) | (red & $ff)
							End if
						Next

						g_paletteX = gridX
						g_paletteY = gridY
					End If
				End If
			End If
		End If
		
		file.Close()
		
		Return true
	End method
	
	method LoadPalette:bool( path:string )
		Local file := Stream.Open( path, "r" )
		If Not file Then Return false
		
		Local header:string = file.ReadCString()
		If header = "mx2palette" Then
			Local count:int = file.ReadUInt()
	'		Print count+" Colors"
			If count < 256 Then
				Local gridX:int = file.ReadUInt()
				If gridX < 33 Then
					Local gridY:int = file.ReadUInt()
					If gridY < 33 Then
						Local k:int
						Local red:float
						Local green:float
						Local blue:float
						Local alpha:float
						g_paletteCount = count
						g_paletteX = gridX
						g_paletteY = gridY
'		Print "load "+g_paletteX+" "+g_paletteY
						For k = 0 Until count
							red = file.ReadFloat() * 255
							green = file.ReadFloat() * 255
							blue = file.ReadFloat() * 255
							alpha = file.ReadFloat() * 255
							
							Print k+" "+red+" "+green+" "+blue
	'						Print k
							SetRGBA( k, blue, green, red, alpha )
						Next
					End If
				End If
			End If
		End If
	
		file.Close()
		
		Return true
	End method
	
	
	method SavePalette( path:string )
		Local file := Stream.Open( path, "w" )
		If Not file Then Return
		
		Print "save "+g_paletteX+" "+g_paletteY
		Local header:string = "mx2palette"
		file.WriteCString( header )
		file.WriteUInt( g_paletteX * g_paletteY )'g_paletteCount )
		file.WriteUInt( g_paletteX )
		file.WriteUInt( g_paletteY )
	
		Local k:int
		Local col:Color
		For k = 0 until g_paletteCount
			col = GetRGBA( k )
			file.WriteFloat( col.R )
			file.WriteFloat( col.G )
			file.WriteFloat( col.B )
			file.WriteFloat( col.A )
		Next
	
		file.Close()
	End method
	
	
	method GetNewColor:int( rgb:Color )
		Local k:int
		Local col:Color
		Local ret:int = -1
	
		For k = 0 To 255
			col = GetRGBA( k )
			If col = rgb Then ret = k
		Next
	
	'	Print "GetNewColor "+ret
		If ret > 0 Then Return ret
	
		ret = -1
		For k = 1 To 255
			If ret = -1 And not COLOR_USED[k] Then ret = k
		Next
		
	'	Print "GetNewColor new="+ret
		
		COLOR_USED[ret] = true
		SetRGBA( ret, rgb )
		
		Return ret
	End method
	
	
	method FindNearestColor:int( rgb:Color )
		Local rp:float = 0
		Local gp:float = 0
		Local bp:float = 0
		Local k:int
			
		Local cl:float
		Local percent:float = .3
		Local gotCol:int
		Local col:Color
			
		For k = 0 To 255
			col = GetRGBA( k )
				
			rp = Abs(rgb.r - col.r)
			gp = Abs(rgb.g - col.g)
			bp = Abs(rgb.b - col.b)
				
			cl = rp + gp + bp
	'		Print cl
			If cl < percent Then
				percent = cl
				gotCol = k
			End if
			
		Next
		
		Return gotCol
	End method
End

and the new map loading code with modified imagefont added

Namespace GameUI

#Import "<std>"
Using std..

'this is the class for rendering image fonts
class ImageFont
	method New( imageFont:Image )
		ImageFont = imageFont
	End method
	
	method New( image:string )
		ImageFont = Image.Load( image )
	End method


	Property ImageFont:Image()
		Return _imageFont
	Setter( imageFont:Image )
		_imageFont = imageFont
		_charWidth = int(imageFont.Width) Shr 4
		_charHeight = int(imageFont.Height) Shr 4
	End

	method DrawChar( canvas:Canvas, x:int, y:int, width:int, height:int, char:int, charWidth:int = 1, charHeight:int = 1 )
		Local xx:int = _charWidth * (char Mod 16)
		Local yy:int = _charHeight * (char Shr 4)
		
		canvas.DrawRect( x, y, width, height, _imageFont, xx, yy, _charWidth*charWidth, _charHeight*charHeight )
	End method
	
private
	field _imageFont:Image
	
	field _charWidth:int
	field _charHeight:int
End Class



class FontMap
	field _tileMap:short[, , ]
	field _colorMap:short[, , ]
	field _map:short[, ]
	field _pallete:ColorPalette
	field _mapLayer:int = 0

	method New( arcadeFont:ImageFont, pallete:ColorPalette )
		_arcadeFont = arcadeFont
		_pallete = pallete
	End

	
	Property Palette:ColorPalette()
		Return _pallete
	Setter( palette:ColorPalette )
		_pallete = palette
	End


	method Copy( fromMap:int, toMap:int )
		Local x:int
		Local y:int
		
		For x = 0 To 127'_mapWidth[ toMap ]
			For y = 0 To 127'_mapHeight[ toMap ]
				_tileMap[ toMap, x, y ] = _tileMap[ fromMap, x, y ]
				_colorMap[ toMap, x, y ] = _colorMap[ fromMap, x, y ]
			Next
		next
	End method


	method Load( filePath:string )
		Print "loading..."
		If Not filePath Return
		if ExtractExt( filePath ).ToLower() <> ".mx2map" Then Return

		Local fStream:Stream = Stream.Open( filePath, "r" )
		If not fStream Then
			Print "XX "+filePath + " not opened"
			Return
		End If
		
		local id:int = fStream.ReadInt()
		If id <> -9999 Then
			Print filePath + " ID error"
			fStream.Close()
			Return
		End If

		local layers:int = fStream.ReadInt()
		Print "layers to load "+layers

		_tileMap = New short[layers, 128, 128]
		_colorMap = New short[layers, 128, 128]
		_map = New short[128, 128]
		
		
		Local k:int
		For k = _mapLayer To _mapLayer+layers-1
			If k < 32 Then
				LoadLayer( fStream, k )
			End If
		Next
				
		fStream.Close()
		
		_mapLayer = layers-1
	End method

	method SetRenderRes( width:int,  height:int )
		_divx = int(float(width) / _mapWidth[ 0 ])
		_divy = int(float(height) / _mapHeight[ 0 ])
	End method

	method SetRenderResFromLayer( layer:int, width:int,  height:int )
		_divx = int(float(width) / _mapWidth[ layer ])
		_divy = int(float(height) / _mapHeight[ layer ])
	End method


	method Render( canvas:Canvas, layer:int, xs:float, ys:float,  colOffset:int = 0 )
		Local x:int
		Local y:int
		Local xp:float
		Local yp:float = ys
		Local xx:int
		Local yy:int = 0
		For y = 0 until _mapHeight[ layer ]
			xp = xs
			For x = 0 Until _mapWidth[ layer ]
				If x < 128 And y < 128 Then
					If _colorMap[layer, x, y] > 0 Then
						canvas.Color = _pallete.GetRGBA( _colorMap[layer, x, y]+colOffset )
						_arcadeFont.DrawChar( canvas, xp, yp, _divx, _divy, _tileMap[layer, x, y] )
					End If
				End If
				xp += _divx
			Next
			yp += _divy
		next
	End method


	method RenderAtXY( canvas:Canvas, layer:int, xn:int, yn:int,  colOffset:int = 0 )
		Local x:int
		Local y:int
		Local xp:float
		Local yp:float = yn * _divy
		Local xx:int
		Local yy:int = 0
		For y = 0 until _mapHeight[ layer ]
			xp = xn * _divx
			For x = 0 Until _mapWidth[ layer ]
				If x < 128 And y < 128 Then
					If _colorMap[layer, x, y] > 0 Then
						canvas.Color = _pallete.GetRGBA( _colorMap[layer, x, y]+colOffset )
						_arcadeFont.DrawChar( canvas, xp, yp, _divx, _divy, _tileMap[layer, x, y] )
					End If
				End If
				xp += _divx
			Next
			yp += _divy
		next
	End method
	
protected

	method LoadLayer( Stream:Stream, layer:int )
		_loadX = Stream.ReadInt()
		_loadY = Stream.ReadInt()
		
		Print "layer "+layer+" size is "+(_loadX+1)+" "+(_loadY+1)

		Local rt:short
		Local cl:short
		
		Local x:int
		Local y:int
		For x = 0 To _loadX
			For y = 0 To _loadY
				cl = Stream.ReadShort()
				rt = Stream.ReadShort()
				If x < 128 And y < 128 Then
					_tileMap[ layer, x, y] = Clamp(int(cl), 0, 255)
					_colorMap[ layer, x, y] = Clamp(int(rt), 0, 255)
				End if
			Next
		Next
		
		_mapWidth[ layer ] = _loadX + 1
		_mapHeight[ layer ] = _loadY + 1
	End method

private	
	field _arcadeFont:ImageFont
	
	field _divx:float
	field _divy:float
	field _renderWidth:int
	field _renderHeight:int

	field _mapWidth:int[] = new int[32]
	field _mapHeight:int[] = new int[32]

	field _loadX:int
	field _loadY:int
End

Mainsworthy

(Posted May) [#39]

can you put all the code in one code block? I got an identifier missing, but I'm guessing your showing the code for review, but Id still like a full codebox, I keep rebuilding, and Ive got lots of apps Ive been playing with, I renamed them stupid things, and losing track, so a codeblock would be nice.

AdamStrange

(Posted May) [#40]

what I will do is strip all the code and zip it and put it up for downloading ;)

Mainsworthy

(Posted May) [#41]

It looks great Adam, your doing elite justice, I cant wait to play it :)

therevills

(Posted May) [#42]

what I will do is strip all the code and zip it and put it up for downloading ;)

What about uploading it somewhere like GitHub?

AdamStrange

(Posted May) [#43]

yep - good idea. i'll look into that one.

ok, here's something very interesting.

this is a shot (from the map editor) of another layer (0 is the outline, 1 is the available slots)
as you can previously see, there are many ships packed into a single layer, so we need a way to decide each ships start and end, and a name would be good.
so....
using another layer each line becomes data!
and the format of each line is x,y,w,h,name(12 chars)
so...
we can now use the map to store data as well as other suff if we want...

AdamStrange

(Posted May) [#44]

ok. taking all the above I've now added an image of a pilot (just a panel), some text and a quick control showing the current ship and got this:

I think on the right should be the list of ship components to drag and drop

AdamStrange

(Posted May) [#45]

and another shot of the UI before mouse interaction has been added to the controls

the basic ui colour will be 'Pine' and 'Aqua' with Sky being the default button and UI acknowledgement.

I can describe what has been done, if wanted?

apart from the font, and four images (the pilot, and three buttons) there is nothing added apart from a few custom controls

You can see that the pilot is faded so the background shows through
There is a fade panel and slide panel being used for the UI at the bottom.

I should add that this is completely size aware. if you rescale, the UI will do the same...

Mainsworthy

(Posted May) [#46]

Adam, ooh its getting good, just carry on doing more,

Mainsworthy

(Posted May) [#47]

https://numbergamer8.itch.io/rogue-three-privateer

I did a trade stocks on rogue3, added a ship dealer & updated graphics,

Its nothing like Adams , but its in the same type of game. Adams is a lesson on to to do it right .

AdamStrange

(Posted May) [#48]

your's is a playable game, all my stuff is bits and pieces that need connecting...

the code shows how to do it all with simple concepts (hopefully)

Here's the latest. I got slightly bored and added a shader to the background:

I've also tweeted the text colours and selections. Cloak Generator is currently selected, the mouse is over the scanner. so you always get feedback.

The odd thing going on i the background (faded green blocks) is the shader. It is basically being a faux computer, and printing random alien computer text. it does nothing, but just makes it look a bit pretty, and is constantly updating

Mainsworthy

(Posted May) [#49]

now the faux computer is a genius addition, that's super super cool

Mainsworthy

(Posted May) [#50]

https://numbergamer8.itch.io/rogue-three-privateer

Ive added ship upgrades aswell as ship sales, missile bays & cargo bays can be increased, you can buy better ships with better engines, you can buy missiles one at a time, you can fire in 4 directions or just 1,2, or 3 directions, hull strength can be increased with bigger ship purchases

I don't want to distract you Adam, maybe we can get ideas from the two apps, and improve both . its a similar app so may fit in the thread, just thought you would like to see what I'm doing with my time, but Adam your App is far far more than mine

AdamStrange

(Posted May) [#51]

Quick peek at the source - indenting - there i've said it again.

suggest:
removing white outline from stars
red selection around mission track leak over the right, give missions a bit more room

Mainsworthy

(Posted May) [#52]

I just ported the code, its far from perfect for a class structure, I suppose I should copy all the globals to property. I did not follow indenting or anything, I'm supprised a blitzmax game is running in monkey2.

interesting idea to remove white box, but I like the box, but I will give it a look and try.

I don't know why I'm making it better, It seems like fun, I don't want to distract your App as yours is miles more than mine, mine is a bit of fun.

AdamStrange

(Posted May) [#53]

Yep, did you do much to get the blitz code working in monkey2?

I'm just working on the placing of the units into the ship. I've decided to implement a bit more strategy:
Anything that needs a powerplant (stardrive, jump drive, scanner, targeting,laser auto shield cloak generator) will need to be near a poerplant
...
so a power plant can feed power to 4 items max

this means some logic to display flashing power generators next to things that need them.

Not very nice, but we only need this logic in the actual ui stuff. Once it's been set it can be ignored.

Although... if looking to the future. Lets assume there is going to be some form of combat and damage. if a power plant goes offline, then any things near it would also go offline.
E.G. lasers and engines would stop if they were connected. which would mean you become a sitting duck... QUACK!

AdamStrange

(Posted May) [#54]

heres a quick shot of the main ui finally in operation:

so you can see there are 3 powerplants. the stardride on the right has a flashing powerplant to the left and the scanner above is greyed out. this shows that a power plant is needed to activate the scanner.

It also means that each stardrive has 2 powerplants, so if (for whatever reason) one is down, the drive will still keep functioning.

This gives an interesting dynamic, in that the DeltaFang is a ship design, how you populate the interior of the ship is up to you. you might want lots of drives, or lots of cargo space, or a jump drive. it would depend on what you want to do...

Thinking about future stuff - there is no restriction on what goes where apart from power being next to things that require it. If we moved into 3d and the engines were at the front, then there could be some for of logic that would resolve this. say the engines could be on the top or the bottom or the basic shape?

So... that would mean that things like cargo, engines, lasers, targeting, etc would alter the basic profile of the ship. and further you could then have a livery for the ship as well...

Mainsworthy

(Posted May) [#55]

My App now has a banking system for loans and interest payments,you get better deals if you pay early , and save and load functions. the monkey2 coversion was easy but would not like to do it again, but I learned things like Rnd(1,6) is not the same as Max Rand(1,6) .

Adam your App is like game candy, I want it so bad , I think you should put a propery with the interior item 1,2,3,or 4. for front back left and right, I know from experience even in 2D you get hit from different sides, you don't have to do anything with it, just have the number there with the item, when in combat you have to know if your fireing front or if your left shield is being hit, trust me on this, Ive seen great games be binned for this reason.

AdamStrange

(Posted May) [#56]

interesting thought about the left/right/up/down.

But... when the ship rotates you would have to take that into account.

So, I thought about it with targeting. The lasers point forward, Unless you have targeting added, then you have turrets/lasers that will target.

Shields are per ship, so you only need one - possibly expensive? maybe it covers a certain range of squares? so shield of 1 has less coverage that shield of 5. or made that is hit count? not really thought about that one.

in essence I'm thinking of a ship as a single point with rotation. from the rotation and targeting you can determine all the rest. I'm trying to simplify thing a bit and hopefully do all the nasty stuff without the user knowing <eeek!>

Mainsworthy

(Posted May) [#57]

shields , shielding items nearby is good enough to fly, it could even work out much better, that is a great idea

AdamStrange

(Posted May) [#58]

mmm, ok, working on universe system now. What I want is to be able to zoom in and out.

we've already got the system positions and planets. so it is a reworking of the code.

What I have done so far is write a shader for the stars. this can be fed with x,y positions so they can move when the mouse moves.

The universe itself has now got a the individual systems picked out in their colours. This both adds to the universe effect, but means once I've sorted out the zooming, the proper colours will be applied.

I'm using additive blendmode to give a more stelar appearance:

as you can see it's now very colourful...

You can also notice that the centerof the universe is much brighter with a more packed set of systems to explore

Mainsworthy

(Posted May) [#59]

I can see what its doing, and you can do things I never even thought of or tried in any programing,

AdamStrange

(Posted May) [#60]

nah, stick with me and I'll show you the stars...

In my opinion there are some serious things missing from Monkey2 in the graphics department. just a few, most people won't miss or use, but they are incredible useful.
E.G. being able to feed a shader information and being able to draw an image quad in any position with different corners.

That's the reason I cont post you the code - it won't compile without a few additions. :/

ok. I tweeted and tweeted until I got it looking the sort of way I think it should. I had to increase the systems from 256 to 512, so there is a lot to explore.
I've also taken the auto system naming and integrated it

Taking all of that with the zooming and star field shaders gives us this:

This is a zoomed version of the above map, showing all systems with names.
The hex is the flat position on the map with no height. The line going from this, goes to the actual system location - if you look really hard you can see blurred systems at these locations.

Some of the systems have colours. These are the 7 prime systems and galactic centre.

To the bottom right the Nannar system has the mouse over it and is pulsing.

I need to add the ability to show the different factions now...

Derron

(Posted May) [#61]

Derron

(Posted May) [#62]

>ok. I tweeted and tweeted until I got it looking the sort of way I think it should

tweaked ? ;-p

@ Powerplant
You might think of different levels - increasing amount of powerable slots (with the danger fo running one single high level powerplant without "backup" ...).

Cargo holds should need power plant connection once you store living cargo (slaves, animals, passengers).

Another interesting aspect might be "water" for certain life forms... aquarium/fish tank - maybe for really rare and illegal "sex slaves" or so (they are so ... wet ... and fishy) - or for some more serious goods :-)

@ zoomed map
It is a bit "too much" ... it is exposing too much. Maybe remove planet names if your mouse / selection is far away. So the further away something is, the less visible it gets.
As you need them all for "target" selection you might have a "min visibility alpha value" ?.

bye
Ron

AdamStrange

(Posted May) [#63]

Mouse near name appears that is a brilliant suggestion Derron.

The shown map was just really showing all the systems, so you get a flavour of what I am doing. In practice there wouldn't be that many visible at once.

Mainsworthy

(Posted May) [#64]

Ive added to Rogue 3 a big Black Market trade computer for smuggling and Police checks. I hope I'm giving you ideas on your app Adam , its my way of contributing.

yes mouse near names is a good idea, you could display distance from you too

Mainsworthy

(Posted May) [#65]

Ive ported the Monkey2 code back to blitzmax, so now got both upto date versions included, 64bit & 32bit, and MacOSX 32bit

Mainsworthy

(Posted May) [#66]

do you know why your game is far better than mine, apart from it having some nice features, its because your doing it the right way, and it can be used as an example of how to do it, mine is a plate of spaghetti , it works and I like it , but the source code is spaghetti :) I need to go back over your code snippets again and learn some more .

AdamStrange

(Posted May) [#67]

Here's something for you to look at

What I've done is move the drawing code from the OnRender into a custom control that can be simply referenced through the page system.

Here's is the code. IT WONT compile or run as it has a few additions to make monkey do some nice things. But...
Have a look at the code, especially the New()
In essence it is a completely stand alone display of the system, with full mouse interaction - take a look at the minimal mouse commands.

Then take a look at the actual drawing with close inspection of the _alpha
It's all commented for you.

class UXMapView Extends UXControl
	'any return lambdas
	field SystemClicked:void()
	
	'shaders - don't worry about these
	field _shaderStarField:Shader

	'this is additional stuff to monkey2 to allow us to set uniform vars inside shaders
	Field shaderUniform:UserUniform
	Function UniformCallback( useruniform:UserUniform, uniforms:UniformBlock )
		uniforms.SetScalar( "mx2_Time", Millisecs()*0.001 )
	End

	'we are going to pass the galaxy into this control
	'although the galaxy is outside,  once it is passed like this we have full access to it
	'BEWARE - You can modify the contents as well...
	method New( galaxy:Galaxy )
		'load the shader and attatch it to image
		shaderUniform = AddUserUniform( New String[]("mx2_Red"), 0, UniformCallback )

'		shader = New Shader("Blur", LoadString("asset::blur.glsl"))
		_shaderStarField = New Shader("StarField", LoadString("asset::starfield.glsl"))

		'load the planet images
		_starFieldImage = Image.Load( "asset::smallstar.png", _shaderStarField )

		'load the galaxy image
		_galaxyImage = Image.Load( "asset::galaxy2.png" )
		_galaxyImage.Handle = MidPoint

		'these are the hex images
		_hexImage2 = Image.Load( "asset::hex2.png" )
		_hexImage2.Handle = MidPoint
		_hexImage3 = Image.Load( "asset::hex3.png" )
		_hexImage3.Handle = MidPoint
		
		'and an image for the systems themselves - this is just a blurred orb
		_systemImage = Image.Load( "asset::smallstar.png" )
		_systemImage.Handle = MidPoint

		'do any setup the panel might need
		Initialize()
		
		'link our _galaxy to the one form outside
		_galaxy = galaxy
	End method


	Property Selected:int()
		Return _systemOver
	End


	method RenderForeground( canvas:Canvas, alpha:float ) Override
		'just make sure we have a galaxy defined
		If Not _galaxy Then Return
		
		'just so everyone knows about the _alpha
		'canvas.Alpha = _alpha <-- this is the alpha that is inherited from the calling page
		'so to set an alpha use canvas.Alpha = _alpha * myAlpha
		'that way the page drawing will be correct
		
		Local mx:float = _width*0.5
		Local my:float = _height*0.5

		Local scale:float = _width * 0.4 * _scale
		local scale2:float = scale * 0.5
		local scale3:float = scale * 2
		
		'now draw the available solar systems
		Local k:int
		Local x:float
		Local y:float
		Local xScale:float = scale / 256
		Local yScale:float = scale2 / 256
		Local z:float
		Local zScale:float = scale2 / 64
		Local sc:float

		'this first bit just tests we are properly drawing
'		canvas.Color = Color.Red
'		canvas.DrawRect( 0, 0, _width, _height )

		'this is the shader starfield
		canvas.Color = New Color( _mapRotate * 0.2, _scale*0.1, 0 )
		canvas.DrawRect( 0, 0, _width, _height, _starFieldImage )

		local solarSystem:SolarSystem
		'we need to change the blendmode from the default alpha to additive for the noce star effects
		canvas.BlendMode = BlendMode.Additive

		Local scaled1:float = scale * 0.001
		Local scaled5:float = scale * 0.002
		Local scaled:float = scale * 0.004
		Local scaled2:float = scale * 0.008
		'this is the current system that the mouse is over
		_systemOver = -1
		Local faction:int = 4

		'update the screen positions if needed to
		'is the rotation or scale changes then we recalc all the system screen positions
		'most of the time we wont be doing this, so we can remove the recalculation
		'BUT... doing it first means we can also draw lines from one system to another
		'as each system has already got the correct screen positon
		If _getNewPositions Then
			_getNewPositions = False
			For k = 0 To _galaxy.SolarCount
				solarSystem = _galaxy.GetSolarSystem( k )

				solarSystem.ScreenX = mx + (Cos(-_mapRotate + solarSystem.Rotation) * scaled  * solarSystem.Distance)
				solarSystem.ScreenY = my + (Sin(-_mapRotate + solarSystem.Rotation) * scaled5 * solarSystem.Distance)
				solarSystem.ScreenZ = (solarSystem.Z * zScale) * 0.4
				solarSystem.ScreenYZ = solarSystem.ScreenY - solarSystem.ScreenZ
			next
		End If
		
		
		Local l:int
		For k = 0 To _galaxy.SolarCount
			solarSystem = _galaxy.GetSolarSystem( k )

'			if solarSystem.GetFactionDistance( faction ) < _galaxy.GetFactionInfluence( faction ) then
'			If solarSystem.Known Then
			If solarSystem.StarGate Then
			
				'draw the alpha colored system
				canvas.Alpha = _alpha * 0.15
				canvas.Color = solarSystem.SystemColor
				canvas.DrawImage( _systemImage, solarSystem.ScreenX, solarSystem.ScreenYZ,  0, scaled2, scaled )
				canvas.DrawImage( _systemImage, solarSystem.ScreenX, solarSystem.ScreenYZ,  0, scaled5, scaled1 )
				
				'draw the hex system on the base
				canvas.Alpha = _alpha * 0.5
				canvas.Color = solarSystem.FactionColor
				
				canvas.DrawImage( _hexImage3, solarSystem.ScreenX, solarSystem.ScreenY,  0, 0.5, 0.25 )

				local xd:float = (solarSystem.ScreenX-_mouseX)
				local yd:float = (solarSystem.ScreenY-_mouseY)
				
				Local dist:float = 1.0-(Sqrt(xd*xd + yd*yd) * 0.01)
				If k < 8 Then dist = 1
				If dist > 0 Then
					canvas.Alpha = _alpha * dist
					canvas.DrawText( solarSystem.Name, solarSystem.ScreenX+5, solarSystem.ScreenYZ-5 )
					canvas.DrawText( solarSystem.Name, solarSystem.ScreenX+4, solarSystem.ScreenYZ-5 )
				End if

				'draw the line from the hex to the actual location of the system
				canvas.Alpha = _alpha * 0.85
				canvas.DrawEllipse( solarSystem.ScreenX, solarSystem.ScreenY,  6, 3 )
				canvas.DrawLine( solarSystem.ScreenX, solarSystem.ScreenY,  solarSystem.ScreenX, solarSystem.ScreenYZ )
				
				
				'check if mouse is over hex system
				If _mouseX > solarSystem.ScreenX-16 and _mouseX < solarSystem.ScreenX + 50 Then
					
					If _systemOver = -1 And ((_mouseX < solarSystem.ScreenX+16 And _mouseY > solarSystem.ScreenY-8 And _mouseY < solarSystem.ScreenY+8) or (_mouseY > solarSystem.ScreenYZ-8 And _mouseY < solarSystem.ScreenYZ+8)) Then
						_systemOver = k
						'and draw the flashing select
						canvas.DrawCircle( solarSystem.ScreenX, solarSystem.ScreenYZ,  3 )
		
						canvas.Color = solarSystem.FactionColor
						sc = 10 + Sin(_gameTime*0.01)*3
						DrawCircle( canvas, solarSystem.ScreenX, solarSystem.ScreenYZ,  sc, sc )

						'show stargates
						if k > 0 Then
							canvas.Color = Color.Steel
							For l = 0 To solarSystem.StarGateDestinations
								dist = solarSystem.GetDestination(l)
								canvas.DrawLine( solarSystem.ScreenX, solarSystem.ScreenYZ, _galaxy.GetSolarSystem( dist ).ScreenX, _galaxy.GetSolarSystem( dist ).ScreenYZ )
								canvas.DrawText( _galaxy.GetSolarSystem( dist ).Name, _galaxy.GetSolarSystem( dist ).ScreenX+5, _galaxy.GetSolarSystem( dist ).ScreenYZ-5 )
							Next
							canvas.Color = solarSystem.FactionColor
						End If

					End If
				End If

			End If
		Next
		

		'do the base rotation for the x/y lines
		local scaler:float = scale * 1.45
		local x1:float = Cos(_mapRotate) * scaler
		local y1:float = Sin(_mapRotate) * scaler * 0.5
		Local x0:float = Cos(_mapRotate2) * scaler
		Local y0:float = Sin(_mapRotate2) * scaler * 0.5

		canvas.Color = Color.White
		canvas.Alpha = _alpha * 0.1

		'draw the x/y lines
		canvas.DrawLine( mx + x0, my - y0, mx - x0, my + y0 )
		canvas.DrawLine( mx + x1, my - y1, mx - x1, my + y1 )

		'draw the vertical line
		canvas.DrawLine( mx, my-(_scale*300), mx, my+(_scale*300) )

		'draw the map with a custom command
		canvas.Alpha = _alpha * 0.4
		canvas.DrawQuadImage( mx + x0, my - y0, mx + x1, my - y1, mx - x0, my + y0, mx - x1, my + y1, _galaxyImage )

		canvas.BlendMode = BlendMode.Alpha

		'draw exterior oval limits
		canvas.LineWidth = 3
		canvas.Alpha = _alpha * 0.6
		canvas.Color = Color.DarkGrey
		DrawCircle( canvas, mx, my, scale+10, scale2+10 )

		canvas.Alpha = _alpha * 0.3
		canvas.LineWidth = 30
		DrawCircle( canvas, mx, my, scale+10, scale2+10 )
		canvas.LineWidth = 1
	End method

protected
	method OnMouseWheel( wheel:int ) override
		'macs use inverted scroll wheels, so lets make it mac friendly
#If __TARGET__="macos"
		_scale = Clamp( _scale - wheel * 0.01, 0.5, 10.0 )
#else
		_scale = Clamp( _scale + wheel * 0.01, 0.5, 10.0 )
#end				
		_getNewPositions = true
	End method


	method OnMouseDown( event:MouseEvent, mouseX:int, mouseY:int ) Override
		_newX = mouseX
		_newY = mouseY
		_mapRotateDown = _mapRotate
	End method

	method OnMouseMove( mouseX:int, mouseY:int ) Override
		_mouseX = mouseX
		_mouseY = mouseY
		
		If not _mouseDown Then Return
		
		_mX = mouseX - _newX
		_mY = mouseY - _newY
		Local rot:float = (_mX * 0.05) Mod 360
		If rot < 0 Then rot = 360 + rot
		_mapRotate = _mapRotateDown + GameUI.DegreesToRadian( rot )
		_mapRotate2 = _mapRotateDown + GameUI.DegreesToRadian( rot+90 )
		_getNewPositions = true
	End method

private
	method Initialize() Override
		Active = True
		Border = 0
		Text = "mapview"
	End method

	field _galaxy:Galaxy
	
	field _starFieldImage:Image
	Field _galaxyImage:Image ' this is the galaxy map png
	field _hexImage2:Image
	field _hexImage3:Image
	'and an image for the systems themselves - this is just a blurred orb
	field _systemImage:Image

	'when we want the current system,  we use Selected,  but it reference this
	field _systemOver:int = -1

	'map location vars
	Field _mY:Int = 0
	Field _mX:Int = 0

	'when the mouse is down we store the position
	field _newX:int
	field _newY:int
	
	'the actual mouse locations - set when the mouse moves
	field _mouseX:int
	field _mouseY:int

	'the scale being used to view the map
	field _scale:float = 1
	
	'when the mouse is moved,  we recalc the rotation values
	field _mapRotate:float = GameUI.DegreesToRadian(45)
	field _mapRotate2:float = GameUI.DegreesToRadian(135)
	field _mapRotateDown:float
	
	'do we need to recalc the onscreen positions. Cuts down on cpu work
	field _getNewPositions:bool = true
End Class

There is some very strong programming stuff going on inside to force it into a black box.

Oh and have you guessed what it is yet?
It's a stargate system!
Each system has the potential to have a stargate.
Each gate links to up to 7 other gates, and you can use them to travel around.

the image is the entire universe showing just the gates, and current gate and it's destinations

AdamStrange

(Posted May) [#68]

this is a bit more cool...

again you see the stargazes, but this time there is some additional UI stuff

What's cool about it?
Well, the UI (green) part has been taken from the ship configuration page, and a page made from those parts.

Because it is now a page, we can show both pages, and voila we get a separate UI that can be used for other parts of the game at any time we need it.
This also means we can code all the UI parts as we need them and they can 'just' slot in.

There is a couple of other cool things that can happen because of this, but I'm not telling just yet...

Mainsworthy

(Posted May) [#69]

I'm a bit tired right now, so I will get into it tomorrow( don't think I don't want to read it), thanks for posting the stuff,

the stargate may be buried under the desert on some worlds , you may need a worm hole :)

Its very good programing the way you can scale, add buttons, I tend to do buttons as I need them - bad programing ,

AdamStrange

(Posted May) [#70]

Missions...... ooooh

ok. I'm not going to talk about what. E.G. pickup passenger, collect cargo, etc. but the structure.

WHAT? I hear you cry.
OK, lets assume a mission can be classed from easy (0) to hard(4) <- we can decide what the missions are later.

lets say that missions can be completed in any order
BUT
missions are grouped into 4, so... You need to compete all four missions in a group before the next set of 4 can be attempted.

So far, so simple
that means we car draw them on a graph sort of like this:

But (visually) this is not that appealing. how about some branches?

this is still the same, but we have some branches. we could further say, that you can't do the branch mission till you've completed it's root.

This gives us a much more interesting set of choices? thoughts?

Note we haven't got any mission details, just a progression tree
How could we code it?

the mission level is easy int level=Rnd(5)
we could also decide if a mission was branched or not

we could random that too - lets assume we have a mission string "20312413" of mission levels, we could add a - if the mission was connected or a < if it was a branch
E.G.
2-0-3-1-2-4-1-3-
would be

and
2<0-3-1-2-4<1-3-
would be

so... Here's the code ass wrapped up in a class

class MissionInfo
	method New()
	End method
	
	method Generate( seed:int )
		SeedRnd( seed )
		
		Local missionLength:int
		missionLength = Rnd( 2, 5 )
		
		Print "length:"+missionLength
		
		Local txt:string = ""
		Local prev:string = "-"
		
		Local missionLevel:int
		Local k:int
		For k = 0 until missionLength * 4
			missionLevel = Rnd(5)
			txt += missionLevel
			

'			If k mod 4 < 3 and Rnd(100) < 40 Then
			If k mod 4 < 3 and prev <> "<" and Rnd(100) < 40 Then
				prev = "<"
			Else
				prev = "-"
			End If
			txt += prev
		Next
		
		Print txt
	End method
		
End Class

it's got a few tiny extras line total length and a few checks added, but still really simple?

Mainsworthy

(Posted May) [#71]

Maybe, you could have a mission completed if you complete 3 of the 4, so you could choose which one you don't want to do.

and maybe you may have to repeat a mission if you fail one of the other 4.

also an automatic win if you complete the hardest.

I'm just bouncing off ideas around the 4 mission choices.

Derron

(Posted May) [#72]

Yes "alternatives" should be an option.

so the drawing would be like this


   2a
1<  >3-4-5...
   2b

And no, a stringified version will get sooner or later way more complex. Trust me - especially when you want to introduce "probabilities" of sub-missions (do they happen to be done or not). You will use brackets then.

In my game I use similar thing for "news chains" and each news gets multiple variants of triggers - trigger a single follow up news, or choose out of a group of news each with their own probability. The follow up news then trigger their own follow ups - and finally they might trigger all the same end news. Of course this means you cannot "reuse" a child mission with a different config then. Hmm. So also not a super-solution (but it fitted into what I needed for my game ;-)). Maybe it helps finding the perfect solution for _this_ game.

bye
Ron

AdamStrange

(Posted May) [#73]

yep, agreed about the 'stringified' stuff. It was a good was to show how it operates - the visuals are very clear, but to code was not so simple.

there is another issues which is present: the systems itself. the make up will have a direct influence on the type of missions and therefore the construction of the mission tree. ;/

But I thought this was a good way to introduce things.
I think next would be to move from strings into something that can be better parsed with more data available

Derron

(Posted May) [#74]

You could of course still serialize things.

a) give each mission a unique ID (or just "number them")
b) use a delimiter for mission configuration: "|"
c) use a delimiter for "mission data definition" and "mission chains": "||"
d) use ";" as delimiter for configuration entries
e) use brackets "()" to enclose groups

(of course you could use the same delimiter for everything - and then check if opened-tags equals to closed tags)

Result would be something like this:
mission1(difficultyMin,0.7,difficultyMax,1.2)|mission2a()|mission2b()|mission3 ...
||mission1(followup(mission2a,nonoptional+showintro),followup(mission2b))|mission2a(followup(mission3))||mission2b(followup(mission3)) ...

But of course nowerdays there is no need to have such complex strings, you would then just use some XML or so. I think you already knew this and just wanted some simple string like "133445645654" telling what missions will come in which order. If so, sorry for adding some fuss to your thread :-)

bye
Ron

Mainsworthy

(Posted May) [#75]

we like fuss, cant wait for a playable candy version,

Mainsworthy

(Posted May) [#76]

I did a bit of Adam type graphics update :), I would never of done this without Adams Input, I do know the grill isn't aligned with the engine power etc.. but its better than before

Mainsworthy

(Posted May) [#77]

all programing finished so I finished the graphics, I'm just posting to show how I'm improving with gfx, and to keep this thread active, I'm looking forward to your next post Adam.

AdamStrange

(Posted May) [#78]

had the weekend off, so nothing quite new at the moment, but have been going over old elite stuff to see how it operated...

AdamStrange

(Posted May) [#79]

mmm. looking at elite and how it operates. the 3d is a big part of things.
so... Using the low poly editor I did a quick test with the deltafang:

and the 3d version with a quick planet

What I did was to take the deltafang shape and add the cell positions. these need to be half height (so that also gives a defined size and cargo allocation).
I then tweaked the design keeping the interior space true. Added some base engines and details and some base colors.

This is just a pure flat shaded lowly model. but does seem to have a sort power to the way it looks?

Although there is a ver sophisticated 3d module being developed for monkey2, I could port this low poly 3d one over very quickly...

Mainsworthy

(Posted May) [#80]

It was procedural random universe I think, the music was mesmerising when you travelled in space. and you could choose a carer path army pirate etc... I played elite frontier 2, not the bbc micro version, but the bbc micro version ported to PC is free if you join elite dangerous web site(you don't have to buy anything) I thought frontier 2 was lots better, Id play the bbc version, except I like turn-based

Mainsworthy

(Posted May) [#81]

that low poly looks perfect for elite nostalgia, really looks like elite

AdamStrange

(Posted May) [#82]

I've never played any space sim game apart from "no mans sky"
Here's something interesting. I lived with one of the guys who wrote the original Spectrum version of Elite...

AdamStrange

(Posted May) [#83]

got the initial stuff worked out:
a vertex buffer with points,colors, normals
and an entity buffer that sets out the object vertexes

Here's the code:

#Import "<mojo>"
 
Using std..
Using mojo..
Using gles20..

#import "matrix"

 
Function glLoadProgram:GLuint(vertexSource:String, fragmentSource:String)
	Local vs := mojo.graphics.glutil.glCompile(GL_VERTEX_SHADER, vertexSource)
	Local fs := mojo.graphics.glutil. glCompile(GL_FRAGMENT_SHADER, fragmentSource)
	Local program := glCreateProgram()
	glAttachShader(program, vs)
	glAttachShader(program, fs)
	mojo.graphics.glutil.glLink(program)
	glDeleteShader(vs)
	glDeleteShader(fs)
	Return program
End
 
Function LoadSimpleShader:GLuint()
	Local vertex:String = "
	uniform mat4 Matrix;
	attribute vec3 Position;
	attribute vec3 Color;
	attribute vec3 Normal;
	varying vec3 OutColor;
	void main() {
//		gl_Position = vec4(Position, 1);
		gl_Position = Matrix * vec4(Position, 1);
		OutColor = Color;
	}
"
 
	Local fragment:String = "
	varying vec3 OutColor;
	void main() {
		gl_FragColor = vec4(OutColor, 0);
	}
"
 
	Local program := glLoadProgram(vertex, fragment)
	glBindAttribLocation(program, 0, "Position")
	glBindAttribLocation(program, 1, "Color")
	glBindAttribLocation(program, 2, "Normal")
	
	Return program
End
 
Class MyWindow Extends GLWindow
	Field vbo:GLuint
	Field ebo:GLuint
	Field shader:GLuint
	Field elementsLength:Int

	Field matrixView:Matrix
	Field matrixProjection:Matrix
	Field matrixViewProjection:Matrix
	Field matrixUniform:Int
	
	Method New()
		glClearColor(0.1, 0.1, 0.5, 1.0)

		glEnable(GL_DEPTH_TEST)
		glEnable(GL_CULL_FACE)

		'color, position, normal
		Local vertices:Float[] = New Float[](
			1, 0, 0,		-1,1,-1,		0, 1, 0,
			0, 1, 0,	 	1,1,-1,			0, 0.5, 0,
			0, 0, 1,		1,1,1, 			0, 1, 0,
			1, 0.5, 0,		-1,1,1,			0, 1, 0,
			1, 0, 0,		-1,-1,-1,		0, 1, 0,
			0, 1, 0, 		1,-1,-1,		0, 0.5, 0,
			0, 0, 1,		1,-1,1, 		0, 1, 0,
			1, 0.5, 0,		-1, -1,1,		0, 1, 0)


		'NOTE anticlockwise winding!!!!!!
		Local elements:int[] = New Int[](
'		0, 2, 1) 'single triangle top

'		0, 2, 1, 0, 3, 2) 'top

		0, 2, 1, 0, 3, 2,
		4, 5, 6, 4, 6, 7,
		0, 4, 3, 4, 7, 3) 'top bottom and side

		elementsLength = elements.Length

		
		' Load Shader
		shader = LoadSimpleShader()
		Print("Program ID: " + shader)
		Print("Attribute Location: " + glGetAttribLocation(shader, "Position"))
 
		' Create vertex buffer	
		glGenBuffers(1, Varptr vbo)
		glBindBuffer(GL_ARRAY_BUFFER, vbo)
		glBufferData(GL_ARRAY_BUFFER, vertices.Length * 4, vertices.Data, GL_STATIC_DRAW)
 
		' create element buffer
		glGenBuffers(1, Varptr ebo)
		glBindBuffer(GL_ELEMENT_ARRAY_BUFFER, ebo)
		glBufferData(GL_ELEMENT_ARRAY_BUFFER, elements.Length * 4, elements.Data, GL_STATIC_DRAW)

 		' create matrix stuff
		matrixProjection = Matrix.Perspective(Pi / 4.0, Cast<Float>(Width)/Height, 0.5, 100)
		matrixViewProjection = New Matrix
		matrixUniform = glGetUniformLocation(shader, "Matrix")

	End

	
	Method OnRender(canvas:mojo.graphics.Canvas) Override
		App.RequestRender()
		Super.OnRender(canvas)

		canvas.DrawText("Monkey2 OpenGL Test ", 10, 10)
		
		canvas.Color = Color.White
		canvas.DrawLine( 0, Height*0.5, Width, Height * 0.5 )
		canvas.DrawLine( Width*0.5, 0, Width*0.5, Height )
	End

	
	Method OnRenderGL() Override
		' update the view projection matrix
'		matrixView = Matrix.RotateY(App.Millisecs * -0.0005) * Matrix.RotateX(Sin(App.Millisecs*0.0001))
		matrixView = Matrix.RotateY(App.Millisecs * -0.0005) * Matrix.RotateX(1)
		matrixView *= Matrix.Translation(0.5, 0, -5)
		matrixViewProjection = matrixView * matrixProjection

		' use the shader and update the matrix uniform
		glUseProgram(shader)
		glUniformMatrix4fv(matrixUniform, 1, False, matrixViewProjection.ToArray.Data)

		glBindBuffer(GL_ARRAY_BUFFER, vbo)
		glEnableVertexAttribArray(0)
		glEnableVertexAttribArray(1)
		glEnableVertexAttribArray(2)
		glVertexAttribPointer(0, 3, GL_FLOAT, False, 36, Cast<Void Ptr>(0))
		glVertexAttribPointer(1, 3, GL_FLOAT, true, 36, Cast<Void Ptr>(12))
		glVertexAttribPointer(2, 3, GL_FLOAT, False, 36, Cast<Void Ptr>(24))
 
		' bind the element buffer object
		glBindBuffer(GL_ELEMENT_ARRAY_BUFFER, ebo)
		
		' finally do the drawing
		glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT)
		glDrawElements(GL_TRIANGLES, elementsLength, GL_UNSIGNED_INT, Cast<Int Ptr>(0))
	End
End
 
 
Function Main()
	New AppInstance
	New MyWindow
	App.Run()
End

You will need this as well which is the matrix.monkey2 file




Class Matrix
	' Matrix class is based on Monogame math.
	
	Private
	Field data:Float[] = New Float[16]
 
	Public
	Field M11:Float, M12:Float, M13:Float, M14:Float
	Field M21:Float, M22:Float, M23:Float, M24:Float
	Field M31:Float, M32:Float, M33:Float, M34:Float
	Field M41:Float, M42:Float, M43:Float, M44:Float
 
	Property ToArray:Float[]()
		data[0] = M11
		data[1] = M12
		data[2] = M13
		data[3] = M14
		data[4] = M21
		data[5] = M22
		data[6] = M23
		data[7] = M24
		data[8] = M31
		data[9] = M32
		data[10] = M33
		data[11] = M34
		data[12] = M41
		data[13] = M42
		data[14] = M43
		data[15] = M44
		Return data
	End
 
	Operator*:Matrix(matrix:Matrix)
		Local result := New Matrix
 
		result.M11 = (Self.M11 * matrix.M11) + (Self.M12 * matrix.M21) + (Self.M13 * matrix.M31) + (Self.M14 * matrix.M41)
		result.M12 = (Self.M11 * matrix.M12) + (Self.M12 * matrix.M22) + (Self.M13 * matrix.M32) + (Self.M14 * matrix.M42)
		result.M13 = (Self.M11 * matrix.M13) + (Self.M12 * matrix.M23) + (Self.M13 * matrix.M33) + (Self.M14 * matrix.M43)
		result.M14 = (Self.M11 * matrix.M14) + (Self.M12 * matrix.M24) + (Self.M13 * matrix.M34) + (Self.M14 * matrix.M44)
 
		result.M21 = (Self.M21 * matrix.M11) + (Self.M22 * matrix.M21) + (Self.M23 * matrix.M31) + (Self.M24 * matrix.M41)
		result.M22 = (Self.M21 * matrix.M12) + (Self.M22 * matrix.M22) + (Self.M23 * matrix.M32) + (Self.M24 * matrix.M42)
		result.M23 = (Self.M21 * matrix.M13) + (Self.M22 * matrix.M23) + (Self.M23 * matrix.M33) + (Self.M24 * matrix.M43)
		result.M24 = (Self.M21 * matrix.M14) + (Self.M22 * matrix.M24) + (Self.M23 * matrix.M34) + (Self.M24 * matrix.M44)
 
		result.M31 = (Self.M31 * matrix.M11) + (Self.M32 * matrix.M21) + (Self.M33 * matrix.M31) + (Self.M34 * matrix.M41)
		result.M32 = (Self.M31 * matrix.M12) + (Self.M32 * matrix.M22) + (Self.M33 * matrix.M32) + (Self.M34 * matrix.M42)
		result.M33 = (Self.M31 * matrix.M13) + (Self.M32 * matrix.M23) + (Self.M33 * matrix.M33) + (Self.M34 * matrix.M43)
		result.M34 = (Self.M31 * matrix.M14) + (Self.M32 * matrix.M24) + (Self.M33 * matrix.M34) + (Self.M34 * matrix.M44)
 
		result.M41 = (Self.M41 * matrix.M11) + (Self.M42 * matrix.M21) + (Self.M43 * matrix.M31) + (Self.M44 * matrix.M41)
		result.M42 = (Self.M41 * matrix.M12) + (Self.M42 * matrix.M22) + (Self.M43 * matrix.M32) + (Self.M44 * matrix.M42)
		result.M43 = (Self.M41 * matrix.M13) + (Self.M42 * matrix.M23) + (Self.M43 * matrix.M33) + (Self.M44 * matrix.M43)
		result.M44 = (Self.M41 * matrix.M14) + (Self.M42 * matrix.M24) + (Self.M43 * matrix.M34) + (Self.M44 * matrix.M44)
 
		Return result
	End
 
	Function Identity:Matrix()
		Local result := New Matrix
		result.M11 = 1.0
		result.M22 = 1.0
		result.M33 = 1.0
		result.M44 = 1.0
		Return result
	End
	
	Function Translation:Matrix(x:Float, y:Float, z:Float)
		Local result := Identity()
		result.M41 = x
		result.M42 = y
		result.M43 = z
		Return result
	End
	
	Function RotateX:Matrix(angle:Float)
		Local cos:Float = Cast<Float>(Cos(angle))
		Local sin:Float = Cast<Float>(Sin(angle))
        Local result := Identity()
		result.M22 = cos
		result.M23 = sin
		result.M32 = -sin
		result.M33 = cos
		Return result
	End
	
	Function RotateY:Matrix(angle:Float)
        Local cos:Float = Cast<Float>(Cos(angle))
		Local sin:Float = Cast<Float>(Sin(angle))
        Local result := Identity()
		result.M11 =  cos
		result.M13 = -sin
		result.M31 =  sin
		result.M33 =  cos
		Return result
	End
 
	Function Perspective:Matrix(fovy:Float, aspect:Float, near:Float, far:float)
		Local yMax:Float = near * Tan(0.5 * fovy)
		Local yMin:Float = -yMax
		Local xMin:Float = yMin * aspect
		Local xMax:Float = yMax * aspect
		Return Frustum(xMin, xMax, yMin, yMax, near, far)
	End
	
	Function Frustum:Matrix(left:Float, right:Float, bottom:Float, top:Float, near:Float, far:Float)
		Local invRL:Float = 1.0 / (right - left)
		Local invTB:Float = 1.0 / (top - bottom)
		Local invFN:Float = 1.0 / (far - near)
		
		Local result := New Matrix()
		
		result.M11 = 2.0 * near * invRL
		result.M12 = 0.0
		result.M13 = 0.0
		result.M14 = 0.0
		
		result.M21 = 0.0
		result.M22 = 2.0 * near * invTB
		result.M23 = 0.0
		result.M24 = 0.0
		
		result.M31 = (right + left) * invRL
		result.M32 = (top + bottom) * invTB
		result.M33 = -(far + near) * invFN
		result.M34 = -1.0
		
		result.M41 = 0.0
		result.M42 = 0.0
		result.M43 = -2.0 * far * near * invFN
		result.M44 = 0.0
		
		Return result
	End
	
End

Mainsworthy

(Posted May) [#84]

My claim to fame is I worked with someone who had worked with clive Sinclair, I still owe him �10 :)

I will mull over this code, because I have no idea yet how you did this ship view

AdamStrange

(Posted May) [#85]

the ship view is something very different - it came from my low poly 3d toddler and was put together in photoshop. But I am working on getting it into monkey2.

The code above is the first steps in doing this...

Mainsworthy

(Posted May) [#86]

ahh, I thought it was a 3d view of the ship, its realy cool though,

skidracer

(Posted May) [#87]

Orrery - mechanical model of the solar system that illustrates or predicts the relative positions and motions of the planets and moons.

AdamStrange

(Posted May) [#88]

@Orrery already done. planets, moons, etc all move is correct orbits ;p

AdamStrange

(Posted May) [#89]

minor update. got the depth sorting working and now thinking about model import!

AdamStrange

(Posted May) [#90]

Very early days, but now looking promising:

This shows a single 3d cube with coloured vertexes. it is then shown twice with the second version being rotated.

It basically shows a single object that functions in 3d with proper depth working.

I've got the skeleton of code for the loader, but now need to write the converter so that it can be displayed...

I think the best way is to have each loadable 3d object a self contained 'thing/object' we can draw it with a single command then...

Mainsworthy

(Posted May) [#91]

cant believe your doing modelling too.

AdamStrange

(Posted May) [#92]

Heres' quick link to Rameses - my low poly modeller
https://adamstrange.itch.io/rameses

and some animated stuff it produces - hopefully we might get all of that at a later time too...

AdamStrange

(Posted May) [#93]

YAY!!!!!! it works

Pic of monkey2 app with spaceship model loaded. Also showing the same ship in the 3d modeler complete with vertex colors...

AdamStrange

(Posted May) [#94]

here's the normal calculations with a quick lighting test

it's not perfect, but ok for what we are trying to do

Mainsworthy

(Posted May) [#95]

this is great Adam, please please make the combat turn-based.

AdamStrange

(Posted May) [#96]

not got that far.
ok. how would you approach turn based?

Derron

(Posted May) [#97]

step by step (uhh baby).

instead of simultaneous movements you just allow "move + action" (eg. move and then attack).

Of course fights would get a bit more tedious then - or attacks must be "more powerful" (so 2 hits destroy a ship - instead of having to shoot 200 bullets).

I think "switches" to allow realtime _or_ turn-based are not very useful as the balancing is a lot different between these two.

bye
Ron

Mainsworthy

(Posted May) [#98]

fire laser Mk1(has an attack value of 40)

your health is 100,

so attack = Rnd(1,40)

attack = attack - shield

attack = attack - armor

health = health - attack

then you attack pirate.

turn = turn + 1

Mainsworthy

(Posted May) [#99]

My mac was very old, I did not know you could update to sieraOS, because it was old I didn't think security wise I could go online with it, so I never looked at upgrade. I'm in the middle of upgrading now, sure was a shock I could do this,

Mainsworthy

(Posted May) [#100]

I think its to old, nevermind

AdamStrange

(Posted May) [#101]

what happened? what sort of mac was it - iMac, mac mini??

AdamStrange

(Posted May) [#102]

@mainsworthy is there any way to contact you privately?

AdamStrange

(Posted May) [#103]

basic lighting and texture import more or less working now...

AdamStrange

(Posted May) [#104]

Last one for the day...

using jpg as a heightmap with lighting. I've got something interesting going on with the red colors - these are fed into the shader and the shader does the colouring, so you could have different colours, for different ships - but they all have the same 3d model with no changes!

Mainsworthy

(Posted May) [#105]

your making a big impact with this! the game has gone far beyond what I imagined it would be, you could color more of the ship then when damged replace with a burning color maybe, just an idea.

AdamStrange

(Posted May) [#106]

sort of creeping forward:

this shows 3 models:
planet - being sown as points
galaxy - it's a sort ball with some nasty uv mapping and a single shader. so no bitmaps are being hurt
ship - this is being shown with a default blank shader, just so you know it's there

Spent the last day sorting out incorrect uv vertex locations in the 3d package. It took some time to get everything exactly right!

So, I'm sorta ready to take the next step into how to deal with the entire display with other stuff in it. not sure about game play as this is a lot of tech work going on in the background....

AdamStrange

(Posted May) [#107]

last one for the day...

very dark ship, with wireframe. so in theory we could now do a starters arcade wireframe with proper depth culling.

I'm starting to see where this could go...

Mainsworthy

(Posted May) [#108]

Adam I know your doing hard work, I can see how good its going to be.

AdamStrange

(Posted May) [#109]

ok. Moving on from being able to import and show models in different ways.

I'm now tinkering with the 3d UI. this is all 3d with no 2d being used

I thought bottom left for the ship. we can flash the ships outer ring red to denote a hit, and even use the orange direction objects to show where it is being hit!

The bottom right for the actual system view with planets and orbits shown

the boom main view would be for the scanner showing your location (the centre) and any nearby ships, things of interest. I've shown the orange range finder which shows the direction of the most interesting thing, but this is just a thought, it could show anything... as it is in 3d it can smoothly rotate, we can control the color/alpha, of any item as well. using scaling can also affect how things are displayed. The orange area could shrink and grow from the centre of the display

Here's a final one with the galaxy and ship added (ship not lit by lights)

thoughts?

Mainsworthy

(Posted May) [#110]

I realy think it looks good, but I only like turn based combat, so if the 3D is going to be a dogfight gameplay I wont like it although some will. but if its going to be 2D then it looks something special, if you have real time combat then it will be like thousands of other games, but if you use this in a turn based setting it will stand out.

therevills

(Posted May) [#111]

Great work Adam!

AdamStrange

(Posted May) [#112]

thanks. I know Mark is working on a 3d module too.

@Mainsworthy I think these can be considered tech demos more than anything else. there is no game play are strategy yet in how it will operate. Theres a lot to get me head around

AdamStrange

(Posted May) [#113]

I think this is what you mean...

Mainsworthy

(Posted May) [#114]

Now that is ultra good,

AdamStrange

(Posted May) [#115]

Sorted out the nasty OpenGL bug
working on a few new ships...

lighting now operational too.

here's my thoughts:
the occupied cells are:
- pins with ship, etc
- flat areas (4 around the space station base). if you are next to them, then you can access their things. trade, etc
- the flats with cubes and green top show something of interest - could be debris, something to collect, etc
- red pin with asteroid, something to avoid
- not shown. Red flat areas would be hazards. avoid being next to them...

Thoughts??

Mainsworthy

(Posted May) [#116]

Adam, the game looks something special now, not just another shooter, it looks amazing!!!!!!

AdamStrange

(Posted May) [#117]

ok. so lets assume we are now fixed to a 16x16 grid.

How would you approach the AI and movement, etc?

Mainsworthy

(Posted May) [#118]

just something simple

if AIshiptogo = 1 and AIturn = 1
move()
fire()
endif

function move()
if x > enemyx+2 then x = x - 1
if y > enemyx+2 then y = y - 1
if x < enemyx-2 then x = x + 1
if y < enemyy-2 then y = y + 1
end function

function fire()
if x > enemyx-2 and x < enemyx+2 x > enemyy-2 and y < enemyy+2 then firelasser()
end function

function firelasser()
z = rand(0,laserpower)
enemy health = enemyhealth - z
end function

AdamStrange

(Posted May) [#119]

it's sort of like turtle graphics, but for units?

you get a certain amount of 'commands', and then decide if you physically move, fire, or whatever?

Once all commands are done, the opponent has their go...

AdamStrange

(Posted May) [#120]

Here you go...
First download to see what's been going on...

http://monkey2.monkey-x.com/forums/topic/initial-low-poly-3d-import-test/#post-8296

This has all the data and code for the 3d engine plus models and some keyboard controls

Mainsworthy

(Posted May) [#121]

I just ran it, and the movement really immersed you, you have got to complete this game Adam! its bloody brilliant!

Mainsworthy

(Posted May) [#122]

in fact adam, you could even scrap movement in a turn based battle, just place them on the grid, and fire at each other.

AdamStrange

(Posted May) [#123]

Yep, but there would have to be some mechanism to do that and make it all fit together and work...

I like the concept of turn based. I turn, they turn.

Lets say there are buttons (onscreen) for turn left, turn right, forward, target, fire

Once you pressed a button (command) the AI moves the other player.

But. What if the ships took different lengths of time to complete an order?
E.G.
a small ship can move twice and a big ship can only move once?

Mainsworthy

(Posted May) [#124]

if you think of space travel your going fast, and on a small tactical area you all may be of equal sub light speed. but if there are different speeds you give a turn a number say 20, now a ship can travel at say 5 it gets to move four times, but if a ships speed is 10 it only gets to move twice in a turn. ship a gets to move 20\5 turn number, ship b gets to move 20\10 turn number, so a moves on 5 10 15 20 and b moves 10 and 20, the turn ticks from 0 to 20 , and if the ships 20\speedspeed = tick then move

you can just simplify move a ship to anywhere on the grid, then the opponent moves, then if in range you can shoot

AdamStrange

(Posted May) [#125]

so, putting this together and simplifying gives us this:

- create ship
- pick task (pick up A deliver to B)

tactical grid

- move to target
- do something - pick up, service, etc
- escape
- attack
- exit
repeat above

AdamStrange

(Posted May) [#126]

bit more to this.

we have the grid.
when you start, it is at position on the edge of the grid
- the same for enemies, they also start at the edges of the grid
UNLESS there are enemies already on the grid?

Derron

(Posted May) [#127]

Yes, the grid is the "close combat zone".
- there might be obstacles on that grid (asteroids, ship wreckage, other ships which try to flee or might help one of the aggressors)

- distance between the ships and their initial position might be random or predefined
- distance might also be based on the vector they "collided with" - so if the ship A came from behind the other ship should be rotated accordingly. Also a "radar" (and on the other side "cloak") should define how near both ships start when entering "ccz" ( ;-p ).

@ turns and turn length
As Mainsworthy already described: use some kind of "microsteps" or "percentage" or "movement energy".
So best is to say you have "100% energy" for a turn. If you have improved engines your step costs decrease by 25%. Your step now costs only (1.0*(1.0-0.25))*100 = 75% energy. You still are only able to move 1 step per step. You now could consider conserving energy for the next step - so you end up with 125% energy. I do not think that this is the greatest idea as people could try to conserve energy to use it all at the end. So you either have to make a "limit" (200% energy max) and/or only conserve energy left "because you cannot do another step" (25% left might be too less for another turn/rotate/...).
Ok, back to the energy. So we are now reducing movement costs by 25%. If motivation is high (some bottles of rum for ya piratezz) you might decrease costs by 20% ... leading to 1.0*(1.0-0.25)*(1.0-0.20)*100 = 60% energy.
And so on. As soon as you reach 50% or lower, you could do more than one step (and with <33.3% you could do 3 and so on).

Regarding ship size you could either manipulate "costs" per step - or give them more power.
But do not forget: a small ship might turn faster and accelerate faster but the power / impulse is a different thing - so bigger ships should also eg. "conserve movement energy". This means: a bigger/heavier ship will have 100% movement step costs in the first step, but only 50% movement step costs in the second - as long as the direction is the same.

Such things as described above might bring in some "tactical" elements as movement is then not just a "bring into position to fire" but also a prediction element on how ships will move and there they will be in 4-5 turns.
Also this makes the environment playing a more important role. A heavy ship cannot steer that nice through meteorite belts - or eg. has to "crash into them" with the effect of lowering their shields just to come into a good shooting position.

bye
Ron

AdamStrange

(Posted May) [#128]

I think anything to do with percentages is the wrong approach. but I agree about rotation taking time to take effect. Infact that is a brilliant suggestion.

the core essence is can it be played by children with cards or dice?

it's about taking the concept and simplifying it but keeping it true to the core.

AdamStrange

(Posted May) [#129]

Here's the next download.
if you look into the source you can see a new shader added to allow access to the fontmap

Also the code is being split into the proper classes which allows for each item to have individual movement, etc

http://monkey2.monkey-x.com/forums/topic/initial-3d-space-game-with-source/

AdamStrange

(Posted May) [#130]

the yellow points are the shield...
if you want some fun add these lines after the alienShip has been defined:
alienShip.ShipExited = Lambda()
alienShip.PickEdge()
End

Mainsworthy

(Posted May) [#131]

could do with ship pointing in the right direction instead of always pointing right, but its great ,

AdamStrange

(Posted May) [#132]

left/right rotates the ship to face a new direction...

Mainsworthy

(Posted May) [#133]

yes it moves in the right direction after pressing LEFT/RIGHT, but the ship dosnt rotate :(

AdamStrange

(Posted May) [#134]

I'm just dealing with windows and a new monkey2 install and then I'll give it a go and see what's going on. but it should work without issues.... hmmmm!

AdamStrange

(Posted May) [#135]

i'm going to swear now...
WTF!!!!!!
monkey2 on windows reports pi as 0!

so...
line 46:
const PIHALF:float = Pi * 0.5

should now read
const PIHALF:float = 3.14159265359 * 0.5

and the rotation appears!!!!!

I'm going to report this one

xlsior

(Posted May) [#136]

monkey2 on windows reports pi as 0!

so...
line 46:
const PIHALF:float = Pi * 0.

Wouldn't 'pi' assume int? What happens if you use pi:float or pi#?

AdamStrange

(Posted June) [#137]

been a bit quiet of late, so heres a nice pic:

I've been trying to get lighting working correctly, so needed to go back a few steps and rewrite the shaders and the matrix stuff (it's really nasty code to work out what is going on)

this shows a working light (ball with tail) heating up the cubes correctly...

and if it looks like a first person camera system - it is