Placing images at the current mousex/mousey and keeping them there.

Author

Message

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 28th Jun 2008 02:40

Link

I'm trying to create a game where you shoot targets with a paintball gun. Each time you pull the trigger, the desired effect is an image, selected at random, pasted at the current mousex and mousey, that will remain there.

I tried setting up an array so that on every click, the current mousex and mousey are saved. At the same time, I tried pasting a randomly selected sprite.

Set Display Mode 1024,768,32
Sync On
Hide Mouse

Randomize Timer()
MX = mousex()
MY = mousey()
PSC = 200 `start number of splat sprites.

Global lcommand as Integer
Global command as Integer
Global MTrigger as String

load image "tex\spl\splat1b.tga",101,1
load image "tex\spl\splat1r.tga",102,1
load image "tex\spl\splat1g.tga",103,1
load image "tex\spl\splat1o.tga",104,1
load image "tex\spl\splat2b.tga",105,1
load image "tex\spl\splat2r.tga",106,1
load image "tex\spl\splat2g.tga",107,1
load image "tex\spl\splat2o.tga",108,1
load image "tex\spl\splat3b.tga",109,1
load image "tex\spl\splat3r.tga",110,1
load image "tex\spl\splat3g.tga",111,1
load image "tex\spl\splat3o.tga",112,1

do
gosub Setup
do
gosub Fire
gosub ScrRf
loop
`gosub Level
`gosub EndGame
loop

Setup:
`dim PSx()
`dim PSy()

sprite 101,0,0,101
sprite 102,0,0,102
sprite 103,0,0,103
sprite 104,0,0,104
sprite 105,0,0,105
sprite 106,0,0,106
sprite 107,0,0,107
sprite 108,0,0,108
sprite 109,0,0,109
sprite 110,0,0,110
sprite 111,0,0,111
sprite 112,0,0,112
return

ScrRf:
sync
return

Fire:
OnLMC()
if MTrigger="SHOOT"
   inc PSC,1
`   PSx(PSC) = MX
`   PSy(PSC) = MY
   PSI = 101+rnd(11)
   REM This is what I want to work
`   sprite PSC,PSx(PSC),PSy(PSC),PSI
   REM This is as close as I can come
   sprite PSC,MX,MY,PSI
endif
return

Function OnLMC()

lcommand=command
   command=MouseClick()

` not held Down
   if command=0 and lcommand=0 then MTrigger="NUL"
   ` held Down
   if command=1 and lcommand=0 then MTrigger="SHOOT"
   ` just Been Pressed
   if command=1 and lcommand=1 then MTrigger="NUL"
   ` just been Lifted
   if command=0 and lcommand=1 then MTrigger="NUL"

Endfunction

+ Code Snippet

Set Display Mode 1024,768,32
Sync On
Hide Mouse

Randomize Timer()
MX = mousex()
MY = mousey()
PSC = 200 `start number of splat sprites.

Global lcommand as Integer
Global command as Integer
Global MTrigger as String

load image "tex\spl\splat1b.tga",101,1
load image "tex\spl\splat1r.tga",102,1
load image "tex\spl\splat1g.tga",103,1
load image "tex\spl\splat1o.tga",104,1
load image "tex\spl\splat2b.tga",105,1
load image "tex\spl\splat2r.tga",106,1
load image "tex\spl\splat2g.tga",107,1
load image "tex\spl\splat2o.tga",108,1
load image "tex\spl\splat3b.tga",109,1
load image "tex\spl\splat3r.tga",110,1
load image "tex\spl\splat3g.tga",111,1
load image "tex\spl\splat3o.tga",112,1

do
gosub Setup
do
gosub Fire
gosub ScrRf
loop
`gosub Level
`gosub EndGame
loop

Setup:
`dim PSx()
`dim PSy()

sprite 101,0,0,101
sprite 102,0,0,102
sprite 103,0,0,103
sprite 104,0,0,104
sprite 105,0,0,105
sprite 106,0,0,106
sprite 107,0,0,107
sprite 108,0,0,108
sprite 109,0,0,109
sprite 110,0,0,110
sprite 111,0,0,111
sprite 112,0,0,112
return


ScrRf:
sync
return

Fire:
OnLMC()
if MTrigger="SHOOT"
   inc PSC,1
`   PSx(PSC) = MX
`   PSy(PSC) = MY
   PSI = 101+rnd(11)
   REM This is what I want to work
`   sprite PSC,PSx(PSC),PSy(PSC),PSI
   REM This is as close as I can come
   sprite PSC,MX,MY,PSI
