Monkey2 large display canvas scrollable

Community Forums/Monkey Talk/Monkey2 large display canvas scrollable
Mainsworthy
(Posted April) [#1]
Namespace myLetterboxApp

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

Using std..
Using mojo..

#Import "assets/map.png"
#Import "assets/chit1.png"
#Import "assets/chit2.png"
Const Size := New Vec2i( 950,720 )

Const GAMEMODE_INTRO:Int = 1
Const GAMEMODE_GAME:int = 2


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


'this will be the base class for all chits, anything can be a chit
Class Chit
	'this is called when any new thing is derrived from this class
	Method New()
	End Method

	
	'we can now have a different new which can be fed with an int which becomes the energy
	' so New(67) would give you a Chit with 67 rotation
	Method New( twist:Int,chx:Int,chy:int )
		_twist = twist
		_chitx = chx 'just a var to initialise starting posision of chit
		_chity = chy 
	End Method


	'because _twist is private,  we need a property and setter
	' we only then need to access by _chit.Twist = 40,  or twist = _chit.Twist
	'Property Twist:int()
	'	Return _twist
	'Setter( twist:int )
	'	_twist = twist
	'End

    Field _chitx:int = 600
	Field _chity:int = 600
	Field _twist:int = 0
Private
	'how much rotation does the chit start with 0  but we could change this with a different New
	'Field _twist:int = 0
	

	
End Class


Class MyWindow Extends Window

	Method New()
		Super.New( "My Window", Size.X, Size.Y, WindowFlags.Resizable )
	    
		'if you want a constant canvas size use this
'		Layout = "letterbox"
		'or If you want the canvas to always fill the window use this
		Layout = "fill"

		'this is a timer. it will 'tick' 60 times a second. calling OnUpdate
		_timer = New Timer( 60, OnUpdate )
		_maped = Image.Load( "asset::map.png" ) 'I used a 2000x2000 pixel PNG
	
		_unit1 = Image.Load( "asset::chit1.png" ) 'I used a 50x50 pixel PNG
		_unit1.Handle=New Vec2f( .5,.5 )
		_unit2 = Image.Load( "asset::chit2.png" ) 'I used a 50x50 pixel PNG
		_unit2.Handle=New Vec2f( .5,.5 )
        'provide a PNG and variables for every chit on the map
		_chit = New Chit(0,650,650) ' rotatio,X,Y (x,y in relation to the map
		_chit2 = New Chit(68,701,780) ' the map you see starts at -x500 y-500
	End

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 GAMEMODE_INTRO
				DrawTheIntro( canvas )
			Case GAMEMODE_GAME
				DrawTheGame( canvas )
		End Select
	End


	Method DrawTheGame( canvas:Canvas )
		canvas.Color = Color.White
		'draw the map
		canvas.DrawImage( _maped, _mX, _mY )		
		'draw the chits with a twist
		' debug _twist = _twist + 1
		'If _twisted > 360 Then _twisted = _twisted - 360
        canvas.DrawCircle(800+_mX,  800+_mY,30 ) 'draw	800x800 plus map offset	
		canvas.DrawImage (_unit1, _chit._chitx +_mX, _chit._chity + _mY,_chit._twist )
		canvas.DrawImage (_unit2, _chit2._chitx +_mX, _chit2._chity + _mY,_chit2._twist)
	End Method
	
	
	Method DrawTheIntro( canvas:Canvas )
		canvas.Color = Color.White
	
		canvas.DrawText( " Scroller Map' First App By Mark Ainsworth ref 210665",200,20 )
		canvas.DrawText( " How To Scroll The Map Right Click To Pickup Board, Then Drag it Release to Drop it. ",200,60 )
		canvas.DrawText( " You can Move around the Map By Only RightClicking and Dragging.",200,80 )
		canvas.DrawText("- PRESS ENTER OR LRFT-CLICK MOUSE TO START MAP -->",200,670)
		
	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 GAMEMODE_INTRO
								_gameMode = GAMEMODE_GAME
						End Select
							
				End Select
				
			Case EventType.KeyUp
			
				Select event.Key
					Case Key.Enter
				End Select
				
		End Select
	End

	'here we track the mouse and all mouse related stuff
	Method OnMouseEvent( event:MouseEvent ) Override
		'set up some global mouse cars so we can use these throught to program
		_mouseX = event.Location.X
		_mouseY = event.Location.Y

		'here are the baci mouse events we are interested in
		Select event.Type
			Case EventType.MouseRightClick
				_movemap = 1
				If _movemap = 1 'if you right click record current mouse location
				_oldX = _mX +  -_mouseX 'plus map location
				_oldY = _mY + -_mouseY
				
				Endif

			Case EventType.MouseClick
				Select _gameMode
					Case GAMEMODE_INTRO
						_gameMode = GAMEMODE_GAME
				End Select	
			Case EventType.MouseUp
				_movemap = 0 'if you move the mouse while dragging
				If _movemap = 0 'the map x,y is updated untill you Mouseup
				_oldX = _mX 
				_oldY = _mY 
		
				Endif
			Case EventType.MouseEnter
			Case EventType.MouseLeave
			Case EventType.MouseMove
				If _movemap = 1
					_mX = _mouseX + _oldX - 0
					_mY = _mouseY + _oldY - 0
				Endif	
				End Select					
		
	End Method
	
		Field _mY:Int = -500 'position of map -500 so we start 500 in from top
	    Field _mX:Int = -500 'position of map -500 so we start 500 in from left
		Field _twist:Int  'rotate
		Field _oldX:Int 'used to store map location before you drag
		Field _oldY:Int 'used to store map location before you drag
		Field _movemap:Int 'switch to on to dragmap in conjuction with old position

	'this is needed to allow the Size to be correct. this is called automatically
	Method OnMeasure:Vec2i() Override
		Return Size
	End
Private
	'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 = GAMEMODE_INTRO
	
	'global mouse vars
	Field _mouseX:Int
	Field _mouseY:Int

	'image assets
	Field _maped:Image ' this is the map png
	Field _unit1:Image ' this is the chit1 png
	Field _unit2:Image ' this is the chit2 png
	'set up some classes' these will need to be newed
	field _chit:Chit ' these are the chits
	field _chit2:Chit ' A secon chit
End
a big canvas to scroll around, like a map , or a boardgame

you need 3 files to be put in assets folder map.png (about 2000x2000 is ok) chit1.png (50x50) chit2.png the sizes are not strict

There is a community project going on to create a space game like old skool elite , maybe turn-based for people who don't mouse twich here
http://www.blitzbasic.com/Community/posts.php?topic=107933

come along and give input