Revision as of 10:20, 6 February 2012

Boons Client

Myriad_Lite_Boons_Client-v0.0.0-20111006.lsl

// Myriad_Lite_Boon_Client-v0.0.0-20111006.lsl
// The Myriad RPG System was designed, written, and illustrated by Ashok Desai
// Myriad RPG licensed under the Creative Commons Attribution 2.0 UK: England and Wales
// http://creativecommons.org/licenses/by/2.0/uk/
// Myriad Lite software Copyright (c) 2011 by Allen Kerensky (OSG/SL)
// Myriad Lite licensed under the
// Creative Commons Attribution-Share Alike-Non-Commercial 3.0 Unported
// http://creativecommons.org/licenses/by-nc-sa/3.0/

integer dynchan;
default {
    state_entry() {
        llSetText("Client: Boons",<1,1,1>,1);
        dynchan = (integer)("0x"+llGetSubString((string)llGetKey(),0,6));
        llListen(dynchan,"",NULL_KEY,"");
        llListen(-999,"",NULL_KEY,"");    
        llRegionSay(-999,"LIST_BOONS");
    }
    
    touch_start(integer touched) {
        touched = 0; // LSLINT
        llRegionSay(-999,"LIST_BOONS");    
        llRegionSay(-999,"GET_BOON|Ally");
        llRegionSay(-999,"GET_BOON|Affiliation");
        llRegionSay(-999,"GET_BOON|Famous");
        llRegionSay(-999,"GET_BOON|Lucky");
        llRegionSay(-999,"GET_BOON|Rich");
        llRegionSay(-999,"GET_BOON|Acute Hearing");
        llRegionSay(-999,"GET_BOON|Acute Scent");
        llRegionSay(-999,"GET_BOON|Acute Taste");
        llRegionSay(-999,"GET_BOON|Acute Vision");
        llRegionSay(-999,"GET_BOON|Analytical Scent");
        llRegionSay(-999,"GET_BOON|Additional Skill");
        llRegionSay(-999,"GET_BOON|Additional Boon");
        llRegionSay(-999,"GET_BOON|Additional SFX");
        llRegionSay(-999,"GET_BOON|Fast");
        llRegionSay(-999,"GET_BOON|Flight (Gliding)");
        llRegionSay(-999,"GET_BOON|Flight (True Flight)");
        llRegionSay(-999,"GET_BOON|Immunity: Partial");
        llRegionSay(-999,"GET_BOON|Immunity: Total");
        llRegionSay(-999,"GET_BOON|Longevity");
        llRegionSay(-999,"GET_BOON|Magic Resistant");
        llRegionSay(-999,"GET_BOON|Magic Resistant:Partial");
        llRegionSay(-999,"GET_BOON|Metamorphic");
        llRegionSay(-999,"GET_BOON|Natural Armor");
        llRegionSay(-999,"GET_BOON|Natural Armor:Heavy");
        llRegionSay(-999,"GET_BOON|Natural Weapon");
        llRegionSay(-999,"GET_BOON|Natural Weapon:Heavy");
        llRegionSay(-999,"GET_BOON|Natural Weapon:Ranged");
        llRegionSay(-999,"GET_BOON|Night Vision");
        llRegionSay(-999,"GET_BOON|Scentless");        
        llRegionSay(-999,"GET_BOON|Xyzzy");    
    }
    
    listen(integer channel,string name,key id,string msg) {
        name = ""; // LSLINT
        id = NULL_KEY; // LSLINT
        if ( llSubStringIndex(msg,"BOON") >= 0 ) {
            llSay(PUBLIC_CHANNEL,(string)channel+": "+msg);
        }
    }
}