endif
return

Function OnLMC()

   lcommand=command
   command=MouseClick()

   ` not held Down
   if command=0 and lcommand=0 then MTrigger="NUL"
   ` held Down
   if command=1 and lcommand=0 then MTrigger="SHOOT"
   ` just Been Pressed
   if command=1 and lcommand=1 then MTrigger="NUL"
   ` just been Lifted
   if command=0 and lcommand=1 then MTrigger="NUL"

Endfunction

Problem is, I don't think arrays work inside an "if" command, rendering my attempt at saving the mousex/mousey of old clicks futile.

If anyone has played Goldeneye on N64 with the paintball cheat, I'm trying to do exactly the same thing, but with 2D instead of 3D.

Attachments

Login to view attachments

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 28th Jun 2008 04:15 Edited at: 28th Jun 2008 04:19

Link

Maybe this will help. When getting something like a mouse position, make sure you put it in the loop so it will be continuously updating when the player moves the mouse.

Click and hold to make circles appear where you click. Keep in mind that there are better ways of organizing this (such as the use of a User Defined Type) but I tried to keep it sort of simple...

Sync On
Sync Rate 60
Randomize Timer()

rem Create some images
Create Bitmap 1,10,10

rem RED CIRCLE
ink rgb(255,0,0),0
circle 5,5,5
get image 1,0,0,10,10

rem GREEN CIRCLE
ink rgb(0,255,0),0
circle 5,5,5
get image 2,0,0,10,10

rem YELLOW CIRCLE
ink rgb(255,255,0),0
circle 5,5,5
get image 3,0,0,10,10

Delete Bitmap 1

rem Set MaxSprite to be equal to 500. We can have up to 500 sprites
MaxSprite=500

`Store Sprite X positions, Sprite Y positions, and Sprite Images for up to MaxSprite sprites.
DIM SpriteX(MaxSprite)
DIM SpriteY(MaxSprite)
DIM SpriteImage(MaxSprite)

for s = 1 to MaxSprite
    rem Set their coordinates offscreen so we can't see them
    `(There are other ways that are not as messy as this one)
    SpriteX(s)=9000
    SpriteY(s)=9000
    `Set the image to 1 so we don't get any errors
    SpriteImage(s)=1
next s

rem The sprite that is ready to go on screen.
SpriteNumber=1

Do

rem Set mouse X and Y positions in a variable WITHIN THE LOOP SO THEY WILL CHANGE
mx=mousex()
my=mousey()

rem Store mouse X and Y positions for a sprite when you click
if mouseclick()=1
    SpriteX(SpriteNumber)=mx
    SpriteY(SpriteNumber)=my
    SpriteImage(SpriteNumber)=1+rnd(2)
    rem Go to the next sprite
    inc SpriteNumber,1
    rem Don't allow the sprite number to go over MaxSprite...
    if SpriteNumber>MaxSprite then SpriteNumber=1
endif

rem Update the sprites
for s = 1 to MaxSprite
    Sprite s,SpriteX(s),SpriteY(s),SpriteImage(s)
next s

Sync
Loop

+ Code Snippet

Sync On
Sync Rate 60
Randomize Timer()


rem Create some images
Create Bitmap 1,10,10

rem RED CIRCLE
ink rgb(255,0,0),0
circle 5,5,5
get image 1,0,0,10,10

rem GREEN CIRCLE
ink rgb(0,255,0),0
circle 5,5,5
get image 2,0,0,10,10

rem YELLOW CIRCLE
ink rgb(255,255,0),0
circle 5,5,5
get image 3,0,0,10,10

Delete Bitmap 1

rem Set MaxSprite to be equal to 500. We can have up to 500 sprites
MaxSprite=500

`Store Sprite X positions, Sprite Y positions, and Sprite Images for up to MaxSprite sprites.
DIM SpriteX(MaxSprite)
DIM SpriteY(MaxSprite)
DIM SpriteImage(MaxSprite)

