Smart Parts - Lego Spybotic Missions: Custom Missions

The Unofficial Resource Centre for Lego Spybotic

MISSIONS

CUSTOM MISSIONS

This space is for the missions we create. How you had a great idea and made it work OR have you tried to recreate a game you loved as a way to learn how to program your Spybot. Whatever it is share it with us. We'll put it here so everyone else can try it.

Simon Mission - MINDSCRIPT

Alain (from France) created this variation on the old sound and light game: Simon.

To start the mission press the START button. Press button 5 on the RC controller and then press the bumper.

One light comes on. Press the appropriate button to make that light appear.

If you are correct the Spybot will move forward.

It will then play the first light again followed by a second light. Press the appropriate buttons to echo that sequence.

Each time the Spybot will add an additional light to the sequence. Each time you echo the sequence correctly it will move forward one step. There can be up to 20 lights in a sequence.

If you make a mistake the Spybot will move backwards one step for each light in the sequence.

When the bumper hits an obstacle, the game is over (you win) and the spybot plays a sound and shakes itself.

To try this mission click SELECT ALL and then use EDIT > COPY to copy the complete file to your clipboard (in IE4+ it should copy directly to the clipboard without this step). Then paste the clipboard into a text editor and save that file with a rcx2 extension along with your other mindscript files. Download the program to your Spybot then follow the directions above.

Select All

