Difference between revisions of "Lipstick grabber"
From RoboWiki
| Line 1: | Line 1: | ||
| − | The | + | The Lipstick grabber. |
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 | + | 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: | Caution: | ||
| Line 9: | Line 9: | ||
<code> | <code> | ||
The source code: | 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 | ||
| + | |||
</code> | </code> | ||
Revision as of 11:40, 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>>>
