Dot command question - GameCreators Forum

Author

Message

xxelixx

15

Years of Service

User Offline

Joined: 6th Dec 2008

Location: CodeLand

Posted: 6th Aug 2009 23:13

Link

I was wondering if you could make dots randomly appear around your mouse.

Back to top

Profile PM Email Website

chwilly

15

Years of Service

User Offline

Joined: 23rd Feb 2009

Location:

Posted: 7th Aug 2009 03:13

Link

Here is something really basic:

+ Code Snippet


hide mouse

NumOfDots = 20

do

   cls
   
   for z = 0 to NumOfDots

      x = rnd(20)
      y = rnd(20)
   
      ink rgb(rnd(255), rnd(255), rnd(255)), 0
      dot mousex() - 10 + x, mousey() - 10 + y
   
   next z
   
   sync
   
loop

You can of course slow it down with a timer, extend/shorten the range, colors, dot size, etc...

Back to top

Profile PM Email Website

xxelixx

15

Years of Service

User Offline

Joined: 6th Dec 2008

Location: CodeLand

Posted: 7th Aug 2009 21:26

Link

cool thanks

Back to top

Profile PM Email Website

BMacZero

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: E:/ NA / USA

Posted: 11th Aug 2009 07:03

Link

Don't forget to randomize timer() at the top of your code, or it will look the same every time

.

Diggsey: I have a spine and memory, but one memorable guy says he hates me. What am I?

+ Code Snippet

A book!

Back to top

Profile PM Email Website

chwilly

15

Years of Service

User Offline

Joined: 23rd Feb 2009

Location:

Posted: 14th Aug 2009 22:40

Link

I thought I'd revisit this post. I think a square is boring so I decided to make is a happy face:

hide mouse

NumOfDots = 21
dim MouseShape(22, 22) as integer
gosub Shape

do

cls
   
   for y = 0 to 21
      for x = 0 to 21
      
         select MouseShape(y, x)
         
            case 1   
               ink rgb(rnd(255), rnd(255), rnd(255)), 0
            endcase
            case 2
               ink rgb(0, 0, 255), 0
            endcase
            case 3
               ink rgb(0, 255, 0), 0
            endcase
            case 4
               ink rgb(255, 0, 0), 0
            endcase
            case default
               ink rgb(0, 0, 0), 0
            endcase
            
         endselect
         
         dot mousex() - 10 + x, mousey() - 10 + y
      
      next x
   next y

sync
   
loop

Shape:

for y = 0 to 21
   for x = 0 to 21
   
      read MouseShape(y, x)
   
   next x
next y

data     0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
data     0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
data     0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0
data     0, 0, 0, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 0, 0, 0
data     0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 0, 0
data     0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 0, 0
data     0, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
data     1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1
data     3, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 3
data     3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3
data     1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data     0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 4, 4, 4, 1, 1, 1, 1, 4, 4, 4, 1, 1, 1, 1, 1, 0
data     0, 0, 1, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 0, 0
data     0, 0, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 0, 0
data     0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0
data     0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0
data     0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
data     0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0

return

+ Code Snippet

hide mouse

NumOfDots = 21
dim MouseShape(22, 22) as integer
gosub Shape

do

   cls
   
   for y = 0 to 21
      for x = 0 to 21
      
         select MouseShape(y, x)
         
            case 1   
               ink rgb(rnd(255), rnd(255), rnd(255)), 0
            endcase
            case 2
               ink rgb(0, 0, 255), 0
            endcase
            case 3
               ink rgb(0, 255, 0), 0
            endcase
            case 4
               ink rgb(255, 0, 0), 0
            endcase
            case default
               ink rgb(0, 0, 0), 0
            endcase
            
         endselect
         
         dot mousex() - 10 + x, mousey() - 10 + y
      
      next x
   next y

   sync
   
loop 


Shape:

for y = 0 to 21
   for x = 0 to 21
   
      read MouseShape(y, x)
   
   next x
next y          

data     0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0
data     0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
data     0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0
data     0, 0, 0, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 0, 0, 0
data     0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 0, 0
data     0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 2, 2, 2, 2, 1, 1, 1, 0, 0
data     0, 1, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 2, 2, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
data     1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1
data     3, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 3
data     3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3
data     1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 3, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
data     0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 1, 1, 1, 4, 1, 1, 1, 1, 1, 0
data     0, 1, 1, 1, 1, 1, 4, 4, 4, 1, 1, 1, 1, 4, 4, 4, 1, 1, 1, 1, 1, 0
data     0, 0, 1, 1, 1, 1, 1, 4, 4, 4, 4, 4, 4, 4, 4, 1, 1, 1, 1, 1, 0, 0
data     0, 0, 1, 1, 1, 1, 1, 1, 1, 4, 4, 4, 4, 1, 1, 1, 1, 1, 1, 1, 0, 0
data     0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0
data     0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0
data     0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0
data     0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0

return

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Dot command question