Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

developer forums

Code Snippets / AI Example

Author

Message

CuCuMBeR

21

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 17th Mar 2005 05:35

Click the button

 = "CLICK ME"

x1 = text width (button$) - text width (button$)
x2 = text width (button$)+ 2
y1 = text height (button$) - text height (button$)
y2 = text height (button$)+ 1

ink rgb(250,250,250),0
box x1,y1,x2,y2

ink rgb(250,0,0),0
text 1,1,button$

get image 1, x1,y1,x2+1,y2+1
cls

sprite 1,1,1,1

sync on
do

   mx# = mousex() : my# = mousey()
   sx# = sprite x(1) : sy# = sprite y(1)
   ssx# = sprite width(1) : ssy# = sprite height (1)

   if mx# => sx#-ssx# and mx# =< sx#+ssx# and my# => sy#-ssy# and my# =< sy#+ssy#
      hehe = 2
      Randomize rnd(400)
      sx# = rnd(640) : sy# = rnd(480)
      sx# = rnd(640) : sy# = rnd(480)
         if sx# => 640 - sprite width(1) then sx# = 640 - sprite width(1)
         if sy# => 480 - sprite height(1) then sy# = 480 - sprite height(1)
            sprite 1,sx#, sy#, 1
   endif

center text screen width() / 2.0, 0, "AI EXAMPLE NO 001"
center text screen width() / 2.0, 14, "VEEEEERY SMART BUTTON"

sync
loop

Back to top

Profile PM

Benjamin

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 17th Mar 2005 07:38

Well, that game was very fun.

"Lets migrate like bricks" - Me

Back to top

Profile PM Email

CuCuMBeR

21

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 17th Mar 2005 20:13

hehe

Back to top

Profile PM

Robot

20

Years of Service

User Offline

Joined: 27th May 2004

Location:

Posted: 18th Mar 2005 01:44

The button beat me

The happenings of tommorow are behind us now

Back to top

Profile PM

CuCuMBeR

21

Years of Service

User Offline

Joined: 11th Jan 2003

Location: Turkey

Posted: 18th Mar 2005 03:31

even that was kinda joke, im trying to make a thinking button out of it.

Back to top

Profile PM

Back to top

Login to post a reply

Server time is: 2024-11-23 14:01:04
Your offset time is: 2024-11-23 14:01:04