Wolf Roleplay and Game Mode

Download farm_setup.lsl

// Wolf Roleplay example - FARM + PETS SETUP (run once by the game's owner on a region running
// their game). Defines the items the farm and the pet shop use, and the wolf pup pet type.
// Everything here can also be done from the control panel's Roleplay section.

say(string what, integer ok)
{
    if (ok) llOwnerSay(what + ": OK");
    else llOwnerSay(what + ": REFUSED - " + wolfGetLastError());
}

default
{
    touch_start(integer n)
    {
        if (llDetectedKey(0) != llGetOwner()) return;
        if (wolfGameKey() == "") { llOwnerSay("This region runs no game - wolfGameCreate first."); return; }

        // Items: what players hold, on the grid, the same on every region of the game.
        say("item seed",     wolfGameDefineItem("seed",     ["label", "Wheat seed", "max", 500, "order", 1]));
        say("item wheat",    wolfGameDefineItem("wheat",    ["label", "Wheat",      "max", 9999, "order", 2]));
        say("item pet_food", wolfGameDefineItem("pet_food", ["label", "Pet food",   "max", 200, "order", 3]));

        // A pet type and its stats. Rates are per MINUTE and keep running while the pet is in
        // inventory or its owner is offline - a pup left a week without food will be gone.
        say("pet wolf_pup", wolfGameDefinePet("wolf_pup", ["label", "Wolf pup", "max", 3]));
        say("pup hunger",    wolfGameDefinePetStat("wolf_pup", "hunger",
            ["label", "Food", "max", 100, "start", 80, "rate", -1, "zero", "die", "colour", "#84cc16", "order", 0]));
        say("pup happiness", wolfGameDefinePetStat("wolf_pup", "happiness",
            ["label", "Happy", "max", 100, "start", 80, "rate", -2, "zero", "none", "colour", "#eab308", "order", 1]));
    }
}

Download market_stall.lsl

// Wolf Roleplay example - MARKET STALL. Owned by the game's owner (or a no-modify copy made by
// them). Every trade is ONE wolfGameExchange: the goods and the money move together or not at
// all, so a player can never pay and not get the seeds, or sell wheat and not get paid.

list TRADES = [
    // button,          take,              give
    "Sell 10 wheat",    "wheat|10",        "$|25",
    "Buy 5 seeds",      "$|10",            "seed|5",
    "Buy pet food",     "$|8",             "pet_food|5"
];

integer MENU_CH;
integer gMenu;

list parse(string s)
{
    list p = llParseString2List(s, ["|"], []);
    return [llList2String(p, 0), (integer)llList2String(p, 1)];
}

default
{
    state_entry()
    {
        MENU_CH = -3000000 - (integer)llFrand(1000000);
        llSetText("Market stall\nTouch to trade", <1, 1, 1>, 1.0);
    }

    touch_start(integer n)
    {
        key av = llDetectedKey(0);
        if (!wolfGameIsPlaying(av)) { llRegionSayTo(av, 0, "Join the game first."); return; }
        list buttons = llList2ListStrided(TRADES, 0, -1, 3);
        llListenRemove(gMenu);
        gMenu = llListen(MENU_CH, "", av, "");
        // The player's own Wolf viewer shows the dialog; the answer comes back here as chat.
        if (!wolfGameDialog(av, "Market stall", "You have " + (string)wolfGameItemCount(av, "wheat")
                            + " wheat and " + (string)wolfGameBalance(av) + " coins.", buttons, MENU_CH))
            llDialog(av, "Market stall", buttons, MENU_CH);   // not a Wolf viewer, or refused
    }

    listen(integer ch, string name, key av, string msg)
    {
        integer i = llListFindList(TRADES, [msg]);
        if (i == -1 || i % 3 != 0) return;
        if (wolfGameExchange(av, parse(llList2String(TRADES, i + 1)), parse(llList2String(TRADES, i + 2)), msg))
            wolfGameNotify(av, "Market", msg + " - done.", "success");
        else
            wolfGameNotify(av, "Market", "Not done: " + wolfGetLastError(), "warning");
    }
}

Download farm_plot.lsl

