GMBR
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

O maior fórum brasileiro sobre Game Maker!

Entrar

Esqueci-me da senha

Destaques

» Mini Eventos no Fórum!

» Retorno da GMBR em 2020!

» O Futuro da GMBR

» Acervo GMBR

Últimos assuntos
» player não consegue andar
por lovn7 Qui 21 Nov 2024, 13:33

» É possível fazer istó no game maker
por William Lima Qui 21 Nov 2024, 10:56

» Rio Rise - novo launcher do Gta San Andreas SAMP Brasil
por Lua Sáb 16 Nov 2024, 20:22

» Cenario longo x Texture Pages
por josuedemoraes Sáb 16 Nov 2024, 15:31

» Kids' band
por Adilson Lucindo Santos Sex 15 Nov 2024, 12:23

» Engasgos-Troca de Sprites/animações
por josuedemoraes Ter 12 Nov 2024, 01:49

» Block Room - DEMO
por Joton Qua 06 Nov 2024, 22:58

» Game Infinito vertical (subindo)
por macmilam Sáb 26 Out 2024, 12:36

» Retorno da GMBR!!!
por Dancity Ter 22 Out 2024, 16:36

» Máquina de estados
por aminaro Qui 10 Out 2024, 13:33

» como faço pra um objeto colidir com o outro e diminuir a vida do player ?
por josuedemoraes Qui 03 Out 2024, 16:51

» RESOLVIDO: Colisão com objetos moveis
por josuedemoraes Qua 02 Out 2024, 20:28

» Crypt of the Blood Moon
por divin sphere Qua 11 Set 2024, 18:18

» como fazer um objeto seguir?
por divin sphere Dom 18 Ago 2024, 18:08

» Procuro de alguém para Modelar/Texturizar/Animar objetos 3D
por un00brn Dom 11 Ago 2024, 11:10

» Destruição de cenário (estilo DD Tank)
por CoronelZeg Sex 09 Ago 2024, 17:16

» RESOLVIDO-Como destruir uma instancia especifica de um objeto
por josuedemoraes Ter 23 Jul 2024, 00:40

» Automatizar a coleta de id
por GabrielXavier Seg 22 Jul 2024, 18:01

» Preciso de ajuda para concluir um pequeno projeto
por lmoura Qui 27 Jun 2024, 15:45

» ANGULO ACOMPANHAR O OBJETO
por Klinton Rodrigues Qui 27 Jun 2024, 08:34

» Musica reinicia quando sala reinicia
por GabrielXavier Ter 18 Jun 2024, 07:28

» como fazer uma copia de gd
por generico_cube Sex 14 Jun 2024, 15:48

» Square Adventure
por guilherme551 Ter 11 Jun 2024, 09:54

» como posso definir limite de uma variavel
por GabrielXavier Sex 07 Jun 2024, 14:14

» [Resolvido] Dúvida, colisão única de objeto
por vdm842 Sex 24 maio 2024, 09:50


Script jogo tetris

2 participantes

GMBR :: Outros assuntos :: Extensões e Bibliotecas

Ir para baixo

Script jogo tetris Empty Script jogo tetris

Mensagem por Thyago Sáb 17 Ago 2013, 22:43

.Eu fiz esse script apenas para ver se conseguia fazer um tetris com apenas uma sprite um objeto e um script,e deu certo,então resolvi postar aqui.
.Crie um objeto,coloque essa sprite

.Em seguida coloque esse código em step do objeto,e coloque ele no canto da room,pronto funciona apenas no game maker pro
Código:

if(!variable_global_exists('kontrole')){
image_index=0;
image_speed=0;

global.kontrole=id;
kreate=true;
caption_score='Pontos=';
caption_lives='Level=';
show_score=true;
show_lives=true;
lives=1;
global.pesa=noone;
}
else
{
if(global.kontrole=id){
if(!instance_exists(global.pesa)){
global.pesa=instance_create((sprite_width/4)*5,0,object_index);
global.pesa.image_speed=0;
global.pesa.image_inisio=choose(1,5,9,13,17,21,25);
global.pesa.image_index=global.pesa.image_inisio;
global.pesa.alarme=room_speed/lives;
}
if(kreate=true){
kreate=false;
sprite_collision_mask(sprite_index,1,0,0,(sprite_width/4),0,0,0,0)
for(i=0 i<20 i+=1){
if(i<12){

with(instance_create((i*(sprite_width/4)),(sprite_width/4)*20,object_index)){
image_speed=0;
image_index=29;
}
}
with(instance_create(0,((sprite_width/4)*i),object_index)){
image_speed=0;
image_index=29;
}
with(instance_create((sprite_width/4)*11,((sprite_width/4)*i),object_index)){
image_speed=0;
image_index=29;
}}}}
else
if(global.pesa=id){
if(keyboard_check_pressed(vk_up)){
image_index+=1;
}
if(!place_empty(x,y)){image_index-=1;}
if(image_index<image_inisio){image_index=image_inisio+3;}
if(image_index>image_inisio+3){image_index=image_inisio;}
if(keyboard_check(vk_right) and place_empty(x+(sprite_width/4),y)){x+=(sprite_width/4);keyboard_clear(vk_right)}
if(keyboard_check(vk_left) and place_empty(x-(sprite_width/4),y)){x-=(sprite_width/4);keyboard_clear(vk_left)}
if(alarme<=0 or keyboard_check(vk_down)){alarme=room_speed/lives;
if(place_empty(x,y+(sprite_width/4))){
y+=(sprite_width/4);}
else
{
if(!keyboard_check(vk_right) and !keyboard_check(vk_left))or(!keyboard_check_released(vk_right) or !keyboard_check_released(vk_left))
or( ((keyboard_check(vk_right)and !place_free(x+(sprite_width/4),y)) )or ((keyboard_check(vk_left)and !place_free(x-(sprite_width/4),y)) )){
var iii;iii=0;
for(ii=0 iii<4 ii+=1){
if(ii=4 ){
iii+=1;
ii=0;
}
if(collision_point(x+(ii*(sprite_width/4)),y+(iii*(sprite_width/4)),id,1,0)){
bloko=instance_create(x+(ii*(sprite_width/4)),y+(iii*(sprite_width/4)),object_index);
bloko.solid=true;
bloko.image_speed=0;
}}
depth=-1
instance_destroy();
}}}
else
{
alarme-=1;
}}}
if(solid=true ){
if(y=0){game_restart()}
if x=(sprite_width/4){
for(i=0 i<10 and !place_free(x +(sprite_width/4)+((sprite_width/4)*i) ,y) i+=1){
if(i=8){
score+=100;
lives=ceil((max(score,1))/1000);
global.L=y;
with(object_index){
if(solid=true){
if(global.L=y){
instance_destroy();
}
if(global.L>y){
y+=(sprite_width/4);
}}}}}}}


Última edição por Thyago em Sáb 17 Ago 2013, 23:09, editado 2 vez(es)
Thyago
Thyago

Games Ranking : Nota B

Notas recebidas : D+B+B+C+A
Data de inscrição : 24/08/2009
Reputação : 31
Número de Mensagens : 1101
Prêmios : Script jogo tetris Empty

Medalhas x 0 Tutoriais x 0 Moedas x 0

Ouro x 1 Prata x 1 Bronze x 0

Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0

Ir para o topo Ir para baixo

Script jogo tetris Empty Re: Script jogo tetris

Mensagem por PedroX Sáb 17 Ago 2013, 22:54

Muito bom Thyago. O script funciona corretamente. Ficou bem interessante o source.

_________________


Leia o Manual do Iniciante e a Lista de Tutoriais, para aprender bastante sobre o GM.
Recomendo o Manual completo das colisões, bem útil.
O exemplo Criar um chat (banir, kickar, etc) é interessante.

Para seu jogo ficar rápido e legal, aprenda a Aumentar o desempenho do seu jogo.

Aprenda a calcular a velocidade de suas animações


Entre para o Clube do Inglês:
PedroX
PedroX

Games Ranking : Nota B

Notas recebidas : C+B
Data de inscrição : 26/07/2008
Reputação : 311
Número de Mensagens : 6087
Prêmios : Script jogo tetris Empty

Medalhas x 0 Tutoriais x 17 Moedas x 0

Ouro x 0 Prata x 0 Bronze x 0

Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0

https://web.whatsapp.com/send?phone=5519995935953&text=Pedro

Ir para o topo Ir para baixo

Script jogo tetris Empty Re: Script jogo tetris

Mensagem por Thyago Dom 18 Ago 2013, 01:07

.Ficou bem confuso de entender pelo fato de eu tentar compactar o script e teclado do meu notebook não esta funcionando as teclas c,q,y.
.Foi meu que um desafio que criei pra mim mesmo,vou tentar criar outros jogos assim.
Thyago
Thyago

Games Ranking : Nota B

Notas recebidas : D+B+B+C+A
Data de inscrição : 24/08/2009
Reputação : 31
Número de Mensagens : 1101
Prêmios : Script jogo tetris Empty

Medalhas x 0 Tutoriais x 0 Moedas x 0

Ouro x 1 Prata x 1 Bronze x 0

Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0

Ir para o topo Ir para baixo

Script jogo tetris Empty Re: Script jogo tetris

Mensagem por Conteúdo patrocinado


Conteúdo patrocinado


Ir para o topo Ir para baixo

Ir para o topo

- Tópicos semelhantes

GMBR :: Outros assuntos :: Extensões e Bibliotecas

 
Permissões neste sub-fórum
Não podes responder a tópicos