for s = 1 to MaxSprite
    rem Set their coordinates offscreen so we can't see them
    `(There are other ways that are not as messy as this one)
    SpriteX(s)=9000
    SpriteY(s)=9000
    `Set the image to 1 so we don't get any errors
    SpriteImage(s)=1
next s

rem The sprite that is ready to go on screen.
SpriteNumber=1

Do

rem Set mouse X and Y positions in a variable WITHIN THE LOOP SO THEY WILL CHANGE
mx=mousex()
my=mousey()

rem Store mouse X and Y positions for a sprite when you click
if mouseclick()=1
    SpriteX(SpriteNumber)=mx
    SpriteY(SpriteNumber)=my
    SpriteImage(SpriteNumber)=1+rnd(2)
    rem Go to the next sprite
    inc SpriteNumber,1
    rem Don't allow the sprite number to go over MaxSprite...
    if SpriteNumber>MaxSprite then SpriteNumber=1
endif

rem Update the sprites
for s = 1 to MaxSprite
    Sprite s,SpriteX(s),SpriteY(s),SpriteImage(s)
next s

Sync
Loop

And, if you would like, a tutorial on arrays can be found here:
http://forum.thegamecreators.com/?m=forum_view&t=84908&b=7

Metal Runner
Snow Demo

Back to top

Profile PM Email

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 28th Jun 2008 04:41

Link

Oops, forgot to set up my arrays (dim PSx(integer), not dim PSx()). Thanks! That's a great snippet.

Back to top

Profile PM Email

Deego

16

Years of Service

User Offline

Joined: 21st May 2008

Location:

Posted: 28th Jun 2008 05:34

Link

Here's the working code, for future reference.

Sync On
Sync Rate 60
Randomize Timer()

Global MTrigger as String
Global command as Integer
Global lcommand as Integer

load image "tex\spl\splat1b.tga",1,1
load image "tex\spl\splat1r.tga",2,1
load image "tex\spl\splat1g.tga",3,1
load image "tex\spl\splat1o.tga",4,1
load image "tex\spl\splat2b.tga",5,1
load image "tex\spl\splat2r.tga",6,1
load image "tex\spl\splat2g.tga",7,1
load image "tex\spl\splat2o.tga",8,1
load image "tex\spl\splat3b.tga",9,1
load image "tex\spl\splat3r.tga",10,1
load image "tex\spl\splat3g.tga",11,1
load image "tex\spl\splat3o.tga",12,1

rem Set MaxSprite to be equal to 500. We can have up to 500 sprites
MaxSprite=30

