CodeBase - rock paper scissors

Return to the CodeBase listing

Category: 2D

Version: 1.0

0

0

Information

Uploaded: 3rd Dec 2007 03:02

Modified: 3rd Dec 2007 03:04

Author: Shaky Badger

Summary

A game of rock paper scissors

Full Description

Rock paper scissors, broken currently

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

sync on

sync rate 30

load image "start.bmp", 4

load image "startsprite1.bmp", 5

load image "clicksprite.bmp", 6

load image "rock.bmp", 7

load image "warrior.bmp",8

load image "chooserock.bmp", 9

load image "win.bmp", 10

load image "continue.bmp", 11

load image "endsprite1.bmp", 12

load image "choosepaper.bmp", 13

load image "choosescissors.bmp", 14

load image "tie.bmp", 15

load image "rockvspaper.bmp", 16

load image "rockvsscissors.bmp", 17

load image "papervsrock.bmp", 18

load image "papervsscissors.bmp", 19

load image "scissorsvspaper.bmp", 20

load image "scissorsvsrock.bmp", 21

computer=rnd(2)+1

do

paste image 4, 0, 0

sprite 1, 140, 200, 5

hide sprite 1

sprite 2, 185, 320, 12

hide sprite 2

`if mouse is clicked, test for sprite collision

if mouseclick()=1

sprite 30, mousex(), mousey(), 6

clickstart=sprite collision(30,1)

clickend=sprite collision(30,2)

endif

`if start has been clicked

if clickstart=1

`past background image

paste image 8, 0, 0

`values of computer and quickstart

text 20, 20, str$(computer22)

text 20, 40, str$(clickstart)

`paste clickable RPS sprites then hide them

sprite 3, 27, 220, 9

hide sprite 3

sprite 4, 265, 220, 13

hide sprite 4

sprite 5, 460, 220, 14

hide sprite 5

`delete original start/quit sprites

delete sprite 1

delete sprite 2

wait 100

endif

`if mouse is clicked and the mouse sprite collides with RPS sprite

if mouseclick()=1

sprite 30, mousex(),mousey(), 6

clickpaper=sprite collision(30,13)

clickpaper=clickpaper+200

clickscissors=sprite collision(30,14)

clickscissors=clicksissors+300

clickrock=sprite collision(30,9)

clickrock=clickrock+100

`hide sprite 30

endif

`if rock is clicked

if clickrock=101

if computer=1

paste image 15, 0, 0

wait 1000

endif

if computer=2

paste image 16, 0, 0

wait 1000

endif

if computer=3

paste image 17, 0, 0

wait 1000

endif

endif

`if scissors is clicked

if clickscissors=301

if computer=1

paste image 21, 0, 0

endif

if computer=2

paste image 20, 0, 0

endif

if computer=3

paste image 15, 0, 0

endif

endif

`if paper is clicked

if clickpaper=201

if computer=1

paste image 18, 0, 0

endif

if computer=2

paste image 15, 0, 0

endif

if computer=3

paste image 19, 0, 0

endif

endif

`if end is clicked

if clickend=1

end

endif

sync

loop

Download

Please login to download

Comments

No comments yet.