quarta-feira, 30 de abril de 2014

Protótipo de Adventure Game

Muito legal o sistema de colisão codado pelo Mike Chambers!
Em cima dele dá  pra montar um game estilo Adventure!!



// MAZE GAME ENGINE
// Mod of Mike Chambers code
// www.mikechambers.com/blog/2009/06/24/using-bitmapdata-hittest-for-collision-detection/

   stop();
   var colide:Boolean = false;
   stage.focus = stage;

// POSICAO INICIAL JOGADOR

   player.x = 130;
   player.y = 70;

// MAPEIA COLISOES MAPA
 
function game(){
    var playerRect:Rectangle = player.getBounds(this);
    var playerOffset:Matrix = player.transform.matrix;
    playerOffset.tx = player.x - playerRect.x;
    playerOffset.ty = player.y - playerRect.y;  
    var playerBmpData = new BitmapData(playerRect.width, playerRect.height, true, 0);
    playerBmpData.draw(player, playerOffset);  
    var mazeRect:Rectangle = maze.getBounds(this);
    var mazeBmpData = new BitmapData(mazeRect.width, mazeRect.height, true, 0);
    var mazeOffset:Matrix = maze.transform.matrix;
    mazeOffset.tx = maze.x - mazeRect.x;
    mazeOffset.ty = maze.y - mazeRect.y;
    mazeBmpData.draw(maze, mazeOffset);  
    var rLoc:Point = new Point(mazeRect.x, mazeRect.y);
    var bLoc:Point = new Point(playerRect.x, playerRect.y);

// COLISAO
    if(mazeBmpData.hitTest(rLoc, 255, playerBmpData, bLoc, 255))   {
        colide = true;
 }

    else    {
    colide = false;
    }

    playerBmpData.dispose();
    mazeBmpData.dispose();
}

// MOVIMENTAÇÃO

var upPressed:Boolean = false;
var downPressed:Boolean = false;
var leftPressed:Boolean = false;
var rightPressed:Boolean = false;

player.addEventListener(Event.ENTER_FRAME, Iniciar);
stage.addEventListener(KeyboardEvent.KEY_DOWN, SetKeyPressed);
stage.addEventListener(KeyboardEvent.KEY_UP, UnsetKeyPressed);

function Iniciar (event:Event){

// FILTROS
   maze.filters = [new BevelFilter()];
   chave.filters = [new DropShadowFilter()];
   coin.filters = [new DropShadowFilter()];
   //player.filters = [new DropShadowFilter()];

// COLISOES NPC

// CHAVE
if (player.hitTestObject(chave)){
trace ("PEGOU A CHAVE!!!");
chave.gotoAndStop(2);
}

// MOEDA
if (player.hitTestObject(coin)){
trace ("PEGOU A MOEDA!!");
coin.gotoAndStop(2);
}

// ENEMY

function game_over(){
stage.removeEventListener(Event.ENTER_FRAME, Iniciar);
player.removeEventListener(Event.ENTER_FRAME, Iniciar);
stage.removeEventListener(KeyboardEvent.KEY_DOWN, SetKeyPressed);
stage.removeEventListener(KeyboardEvent.KEY_UP, UnsetKeyPressed);
nextScene();
}

if (player.hitTestObject(enemy_mc)){
trace ("YOU DIE");
game_over();
}

// PORTAL 01
if (player.hitTestObject(portal)){
trace ("MUDANDO DE SALA!");
portal.gotoAndStop(2); // play sound
gotoAndStop(2);

player.x = 68; // POSICAO NOVA JOGADOR
player.y = 535;
}

// SETA PRA CIMA
if (upPressed) {
player.y -= 5;
game();
if (colide){
player.y += 10;
}
}
// SETA PRA BAIXO
if (downPressed) {
player.y += 5;
game();
if (colide){
player.y -= 10;
}
}

// SETA ESQUERDA
if (leftPressed) {
player.x -= 5;
game();
if (colide){
player.x += 10;
}
}

// SETA DIREITA
if (rightPressed) {
player.x += 5;
game();
if (colide){
player.x -= 10;
}
}
}

function SetKeyPressed(event:KeyboardEvent):void{
switch (event.keyCode) {
case Keyboard.UP: {
upPressed = true;
break; }
case Keyboard.DOWN: {
downPressed = true;
break; }
case Keyboard.LEFT: {
leftPressed = true;
break; }
case Keyboard.RIGHT: {
rightPressed = true;
break; }
}
}

function UnsetKeyPressed(event:KeyboardEvent):void{
switch (event.keyCode) {
case Keyboard.UP: {
upPressed = false;
break; }
case Keyboard.DOWN: {
downPressed = false;
break; }
case Keyboard.LEFT: {
leftPressed = false;
break; }
case Keyboard.RIGHT: {
rightPressed = false;
break; }
}
}

segunda-feira, 28 de outubro de 2013

Quiz Game Jquery Mobile

Projeto de Quiz Game usando a interface do Jquery Mobile!
Todas as questões em uma única página! Bem leve!
















A função abaixo é a engine do jogo :)

// Detecta questão correta
 $("#alt1").click(function() {
 pontos = pontos +1;
 alert("Acertou! Sua pontuação é " + pontos);

// Saída (cria conteudo da div)
var div = document.getElementById("placar");
div.textContent = "Você está com " + pontos + " pontos.";
var text = div.textContent;
 })

quinta-feira, 23 de maio de 2013