// Wolf Roleplay example - FARM PLOT. One prim of soil. Owned by the game's owner (or a no-modify
// copy made by them), so it may move the game's items (wolfGameExchange).
//
//   touch an empty plot   -> plant: takes 1 seed
//   touch a growing plot  -> water it (rain on the region waters it for you)
//   touch a ripe plot     -> harvest: 3-5 wheat and 1-2 seeds back
//
// The crop survives a region restart: its state is kept in linkset data, and growth is worked
// out from the time it was planted, not counted by a timer. Left dry for longer than DRY_SECONDS
// it withers and the seed is lost.

integer GROW_SECONDS = 1800;      // each of the two growing stages
integer DRY_SECONDS  = 2700;      // how long it can go without water
vector  SOIL   = <0.36, 0.25, 0.16>;
vector  SPROUT = <0.45, 0.70, 0.25>;
vector  RIPE   = <0.85, 0.72, 0.30>;
vector  DEAD   = <0.40, 0.38, 0.30>;

integer gMenu;
integer MENU_CH;

string  lsd(string k)                 { return llLinksetDataRead(k); }
put(string k, string v)               { llLinksetDataWrite(k, v); }

// 0 empty, 1 seedling, 2 growing, 3 ripe, 4 withered
integer stage()
{
    integer planted = (integer)lsd("planted");
    if (planted == 0) return 0;
    if ((integer)lsd("withered")) return 4;
    integer now = llGetUnixTime();
    if (now - (integer)lsd("watered") > DRY_SECONDS && now - planted < 2 * GROW_SECONDS)
    {
        put("withered", "1");
        return 4;
    }
    if (now - planted >= 2 * GROW_SECONDS) return 3;
    if (now - planted >= GROW_SECONDS) return 2;
    return 1;
}

show()
{
    integer s = stage();
    vector c = SOIL; string t = "Empty plot\nTouch to plant (1 seed)";
    if (s == 1) { c = SPROUT; t = "Seedling\nTouch to water"; }
    else if (s == 2) { c = SPROUT; t = "Growing\nTouch to water"; }
    else if (s == 3) { c = RIPE; t = "Ripe wheat\nTouch to harvest"; }
    else if (s == 4) { c = DEAD; t = "Withered - nobody watered it\nTouch to clear"; }
    llSetColor(c, ALL_SIDES);
    llSetText(t, <1, 1, 1>, 1.0);
}

// Rain on the region waters every plot on it.
checkRain()
{
    list w = wolfGetRegionWeather();
    integer i = llListFindList(w, ["kind"]);
    if (i != -1 && llList2String(w, i + 1) == "rain" && (integer)lsd("planted") && !(integer)lsd("withered"))
        put("watered", (string)llGetUnixTime());
}

default
{
    state_entry()
    {
        MENU_CH = -2000000 - (integer)llFrand(1000000);
        show();
        llSetTimerEvent(60.0);
    }

    on_rez(integer p) { llResetScript(); }

    timer() { checkRain(); show(); }

    touch_start(integer n)
    {
        key av = llDetectedKey(0);
        if (!wolfGameIsPlaying(av))
        {
            llRegionSayTo(av, 0, "Join the game first (Roleplay floater > Join).");
            return;
        }
        integer s = stage();
        if (s == 0)
        {
            // Planting costs one seed - taken in the same step the plot is claimed.
            if (!wolfGameExchange(av, ["seed", 1], [], "planted wheat"))
            {
                llRegionSayTo(av, 0, "You need a wheat seed to plant here (" + wolfGetLastError() + ").");
                return;
            }
            put("planted", (string)llGetUnixTime());
            put("watered", (string)llGetUnixTime());
            put("farmer", (string)av);
            put("withered", "0");
        }
        else if (s == 1 || s == 2)
        {
            put("watered", (string)llGetUnixTime());
            llRegionSayTo(av, 0, "Watered.");
        }
        else if (s == 3)
        {
            integer wheat = 3 + (integer)llFrand(3.0);
            integer seeds = 1 + (integer)llFrand(2.0);
            if (!wolfGameExchange(av, [], ["wheat", wheat, "seed", seeds], "harvest"))
            {
                llRegionSayTo(av, 0, "Could not harvest: " + wolfGetLastError());
                return;
            }
            wolfGameNotify(av, "Harvest", "You harvested " + (string)wheat + " wheat and " + (string)seeds + " seeds.", "success");
            llLinksetDataReset();
        }
        else if (s == 4)
        {
            llLinksetDataReset();
            llRegionSayTo(av, 0, "Cleared. Plant again with a seed.");
        }
        show();
    }
}

Download pet_shop.lsl

// Wolf Roleplay example - PET SHOP. Owned by the game's owner. Put a no-modify copy of the pet
// object ("Wolf pup", with pet.lsl inside, made by the game's owner) in this prim's inventory.
//
// Buying: 100 coins, then a pet record on the grid (wolfGamePetCreate) and the pet object. The
// object finds its own record the first time it is rezzed (pet.lsl), so the pet's name, age and
// hunger stay with the pet - not with one copy of the object.

integer PRICE = 100;
string  PET_OBJECT = "Wolf pup";

integer MENU_CH;
integer gMenu;
key     gBuyer;

default
{
    state_entry()
    {
        MENU_CH = -4000000 - (integer)llFrand(1000000);
        llSetText("Pet shop\nWolf pup - " + (string)PRICE + " coins\nTouch to buy", <1, 1, 1>, 1.0);
    }

    touch_start(integer n)
    {
        key av = llDetectedKey(0);
        if (!wolfGameIsPlaying(av)) { llRegionSayTo(av, 0, "Join the game first."); return; }
        gBuyer = av;
        llListenRemove(gMenu);
        gMenu = llListen(MENU_CH, "", av, "");
        llTextBox(av, "Name your wolf pup (" + (string)PRICE + " coins):", MENU_CH);
    }

    listen(integer ch, string name, key av, string msg)
    {
        if (av != gBuyer) return;
        llListenRemove(gMenu);
        string petName = llStringTrim(msg, STRING_TRIM);
        if (petName == "") petName = "Pup";
        // Pay first; if the pet cannot be made, the money goes back.
        if (!wolfGameExchange(av, ["$", PRICE], [], "bought a wolf pup"))
        {
            wolfGameNotify(av, "Pet shop", "Not bought: " + wolfGetLastError(), "warning");
            return;
        }
        string pet = wolfGamePetCreate(av, "wolf_pup", petName, ["colour", "grey"]);
        if (pet == "")
        {
            string why = wolfGetLastError();
            wolfGameExchange(av, [], ["$", PRICE], "refund - pet not made");
            wolfGameNotify(av, "Pet shop", "Refunded: " + why, "warning");
            return;
        }
        llGiveInventory(av, PET_OBJECT);
        wolfGameNotify(av, "Pet shop", petName + " is yours. Rez the Wolf pup from your inventory.", "success");
    }
}

Download pet.lsl

// Wolf Roleplay example - THE PET OBJECT ("Wolf pup"). Made by the game's owner, given no-modify,
// so this script may change its own owner's pet (it counts as the game's own item).
//
// The pet itself lives on the grid; this object only shows it. The first time it is rezzed it
// takes the owner's newest pet of this type that no object has claimed yet, and keeps that pet
// key in linkset data, so the same pet comes back every time it is rezzed.
//
//   touch: Feed (1 pet food), Play, Rename, Status

string  TYPE = "wolf_pup";
integer MENU_CH;
integer gMenu;
integer gRename;

string pet() { return llLinksetDataRead("pet"); }

// The owner's pets of this type that are alive: the newest one this object can take.
claim()
{
    list pets = wolfGamePets(llGetOwner());        // [key, type, name, alive, ...]
    integer i;
    string chosen = "";
    for (i = 0; i < llGetListLength(pets); i += 4)
        if (llList2String(pets, i + 1) == TYPE && llList2Integer(pets, i + 3))
            chosen = llList2String(pets, i);         // the list is oldest first; keep the newest
    if (chosen != "") llLinksetDataWrite("pet", chosen);
}

show()
{
    if (pet() == "") { llSetText("No pet - buy one at the pet shop", <1, 0.6, 0.6>, 1.0); return; }
    list p = wolfGamePetGet(pet());                // [type, name, owner, alive, age, stat, v, m, ...]
    if (p == [])
    {
        llSetText("(" + wolfGetLastError() + ")", <1, 0.6, 0.6>, 1.0);
        return;
    }
    if (llList2String(p, 2) != (string)llGetOwner())
    {
        // Given or sold to someone else since: this copy no longer shows that pet.
        llLinksetDataDelete("pet");
        llSetText("This pet belongs to someone else now", <1, 0.6, 0.6>, 1.0);
        return;
    }
    string t = llList2String(p, 1);
    if (!llList2Integer(p, 3)) t += " (died)";
    else
    {
        integer days = llList2Integer(p, 4) / 86400;
        t += " - " + (string)days + " day" + llList2String(["s", ""], days == 1);
        integer i;
        for (i = 5; i < llGetListLength(p); i += 3)
            t += "\n" + llList2String(p, i) + " " + (string)llList2Integer(p, i + 1) + "/" + (string)llList2Integer(p, i + 2);
    }
    llSetText(t, <1, 1, 1>, 1.0);
}

default
{
    state_entry()
    {
        MENU_CH = -5000000 - (integer)llFrand(1000000);
        if (pet() == "") claim();
        show();
        llSetTimerEvent(120.0);
    }

    on_rez(integer p) { llResetScript(); }
    changed(integer c) { if (c & CHANGED_OWNER) { llLinksetDataReset(); llResetScript(); } }
    timer() { show(); }

    touch_start(integer n)
    {
        key av = llDetectedKey(0);
        if (av != llGetOwner()) return;
        llListenRemove(gMenu);
        gMenu = llListen(MENU_CH, "", av, "");
        llDialog(av, "Your wolf pup", ["Feed", "Play", "Rename", "Status"], MENU_CH);
    }

    listen(integer ch, string name, key av, string msg)
    {
        if (ch == MENU_CH + 1)
        {
            llListenRemove(gRename);
            if (!wolfGamePetRename(pet(), llStringTrim(msg, STRING_TRIM))) llOwnerSay(wolfGetLastError());
        }
        else if (msg == "Feed")
        {
            // One pet food, taken from the owner's game items, then +30 food for the pup.
            if (!wolfGameExchange(av, ["pet_food", 1], [], "fed the pup")) llOwnerSay("No pet food: " + wolfGetLastError());
            else if (!wolfGamePetAddStat(pet(), "hunger", 30)) llOwnerSay(wolfGetLastError());
        }
        else if (msg == "Play")
        {
            if (!wolfGamePetAddStat(pet(), "happiness", 20)) llOwnerSay(wolfGetLastError());
            else llSetTimerEvent(120.0);
        }
        else if (msg == "Rename")
        {
            gRename = llListen(MENU_CH + 1, "", av, "");
            llTextBox(av, "New name:", MENU_CH + 1);
        }
        show();
    }
}

Download combat_setup.lsl

// Wolf Roleplay example - COMBAT SETUP (run once by the game's owner on a region running their
// game). Defines the mana stat, the weapons and armour the two combat examples use, and registers
// those two scripts as the game's OWN (wolfGameTrustScript) - only the game's own scripts may hurt
// players, take mana, and move ammunition.
//
// Put copies of "combat_sword_and_spell" and "combat_gun" in THIS object's inventory first: a
// script is trusted by its asset, and a copy has the same asset as long as nobody edits it.
// Everything here can also be done from the control panel's Roleplay section.

// TRUE makes this region an arena: Game Mode stays on for everyone here, so nobody can switch it
// off to avoid a fight (their own saved choice is untouched; it applies again when they leave).
// FALSE leaves the region as it is - it never turns off forcing set from the control panel;
// wolfGameForceMode(FALSE) does that.
integer FORCE_GAME_MODE = FALSE;

say(string what, integer ok)
{
    if (ok) llOwnerSay(what + ": OK");
    else llOwnerSay(what + ": REFUSED - " + wolfGetLastError());
}

