#lang racket (require 2htdp/image) (provide (all-defined-out)) (define WIDTH 640) (define HEIGHT 480) (define DELTA 32) (define ENERGY-BOMB 10) (define ENERGY-FIRE 4) (define SOUND? #f) (define IMAGE-GRASS (bitmap "medias/grass.png")) (define IMAGE-ROCK (bitmap "medias/rock.png")) (define IMAGE-BRICK (bitmap "medias/brick.png")) (define IMAGES-BOMB (list (bitmap "medias/bomb1.png") (bitmap "medias/bomb2.png"))) (define IMAGE-PLAYER (bitmap "medias/player.png")) (define IMAGE-ROBOT (bitmap "medias/robot.png"))