Author Topic: Memory Blocks (For called in some manner)  (Read 3295 times)

Offline mentalthink

  • Prof. Inline
  • *****
  • Posts: 3372
  • Integrated Brain
    • View Profile
Hey guys I leave this code I did this past weekend... the game it's really simple but good for the brain (I'm joined to the Social Network Lumisity and I love this game. I try to done something similar for self-training)

Only copy/paste to your new project and you can play... or not  =D =D


Code: (glbasic) [Select]
// --------------------------------- //
// Project: memory_01
// Start: Sunday, March 01, 2015
// IDE Version: 12.312

CLEARSCREEN RGB(0xb5, 0xb8, 0x42)
// SETCURRENTDIR("Media") // go to media files
SYSTEMPOINTER TRUE
GLOBAL mx,my,b1,b2
GLOBAL cell_SX = 60

GLOBAL      spr_Cell  = 100
DRAWRECT 0,0,cell_SX,cell_SX,RGB(255,254,253)
GRABSPRITE  spr_Cell ,0,0,cell_SX,cell_SX

GLOBAL      spr_Cell2 = 200
DRAWRECT    0,0,cell_SX,cell_SX,RGB(255,1,1)
GRABSPRITE  spr_Cell2 ,0,0,cell_SX,cell_SX


GLOBAL counter_Cell
GLOBAL board[]
DIM board[6][6]

GLOBAL tiempo   =   0
GLOBAL tiempo_Max = 100

initialize_Cell()
WHILE TRUE
MOUSESTATE mx,my,b1,b2



IF counter_Cell=0
initialize_Cell()
ELSE
collision_Cell ()
paint_Cell ()
ENDIF

draw_Grid ()
SHOWSCREEN
WEND

FUNCTION paint_Cell:
IF tiempo<=tiempo_Max
INC tiempo
FOR n=0 TO BOUNDS(board[],0)-1
FOR j=0 TO BOUNDS(board[],1)-1

IF board[n][j]=0
DRAWSPRITE spr_Cell  , 120+(n*cell_SX), 80+(j*cell_SX)
ELSE
// DRAWSPRITE spr_Cell2 , 120+(n*cell_SX), 80+(j*cell_SX)
ENDIF

NEXT
NEXT
ENDIF

ENDFUNCTION
FUNCTION collision_Cell:

FOR n=0 TO BOUNDS(board[],0)-1
FOR j=0 TO BOUNDS(board[],1)-1

IF BOXCOLL( mx,my, _
1,1 , _
120+(n*cell_SX), 80+(j*cell_SX) , _
cell_SX , cell_SX)

IF board[n][j]=0 AND b1
board[n][j]=1000
DEC counter_Cell
ENDIF

IF  board[n][j]<1000 AND b1
board[n][j]=2000
ENDIF

ENDIF

IF     board[n][j]=1000
DRAWSPRITE spr_Cell  , 120+(n*cell_SX), 80+(j*cell_SX)
ENDIF


NEXT
NEXT


FOR n=0 TO BOUNDS(board[],0)-1
FOR j=0 TO BOUNDS(board[],1)-1
IF    board[n][j]=2000
DRAWSPRITE spr_Cell2 , 120+(n*cell_SX), 80+(j*cell_SX)
ENDIF
NEXT
NEXT

PRINT counter_Cell ,100,100
ENDFUNCTION
FUNCTION initialize_Cell:
//Initialize Board
FOR n=0 TO BOUNDS(board[],0)-1
FOR j=0 TO BOUNDS(board[],1)-1

board[n][j]=RND(2)

IF board[n][j]=0
INC counter_Cell
ENDIF

tiempo   =   0
tiempo_Max = 200
NEXT
NEXT
ENDFUNCTION

FUNCTION draw_Grid:
FOR n=0 TO BOUNDS(board[],0)
DRAWLINE 120+(n*cell_SX),80,120+(n*cell_SX),440, RGB(1,3,1)
NEXT

FOR j=0 TO BOUNDS(board[],1)
DRAWLINE 120,80+(j*cell_SX) ,480,80+(j*cell_SX), RGB(1,3,1)
NEXT
ENDFUNCTION

Offline erico

  • Community Developer
  • Prof. Inline
  • ******
  • Posts: 4310
    • View Profile
    • Portfolio
Re: Memory Blocks (For called in some manner)
« Reply #1 on: 2015-Mar-04 »
heeeey code from Mental! 8)

Now we are talking, let me savour this and I get back to you soon. :good:

Offline erico

  • Community Developer
  • Prof. Inline
  • ******
  • Posts: 4310
    • View Profile
    • Portfolio
Re: Memory Blocks (For called in some manner)
« Reply #2 on: 2015-Mar-04 »
Tough game...

after a few tries, I can start managing perfections.
it does require harder concentration and attention! but it is possible on such grid.

Great stuff, the colors help too as the time it gets exposed, it burns retina enough to give a couple seconds advantage on the brain.

Cool stuff :good: now where is that grand shooter we are waiting for?? (not on the avocado tree me holps... ;/ I will beat you on release :P)

Offline mentalthink

  • Prof. Inline
  • *****
  • Posts: 3372
  • Integrated Brain
    • View Profile
Re: Memory Blocks (For called in some manner)
« Reply #3 on: 2015-Mar-04 »
Thanks Erico, yep the code it's a bit dirty I did in 10 min , basically I put because I think newbie people can learn somethin of my code (you can change easily the time expose the white cubes)

About Black Sun I'm waiting for the new version of GLbasic, I have done all (I thing), the editor runs fine and when I put into the game runs fine too... I think if I take a look to the code I don't remember how works  :( ...

Thanks for comment buddy!!!  :good: