Sorry your browser is not supported!

for coinnumber=109 to 200
if coins_t [ coinnumber ].exsist=0 
coinnumber=	coinnumber+1
if coinnumber>199 then coinnumber=109
coins_t [ coinnumber ].exsist=1
endif	

if coins_t [ coinnumber ].exsist=1
RockX=getspritex(Rocks)
RockY=GetSpriteY(Rocks)	
CoinSprite(RockX+2,Rocky+3)		
endif

next coinnumber

function CoinSprite(x,y)

for CoinsCollected=109 to 200
	
	
if coins_t [ CoinsCollected ].exsist=1	
	
createsprite(CoinsCollected,coins_1)
SetSpriteScale(CoinsCollected,0.03,0.03)
SetSpritePosition(CoinsCollected,x,y-5)
SetSpriteAnimation(CoinsCollected,128,128,6)
PlaySprite(CoinsCollected,10, 1, 1, 6)
setspritephysicson(CoinsCollected,2)
SetSpritePhysicsMass( CoinsCollected, 30 )
endif

next CoinsCollected



endfunction	

dim rock [ 100 ] as rocks
//-------------------------------------------------------------------------------//
//    Give each rock some coins
//-------------------------------------------------------------------------------//
rock [ 1 ].CoinAmount=5
rock [ 2 ].CoinAmount=5
rock [ 3 ].CoinAmount=1
rock [ 4 ].CoinAmount=5
rock [ 5 ].CoinAmount=5

// Project: RockCoin 
// Created: 2021-10-09
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "RockCoin" )
SetWindowSize( 1280,720, 0 )
SetWindowAllowResize( 1 )

// set display properties
SetVirtualResolution( 1280,720)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 

Yellow = MakeColor(255,255,0)
DrawEllipse(8,8,8,8,Yellow,Yellow,1)
GLOBAL CoinImg
Render()
CoinImg = GetImage(0,0,16,16)

Type Rock
	ID, Coins, LastCoin#
EndType

GLOBAL Rocks as Rock []
For x = 0 to 4
	ThisRock as Rock
		ThisRock.ID = CreateSprite(0)	:	SetSpriteSize(ThisRock.ID,32,32)
			SetSpritePositionByOffset(ThisRock.ID,300 + x*100.0,650)
			SetSpritePhysicsOn(ThisRock.ID,1)	:	SetSpriteGroup(ThisRock.ID,-10)
		ThisRock.Coins = (Random(2,5))
	Rocks.InsertSorted(ThisRock)
Next x
		
Player = CreateSprite(0)	:	SetSpriteSize(Player,32,32)
SetSpritePositionByOffset(Player,200,700)	:	SetSpriteShapeCircle(Player, 0,0,16)
SetSpritePhysicsOn(Player,2)
SetSpritePhysicsCanRotate(Player,0)

SetPhysicsGravity(0.0,200)
do
	PX# = GetSpriteXByOffset(Player)	:	PY# = GetSpriteYByOffset(Player)
	Grounded = PhysicsRayCast( PX#,PY#,PX#,PY#+16.4)
	
	If GetButtonState(1) and Grounded then Jump# = -200 else Jump# = GetSpritePhysicsVelocityY(Player)
    If GetRawKeyState(27) then Exit
        
	SetSpritePhysicsVelocity(Player, GetJoystickX()*150.0, Jump#)

	If GetSpriteFirstContact(Player)
		Repeat
			ThisHit = GetSpriteContactSpriteID2()
			If ThisHit > 0 and Rocks.Find(ThisHit) > -1
				Rock = Rocks.Find(ThisHit)
				If Rock > -1 and Rocks[Rock].Coins > 0 And Rocks[Rock].LastCoin# + 0.5 < Timer()
					SpawnCoin(ThisHit)
					Rocks[Rock].Coins = Rocks[Rock].Coins -1
					Rocks[Rock].LastCoin# = Timer()
				EndIf
			EndIf
		Until GetSpriteNextContact() = 0
	EndIf


	Print("[A/D]=Move, [W/D]=Climb, [Space]=Jump")
	For x = 0 to Rocks.Length `Coins Left in Rock
		Print(Rocks[x].Coins)
	Next x

    Sync()
loop

Function SpawnCoin(Spr)
	ThisCoin = CreateSprite(CoinImg)
	x = GetSpriteXByOffset(Spr)	:	y = GetSpriteY(Spr)
	SetSpritePositionByOffset(ThisCoin, x,y-16)
	SetSpriteGroup(ThisCoin,-10)
	SetSpritePhysicsOn(ThisCoin,2)
	SetSpriteShapeCircle(ThisCoin,0,0,8)
	SetSpritePhysicsVelocity(ThisCoin,0,-100.0)
EndFunction

If Grounded=0 and PY#=<20 
SetPhysicsGravity( 0, 150 )
endif

If Grounded=1 and stopme=0
SetPhysicsGravity( 0, 100 )	
StopSprite( Player )
stopme=1
endif

If SetjumpTimer>0
SetSpritePhysicsVelocity(Player,PMoveX# + (GetJoystickX()*30.0) ,Jump#+SetjumpTimer)
endif

function Save_last_Player()
// write data to a file
//SetRawWritePath( "C:\Users\Public\Documents" )
OpenToWrite ( 1, "player.dat", 0 )

A$=Name$

WriteString  ( 1, a$ )

CloseFile ( 1 )

endfunction

path as string
path = GetWritePath()+"media"
folderID = OpenRawFolder( path )
folderCount = GetRawFolderNumFolders(folderID)
fileCount = GetRawFolderNumFiles(folderID)

do
	
		for i = 0 to fileCount-1
			
		//Print( "    " + GetRawFolderFileName(folderID,i) )

		get$=GetRawFolderFileName(folderID,i) 

		SetTextString ( Player_save_text, line3$ )

        line3$ = "Saved Game=" +Get
	next i

sync
loop

// Project: players 
// Created: 2021-10-14
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "players" )
SetWindowSize( 1280,720, 0 )
SetWindowAllowResize( 1 )

// set display properties
SetVirtualResolution( 1280,720)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 30, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 ) 


Type SaveData
	PlayerName$, Checkpoint, Score
EndType

GLOBAL Saves as SaveData []

GenerateSaves()

LoadSaves()

GLOBAL CurrentPlayer as SaveData
PickPlayer()

do

	CheckESC()
   

    Print( "Player: " + CurrentPlayer.PlayerName$ )
    Print( "Checkpoint: " + STR(CurrentPlayer.Checkpoint))
    Print( "Score: " + STR(CurrentPlayer.Score))
    Sync()
loop

Function PickPlayer()
	TotalSaves = Saves.Length
	If TotalSaves > -1
		TempTextIDs as Integer []
		For x = 0 to TotalSaves
			ThisText = CreateText(Saves[x].PlayerName$)
			SetTextSize(ThisText,36)
			SetTextPosition(ThisText,100,100 + x*36)
			TempTextIDs.Insert(ThisText)
		Next x

		Repeat
			CheckESC()
			For x = 0 to TempTextIDs.Length
				ThisTXT = TempTextIDs[x]
				If GetTextHitTest( ThisTXT, GetPointerX(), GetPointerY() ) //Hover
					SetTextColor(ThisTXT,255,128,0,255)
					If GetPointerPressed()
						Player$ = Saves[x].PlayerName$
							CurrentPlayer.PlayerName$ = Player$
							CurrentPlayer.Checkpoint = Saves[x].Checkpoint
							CurrentPlayer.Score = Saves[x].Score
						For t = TempTextIDs.Length to 0 Step -1
							DeleteText(TempTextIDs[t])
							TempTextIDs.Remove(t)
						Next t
					EndIf
				Else
					SetTextColor(ThisTXT,255,255,255,255)
				Endif
			Next x
			Sync()
		Until Player$ <> ""

	Else
		`NewPlayer() // feel free to add a NewPlayer() option above as a separate TextID that will trigger it
	EndIf
		
EndFunction 

Function LoadSaves()
	SetFolder("saves/")
	ThisFile$ = GetFirstFile()
	Repeat
		ThisFile = OpenToRead(ThisFile$)
			ThisString$ = ReadString(ThisFile)
			CloseFile(ThisFile)
		ThisSave as SaveData //PlayerName$|Checkpoint|Score
			ThisSave.PlayerName$ = GetStringToken( ThisString$, "|", 1 )
			ThisSave.Checkpoint = VAL(GetStringToken( ThisString$, "|", 2 ))
			ThisSave.Score = VAL(GetStringToken( ThisString$, "|", 3 ))

		Saves.Insert(ThisSave)
		
		ThisFile$ = GetNextFile()
	Until ThisFile$ = ""

EndFunction

Function GenerateSaves()
	ThisSave = OpenToWrite("saves/tom.dat")
		WriteString(ThisSave, "Tom" + "|" + STR(Random(1,10)) + "|" + STR(Random(1000,10000)) )
	CloseFile(ThisSave)
	
	ThisSave = OpenToWrite("saves/dick.dat")
		WriteString(ThisSave, "Dick" + "|" + STR(Random(1,10)) + "|" + STR(Random(1000,10000)) )
	CloseFile(ThisSave)
	
	ThisSave = OpenToWrite("saves/harry.dat")
		WriteString(ThisSave, "Harry" + "|" + STR(Random(1,10)) + "|" + STR(Random(1000,10000)) )
	CloseFile(ThisSave)
	//OpenBrowser(GetWritePath()+"/media/saves/")
EndFunction

Function CheckESC()
	If GetRawKeyState(27) then End
EndFunction

rope_1=createsprite(0)
SetSpriteSize(rope_1,50,10)
SetSpriteColor(rope_1,0,0,255,255)
SetSpritePosition(rope_1,1800,50)
SetSpritePhysicsOn(rope_1,1)

rope_2=createsprite(0)
SetSpriteSize(rope_2,50,10)
SetSpriteColor(rope_2,0,255,255,255)
SetSpritePosition(rope_2,1800,60)
SetSpritePhysicsOn(rope_2,2)

CreateRopeJoint( rope_1, rope_2, GetSpriteOffsetX(rope_1), GetSpriteOffsetY(rope_1), GetSpriteOffsetX(rope_2), GetSpriteOffsetY(rope_2), 1, 1 )

rope_1=createsprite(0)
SetSpriteSize(rope_1,50,10)
SetSpriteColor(rope_1,0,0,255,255)
SetSpritePhysicsOn(rope_1,1)
SetSpritePositionByOffset(rope_1,30,0)


rope_2=createsprite(0)
SetSpriteSize(rope_2,50,10)
SetSpriteColor(rope_2,0,255,255,255)
SetSpritePhysicsOn(rope_2,2)
SetSpritePositionByOffset(rope_2,30,60)

getxpos_1=GetSpriteXFromWorld( rope_1, GetSpriteOffsetX(rope_1),GetSpriteOffsetY(rope_1))
getypos_1=GetSpriteYFromWorld( rope_1, GetSpriteOffsetX(rope_1),GetSpriteOffsetY(rope_1))
getxpos_2=GetSpriteXFromWorld( rope_2, GetSpriteOffsetX(rope_2),GetSpriteOffsetY(rope_2))
getypos_2=GetSpriteYFromWorld( rope_2, GetSpriteOffsetX(rope_2),GetSpriteOffsetY(rope_2))

CreateRopeJoint( rope_1, rope_2,getxpos_1 , getypos_1, getxpos_2, getypos_2, 10, 1 )

rope_1=createsprite(0)
SetSpriteSize(rope_1,50,10)
SetSpriteColor(rope_1,0,0,255,255)
SetSpritePhysicsOn(rope_1,1)
SetSpritePositionByOffset(rope_1,30,0)


rope_2=createsprite(0)
SetSpriteSize(rope_2,50,10)
SetSpriteColor(rope_2,0,255,255,255)
SetSpritePhysicsOn(rope_2,2)
SetSpritePositionByOffset(rope_2,30,60)

CreateRevoluteJoint ( 1, rope_1, rope_2, 30, 0, 0 )

// Project: rope 
// Created: 2021-07-03
// By: Virtual Nomad
// show all errors
SetErrorMode(2)
SetPhysicsGravity(0,200)

// set window properties
SetWindowTitle( "rope" )
SetWindowSize( 1280,720, 0 )
SetWindowAllowResize( 1 )

// set display properties
SetVirtualResolution( 1280,720)
SetOrientationAllowed( 1, 1, 1, 1 )
SetSyncRate( 60, 0 ) 
SetScissor( 0,0,0,0 )
UseNewDefaultFonts( 1 )

GLOBAL Boxes as Integer []

for x = 1 to 4
	Boxes.Insert (AddBox(x))
next x
Boxes.Sort()

Base = CreateSprite(0)	:	SetSpriteSize(Base, 200,32)	:	SetSpritePositionByOffset(Base,100,300)
SetSpritePhysicsOn(Base,1)	:	SetSpritePhysicsFriction(base,0.0)

Player = CreateSprite(0)	:	SetSpriteSize(Player,32,32)	:	SetSpritePositionByOffset(Player,100,100)
SetSpritePhysicsOn(Player,2)
SetSpritePhysicsCanRotate(Player,0)
SetSpritePhysicsFriction(Player,0.1)
Red = MakeColor(255,0,0)
Hook = 0
Hooked = 0

do
	PX# = GetSpriteXByOffset(Player)	:	PY# = GetSpriteYByOffset(Player)
	MX# = GetPointerX()					:	MY# = GetPointerY()
	LR# = GetJoystickX()*50.0

	SetSpritePhysicsImpulse(Player, PX#,PY#, LR#, 0.0)

	If GetPointerPressed()
		This = GetSpriteHit(MX#,MY#)
		If Boxes.Find(This) => 0
			If Hook > 0
				If GetJointExists(Hook) then DeleteJoint(Hook)
			Endif
			Hook = CreateRopeJoint(PLayer,This,PX#,PY#,MX#,MY#,200.0,1)
			RX# = MX#	:	RY# = MY#
			Hooked = 1
		Endif
	Endif
	
	If Hooked > 0 then DrawLine(PX#,PY#,RX#,RY#,Red,Red)
		
    If GetRawKeyState(27) then End    

    Sync()
loop

Function AddBox(x)
	ThisBox = CreateSprite(0)	:	SetSpriteSize(ThisBox,64,64)
	SetSpritePositionByOffset(ThisBox,200 + x*200,100)
	SetSpriteColor(ThisBox,Random(128,255), Random(128,255), Random(128,255), 255)
	SetSpritePhysicsOn(ThisBox,1)
EndFunction ThisBox

if GetPhysicsCollision(player,rope_2)=1
	ropeAng=GetSpriteAngle(rope_2)
	SetSpriteAngle( player, ropeAng )
endif

if GetPhysicsCollision(player,rope_2)=1
	ropeAng=GetSpriteAngle(rope_2)
	SetSpriteAngle( player, ropeAng )
else
SetSpriteAngle( player, 0 )
endif

if GetPhysicsCollision(player,rope_2)=1
    ropeAng=GetSpriteAngle(rope_2)
    SetSpriteAngle( player, ropeAng )
else
SetSpriteAngle( player, 0 )
endif

rope_Dis=GetSpriteDistance(player,rope_2)
if rope_Dis<5 and GetspriteCollision(player,rope_2)=1
	ropeAng=GetSpriteAngle(rope_2)
	SetSpriteAngle( player, ropeAng )
	SetSpritePhysicsFriction(player,1)
endif

if rope_Dis>5 and GetspriteCollision(player,rope_2)=0
SetSpriteAngle( player, 0 )
endif	

SetSpritePositionByOffset(background_1,PX#,50)

    move=GetSpritePhysicsVelocityX( player )
    x# = GetJoystickX()
    if running=0 then u# = u# +x#/240
    if running=1 then u# = u# +x#/200
   if Move>3 or Move<-3 then SetSpriteUVOffset(background_1,u#,0.0)