Dim $boy,$girl,$day,$money

if $boy="有房" And $boy="有車" Then
    $girl="嫁給男孩"
　　ElseIf $girl="願意等" Then
　　　　　for   $day=1 to 365
             　　　　if $day = "情人節" And $boy="送玫瑰給女孩" Then
         　　　　　　　　$girl+="感情"
　　　　          else
　　　　　　　       $girl-="感情"
                          EndIf
　　　　　　　    if $day = "女孩生日" And $boy="送玫瑰給女孩" Then
　　　　　　　　     $girl+="感情"
　　　　　　　    else
　　　　　　　　     $girl-="感情"
                              EndIf
　　　　If　　$boy="拚命賺錢" Then
　　　　If     $boy="有房" And $boy="有車" Then
　　　　        $girl="嫁給男孩"
             ExitLoop
                 EndIf
ElseIf $money>=1000*1000 Then
         $girl="與男孩白頭到老"
         ExitLoop
ElseIf $boy="一無所有" Then
            $girl="另尋新歡"
EndIf
Next
EndIf