Sorry your browser is not supported!

dim gun[a,b]

// Project: GunChest 
// Created: 2022-07-24
// By: Virtual Nomad
// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "GunChest" )
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 Gun
	GunType$, Damage, RateOfFire#, Rarity, Active //Remmeber this order for Save/LoadGuns()
EndType

GLOBAL GunTypes as Gun []
MakeGuns() //Generate some guns to choose from
	
GLOBAL MaxGuns = 4 //Chest holds 5 Guns

GLOBAL GunChest as Gun [] 
GLOBAL CurrentGun
	
GLOBAL File$ = "GunChest.dat"
If GetFileExists(File$)
	LoadGuns()
Else // Add Starter Pistol
	ThisGun as Gun
		ThisGun.GunType$ = GunTypes[0].GunType$
		ThisGun.Damage = GunTypes[0].Damage
		ThisGun.RateOfFire# = GunTypes[0].RateOfFire#
		ThisGun.Rarity = GunTypes[0].Rarity
		ThisGun.Active = 1
		CurrentGun = 0
	GunChest.Insert(ThisGun)
	SaveGuns()
EndIf

do
    If GetRawKeyState(27) then End //[ESC]
    
	Print( "[Space]=Save|[F1]=Sort by Rarity|[F12]=DataFile" +CHR(10))
	
	If GetRawKeyPressed(32) then SaveGuns() //[Space]
	If GetRawKeyPressed(123) then OpenBrowser( GetWritePath()+"/media/"+File$ ) //[F12]

	If GunChest.Length > 0
		Print("Select Gun [1-" + STR(GunChest.Length+1) + "]")
		CheckSwap( GetCharBuffer())
	EndIf
	
	If GunChest.Length > -1
		Print( "RMB to Discard Current Gun" )
		If GetRawMouseRightPressed() then DropGun()
	EndIf
	
    If GunChest.Length < MaxGuns
		Print( "LMB to Add Gun (becomes Current)")
        If GetPointerPressed() and GunChest.Length < MaxGuns then AddGun()
    EndIf

	If GetRawKeyPressed(112) then SortByRarity() //[F1]
	ShowChest()
	Print(GetRawLastKey())
    Sync()
loop

Function SortByRarity()
	Repeat
		SortFlag = 0
		For x = GunChest.Length to 1 Step -1
			If GunChest[x].Rarity < GunChest[x-1].Rarity
				GunChest.swap(x,x-1)
				SortFlag = 1
				Exit 
			EndIf
		Next x
	Until SortFlag = 0
EndFunction

Function DropGun()
	If CurrentGun < GunChest.Length
		GunChest[CurrentGun+1].Active = 1 //CurrentGun stays the same
		GunChest.Remove(CurrentGun)
	Else
		If GunChest.Length > 0
			GunChest[0].Active = 1
			GunChest.Remove(CurrentGun)
			CurrentGun = 0
		Else
			GunChest.Remove(CurrentGun)
			CurrentGun = -1
		EndIf
	EndIf
EndFunction

