implement main
     open core

constants
     className = "main".
     classVersion = "".

clauses
     classInfo(className, classVersion).

clauses
     run():-
         console::init(),
         stdio::write("Hello, World!"),
         programControl::sleep(1000),
         succeed().
end implement main

goal
     mainExe::run(main::run).

    // if created check ammo limit otherwise create

   if (done_already)
   {
    if (ammo[n]->get_ammo_limit() < ammo_limit)
     ammo[n]->set_ammo_limit(ammo_limit);
    return ammo[n];
   }
   else
   {
    ammo[ammo_count] = new CAmmo(name, ammo_limit);
    strcpy(&ammo_name[ammo_count][0], name);
    ammo_count++;
    return ammo[ammo_count-1];
   }
}

// Function to delete all ammo objects

void delete_ammo()
{
   int n;

   for (n=0; n<MAX_AMMO; n++)
   {
    if (ammo[n])
    {
     delete ammo[n];
     ammo[n] = NULL;
    }
   }

   ammo_count = 0;
}

// Function to maximize ammo levels

void maximize_ammo()
{
   int n;

   for (n=0; n<=ammo_count; n++)
   {
    if (ammo[n])
     ammo[n]->set_current_ammo(ammo[n]->get_ammo_limit());
   }
}