`Store Sprite X positions, Sprite Y positions, and Sprite Images for up to MaxSprite sprites.
DIM SpriteX(MaxSprite)
DIM SpriteY(MaxSprite)
DIM SpriteImage(MaxSprite)

for s = 1 to MaxSprite
    rem Set their coordinates offscreen so we can't see them
    `(There are other ways that are not as messy as this one)
    SpriteX(s)=9000
    SpriteY(s)=9000
    `Set the image to 1 so we don't get any errors
    SpriteImage(s)=1
next s

rem The sprite that is ready to go on screen.
SpriteNumber=1

Do

rem Set mouse X and Y positions in a variable WITHIN THE LOOP SO THEY WILL CHANGE
mx=mousex()
my=mousey()
if SpriteNumber = MaxSprite then SpriteNumber = 1
rem Store mouse X and Y positions for a sprite when you click
OnLMC()
if MTrigger="SHOOT"
    SpriteX(SpriteNumber)=mx
    SpriteY(SpriteNumber)=my
    SpriteImage(SpriteNumber)=1+rnd(11)
    rem Go to the next sprite
    inc SpriteNumber,1
    rem Don't allow the sprite number to go over MaxSprite...
    if SpriteNumber = MaxSprite then SpriteNumber = 1
endif

rem Update the sprites
for s = 1 to MaxSprite
    Sprite s,SpriteX(s),SpriteY(s),SpriteImage(s)
    scale sprite s,50
next s

Sync
Loop

Function OnLMC()
   lcommand=command
   command=MouseClick()

` not held Down
   if command=0 and lcommand=0 then MTrigger="NUL"
   ` held Down
   if command=1 and lcommand=0 then MTrigger="SHOOT"
   ` just Been Pressed
   if command=1 and lcommand=1 then MTrigger="NUL"
   ` just been Lifted
   if command=0 and lcommand=1 then MTrigger="NUL"

Endfunction

+ Code Snippet

Sync On
Sync Rate 60
Randomize Timer()

Global MTrigger as String
Global command as Integer
Global lcommand as Integer

load image "tex\spl\splat1b.tga",1,1
load image "tex\spl\splat1r.tga",2,1
load image "tex\spl\splat1g.tga",3,1
load image "tex\spl\splat1o.tga",4,1
load image "tex\spl\splat2b.tga",5,1
load image "tex\spl\splat2r.tga",6,1
load image "tex\spl\splat2g.tga",7,1
load image "tex\spl\splat2o.tga",8,1
load image "tex\spl\splat3b.tga",9,1
load image "tex\spl\splat3r.tga",10,1
load image "tex\spl\splat3g.tga",11,1
load image "tex\spl\splat3o.tga",12,1

rem Set MaxSprite to be equal to 500. We can have up to 500 sprites
MaxSprite=30

`Store Sprite X positions, Sprite Y positions, and Sprite Images for up to MaxSprite sprites.
DIM SpriteX(MaxSprite)
DIM SpriteY(MaxSprite)
DIM SpriteImage(MaxSprite)

for s = 1 to MaxSprite
    rem Set their coordinates offscreen so we can't see them
    `(There are other ways that are not as messy as this one)
    SpriteX(s)=9000
    SpriteY(s)=9000
    `Set the image to 1 so we don't get any errors
    SpriteImage(s)=1
next s

rem The sprite that is ready to go on screen.
SpriteNumber=1

Do

rem Set mouse X and Y positions in a variable WITHIN THE LOOP SO THEY WILL CHANGE
mx=mousex()
my=mousey()
if SpriteNumber = MaxSprite then SpriteNumber = 1
rem Store mouse X and Y positions for a sprite when you click
OnLMC()
if MTrigger="SHOOT"
    SpriteX(SpriteNumber)=mx
    SpriteY(SpriteNumber)=my
    SpriteImage(SpriteNumber)=1+rnd(11)
    rem Go to the next sprite
    inc SpriteNumber,1
    rem Don't allow the sprite number to go over MaxSprite...
    if SpriteNumber = MaxSprite then SpriteNumber = 1
endif

rem Update the sprites
for s = 1 to MaxSprite
    Sprite s,SpriteX(s),SpriteY(s),SpriteImage(s)
    scale sprite s,50
next s

Sync
Loop

Function OnLMC()
   lcommand=command
   command=MouseClick()


   ` not held Down
   if command=0 and lcommand=0 then MTrigger="NUL"
   ` held Down
   if command=1 and lcommand=0 then MTrigger="SHOOT"
   ` just Been Pressed
   if command=1 and lcommand=1 then MTrigger="NUL"
   ` just been Lifted
   if command=0 and lcommand=1 then MTrigger="NUL"

Endfunction

The SpriteNumber reset has to be before illegal numbers will be used in the code.

Back to top

Profile PM Email

Sixty Squares

18

Years of Service

User Offline

Joined: 7th Jun 2006

Location: Somewhere in the world

Posted: 28th Jun 2008 15:09

Link

Glad to be of help