Function SaveGuns()
	ThisFile = OpenToWrite(File$)
	If GunChest.Length = -1 //if the chest is empty...
		WriteLine(ThisFile,"") //overwrite whatever might currently be in the datafile
	Else //GunType$, Damage, RateOfFire#, Rarity, Active
		For x = 0 to GunChest.Length
			GunType$ = GunChest[x].GunType$
			Dam$ = STR(GunChest[x].Damage)
			RoF$ = STR(GunChest[x].RateOfFire#)
			Rar$ = STR(GunChest[x].Rarity)
			Active$ = STR(GunChest[x].Active)
			WriteLine(ThisFile, GunType$ + "|" + Dam$ + "|" + Rof$ + "|" + Rar$ + "|" + Active$)
		next x
	EndIf
	CloseFile(ThisFile)
EndFunction

Function LoadGuns()
	ThisFile = OpenToRead(File$)
	Repeat 
		ThisLine$ = ReadLine(ThisFile) //GunType$, Damage, RateOfFire#, Active
		If ThisLine$ <> ""
			ThisGun as Gun
				ThisGun.GunType$ = GetStringToken(ThisLine$,"|",1)
				ThisGun.Damage = VAL( GetStringToken(ThisLine$,"|",2) )
				ThisGun.RateOfFire# = VALFloat( GetStringToken(ThisLine$,"|",3) )
				ThisGun.Rarity = VAL( GetStringToken(ThisLine$,"|",4) )
				ThisGun.Active = VAL( GetStringToken(ThisLine$,"|",5) )
				GunChest.Insert(ThisGun)
				If ThisGun.Active = 1 then CurrentGun = GunChest.Length
		EndIf
	Until FileEOF(ThisFile)
	CloseFile(ThisFile)
EndFunction


Function CheckSwap(Gun$)
	Gun = VAL(Gun$)-1
	If Gun > -1 and Gun <= GunChest.Length and Gun <> CurrentGun
		GunChest[CurrentGun].Active = 0
		GunChest[Gun].Active = 1
		CurrentGun = Gun
	EndIf
EndFunction

Function AddGun()
	GunPool as Integer []
	for x = 0 to GunTypes.Length
		Count = GunTypes[x].Rarity
		For y = 1 to Count
			GunPool.Insert(x)
		next y
	next x
	
	NewGun = GunPool[Random(0,GunPool.Length)]
	ThisGun as Gun
		ThisGun.GunType$ = GunTypes[NewGun].GunType$
		ThisGun.Damage = GunTypes[NewGun].Damage
		ThisGun.RateOfFire# = GunTypes[NewGun].RateOfFire#
		ThisGun.Rarity = GunTypes[NewGun].Rarity
	DeselectCurrentGun()
		ThisGun.Active = 1
	GunChest.Insert(ThisGun)
	CurrentGun = GunChest.Length
EndFunction

Function DeselectCurrentGun()
	for x = 0 to GunChest.Length
		If GunChest[x].Active = 1
			GunChest[x].Active = 0
			ExitFunction
		EndIf
	Next x
EndFunction

Function ShowChest()
	Print("")
	For x = 0 to GunChest.Length
		ThisGun$ = STR(x+1) + "=" + GunChest[x].GunType$ + "|Dam:" + STR(GunChest[x].Damage) + "|RoF:" + STR(GunChest[x].RateOfFire#,2) + "|Rarity:" + STR(GunChest[x].Rarity)
		If GunChest[x].Active = 1 then ThisGun$ = ThisGun$ + " <<"
		Print(ThisGun$)
	Next x
EndFunction

Function MakeGuns()
	//Make 3 Pistols
	For x = 1 to 3
		ThisGun as Gun
			ThisGun.GunType$ = "Pistol"
			ThisGun.Damage = x
			ThisGun.RateOfFire# = 4-x
			ThisGun.Rarity = 10-x //(1-10) 10 = Most Common
		GunTypes.Insert(ThisGun)
	Next x
	
	//Make 3 Rifles
	For x = 1 to 3
			ThisGun.GunType$ = "Rifle"
			ThisGun.Damage = 3+x
			ThisGun.RateOfFire# = 1+x
			ThisGun.Rarity = 8-x
		GunTypes.Insert(ThisGun)
	Next x
	
	//Make 3 Machine Guns
	For x = 1 to 3
			ThisGun.GunType$ = "Machine Gun"
			ThisGun.Damage = x
			ThisGun.RateOfFire# = x/3.0
			ThisGun.Rarity = 6-x
		GunTypes.Insert(ThisGun)
	Next x

	//Make 3 Shotguns
	For x = 1 to 3
			ThisGun.GunType$ = "Shotgun"
			ThisGun.Damage = x*3
			ThisGun.RateOfFire# = 2+x
			ThisGun.Rarity = 4-x
		GunTypes.Insert(ThisGun)
	Next x
EndFunction

Function AddGun()
	GunPool as Integer []
	for x = 0 to GunTypes.Length
		Count = GunTypes[x].Rarity
		For y = 1 to Count
			GunPool.Insert(x)
		next y
	next x
...

Function SortByRarity()
	Repeat
		SortFlag = 0
		For x = GunChest.Length to 1 Step -1
			If GunChest[x].Rarity < GunChest[x-1].Rarity
				GunChest.swap(x,x-1)
				SortFlag = 1
				Exit 
			EndIf
		Next x
	Until SortFlag = 0
EndFunction

Function SortByDPS()
	Repeat
		SortFlag = 0
		For x = GunChest.Length to 1 Step -1
			ThisDPS# = GunChest[x].Damage / GunChest[x].RateOfFire#
			ThatDPS# = GunChest[x-1].Damage / GunChest[x-1].RateOfFire#
			
			If ThisDPS# > ThatDPS#
				GunChest.swap(x,x-1)
				SortFlag = 1
				Exit 
			EndIf
		Next x
	Until SortFlag = 0
EndFunction

Type Gun
	name as integer
	gun_type as integer
	rarity as integer[5]
EndType


#constant gun_count = 8
guns as Gun[gun_count]

for i = 0 to gun_count-1
	for j = 0 to 4
		guns[i].rarity[j] = random(1,100)
	next j
next i


for g = 0 to gun_count-1
	for i = 1 to 4
		key = guns[g].rarity[i]
		j = i-1
		
		while (j >= 0)
			if guns[g].rarity[j] > key
				guns[g].rarity[j+1] = guns[g].rarity[j]
				j = j - 1
			else
				exit
			endif
		endwhile
		guns[g].rarity[j+1] = key
	next i
next g

for g = 0 to gun_count-1
	for i = 0 to 4
		print("Gun "+str(g)+": rarity: "+str(guns[g].rarity[i]))
	next i
next g

// Project: test 
// Created: 2022-08-16

// show all errors
SetErrorMode(2)

// set window properties
SetWindowTitle( "test" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 ) // since version 2.0.22 we can use nicer default fonts


type igun
	key as String
	guntype as string
	rarity as String
	id as string
endtype



gun as igun[4]

gun[1].key = "01|01Pistol|0001"
gun[1].guntype = "01Pistol"
gun[1].rarity = "01"
gun[1].id = "0001"

gun[2].key = "99|01Pistol|0002"
gun[2].guntype = "01Pistol"
gun[2].rarity = "99"
gun[2].id = "0002"

gun[3].key = "01|02Rifle|0003"
gun[3].guntype = "02Rifle"
gun[3].rarity = "01"
gun[3].id = "0003"

gun[4].key = "50|03Bazooka|0004"
gun[4].guntype = "03Bazooka"
gun[4].rarity = "50"
gun[4].id = "0004"

gun.sort()

do
for i =1 to 4
	
	print(gun[i].key)
next

sync()

loop

// Project: GunRaritySort 
// Created: 22-08-19

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "GunRaritySort" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )


global gunTypes as string[]
global gunModels as string[]
global rarities as integer[]


InsertEntry("Rifle", "MK 3", 8)
InsertEntry("Minigun", "MK 1", 4)
InsertEntry("Machine Gun", "MK 8", 2)
InsertEntry("Oozi", "MK 2", 5)
InsertEntry("Grenade Launcher", "MK 5", 10)
InsertEntry("Railgun", "MK 1", 7)




do
	if GetRawKeyPressed(27) then exit
	
	ShowGuns()
	
    Sync()
    
loop

end




function InsertEntry(gunType as string, gunModel as string, rarity as integer)
	gunTypes.insert(gunType)
	gunModels.insert(gunModel)
	rarities.insert(rarity)
	
	Sort()
	
endfunction


function Sort()
	local go as integer
	
	repeat
		go = 0
		
		for i = 0 to gunTypes.length - 1
			if gunTypes[i] > gunTypes[i + 1]
				gunTypes.swap(i, i + 1)
				gunModels.swap(i, i + 1)
				rarities.swap(i, i + 1)
				
				go = 1
				
			endif
			
		next i
		
	until go = 0
	
endfunction


function ShowGuns()
	for i = 0 to gunTypes.length
		print(gunTypes[i] + ": " + gunModels[i] + ": " + "Rarity " + str(rarities[gunTypes.find(gunTypes[i])]))
		
	next i
	
endfunction

// Project: GunRaritySort 
// Created: 22-08-19

// show all errors

SetErrorMode(2)

// set window properties
SetWindowTitle( "GunRaritySort" )
SetWindowSize( 1024, 768, 0 )
SetWindowAllowResize( 1 ) // allow the user to resize the window

// set display properties
SetVirtualResolution( 1024, 768 ) // doesn't have to match the window
SetOrientationAllowed( 1, 1, 1, 1 ) // allow both portrait and landscape on mobile devices
SetSyncRate( 30, 0 ) // 30fps instead of 60 to save battery
SetScissor( 0,0,0,0 ) // use the maximum available screen space, no black borders
UseNewDefaultFonts( 1 )


global gunTypes as string[]
global gunModels as string[]
global rarities as integer[]


InsertEntry("Rifle", "MK 3", 8)
InsertEntry("Minigun", "MK 1", 4)
InsertEntry("Machine Gun", "MK 8", 2)
InsertEntry("Oozi", "MK 2", 5)
InsertEntry("Grenade Launcher", "MK 5", 10)
InsertEntry("Railgun", "MK 1", 7)
InsertEntry("Rocket Launcher", "MK 19", 2)




do
	if GetRawKeyPressed(27) then exit
	
	ShowGuns()
	
    Sync()
    
loop

end




function InsertEntry(gunType as string, gunModel as string, rarity as integer)
	gunTypes.insert(gunType)
	gunModels.insert(gunModel)
	rarities.insert(rarity)
	
	Sort()
	
endfunction


function Sort()
	local go as integer
	
	repeat
		go = 0
		
		for i = 0 to rarities.length - 1
			if rarities[i] > rarities[i + 1]
				gunTypes.swap(i, i + 1)
				gunModels.swap(i, i + 1)
				rarities.swap(i, i + 1)
				
				go = 1
				
			endif
			
		next i
		
	until go = 0
	
endfunction


function ShowGuns()
	local gunType as string
	local gunModel as string
	local rarity as string
	
	for i = 0 to gunTypes.length
		gunType = gunTypes[i]
		gunModel = gunModels[i]
		rarity = str(rarities[i])
		
		print(gunTypes[i] + ": " + gunModels[i] + ": " + "Rarity " + rarity)
		
	next i
	
endfunction