Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #lang battlearena-starwars
- (define(my-rebel)
- (basic-rebel
- #:sprite luke-sprite
- #:speed 20
- #:health 200
- #:max-health 200
- #:item-slots 5
- #:shield 200
- #:max-shield 200))
- (define (my-lightsaber)
- (lightsaber
- #:icon(make-icon "luke" 'blue)
- #:rarity 'rare
- #:color 'blue))
- (define (health-power-up)
- (basic-item
- #:name "Health-power-up"
- #:icon (make-icon "HP" 'green 'white)
- #:on-use (change-health-by 50)
- #:respawn? #t))
- (define (grow-power-up)
- (basic-item
- #:name "Grow power-up"
- #:icon(make-icon "Big" 'red 'white)
- #:on-use (scale-sprite 2
- #:for 100)))
- (define(my-enemy my-sprite)
- (basic-imperial
- #:sprite my-sprite
- #:health 200
- #:shield 200
- #:amount-in-world 5))
- (starwars-game
- #:rebel(my-rebel)
- #:weapon-list(list
- (my-lightsaber))
- #:item-list(list(health-power-up)(grow-power-up))
- #:imperial-list(list
- (my-enemy
- stormtrooper-sprite)
- (my-enemy darthvader-sprite)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement