DMH-Online

NWScript:

//::///////////////////////////////////////////////
//:: Name      Traffic Lights Slot Machine
//:: FileName
//:: Copyright (c) 2001 Bioware Corp.
//:://////////////////////////////////////////////
/*
    This script will utilise 3 placed light rays, and a pull handle.
    The script will payout on 3 sucessfull matching lights a reward/
    or punishment. Make the lever "useable", and place this script in
    the used section.
        For 3 Green's, you will either get the Jackpot(Gain a level,
    and recieve 500k GP), or a Half Jackpot(3000 XP, 50000 GP), and
    a Win(500 XP).
        For 3 Yellow's a cash payout of 20000 GP.
        For 3 Red's you will either get Death(a nice choice of 3
    deaths, or a percentage loss of GP, calculated on the players
    stash.
    The game costs 25GP ago, as it gives quality prizes :) 
#################### Probability Tables ############################
        - All Green:
                          **JACKPOT**| (1/27) * (1/6) = (1/162)
                         HALF JACKPOT| (1/27) * (2/6) = (1/81)
                                  WIN| (1/27) * (3/6) = (1/54)
        - All Yellow:
                          CASH PAYOUT| (1/27)
        - All Red:
                                DEATH| (1/27) * (1/2) = (1/54)
                 PERCENTAGE CASH LOSS| (1/27) * (1/2) = (1/54)
* N.B My maths is *** so if the Probability is not sound don't windge.
####################################################################
*/
//:://////////////////////////////////////////////
//:: Created By:    Sebastian Patten (s.patten@uea.ac.uk)
//:: Created On:    22/07/2002
//:://////////////////////////////////////////////
void main()
{
    object oSlotLight1;
    object oSlotLight2;
    object oSlotLight3;
    object oPc = GetLastUsedBy();
    location lLever = GetLocation(OBJECT_SELF);
    location lSlotLight1;
    location lSlotLight2;
    location lSlotLight3;
    int j = 1;
    int randomNumber1 = Random(3);
    int randomNumber2 = Random(3);
    int randomNumber3 = Random(3);
    int randomDeath = Random(3);
    int validPlayer;
    int percentToTake = 10;
    int amountToGive = 20000;
    int gameCost = 25;

    if(GetIsObjectValid(oPc) == TRUE)
    {
        if(GetIsDead(oPc) == FALSE)
        {
            validPlayer = TRUE;
        }
    }
    if((GetGold(oPc) >= gameCost) && (validPlayer == TRUE))
    {
        TakeGoldFromCreature(gameCost, oPc, TRUE);
        object oObject = GetFirstObjectInShape(SHAPE_SPHERE, 30.0, lLever, FALSE, OBJECT_TYPE_PLACEABLE);
        while(oObject != OBJECT_INVALID)
        {
            if(GetTag(oObject) == "plc_solwhite" ||
               GetTag(oObject) == "Shaft of Light - Red" ||
               GetTag(oObject) == "Shaft of Light - Yellow" ||
               GetTag(oObject) == "Shaft of Light - Green")
            {
                switch(j)
                {
                    case 1:
                    {
                        oSlotLight1 = oObject;
                        lSlotLight1 = GetLocation(oSlotLight1);
                        break;
                    }
                    case 2:
                    {
                        oSlotLight2 = oObject;
                        lSlotLight2 = GetLocation(oSlotLight2);
                        break;
                    }
                    case 3:
                    {
                        oSlotLight3 = oObject;
                        lSlotLight3 = GetLocation(oSlotLight3);
                        break;
                    }
                }
                j++;
            }
            oObject = GetNextObjectInShape(SHAPE_SPHERE, 30.0, lLever, FALSE, OBJECT_TYPE_PLACEABLE);
        }
        switch(randomNumber1)
        {
            case 0:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight1, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solred", lSlotLight1, FALSE);
                break;
            }
            case 1:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight1, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solyellow", lSlotLight1, FALSE);
                break;
            }
            case 2:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight1, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solgreen", lSlotLight1, FALSE);
                break;
            }
        }
        switch(randomNumber2)
        {
            case 0:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight2, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solred", lSlotLight2, FALSE);
                break;
            }
            case 1:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight2, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solyellow", lSlotLight2, FALSE);
                break;
            }
            case 2:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight2, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solgreen", lSlotLight2, FALSE);
                break;
            }
        }
        switch(randomNumber3)
        {
            case 0:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight3, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solred", lSlotLight3, FALSE);
                break;
            }
            case 1:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight3, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solyellow", lSlotLight3, FALSE);
                break;
            }
            case 2:
            {
                PlaySound("as_cv_bell1");
                DestroyObject(oSlotLight3, 0.0);
                CreateObject(OBJECT_TYPE_PLACEABLE, "plc_solgreen", lSlotLight3, FALSE);
                break;
            }
        }
        if(validPlayer == TRUE)
        {
            // Outcomes from the machine
            // Death
            if(((randomNumber1 == 0) && (randomNumber2 == 0) && (randomNumber3 == 0)))
            {
                // 50/50 Chance of Dying, or loosing n% money once 3 red lights occur
                if(Random(2) == 1)
                {
                    int deathOutcome;
                    AssignCommand(OBJECT_SELF, ActionSpeakString("Fool! Never look a gifthorse in the mouth!", 5));
                    switch(randomDeath)
                    {
                        case 0:
                        {
                            deathOutcome = VFX_IMP_SPIKE_TRAP;
                            break;
                        }
                        case 1:
                        {
                            deathOutcome = VFX_IMP_SONIC;
                            break;
                        }
                        case 2:
                        {
                            deathOutcome = VFX_IMP_SUNSTRIKE;
                            break;
                        }
                    }
                    effect death = EffectVisualEffect(deathOutcome);
                    ApplyEffectToObject(2, death, oPc, 2.0);
                    ApplyEffectToObject(5, EffectDeath(TRUE, TRUE), oPc);
                }
                else
                {
                    AssignCommand(OBJECT_SELF, ActionSpeakString("Sorry, you have lost GP", 5));
                    int pcGold = GetGold(oPc);
                    int amountToTake = ((pcGold / 100) * percentToTake);
                    TakeGoldFromCreature(amountToTake, oPc, TRUE);
                }
            }
            // Money
            else if(((randomNumber1 == 1) && (randomNumber2 == 1) && (randomNumber3 == 1)))
            {
                AssignCommand(OBJECT_SELF, ActionSpeakString("Congratulations! You have won some GP!", 5));
                GiveGoldToCreature(oPc, amountToGive);
            }
            // Level / Jackpot :D 
            else if(((randomNumber1 == 2) && (randomNumber2 == 2) && (randomNumber3 == 2)))
            {
                int randomVar = d6();
                if(randomVar == 6)
                {
                    AssignCommand(OBJECT_SELF, ActionSpeakString("Congratulations! You have earnt a level up!", 5));
                    int playerXP = GetXP(oPc);
                    if(playerXP < 100) GiveXPToCreature(oPc, (100 - playerXP));
                    else if(playerXP < 900) GiveXPToCreature(oPc, (900 - playerXP));
                    else if(playerXP < 2700) GiveXPToCreature(oPc, (2700 - playerXP));
                    else if(playerXP < 5400) GiveXPToCreature(oPc, (5400 - playerXP));
                    else if(playerXP < 9000) GiveXPToCreature(oPc, (9000 - playerXP));
                    else if(playerXP < 13000) GiveXPToCreature(oPc, (13000 - playerXP));
                    else if(playerXP < 19000) GiveXPToCreature(oPc, (19000 - playerXP));
                    else if(playerXP < 27000) GiveXPToCreature(oPc, (27000 - playerXP));
                    else if(playerXP < 36000) GiveXPToCreature(oPc, (36000 - playerXP));
                    else if(playerXP < 49000) GiveXPToCreature(oPc, (49000 - playerXP));
                    else if(playerXP < 66000) GiveXPToCreature(oPc, (66000 - playerXP));
                    else if(playerXP < 99000) GiveXPToCreature(oPc, (99000 - playerXP));
                    else if(playerXP < 150000) GiveXPToCreature(oPc, (150000 - playerXP));
                    else if(playerXP < 200000) GiveXPToCreature(oPc, (200000 - playerXP));
                    else if(playerXP < 260000) GiveXPToCreature(oPc, (260000 - playerXP));
                    else if(playerXP < 340000) GiveXPToCreature(oPc, (340000 - playerXP));
                    else if(playerXP < 440000) GiveXPToCreature(oPc, (440000 - playerXP));
                    else if(playerXP < 580000) GiveXPToCreature(oPc, (580000 - playerXP));
                    else if(playerXP < 760000) GiveXPToCreature(oPc, (760000 - playerXP));
                    GiveGoldToCreature(oPc, 500000);
                }
                else if(randomVar < 6 && randomVar > 3)
                {
                    AssignCommand(OBJECT_SELF, ActionSpeakString("Congratulations! You have earnt 3000 XP Points!", 5));
                    GiveXPToCreature(oPc, 1000);
                    GiveGoldToCreature(oPc, 50000);
                }
                else if(randomVar < 4 && randomVar > 0)
                {
                    AssignCommand(OBJECT_SELF, ActionSpeakString("Congratulations! You have earnt 500 XP Points!", 5));
                    GiveXPToCreature(oPc, 500);
                }
            }
        }
    }
}