home *** CD-ROM | disk | FTP | other *** search
/ Classic Fond 5 / ClassicFond05_nopass.iso / STRATEGI / WINROB.RAR / TARGET.PRG < prev    next >
Text File  |  1994-12-03  |  980b  |  30 lines
  1. #############################################################################
  2. #                                 TARGET                                    #
  3. #                                                                           #
  4. # This robot demonstrates the potential of custom events. This robot sets   #
  5. # up a custom event that acts as a trigger.  Although this robot only moves #
  6. # when its trigger goes off, a better robot might change its entire         #
  7. # behavior. Simply by re-registering some choice sections, such as core,    #
  8. # one robot can act like many robots wrapped up in one!                     #
  9. #                                                                           #
  10. #############################################################################
  11.  
  12.  
  13. Init
  14. {
  15.     Name( "Target" )
  16.     
  17.     LockAll( TRUE )
  18.     
  19.     trigger = 80
  20.     RegCustom( Move, 1, energy <= trigger )
  21. }
  22.  
  23. Move
  24. {
  25.     BodyLeft( 65 )
  26.     Ahead( 100 )
  27.     
  28.     trigger = trigger - 20
  29. }
  30.