default
{
    touch_start(integer n)
    {
        if (llDetectedKey(0) != llGetOwner()) return;
        if (wolfGameKey() == "") { llOwnerSay("This region runs no game - wolfGameCreate first."); return; }

        // Mana: spells cost it, it comes back 6 a minute. The region TAKES the cost of an
        // ability set by the game's own script, so the spell script never counts mana itself.
        say("stat mana", wolfGameDefineStat("mana",
            ["label", "Mana", "min", 0, "max", 100, "start", 100, "rate", 6, "colour", "#3b82f6", "order", 3]));

        // Weapons and armour. The damage/range/firemode/defence are what the weapons panel SHOWS;
        // the scripts decide the real numbers.
        say("item sword", wolfGameDefineItem("sword",
            ["label", "Iron sword", "kind", "weapon", "slot", "main", "damage", "12-18", "range", "3 m",
             "firemode", "melee", "max", 1, "order", 10]));
        say("item rifle_ammo", wolfGameDefineItem("rifle_ammo",
            ["label", "Rifle rounds", "kind", "consumable", "max", 600, "order", 12]));
        say("item rifle", wolfGameDefineItem("rifle",
            ["label", "Hunting rifle", "kind", "weapon", "slot", "ranged", "damage", "8-12", "range", "100 m",
             "firemode", "semi-auto", "magazine", 30, "ammo", "rifle_ammo", "max", 1, "order", 11]));
        say("item leather", wolfGameDefineItem("leather",
            ["label", "Leather jerkin", "kind", "armour", "slot", "body", "defence", "5", "max", 1, "order", 13]));

        // The two worn weapon scripts are the game's own.
        say("trust combat_sword_and_spell", wolfGameTrustScript("combat_sword_and_spell"));
        say("trust combat_gun", wolfGameTrustScript("combat_gun"));

        if (FORCE_GAME_MODE) say("force Game Mode", wolfGameForceMode(TRUE));
    }
}

Download combat_sword_and_spell.lsl

// Wolf Roleplay example - SWORD AND SPELLS. Worn (a sword attachment, or a HUD). Registered as
// one of the game's own scripts by combat_setup, so the region lets it hurt players and takes the
// mana its spells cost.
//
// What the player sees, in their Wolf viewer:
//   - an action bar: 1 Slash (melee, needs the sword equipped), 2 Fireball (1.5 s cast, 20 mana,
//     leaves a Burning debuff), 3 Mend (2 s cast, 30 mana, heals and gives a Mended buff);
//   - real cooldown sweeps, a cast bar, floating damage numbers and a hit marker;
//   - the target frame (they pick a target by selecting an avatar).
// The REGION checks every press - cooldown, cast, mana - and takes the mana; this script is told
// on its channel from the wearer's key under the name "#wolfgame": "cast|id|target", "use|id|target", "interrupted|id".
// Slash and Fireball need a target: without one the region says "No target" and takes nothing.

string ICON_SLASH = "";      // texture keys for the buttons ("" shows the label's letters)
string ICON_FIREBALL = "";
string ICON_MEND = "";
string ICON_BURNING = "";
string ICON_MENDED = "";

float SWORD_RANGE = 3.5;
float SPELL_RANGE = 40.0;

integer gChannel;            // ability uses come back here
integer gEvents;             // the game's events about the wearer (wolfGameListen)
integer gUseListen;
integer gEventListen;
key gWearer;
list gBurning;               // [target, seconds left, ...] - Fireball's damage over time

setup()
{
    gWearer = llGetOwner();
    llListenRemove(gUseListen);
    llListenRemove(gEventListen);
    gUseListen = llListen(gChannel, "#wolfgame", gWearer, "");   // "#wolfgame": only the region, never a viewer, sends under that name
    gEventListen = llListen(gEvents, "", NULL_KEY, "");
    // A worn object hears its own wearer's game events: equip/unequip, arrive, death.
    wolfGameListen(gEvents);
    showBar();
}

integer armed()
{
    return llListFindList(wolfGameLoadout(gWearer), ["main", "sword"]) != -1;
}

showBar()
{
    // A screen is per region: this runs on attach, on every region change and on "arrive".
    wolfGameSetAbility(gWearer, "slash", ["label", "Slash", "icon", ICON_SLASH, "cooldown", 1.5,
        "key", "1", "enabled", armed(), "target", 1, "channel", gChannel, "order", 1]);
    wolfGameSetAbility(gWearer, "fireball", ["label", "Fireball", "icon", ICON_FIREBALL, "cooldown", 6.0,
        "cast", 1.5, "cost", "mana", "amount", 20, "key", "2", "target", 1, "channel", gChannel, "order", 2]);
    wolfGameSetAbility(gWearer, "mend", ["label", "Mend", "icon", ICON_MEND, "cooldown", 15.0,
        "cast", 2.0, "cost", "mana", "amount", 30, "key", "3", "group", "heals", "channel", gChannel, "order", 3]);
}

clearBar()
{
    wolfGameRemoveAbility(gWearer, "slash");
    wolfGameRemoveAbility(gWearer, "fireball");
    wolfGameRemoveAbility(gWearer, "mend");
}

// Hurt `target` (a player of the game here, within `range`) by lo..hi, 1 in 10 a critical hit.
// Both screens get it: a number over the target and a hit marker for the attacker, a number
// over themselves and a red flash for the target.
integer strike(key target, integer lo, integer hi, float range, string cause, string colour)
{
    if (target == NULL_KEY) return FALSE;   // the region refuses "No target" before this
    list d = llGetObjectDetails(target, [OBJECT_POS]);
    if (d == [] || llVecDist(llList2Vector(d, 0), llGetPos()) > range)
    {
        wolfGameCombatText(gWearer, target, 0, "miss", "");
        return FALSE;
    }
    if (!wolfGameIsPlaying(target))
    {
        wolfGameCombatText(gWearer, target, 0, "immune", "");
        return FALSE;
    }
    integer dmg = lo + (integer)llFrand(hi - lo + 1);
    string kind = "hit";
    if (llFrand(1.0) < 0.1) { dmg *= 2; kind = "crit"; }
    if (!wolfGameDamage(target, dmg, cause)) { llOwnerSay(cause + ": " + wolfGetLastError()); return FALSE; }
    wolfGameCombatText(gWearer, target, dmg, kind, colour);
    wolfGameCombatText(target, target, dmg, kind, colour);
    wolfGameEffect(target, "flash", 35, 0.4);
    return TRUE;
}

default
{
    state_entry()
    {
        gChannel = -7000000 - (integer)llFrand(1000000);
        gEvents = gChannel - 1;
        if (llGetAttached()) setup();
    }

    attach(key id)
    {
        if (id != NULL_KEY) llResetScript();
        else clearBar();
    }

    changed(integer c)
    {
        if (c & CHANGED_REGION) setup();
        if (c & CHANGED_OWNER) llResetScript();
    }

    listen(integer ch, string name, key id, string msg)
    {
        list p = llParseStringKeepNulls(msg, ["|"], []);
        string what = llList2String(p, 0);
        if (ch == gEvents)
        {
            // From the game: "equip|av|slot|item", "unequip|av|slot|item", "arrive|av", ...
            // A game script hears EVERY player's events: only the wearer's are this sword's.
            if ((key)llList2String(p, 1) != gWearer) return;
            if (what == "arrive") showBar();
            else if ((what == "equip" || what == "unequip") && llList2String(p, 3) == "sword")
                wolfGameSetAbility(gWearer, "slash", ["enabled", what == "equip"]);
            return;
        }
        // From the region, as the wearer: the ability presses it has already checked.
        string ability = llList2String(p, 1);
        key target = (key)llList2String(p, 2);
        if (what == "use")
        {
            if (ability == "slash")
                strike(target, 12, 18, SWORD_RANGE, "sword", "");
            else if (ability == "fireball")
            {
                if (strike(target, 25, 35, SPELL_RANGE, "fireball", "#ff7a1a"))
                {
                    // Burning: 3 damage a second for 6 s, shown on the target's buff bar.
                    wolfGameAddBuff(target, "burning", ["label", "Burning", "icon", ICON_BURNING, "seconds", 6,
                        "type", "debuff", "text", "Takes 3 fire damage a second."]);
                    integer i = llListFindList(gBurning, [target]);
                    if (i == -1) gBurning += [target, 6];
                    else gBurning = llListReplaceList(gBurning, [6], i + 1, i + 1);
                    llSetTimerEvent(1.0);
                }
            }
            else if (ability == "mend")
            {
                if (wolfGameHeal(gWearer, 30))
                {
                    wolfGameCombatText(gWearer, gWearer, 30, "heal", "");
                    wolfGameAddBuff(gWearer, "mended", ["label", "Mended", "icon", ICON_MENDED, "seconds", 10,
                        "type", "buff", "text", "Recently healed."]);
                }
            }
        }
        // "cast|id|target" (a cast began) and "interrupted|id" (it was stopped) also arrive here:
        // the place to start and stop a casting animation, which this example does not have.
    }

    timer()
    {
        list keep;
        integer i;
        for (i = 0; i < llGetListLength(gBurning); i += 2)
        {
            key t = llList2Key(gBurning, i);
            integer left = llList2Integer(gBurning, i + 1) - 1;
            if (wolfGameIsPlaying(t) && wolfGameDamage(t, 3, "burning"))
            {
                wolfGameCombatText(gWearer, t, 3, "hit", "#ff7a1a");
                wolfGameCombatText(t, t, 3, "hit", "#ff7a1a");
            }
            if (left > 0) keep += [t, left];
        }
        gBurning = keep;
        if (gBurning == []) llSetTimerEvent(0.0);
    }
}