Botão liga desliga Flash

botao liga desliga flash.

Videoaula mostrando como criar um botão de som liga/desliga!
Este botão chaveador poderá ser adaptado para utilização em diversos projetos.

segunda-feira, 13 de maio de 2013

Jogo de dados


// JOGO DE DADOS

import flash.events.MouseEvent;
import flash.text.TextField;

// VARIAVEIS
 var aposta:String = "Você apostou no número " + txt_num.text + "!";
var erro:String = "O valor escolhido não é válido";
var certo:String = "Parabéns! Você acertou!";
var errado:String = "Você errou! Tente novamente!";
var chave:Boolean = true; // controla validação de campo
var dado:int = Math.floor(Math.random () * 6) + 1; // número randômico
 var resultado_dado:TextField = new TextField();
resultado_dado.text = String(dado);

// CURSOR HAND EM BOTOES
bot_ok.buttonMode = true;
bot_voltar.buttonMode = true;

// APOSTAR
bot_ok.addEventListener (MouseEvent.CLICK, apostar);
function apostar (e:MouseEvent):void {

// VALIDAR CAMPO
if (txt_num.text < "1" || txt_num.text > "6") {
gotoAndStop (3);
txt_saida.text = erro;
chave = false;
}

// EXIBE APOSTA
else if (chave) {
trace ("O dado caiu no número " + dado);
if (txt_num.text == resultado_dado.text) {
gotoAndStop (3);
txt_saida.text = certo;
}
else {
gotoAndStop (3);
txt_saida.text = errado;
}
}

// VOLTAR
bot_voltar.addEventListener (MouseEvent.CLICK, voltar);
function voltar (evt:MouseEvent):void {
gotoAndStop (2);
}
}

domingo, 22 de abril de 2012

Banner expansível


Iniciando série de tutos de flash, uma solução bem simples para fazer um banner expansível com as2!

01- Crie duas cenas (use shift+f2 para criar as cenas), na primeira cena vc desenha o banner retraído (550 x 70) e na segunda o banner com a dimensão expandida (550 x 400).

02- Na cena 1, crie uma camada acima da camada do banner e crie um botão invisível, isto é um retângulo que ocupe as dimensões do banner, com alpha setado pra 0. Selecione esse botão e inclua a seguinte action:


on (rollOver) {
nextScene();
}

Não esqueça de incluir um stop(); no frame 1 da cena 1

03- Vá para a cena 2 e repita a criação da camada e do botão que ocupe a área do banner expandido, selecione o botão e inclua a seguinte action:


on (rollOut) {
PrevScene();
}
on (release){
gotoURL("endereço do site", "_blank");
}

Basicamente é isso!

sexta-feira, 12 de agosto de 2011

Protótipo para jogo de labirinto


;***********************************************************
;GAME ENGINE LABIRINTO
;***********************************************************
; inicia o jogo
aprenda iniciar
mapa
andar
fim
; carrega o mapa
aprenda mapa
pc
carreguebitmap "mapabase2.bmp
fim
; define movimento de teclas e colisões
aprenda andar
un
ativetecla [atr "x car asciitecla
se :x = "o [mudeestadojanela [Janela de Comandos] 0][]
se :x = "p [mudeestadojanela [Janela de Comandos] 4][]
se :x = "w [pf 1][]
se :x = "s [pt 1][]
se :x = "a [pe 90][]
se :x = "d [pd 90][]]
; detecta colisão apartir da cor do pixel
se pixel = [0 0 0] [pt 10] []
objetivo
andar
fim
; define objetivo
aprenda objetivo
se pixel = [255 0 0] [tat dt pd 90 rotule [YOU WIN] []
fim


segunda-feira, 1 de agosto de 2011

Jogo de dados

Protótipo de jogo de dados feito com quatro procedimentos (dado, chave1, chave2 e joga)! Pode ser adaptado para várias funções, como um joguinho caça-níqueis, por exemplo! Agora só falta trabalhar o design da interface gráfica rs!!!!

;
; JOGO DE DADOS
;
;use este primeiro procedimento para iniciar o jogo
aprenda dado
dt
rjc
; sorteia um número random de 1 a 6:
atr "y sortel [1 2 3 4 5 6]
; customiza saída para erros:
atr "trataerro [esc []]
; cria caixa de questão e atribui variável "x" pra ela:
atr "x pri caixadequestão [Faça sua aposta!][Pense em um número de 1 a 6 e jogue o dado!]

; confere se entrada digitada é número
se énúmero :x [chave1] [esc [Favor digitar apenas números!]esc [Tente novamente!] pare]
fim

aprenda chave1
; confere se entrada digitada é menor que 1
se :x < 1 [esc [Este não é um número válido!] esc [Tente novamente!] pare] [chave2]
fim

aprenda chave2
; confere se entrada digitada é maior que 6 
se :x > 6 [esc [Este não é um número válido!] esc [Tente novamente!] pare] [joga]
fim

aprenda joga
rjc
;joga o dado
esc [O dado foi lançado e você apostou em:]
espere 60
esc :x
espere 60
esc []
esc [O dado parou e o número é:]
espere 60
esc :y
espere 100
esc []
; confere resultado
se :x = :y [esc [Parabéns! Você acertou!]] [esc [Você errou!]]
atr "z caixasimnão [Fim do jogo] [Gostaria de jogar novamente?]
se :z = "verd [dado][pare]
fim