Sorry your browser is not supported!

// Project: makingaplayerwithtypes 
// Created: 2014-11-25

// set window properties
SetWindowTitle( "makingaplayerwithtypes" )


// set display properties
SetVirtualResolution ( 640, 480 )

global numberofplayers = 2
global joined = 0
global netid 
global mymove = 1
type people
	id as integer
	x as float
	y as float
	image as integer
endtype

global dim player[numberofplayers] as people

initDisplay (90)
SetUpButtons()
JoinTheNetwork()
CreateSprites()


SetClearColor ( 255, 255, 255 )

AddVirtualJoystick ( 1, 10, 80, 10 )
SetJoystickScreenPosition ( 10, 70, 20 )


do


    SetOwnSpriteDetails()
MoveAllSprites()
    Sync()
    
loop

function initDisplay ( height# )

    device_width#  = GetDeviceWidth  ( )
    device_height# = GetDeviceHeight ( )

    virtual_width_multiplier# = device_width# / device_height#

    if ( device_width# < device_height# )
        virtual_width_multiplier# = device_height# / device_width#
    endif

    SetVirtualResolution ( height# * virtual_width_multiplier#, height# )

    virtualWidth = height# * virtual_width_multiplier#
    virtualHeight = height#

endfunction

function SetUpButtons()

AddVirtualJoystick ( 1, 10, 80, 10 )
SetJoystickScreenPosition ( 10, 70, 20 )

 addvirtualbutton (1,10,20,10)
 setvirtualbuttontext(1,"Host")
 addvirtualbutton(2,30,20,10)
 setvirtualbuttontext(2,"Join")

endfunction

function JoinTheNetwork()
 rem *** Wait for button press ***
 repeat

  HandleButtons()

  sync()

  until joined = 1


  DeleteVirtualButton(1)
  DeleteVirtualButton(2)

deletesprite (85)
Endfunction

function HandleButtons()

 if getvirtualbuttonpressed(1) = 1 and joined = 0

 netid = Hostnetwork("MyNetwork", "Hostmachine",1206)
mymove = 1
 joined = 1

 endif

 if getvirtualbuttonpressed(2) = 1 and joined = 0

 clientname$ = str(getseconds())
 netid = joinnetwork ("MyNetwork", clientname$)
 mymove = mymove+1
 joined = 1


 endif

endfunction

function CreateSprites()
	
	for i = 1 to numberofplayers

Loadimage (1,"1.png")

loadimage (2,"2.png")

player[i].image = i
player[i].id = i


createsprite(player[i].id,player[i].image )
SetSpriteSize (player[i].id, 10,-1)


boxcollision = 3

SetSpriteShape ( player[i].id, boxcollision )


SetSpritePhysicsOn ( player[i].id, 1 )

next i

 endfunction

function SetOwnSpriteDetails()


   player[mymove].x = GetVirtualJoystickX ( 1 ) + GetSpriteX (player[mymove].id)
   player[mymove].y = GetVirtualJoysticky ( 1 ) + GetSpritey (player[mymove].id)
   
   //x# = player[mymove].x
 //  y# = player[mymove].y
   
SetSpritePosition ( player[mymove].id,player[mymove].x,player[mymove].y)
// SetViewOffset (  player[1].x - 50, player[1].y - 50 )

    setnetworklocalfloat(netid,"x", player[mymove].x)
    setnetworklocalfloat(netid,"y", player[mymove].y)


 
endfunction

 function MoveAllSprites()

 clientid = getnetworkfirstclient(netid)
 clientid =  clientid +1
 while clientid<> 0

	
    setnetworklocalfloat(netid,"x",player[clientid].x)
    setnetworklocalfloat(netid,"y",player[clientid].y)

 playerx# = getnetworkclientfloat(netid,clientid,"x")
 playery# = getnetworkclientfloat(netid,clientid,"y")
 
 //player[clientid].x =  playerx#
 //player[clientid].y =  playery#
 
    SetSpritePosition (player[clientid].id,  playerx#,  playery#  )
 

 clientid = getnetworknextclient(netid)

 endwhile

 endfunction

// Project: makingaplayerwithtypes 
// Created: 2014-11-25

// set window properties
SetWindowTitle( "multi player testing" )
// set display properties
SetVirtualResolution ( 640, 480 )


addvirtualjoystick(1,100,400,100)


global playerid //1=host 2=client
global networkid=0
global playerscount=0
global grabpersync=0 //should not send messages every sync....very bad if do
//hold player 2s position
global px2#
global py2#

//let player choose host or join
playerid=choosehostorjoin()



loadimage(1,"1.png",1)
loadimage(2,"2.png",1)




//setup host game
if playerid=1
	networkid=hostnetwork("mygame", "player1", 1025)
	createsprite(1,1)
	setspriteposition(1,100,100)
	setspritedepth(1,5)
	
	createsprite(2,2)
	setspriteposition(2,540,100)
	setspritedepth(2,5)
endif
//setup client
if playerid=2
	networkid=joinnetwork( "mygame","Player2") 
	createsprite(1,2)
	setspriteposition(1,540,100)
	setspritedepth(1,5)
	
	createsprite(2,1)
	setspriteposition(2,100,100)
	setspritedepth(2,5)	

endif

//these sprites are way too big...lets scale them down to 1/4th size
setspritescale(1,0.25,0.25)
setspritescale(2,0.25,0.25)


do
grabpersync=grabpersync+1
if grabpersync=>4 then grabpersync=0
//send a net message 15 times a second only
//if you send netmessages more than this....good luck not overloading your network

	playerscount=GetNetworkNumClients( networkid ) 
	if playerscount>1 then SetNetworkNoMoreClients( networkid) //this makes it so no more clients join
	if playerid=1 then print(" Hosting game...  ["+str(playerscount)+"] Players In Game")
	if playerid=2 and playerscount=0 then print("looking to join game...")
	if playerid=2 and playerscount=2 then print("Joined Game...")
	if playerid=2 and playerscount=1 then print("Game Connection Lost...")


	//update player
	px#=getvirtualjoystickx(1)*2
	py#=getvirtualjoysticky(1)*2
	
	
	
	setspriteposition(1,getspritex(1)+px#,getspritey(1)+py#)

	//check for net messages
	netmessage = GetNetworkMessage ( networkid )

    // cycle through all messages
    while netmessage <> 0
        // get command
        cmd = GetNetworkMessageinteger ( netmessage )
        //process command
        if cmd=1 
			//other player asked for data
			newmessage2=createnetworkmessage()
			addnetworkmessageinteger(newmessage2,2) //cmd 2 is other player data
			addnetworkmessagefloat(newmessage2,getspritex(1))
			addnetworkmessagefloat(newmessage2,getspritey(1))
			sendnetworkmessage(networkid,0,newmessage2)
		endif
 
		if cmd=2
			//recieve other players data
			px2#=getnetworkmessagefloat(netmessage)
			py2#=getnetworkmessagefloat(netmessage)
			//setspriteposition(2,px#,py#)
			
		endif
        // find the next message
        deletenetworkmessage(netmessage)
        //grab next message if any
        netmessage = GetNetworkMessage ( networkid)
    endwhile

	//send and ask for other player data
	if playerscount=2 and grabpersync=0
		//ask client for data of other player
		netmessage=CreateNetworkMessage()
		addnetworkmessageinteger(netmessage,1) //cmd 1 ask for player data
		sendnetworkmessage(networkid,0,netmessage)
	endif


	//no player 2??
	if playerscount<>2 
		px2#=getspritex(2)
		py2#=getspritey(2)
	endif
	//smoothen out player 2
	setspriteposition(2,curvevalue#(getspritex(2),px2#,4),curvevalue#(getspritey(2),py2#,4))


	sync()
loop

function choosehostorjoin()
if getvirtualbuttonexists(1)=1 then deletevirtualbutton(1)
if getvirtualbuttonexists(2)=1 then deletevirtualbutton(2)
addvirtualbutton(1,200,250,100)
addvirtualbutton(2,440,250,100)
setvirtualbuttontext(1,"Host")
setvirtualbuttontext(2,"Join")
choice=0
while choice=0	
	if getvirtualbuttonreleased(1)=1 then choice=1
	if getvirtualbuttonreleased(2)=1 then choice=2
	sync()	
endwhile
deletevirtualbutton(1)
deletevirtualbutton(2)
sync()	
endfunction choice


function curvevalue#(a#,b#,division)
if a#>b#
	c#=a#-((a#-b#)/division)
	exitfunction c#
endif	
if b#>a#
	c#=a#+((b#-a#)/division)
	exitfunction c#
endif		
endfunction a#