Myriad Lite Template Client

Myriad_Lite_Template_Client-v0.0.0-20120116.lsl

// Myriad_Lite_Template_Client-v0.0.0-20120116.lsl
// Copyright (c) 2012 By Allen Kerensky (OSG/SL)
// 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-2012 by Allen Kerensky (OSG/SL)
// Baroun's Adventure Machine Copyright (c) 2008-2011 by Baroun Tardis (SL)
// Myriad Lite and Baroun's Adventure Machine licensed under the
// Creative Commons Attribution-Share Alike-Non-Commercial 3.0 Unported
// http://creativecommons.org/licenses/by-nc-sa/3.0/
// You must agree to the terms of this license before making any use of this software.
// If you do not agree to this license, simply delete these materials.
// There is no warranty, express or implied, for your use of these materials.

integer dynchan;
default {
    state_entry() {
        llSetText("Client: Templates",<1,1,1>,1);
        dynchan = (integer)("0x"+llGetSubString((string)llGetKey(),0,6));
        llListen(dynchan,"",NULL_KEY,"");
        llListen(-999,"",NULL_KEY,"");    
        llRegionSay(-999,"LIST_TEMPLATES");
    }
    
    touch_start(integer touched) {
        touched = 0; // LSLINT
        llRegionSay(-999,"LIST_TEMPLATES");
        // species first representing genetics
        llRegionSay(-999,"GET_TEMPLATE|Dragon Folk");
        llRegionSay(-999,"GET_TEMPLATE|Dwarf");
        llRegionSay(-999,"GET_TEMPLATE|Elf");
        llRegionSay(-999,"GET_TEMPLATE|Human");
        llRegionSay(-999,"GET_TEMPLATE|Leonine");
        llRegionSay(-999,"GET_TEMPLATE|Magma Dweller");
        llRegionSay(-999,"GET_TEMPLATE|Naga");
        llRegionSay(-999,"GET_TEMPLATE|Ogre");
        llRegionSay(-999,"GET_TEMPLATE|Robot");
        llRegionSay(-999,"GET_TEMPLATE|Tonjala");
        llRegionSay(-999,"GET_TEMPLATE|Vampire");
        llRegionSay(-999,"GET_TEMPLATE|Werewolf");
        // next backgrounds representing childhoods
        llRegionSay(-999,"GET_TEMPLATE|Apprentice");
        llRegionSay(-999,"GET_TEMPLATE|Average Joe");
        llRegionSay(-999,"GET_TEMPLATE|Cadet Driver");
        llRegionSay(-999,"GET_TEMPLATE|Cadet Pilot");
        llRegionSay(-999,"GET_TEMPLATE|Cadet Spacecraft Pilot");
        llRegionSay(-999,"GET_TEMPLATE|Magician's Apprentice");
        llRegionSay(-999,"GET_TEMPLATE|Noble Lineage");
        llRegionSay(-999,"GET_TEMPLATE|Peasant Stock");
        llRegionSay(-999,"GET_TEMPLATE|Rich Family (Deceitful)");
        llRegionSay(-999,"GET_TEMPLATE|Rich Family (Persuasive)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Computing)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Electronics)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Engineering)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Faith)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Geography)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (History)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Linguistics)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Medic)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Occult Law)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Robotics)");
        llRegionSay(-999,"GET_TEMPLATE|Scholar (Science)");
        llRegionSay(-999,"GET_TEMPLATE|Spacer");
        llRegionSay(-999,"GET_TEMPLATE|Street Rat");
        llRegionSay(-999,"GET_TEMPLATE|Wastelander");
        llRegionSay(-999,"GET_TEMPLATE|Wilderness Child (Graceful)");
        llRegionSay(-999,"GET_TEMPLATE|Wilderness Child (Strong)");        
        // finally careers representing current job
        llRegionSay(-999,"GET_TEMPLATE|Cop");
        llRegionSay(-999,"GET_TEMPLATE|Doctor");
        llRegionSay(-999,"GET_TEMPLATE|Healer");
        llRegionSay(-999,"GET_TEMPLATE|Mage");
        llRegionSay(-999,"GET_TEMPLATE|Parapsychologist");
        llRegionSay(-999,"GET_TEMPLATE|Pilot");
        llRegionSay(-999,"GET_TEMPLATE|Private Investigator");
        llRegionSay(-999,"GET_TEMPLATE|Rogue");
        llRegionSay(-999,"GET_TEMPLATE|Scientist");
        llRegionSay(-999,"GET_TEMPLATE|Soldier");
        llRegionSay(-999,"GET_TEMPLATE|Spaceship Pilot");
        llRegionSay(-999,"GET_TEMPLATE|Warrior");
        // bogus name to test error reporting too        
        llRegionSay(-999,"GET_TEMPLATE|Xyzzy");
    }
    
    listen(integer channel,string name,key id,string msg) {
        name = ""; // LSLINT
        id = NULL_KEY; // LSLINT
        if ( llSubStringIndex(msg,"TEMPLATE") >= 0 ) {
            llSay(PUBLIC_CHANNEL,(string)channel+": "+msg);
        }
    }
}