Download combat_gun.lsl

// Wolf Roleplay example - A GUN WITH AMMO AND RELOAD. Worn (the rifle attachment). Registered as
// one of the game's own scripts by combat_setup, so the region lets it hurt players and move the
// rifle_ammo item.
//
// What the player sees, in their Wolf viewer:
//   - the rifle on their weapons panel (from the equipped "rifle" item: name, damage, range,
//     fire mode) with its magazine "24 / 30" and reserve, and a reload bar;
//   - action bar: 4 Fire (one round), 5 Aimed shot (1.2 s cast, three rounds, always critical);
//   - R (or the Reload button) reloads; firing on an empty magazine asks for a reload by itself.
//
// WHO COUNTS WHAT. The magazine is on the player's screen and the REGION takes the rounds each shot
// uses, refusing "Out of ammo - reload" when there are too few. The reserve is the player's
// "rifle_ammo" item on the grid: a reload takes rounds from it with wolfGameItemTake, so ammunition
// bought, looted or traded is the same everywhere.

integer MAGAZINE = 30;
float RELOAD_SECONDS = 2.5;
float RANGE = 100.0;
string ICON_FIRE = "";        // texture keys for the buttons ("" shows the label's letters)
string ICON_AIMED = "";

integer gChannel;
integer gEvents;
integer gUseListen;
integer gEventListen;
key gWearer;
integer gMag;                 // rounds in the magazine, as this script last set or read them
integer gReloading;

integer equipped()
{
    return llListFindList(wolfGameLoadout(gWearer), ["ranged", "rifle"]) != -1;
}

integer reserve()
{
    return wolfGameItemCount(gWearer, "rifle_ammo");
}

setup()
{
    gWearer = llGetOwner();
    llListenRemove(gUseListen);
    llListenRemove(gEventListen);
    gUseListen = llListen(gChannel, "#wolfgame", gWearer, "");   // "#wolfgame": only the region, never a viewer, sends under that name
    gEventListen = llListen(gEvents, "", NULL_KEY, "");
    wolfGameListen(gEvents);
    if (equipped()) arm();
    else disarm();
}

arm()
{
    // A screen is per region, so the magazine is set again on every arrival from this script's count.
    wolfGameSetGear(gWearer, "ranged", ["channel", gChannel, "magazine", MAGAZINE]);
    wolfGameSetAmmo(gWearer, "ranged", gMag, reserve());
    wolfGameSetAbility(gWearer, "fire", ["label", "Fire", "icon", ICON_FIRE, "cooldown", 0.2,
        "weapon", "ranged", "ammo", 1, "key", "4", "channel", gChannel, "order", 4]);
    wolfGameSetAbility(gWearer, "aimed", ["label", "Aimed shot", "icon", ICON_AIMED, "cooldown", 5.0,
        "cast", 1.2, "weapon", "ranged", "ammo", 3, "key", "5", "target", 1, "channel", gChannel, "order", 5]);
}

disarm()
{
    wolfGameRemoveAbility(gWearer, "fire");
    wolfGameRemoveAbility(gWearer, "aimed");
    wolfGameSetGear(gWearer, "ranged", []);
}

// The magazine as the region has it now (it takes the rounds of every shot).
readMagazine()
{
    list a = wolfGameGetAmmo(gWearer, "ranged");
    if (a != [] && llList2Integer(a, 0) >= 0) gMag = llList2Integer(a, 0);
}

