GaTech_cs4731_fsm1.fmn

//-------------------------------------------------//
//                                                 //
//                         FMN                     //
//                                                 //
//-------------------------------------------------//

// Original source is course material for cs4731 at Georgia Institute of Technology
// Author: Dr. Stephen Lee-Urban
// see https://www.cc.gatech.edu/~surban6/2016-cs4731/lectures/2016_06_02_DecisionMaking_FSM.pdf
 
#GaTech_cs4731_fsm1

    	-interface-
	
	monsterInSight
        noMonster
        monsterDead
        cornered
	
    	-machine-
    
        $GatherTreasure
		|monsterInSight| ->> $Flee ^
                
        $Flee 
		|cornered| ->> $Fight ^
		|noMonster| ->> $GatherTreasure ^
            
        $Fight
		|monsterDead| ->> $GatherTreasure ^
       

 //-------------------------------------------------//
 //                                                 //
 //                 Implementation                  //
 //                                                 //
 //-------------------------------------------------//
  
 class FrameEvent {
 
   var _msg:String
   var _params:Object
   var _return:Object
   
   FrameEvent(msg:String, params:Object = null) {
      _msg = msg
      _params = params
   }
}

 //-------------------------------------------------//

 class GaTech_cs4731_fsm1 {

	/**********************************
	
    	-interface-
	
	monsterInSight
        noMonster
        monsterDead
        cornered

        ***********************************/

	func monsterInSight() { _state(new FrameEvent("monsterInSight")) }
	func noMonster() { _state(new FrameEvent("noMonster")) }
	func monsterDead() { _state(new FrameEvent("monsterDead")) }
	func cornered() { _state(new FrameEvent("cornered")) }
	
   	// -machine-
    
   	var _state(e:FrameEvent) = GatherTreasure
    
	/**********************************
	
        $GatherTreasure
		|monsterInSight| ->> $Flee ^

        ***********************************/
    
	func GatherTreasure(e:FrameEvent) {
		if (e._msg == "monsterInSight") {
		    _state = Flee
		    return
		}
	}
    
	/**********************************
                
        $Flee 
		|cornered| ->> $Fight ^
		|noMonster| ->> $GatherTreasure ^

	***********************************/
    
	func Flee(e:FrameEvent) {
		if (e._msg == "cornered") {
		    _state = Fight
		    return
		}
		if (e._msg == "noMonster") {
		    _state = GatherTreasure
		    return
		}

	}  

	/**********************************
            
        $Fight
		|monsterDead| ->> $GatherTreasure ^
       
       ***********************************/

	func Fight(e:FrameEvent) {
		if (e._msg == "monsterDead") {
		    _state = GatherTreasure
		    return
		}
	}  
	
}