Basis morality <- good [1.0, 0.0] bad [0.0, 1.0];
Basis romance4girl@hero <- marry lose #Angle 10.0 #WithRespectTo morality;
Basis romance4girl@antihero <- marry lose #Angle 10.0 #WithRespectTo morality;
Basis romance4hero@girl <- marry lose #Angle 0.0 #WithRespectTo morality;
Basis romance4antihero@girl <- marry lose #Angle 0.0 #WithRespectTo morality;

Protagonist hero <- #Amplitude [cos(10.0), sin(10.0)] #WithRespectTo romance4girl@hero;
Protagonist antihero <- #Amplitude [cos(30.0), sin(30.0)] #WithRespectTo romance4girl@antihero;
Protagonist girl <- #Amplitude [cos(60.0), sin(60.0)] #WithRespectTo morality;

Praxis DateGirl <- 
    #Actors ( 
                ?object = girl
                ?subject != ?object
              )
    #Context (
               ?p <- Prob ?subject = marry(romance4?object@?subject) 
               ?p > 0.5
               ?q <- Prob ?object = marry(romance4?subject@?object) 
               ?q > 0.5
               ?k <- Random()
               ?m <- Random()
             ) 
    #Effects (
               (Transform ?subject [?k] [marry(romance4?object@?subject)])
               (Transform ?object [?m] [marry(romance4?subject@?object)])  
             );

Praxis Serenade <- 
    #Actors ( 
                ?object = girl
                ?subject != ?object
              )
    #Context (
               ?p <- Prob ?subject = marry(romance4?object@?subject) 
               ?p > 0.5
               ?q <- Prob ?object = marry(romance4?subject@?object)  
               ?q < 0.5
             ) 
    #Effects (
               (Transform ?object [1.2*?q] [marry(romance4?subject@?object)])  
             );

Praxis Marry <- 
    #Actors ( 
                ?object = girl
                ?subject != ?object
              )
    #Context (
               ?p <- Prob ?subject = marry(romance4?object@?subject) 
               ?p > 0.7
               ?q <- Prob ?object = marry(romance4?subject@?object) 
               ?q > 0.7
               ?boy <- Metro #State ?subject #WithRespectTo romance4?object@?subject
               ?boy = marry
               ?girl <- Metro #State ?object #WithRespectTo romance4?subject@?object
               ?girl = marry
             ) 
    #Effects (
               (Stop ?subject marries ?object)  
             ) ;

Praxis Contest <- 
    #Actors (
                ?subject != ?object
                ?object != girl
                ?subject != girl
              ) 
    #Context (
              ?p <- Prob ?subject = marry(romance4girl@?subject) 
              ?p > 0.7
              ?h <- Prob ?object = marry(romance4girl@?object)
              ?h > 0.5 
             ) 
    #Effects (
               (Entangle 
                  [?subject ?object] 
                  [0.6] 
                  [marry(romance4girl@?subject) lose(romance4girl@?object)] 
               )
             );