startReload()
{
    if (gReloading) return;
    readMagazine();
    if (gMag >= MAGAZINE) return;
    if (reserve() <= 0)
    {
        wolfGameNotify(gWearer, "Rifle", "No rifle rounds left.", "warning");
        return;
    }
    gReloading = TRUE;
    wolfGameReload(gWearer, "ranged", RELOAD_SECONDS);   // the bar, and no firing meanwhile
    llSetTimerEvent(RELOAD_SECONDS);
}

// One shot: at the target when there is one (and it is in the line of fire), else straight ahead.
shoot(key target, integer lo, integer hi, integer crit)
{
    vector from = llGetPos() + <0.0, 0.0, 0.6>;
    vector dir = llRot2Fwd(llGetRootRotation());
    if (target != NULL_KEY)
    {
        list d = llGetObjectDetails(target, [OBJECT_POS]);
        if (d != []) dir = llVecNorm(llList2Vector(d, 0) - from);
    }
    list hit = llCastRay(from + dir * 0.6, from + dir * RANGE, [RC_REJECT_TYPES, RC_REJECT_LAND, RC_MAX_HITS, 1]);
    key victim = llList2Key(hit, 0);
    if (llList2Integer(hit, -1) < 1 || victim == gWearer || !wolfGameIsPlaying(victim))
    {
        if (target != NULL_KEY) wolfGameCombatText(gWearer, target, 0, "miss", "");
        return;
    }
    integer dmg = lo + (integer)llFrand(hi - lo + 1);
    string kind = "hit";
    if (crit) { dmg *= 2; kind = "crit"; }
    if (!wolfGameDamage(victim, dmg, "rifle")) { llOwnerSay("rifle: " + wolfGetLastError()); return; }
    wolfGameCombatText(gWearer, victim, dmg, kind, "");
    wolfGameCombatText(victim, victim, dmg, kind, "");
    wolfGameEffect(victim, "flash", 30, 0.3);
}

default
{
    state_entry()
    {
        gChannel = -8000000 - (integer)llFrand(1000000);
        gEvents = gChannel - 1;
        gMag = MAGAZINE;   // a new rifle comes loaded
        if (llGetAttached()) setup();
    }

    attach(key id)
    {
        if (id != NULL_KEY) setup();
        else disarm();
    }

    changed(integer c)
    {
        if (c & CHANGED_REGION) setup();
        if (c & CHANGED_OWNER) llResetScript();
    }

    listen(integer ch, string name, key id, string msg)
    {
        list p = llParseStringKeepNulls(msg, ["|"], []);
        string what = llList2String(p, 0);
        if (ch == gEvents)
        {
            // A game script hears EVERY player's events: only the wearer's are this rifle's.
            if ((key)llList2String(p, 1) != gWearer) return;
            if (what == "arrive") setup();
            else if (llList2String(p, 3) == "rifle" && llList2String(p, 2) == "ranged")
            {
                if (what == "equip") arm();
                else if (what == "unequip") disarm();
            }
            // Rounds bought, looted or traded show at once as the reserve.
            else if (what == "item" && llList2String(p, 2) == "rifle_ammo" && equipped() && !gReloading)
            {
                readMagazine();
                wolfGameSetAmmo(gWearer, "ranged", gMag, reserve());
            }
            return;
        }
        if (what == "reload" && llList2String(p, 1) == "ranged") { startReload(); return; }
        if (what != "use") return;
        string ability = llList2String(p, 1);
        key target = (key)llList2String(p, 2);
        if (ability == "fire") shoot(target, 8, 12, FALSE);
        else if (ability == "aimed") shoot(target, 10, 14, TRUE);
        readMagazine();
    }

    timer()
    {
        llSetTimerEvent(0.0);
        if (!gReloading) return;
        gReloading = FALSE;
        readMagazine();
        integer have = reserve();
        integer take = MAGAZINE - gMag;
        if (take > have) take = have;
        if (take > 0 && wolfGameItemTake(gWearer, "rifle_ammo", take, "reload"))
        {
            gMag += take;
            have -= take;
        }
        else if (take > 0) wolfGameNotify(gWearer, "Rifle", "Could not reload: " + wolfGetLastError(), "warning");
        wolfGameSetAmmo(gWearer, "ranged", gMag, have);   // also ends the reload bar
    }
}