Difference between revisions of "Lipstick grabber"
From RoboWiki
| Line 2: | Line 2: | ||
Very dangerous. Feared by many women. | Very dangerous. Feared by many women. | ||
| + | |||
Takes away your lipstick as soon as he spots it and hides it on some other place - so far, no kidnapped lipstick has been rescued alive and there are still many missing. | Takes away your lipstick as soon as he spots it and hides it on some other place - so far, no kidnapped lipstick has been rescued alive and there are still many missing. | ||
Revision as of 11:43, 11 July 2008
The Lipstick grabber.
Very dangerous. Feared by many women.
Takes away your lipstick as soon as he spots it and hides it on some other place - so far, no kidnapped lipstick has been rescued alive and there are still many missing.
Caution: Never ever let your lipstick unattended while suspicion on Lipstick grabber's presence persists.
The source code:
' {$STAMP BS2}
' {$PBASIC 2.5}
counter2 VAR Word
counter VAR Word
counter3 VAR Word
irDetectRight VAR Bit
DO
PULSOUT 14, 1000
PULSOUT 13,600 PULSOUT 12, 900
FREQOUT 2, 1, 38500 irDetectRight = IN0 IF (irDetectRight = 0) THEN
PAUSE 1000 HIGH 1 FOR counter = 1 TO 100 'take PULSOUT 14, 500 PAUSE 5 NEXT FOR counter = 1 TO 100 'go forward PULSOUT 14, 500 PULSOUT 13,650 PULSOUT 12,850 PAUSE 5 NEXT FOR counter = 1 TO 60 'turn left PULSOUT 14, 500 PULSOUT 13,650 PULSOUT 12,650 PAUSE 5 NEXT FOR counter = 1 TO 50 'go forward PULSOUT 14, 500 PULSOUT 13,650 PULSOUT 12,850 PAUSE 20 NEXT FOR counter2 = 1 TO 100 'release PULSOUT 14, 1000 LOW 1 PAUSE 10 NEXT FOR counter3 = 1 TO 50 'go back PULSOUT 13,900 PULSOUT 12, 600 PAUSE 10 NEXT FOR counter = 1 TO 3 'sound: finished! FREQOUT 4, 300, 4000 PAUSE 10 NEXT GOTO Finish
ENDIF LOOP Finish: END
Picture: <<<picture>>>
Caught on tape!!! <<<movie>>>
