void CBE()
{
MM_CreateShip();
MM_CreateShip2();
}
void MM_CreateShip()
{
    int iChar = GenerateCharacter(PIRATE, WITHOUT_SHIP, "pirate", MAN, 1, WARRIOR);
    ref rCharacter = &characters[iChar];
    int nChoosedBaseShipType = SHIP_BLACKPEARL;
    rCharacter.ship.type = GenerateShip(nChoosedBaseShipType, true);
    SetBaseShipData( rCharacter );
    Ship_SetFantomData( rCharacter );
    Ship_ClearImpulseStrength( rCharacter );
    Ship_SetLightsAndFlares( rCharacter );
    Ship_SetTrackSettings( rCharacter );
    ref refBaseShip = GetRealShip( sti(rCharacter.ship.type) );
    rCharacter.Ship.Stopped = true;
    rCharacter.Ship.Pos.Mode = SHIP_SAIL;
    rCharacter.Ship.Pos.x = 120.0;
    rCharacter.Ship.Pos.z = -70.0;
    rCharacter.Ship.Ang.y = -63.0;
    SendMessage(&InterfaceBackScene, "lsa", 0, "ship", &rCharacter);
    CreateEntity( rCharacter, "ship" );
    ref rBaseShip = GetRealShip(sti(rCharacter.ship.type));
    SendMessage( rCharacter, "laa", MSG_SHIP_CREATE, &rCharacter, &rBaseShip );
}


void MM_CreateShip2()
{
    int iChar2 = GenerateCharacter(ENGLAND, WITHOUT_SHIP, "citizen", MAN, 1, WARRIOR);
    ref rCharacter2 = &characters[iChar2];
    int nChoosedBaseShipType2 = SHIP_LG;
    rCharacter2.ship.type = GenerateShip(nChoosedBaseShipType2, true);
    SetBaseShipData( rCharacter2 );
    Ship_SetFantomData( rCharacter2 );
    Ship_ClearImpulseStrength( rCharacter2 );
    Ship_SetLightsAndFlares( rCharacter2 );
    Ship_SetTrackSettings( rCharacter2 );
    ref refBaseShip = GetRealShip( sti(rCharacter2.ship.type) );
    rCharacter2.Ship.Stopped = true;
    rCharacter2.Ship.Pos.Mode = SHIP_SAIL;
    rCharacter2.Ship.Pos.x = 80.0;
    rCharacter2.Ship.Pos.z = -70.0;
    rCharacter2.Ship.Ang.y = 85.0;
    SendMessage(&InterfaceBackScene, "lsa", 0, "ship", &rCharacter2);
    CreateEntity( rCharacter2, "ship" );
    ref rBaseShip2 = GetRealShip(sti(rCharacter2.ship.type));
    SendMessage( rCharacter2, "laa", MSG_SHIP_CREATE, &rCharacter2, &rBaseShip2 );
}

iChar = GetCharacterIndex("Marcus Le Sanguinaire");            
iShipChar = GetCharacterIndex("Bloody Mishele Companion");
DeleteAttribute(&characters[iChar], "seaai");
DeleteAttribute(&characters[iShipChar], "seaai");
Group_CreateGroup("qrats");
Group_AddCharacter("qrats", characters[iChar].id);
Group_AddCharacter("qrats", characters[iShipChar].id);
Ship_SetTaskDefend(PRIMARY_TASK, iShipChar, iChar);
SetCharacterRelationBoth(iShipChar, iChar, RELATION_FRIEND);
Group_SetGroupCommander("qrats", characters[iChar].id);
string sLocator = "quest_ship_" + (rand(2)+4);
Group_SetAddress("qrats", pchar.location, "quest_ships", sLocator);
SetCharacterRelationBoth(nMainCharacterIndex, iChar, RELATION_ENEMY);
Group_SetTaskAttack("qrats", PLAYER_GROUP);
Group_LockTask("qrats");
UpdateRelations();

chr.ship.upgrades.hull = 2;