Pseudocode Bercinta

//Script: Pseudocode Bercinta

// Deklarasi variabel

//$Cinta  = 5;
//$Suka   = 7;
//$Sayang = 7;
//$Nafsu  = 7;

// require $varinput1,$varinput2,$varinput3,$varinput3
// var input must be integer
$Bertemu= 1;  //(boelan condition)
$Berinteraksi = 1; //(boelan condition)

if(empty($destiny)){ 

 if($Bertemu==1||$Beriteraksi==1){
  //pengangapan bahwa setiap hubungan pasti diterima
   $acccepted="True";
   $Cinta   =$varinput1;
   $Sayang =$varinput2;
   $Nafsu  =$Varinput3;
 }  

 if($acccepted=="True"){
  if(!empty($Cinta)&&!empty($Sayang)&&!empty($Nafsu)){

    if($Cinta>$Sayang ){
      session_start();
      session_register("$Status");
      $Status="Pacar";
      $waktu = mktime("for Two Hour");// ga tau sintaknya
      if (time(now)==waktu){
         Echo "Sory, you Too Posessive,
         Soo You cant Control your self";
         session_destroy();
         $acccepted="False";
         $Cinta   =$null;
         $Sayang =$null;
         $Nafsu  =$null;       

       }   

    }
    if($Cinta<$Nafsu||$Sayang<$Nafsu){
      session_start();
      session_register("$Status");
      $Status="Pacar";
      // ga tau sintaknya
      $waktu = mktime("for 30 minutes");
      if (time(now)==waktu){
         echo "You,Already have what you want,
         So please leave me now!!!";
         session_destroy();
         $acccepted="False";
         $Cinta   =$null;
         $Sayang =$null;
         $Nafsu  =$null;       

      }   

   } 

     if($Sayang>$Nafsu||$Sayang>$Cinta){
     session_start();
     session_register("$Status");
     $Status="Pacar";
     $waktu = mktime("for 3 hour");
     if (time(now)==waktu){
        echo "Congrat,You have pass the Time,"
        echo"
";
        echo"Now, You are Admin, You can do Anything!!!";
        $Status = "Bini";
      echo ("");        

      }   

   } 

 } 

else {
  Echo "This area is Restricted,
  Sory We can give U anything..."
 }

}

/*
diterjemahkan kedalam  Pseudocode
dari: "Surat untuk sobat"
Karya : Subhan Toba
Waktu: 26 Desember 1998
*/

Adverstisement

Office: Rasuna Office Park 1 Blok io-10 JL. HR Rasuna Said Jak-Sel 12960