program SpybotMissionTemplate
{
	#include<spybot.h>
	#include<globals.h>
	#include<events.h>
	#include<messages.h>

const cGameWatchers = 0  //TODO: define any number of game watchers

const cStateOne = 1  //TODO: define any number of named game states

//TODO: define user constants, global variables, timer, sounds, LED animations & subroutines here:

var bouton = 0 // 0 si l'ordre correspondant au bouton a ete lu et effectué
	var reset  // 1 = demande de reset, 0 sinon
	var niveau  // nombre de niveaux passés
	var consigne // 1 = phase de consigne, 0 = attente resultat

output A on 1 
output B on 2
	
////////////////////////////////////////////////////
//User defined subs called by engine ROM:

sub sInitGame  //called by ROM.MainSub once only, after system initialisation
	{
		nGameWatchers = cGameWatchers

nDisplayMode = cDisplayNothing  //TODO: select display mode

//TODO: insert user initialisation code here
		
			}

sub sGetDisplay(pVar1, pVar2)  //called by ROM.MainSub once per second
	{
		//TODO: insert display update code here (may be empty)
	}

/*
	sub sPollGameWatcher  //continually polled by ROM.MainSub if nState > cStartState
	{
		select nGameWatcher  //nGameWatcher = 0..(nGameWatchers - 1)
		{
			//TODO: insert code for each game watcher here
		}
	}
	*/

sub sPollStateWatcher  //continually polled by ROM.MainSub
	{
		select nState
		{
			when cStartState
			{
				select nStateWatcher  //nStateWatcher = 0..(nStateWatchers - 1)
				{
					when 0
					{
						if nEvents & cBumpEvent <> 0
						{
							Goto_Bead(cStateOne)
						}
					}
				}
			}

//TODO: insert state specific watcher code here
		}
	}

sub sInitState(nState)  //called by ROM.MainSub when engine switches state
	{
		select nState
		{
			when cStartState
			{
				nStateWatchers = 1
				nStateTargetType = cNothing
			}

when cStateOne
			{
				nStateWatchers = 0
				nStateTargetType = cNothing
				LED[iYellowBlink] = 0
			}

//TODO: insert state initialisation code here
		}
	}

Sub vivevent
{
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 80
wait 85
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 80
wait 85
tone 330 for 40
wait 45
tone 392 for 40
wait 45
tone 262 for 40
wait 45
tone 294 for 40
wait 45
tone 330 for 160
wait 165
/* tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 294 for 40
wait 45
tone 294 for 40
wait 45
tone 330 for 40
wait 45
tone 294 for 80
wait 85
tone 392 for 80
wait 85
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 80
wait 85
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 80
wait 85
tone 330 for 40
wait 45
tone 392 for 40
wait 45
tone 262 for 40
wait 45
tone 294 for 40
wait 45
tone 330 for 160
wait 165
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 349 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 330 for 40
wait 45
tone 392 for 40
wait 45
tone 392 for 40
wait 45
tone 349 for 40
wait 45
tone 294 for 40
wait 45
tone 262 for 160
wait 165 */
}

led Ledn1 {
    led cGreen1 for 60
 }

led Ledn2 {
     led cYellow for 60
  }

led Ledn3 {
    led cRed1 for 60
  }

led Ledn4 {
     led cRed3 for 60
 //   led cGreen3 for 50
   }

sub sProcessControllerMessage  //called by the ROM controller task when a controller message is received
	{
		select nControllerButton  //nControllerButton = cControllerButton1..5 (defined in Spybot.h)
		{
			//TODO: handle controller button messages here
			when cControllerButton1
			{
			 	//PlaySound_Bead(sndDizzy, 500)
				// display Ledn1 wait 70
   				bouton = 1
			}
			when cControllerButton2
			{
				//display Ledn2 wait 70
 				//PlaySound_Bead(sndTurbo, 500)
				bouton = 2
								
			}
			when cControllerButton3
			{
				// display Ledn3 wait 70
				//PlaySound_Bead(sndActivateReflect, 500)
				bouton = 3

}

when cControllerButton4
			{
				//display Ledn4 wait 70
				//PlaySound_Bead(sndQuadDamage, 500)
				bouton = 4
			}
			when cControllerButton5  // demande de reset
			{
				PlaySound_Bead(sndDeactivateCloak, 500)
				bouton = 0
				reset = 1  
			}

}
	}

/*
	sub sProcessBotMessage  //called by ROM.MainSub when an IR message has been received
	{
		select nMessage & cMessageCommandMask  //see Messages.h for pre-defined nMessage values
		{
			//TODO: handle bot messages here
		}
	}
	*/

/*
	sub sProcessVLLMessage  //called by ROM.MainSub when a VLL message has been received
	{
		select nMessageValue  //nMessageValue = 0..127 (VLL code)
		{
			//TODO: handle VLL messages here
		}
	}
	*/

sub sUpdateMetabolism  //called by ROM.MainSub once per second
	{
		//TODO: insert any metabolic code here (may be empty)
	}

sub sBumpAction  //called by the ROM bumper watcher task
	{
		//reset = 1
		vivevent 
		nDisplayMode = cDisplayNothing
				Action_Bead(sndTrillUp,ledSparkle,moveDance,2,240)
				Set_Bead(SetRCDisable,0)
				Goto_Bead(cGameOverState)

}

sub Principal_Bead
	{
local step  // variable de progression dans le niveau
local reponse // variable tst de validité de la réponse (1 = OK)
local p1
local p2
local p3
local p4
local p5
local p6
local p7
local p8
local p9
local p10
local p11
local p12
local p13
local p14
local p15
local p16
local p17
local p18
local p19
local p20

EnterBead

monitor ExitBeadEvent
		{
			forever
			{
				try
				{
										// si demande de reset, chargement des parametres pi
					if reset = 1
					{
						reset = 0
						p1 = random 1 to 4
						p2 = random 1 to 4
						p3 = random 1 to 4
						p4 = random 1 to 4
						p5 = random 1 to 4
						p6 = random 1 to 4
						p7 = random 1 to 4
						p8 = random 1 to 4
						p9 = random 1 to 4
						p10 = random 1 to 4
						p11 = random 1 to 4
						p12 = random 1 to 4
						p13 = random 1 to 4
						p14 = random 1 to 4
						p15 = random 1 to 4

niveau = 2
						consigne = 1
						step = 1
					}
					// si phase de consigne, allumer les LEDs en fonction du niveau (switch ON leds according to level)
					if consigne = 1 
					{

select step
						{
						when 1 {
							tone 262 for 60
							wait 65

select p1
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 2 {
							select p2
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 3 {
							select p3
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}

}
						when 4 {
							select p4
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 5 {
							select p5
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 6 {
							select p6
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 7 {
							select p7
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 8 {
							select p8
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 9 {
							select p9
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 10 {
							select p10
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 11 {
							select p11
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 12 {
							select p12
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 13 {
							select p13
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 14 {
							select p14
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }
						when 15 {
							select p15
							{
					
							when 1 {display Ledn1 wait 70}

when 2 { display Ledn2 wait 70}
							when 3 {display  Ledn3 wait 70}
					
							when 4 {display  Ledn4 wait 70}
							}
						  }

} // fin du select step

step = step + 1
					if step = niveau {
						tone 1000 for 60
							wait 65

step = 1
						consigne = 0
					            }

} // fin de la phase consigne

// si phase de reponse, tester la réponse et allumer les LEDs en fct du bouton presse 
					else
					{
					// test réponse
					if bouton > 0 {
						
						select step
						{
						when 1 {
							if bouton = p1 {reponse = 1} else {reponse = 0}
						     }
						when 2 {
							if bouton = p2 {reponse = 1} else {reponse = 0}
						     }
						when 3 {
							if bouton = p3 {reponse = 1} else {reponse = 0}
						     }
						when 4 {
							if bouton = p4 {reponse = 1} else {reponse = 0}
						     }
						when 5 {
							if bouton = p5 {reponse = 1} else {reponse = 0}
						     }
						when 6 {
							if bouton = p6 {reponse = 1} else {reponse = 0}
						     }
						when 7 {
							if bouton = p7 {reponse = 1} else {reponse = 0}
						     }
						when 8 {
							if bouton = p8 {reponse = 1} else {reponse = 0}
						     }
						when 9 {
							if bouton = p9 {reponse = 1} else {reponse = 0}
						     }
						when 10 {
							if bouton = p10 {reponse = 1} else {reponse = 0}
						     }
						when 11 {
							if bouton = p11 {reponse = 1} else {reponse = 0}
						     }
						when 12 {
							if bouton = p12 {reponse = 1} else {reponse = 0}
						     }
						when 13 {
							if bouton = p13 {reponse = 1} else {reponse = 0}
						     }
						when 14 {
							if bouton = p14 {reponse = 1} else {reponse = 0}
						     }
						when 15 {
							if bouton = p15 {reponse = 1} else {reponse = 0}
						     }

} // fin select step

step = step + 1

// gestion LEDs, on éteint le bouton pour ne pas repasser indéfiniment
						select bouton
						{
					
						when 1 {
							display Ledn1 wait 70
							bouton = 0 }

when 2 { display Ledn2 wait 70
							bouton = 0 
							 }

when 3 {display  Ledn3 wait 70
							bouton = 0  }

when 4 {display  Ledn4 wait 70
							bouton = 0 }

} // fin select bouton

if reponse = 0   // le bouton pressé n'est pas le bon ==> FIN
						{
							reset = 1
							PlaySound_Bead(sndQuadDamage, 500)
							// =======> faire reculer le spybot de niveau fois !
							
							repeat (niveau - 2)
							{on A on B
							 backward A backward B wait 40  off A off B
							tone 100 for 10
							wait 15
							}
							
							
						} // fin reponse fausse

else  // reponse juste tester le niveau
						{
							if step = niveau {
								niveau = niveau + 1
								consigne = 1
								step = 1
								 on A
								on B
 forward A forward B wait 40  
  off A off B
} // ===========> faire avancer le spybot							}
						} // fin reponse juste
					} // fin bouton presse

}
				} retry on fail
			}
		} abort on event

try { float [left right] } abort on fail

ExitBead
	}
////////////////////////////////////////////////////

main
	{
		MainSub  //start Spybot ROM engine
	}

////////////////////////////////////////////////////

task cStateBeadTask
	{
		priority cStateBeadTaskPriority

forever
		{
			select nState
			{
				when cStateOne
				{
					Principal_Bead

/* select nZone  //nZone=cAnywhere..cHere
					{
						//TODO: insert state & zone specific actions:
						when cHere
						{
							Principal_Bead
						}
						when cThere
						{
							Principal_Bead

}
						when cAnywhere
						{
							Principal_Bead

}
					} */
				}

//TODO: insert other state actions here
			}
		}
	}
}

DISCLAIMER: All content is provided as is, with no warranty stated or implied regarding the quality or accuracy of any content on or off this site. All trademarks, service marks, and copyrights are property of their respective owners. This site is not sponsored, authorized or sanctioned by the LEGO Group nor representative of their opinions in any way.PRIVACY POLICY