Sorry your browser is not supported!

 rem Fruits
NumberOfFruits = 20
FruitColor = 0
for t = 1 to NumberOfFruits
	load object "C:\Users\Dania\Desktop\example\media\watermelongame.x", t + NumberOfFruits
   texture object t + NumberOfFruits,8
   position object t + NumberOfFruits ,Rnd(1900)-950,30,Rnd(1900)-950
   make object collision box t + NumberOfFruits ,-25,-25,-25,25,25,25,0
next t 

for t = 1 to NumberOfFruits : rem If I hit one of the little fruits
         if Object collision(1,t + NumberOfFruits)>0

            MyScore = MyScore + 100 : rem How many points each little fruit is worth

            ` delete object t + NumberOfFruits
            exclude object on t + NumberOfFruits
         endIf
      next t

 for x = 1 to 20
load object "C:\Users\Dania\Desktop\example\media\mushroomgame.x",101
texture object 101,9
position object 101 ,Rnd(1900)-950,30,rnd(1900)-950
make object collision box 101,-25,-25,-25,-25,-25,-25,0
next x 

for x = 1 to 20 :
   if Object collision (1,101)>0 
   	exclude object on 101
   	MyScore = MyScore - 100 : Rem How many points if you hit the poison mushroom
   endif
   next x 

 rem Bad Mushrooms
BadMushroom = 20
for m = 1 to BadMushroom 
	load object "C:\Users\Dania\Desktop\example\media\mushroomgame.x",m + BadMushroom
	position object m + BadMushroom, Rnd(1900)-950,30,Rnd(1900)-950
	texture object m + BadMushroom,9
	make object collision box m + BadMushroom,-25,-25,-25,25,25,25,0
next m

for m = 1 to BadMushroom : rem if I hit the mushroom
     	 if Object collision(1,m + BadMushroom)>0
     		MyScore = MyScore - 100 : rem how much points I get
     		exclude object on m + BadMushroom
     	endif
     next m 

Time = 250
for m = 21 to BadFruit
      	If Object collision (1,m+ BadFruit)>0
      	texture object 1,10 
        Print "POISONED:" ;(Time/60+1)
        If Time = 0
           texture object 1,1
        endif
      	MyScore = MyScore - 100 : Rem how many points the mushroom is worth
      	exclude object on m + BadFruit
      	endif
      next m 
if Time > 0 then Time = Timer - 1 : rem Timer countdown 

Time = 250
for m = 21 to BadFruit
      	If Object collision (1,m+ BadFruit)>0
      	texture object 1,10 
        Print "POISONED:" ;(Time/60+1)
        Sync
        If Time = 0
           texture object 1,1
        endif
      	MyScore = MyScore - 100 : Rem how many points the mushroom is worth
      	exclude object on m + BadFruit
      	endif
      next m 
if Time > 0 then Time = Timer - 1 : rem Timer countdown 

for m = 21 to BadFruit
         If Object collision (1,m+ BadFruit)>0 rem if I hit the mushroom
            texture object 1,10
            play sound 8
         	MyScore = MyScore - 100 : Rem mushroom points
         	exclude object on m + BadFruit
         	texture object 1,10
         	for w=0 to 180``sync rate of 60 fps*3 seconds=180 sync cycles
         		center text 320,440,"POISONED" 
         		sync
         	next w
         endif
      next m

environment setup,sync rate and screen size etc

load all media

make and set up objects

initialise variables

call splash screen function

main loop
do
  check for movement function
  check for collision with obstacle function
  check for collision with good fruits function
  check for collision with bad fruits function
  check for win funtion
  check for loose function
  check for quit funtion
  sync
loop
end

function splashscreen()
  display flash screen
  wait for key press
endfuntion

function movement()
  what happens
endfuntion

function collision()
  what happens if i collide with obstacles
endfuntion

function good fruit collision()
  what happens if i collide with good fruit
endfuntion

function bad fruit collision()
  what happens if i collide with bad fruit
endfuntion

function win()
  check if i win
  what happens if i win
endfuntion

function lose()
  check if i lose
  what happens if i lose
endfuntion

function quit()
  check if i quit
  what happens if i quit
endfuntion