2048

[Dadido3]

Hello,

I'm here to share my little clone of the game 2048.

It also includes some AIs, which are not really intelligent yet.
They mostly get to the 1024 Tile, sometimes 2048.
But thats where you are coming in, just try to write your own AI and upload the results here.
There is an example include for an AI which just randomly moves.
Just copy it, change the name and include it to the main file.



Links

• Project on GitHub
  Releases on GitHub (Download here)

Have Fun!

[falsam]

Nice job. A suggestion: Sends a message when the game is blocked. Thank you Dadido3

[Fred]

Good

[davido]

Nice.
Thank you for sharing.

[Kwai chang caine]

Great !!!
Thanks for sharing

[Kwai chang caine]

Two hours of "Works" and only 3168 points with 256 max
Decidedly ...kcc is also strong in game than in programming
Again thanks for this code

[Poshu]

Just tried:
- with a few modifications, it works on OSx
- Did you change something to the random placement for the new tile? It felt much easier than the web version
- There is no message when you create the first 2048 tiles!
- Colors are different, and I felt lost...

[Dadido3]

Just tried:
- with a few modifications, it works on OSx
- Did you change something to the random placement for the new tile? It felt much easier than the web version
- There is no message when you create the first 2048 tiles!
- Colors are different, and I felt lost...

Thanks for the feedback.

Could you give me the changes you made to make it work on OS X?
And do you also store the settings somewhere?
Or did you just commented out all the setting stuff?

Because of the random tile generation: I updated the game yesterday.
Now there is a 10% chance that a 4 will appear, and a 90% chance that a 2 will appear, the same behaviour as in the original version.
Before the update it was 50/50.

Regarding the message: If you want the message add it
I see no real benefit in it, it's more annoying than helpful in my opinion.

Summary of the update:

• The "Simple" Ai works now much better, it gets mostly to the 2048 tile and sometimes 4096
• As mentioned above: A 2 will now spawn with a probability of 90%
• Added a "Game Over" message
• Added a highscore (only local)

[davido]

Even better.
Thank you.

[Poshu]

here it is (it's a lazy fix, because I just wanted it to work :p) :

Code: Select all

CompilerIf #PB_Compiler_OS = #PB_OS_Windows
	
	Procedure.s SHGetFolderPath(CSIDL)
	  Protected *String = AllocateMemory(#MAX_PATH+1)
	  SHGetFolderPath_(0, CSIDL, #Null, 0, *String)
	  Protected String.s = PeekS(*String)
	  FreeMemory(*String)
	  ProcedureReturn String
	EndProcedure
	
CompilerElseIf #PB_Compiler_OS = #PB_OS_MacOS
	#CSIDL_APPDATA = 0
	
	Procedure.s SHGetFolderPath(CSIDL)
		ProcedureReturn GetHomeDirectory() + "Library/Application Support/"
	EndProcedure
CompilerEndIf