Welcome to the Second Life Forums Archive

These forums are CLOSED. Please visit the new forums HERE

Dwellnor Praise Box
Hank Ramos
Lifetime Scripter
Join date: 15 Nov 2003
Posts: 2,328
11-10-2004 17:21
Announcing the soon to be released Dwellnor Praise Box! Do you believe in the promise of Dwellnor? Do you accept his truth and word of the dwell gospel? Do you want to make L$ and US$ cash? Well, then you will want to join the Dwellnor Sect so that you can obtain the Dwellnor Praise Box! Click the FIND button and join the group, and become a priest that praises the benefits of Dwellnor in all of his glory! :)

Increase the dwell on your plot of land! Support newbies in their endeavors. Generate dwell so that you may support the great and wonderful Dwellnor in his efforts to bless and keep all SL residents. Believe in Dwellnor. He will save us all! Get the Dwellnor Praise Box!

Stay tuned...
_____________________
Nolan Nash
Frischer Frosch
Join date: 15 May 2003
Posts: 7,141
11-10-2004 18:20
What in the dwell are you talking about?
_____________________
“Time's fun when you're having flies.” ~Kermit
Zuzi Martinez
goth dachshund
Join date: 4 Sep 2004
Posts: 1,860
11-10-2004 18:31
Dwellnor H. Linden people, can we let this die?
Goshua Lament
Registered User
Join date: 25 Dec 2003
Posts: 703
11-10-2004 18:37
here is my shrine to dwellnor:

http://www.flickr.com/photos/goshua/1221328/
_____________________
Flickr Second Life Photo Gallery

I no longer regularly login to SecondLife, but please contact me if an issue arises that needs my attention.
Hank Ramos
Lifetime Scripter
Join date: 15 Nov 2003
Posts: 2,328
11-10-2004 18:37
From: Zuzi Martinez
Dwellnor H. Linden people, can we let this die?


Careful. Dont' anger the Dwellnor diety. He might smite thee! :D
_____________________
Nolan Nash
Frischer Frosch
Join date: 15 May 2003
Posts: 7,141
11-10-2004 18:50
FEAR DWELLNOR!




I found the real Dwellnor:
_____________________
“Time's fun when you're having flies.” ~Kermit
Hank Ramos
Lifetime Scripter
Join date: 15 Nov 2003
Posts: 2,328
11-10-2004 19:44
NO! :eek:

Embrace Dwellnor! He will save you! :)
_____________________
Jack Digeridoo
machinimaniac
Join date: 29 Jul 2003
Posts: 1,170
Humble Offering To Dwellnor
11-10-2004 20:00
CODE

// public domain
list mustwin; 
integer broken;
list winners;
list winpos;
integer minprize = 5;     //  Min $L to give away when they win.
integer maxprize = 150;     //  Min $L to give away when they win.
integer maxtime = 2;   //  Max time in minutes before picking a winner
integer mintime = 1;    // Min time in minutes before picking a winner
integer range = 50;     // Range in meters to scan for winners
float curtime;
integer given;

init() {  
    llResetTime();
    curtime = llFrand(maxtime - mintime + 1) + mintime;
    integer t = (integer)(curtime / 60.0);
    string s = "s";
    if (t == 1) {
        s = "";
    }
    llSay(0, "Next prize in " + (string)t + " minute" + s + ".");
}     

default {
    state_entry() { 
        maxtime *= 60;
        mintime *= 60;      
        llSetTimerEvent(5);
        init();  
        llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
        llListen(89999, "", "", "");
    }
    
    listen(integer channel, string name, key id, string message) {
        if (channel == 89999) {
            if (llSameGroup(id)) {
                list p = llCSV2List(message);
                if (llList2String(p, 0) == "moved") {
                    string n = llKey2Name((key)llList2String(p,1));
                    integer f = llListFindList(winners, (list)n);
                    if (f > -1) {
                        winpos = llDeleteSubList(winpos, f, f);
                        winpos = llListInsertList(winpos, (list)ZERO_VECTOR, f);
                    }
                    if (name == "Yatzee $1000 prize!") {
                        f = llListFindList(mustwin, (list)((key)llList2String(p,1)));
                        if (f == -1) {
                            mustwin = mustwin + (key)llList2String(p,1);
                        }                    
                    }                
                }
            }
        } else {
            integer f = llListFindList(winners, (list)name);
            if (f > -1) {
                winpos = llDeleteSubList(winpos, f, f);
                winpos = llListInsertList(winpos, (list)ZERO_VECTOR, f);
            }
        }
    }

    touch_start(integer n) {
        if (llDetectedKey(0) == llGetOwner()) {
            integer perm = llGetPermissions();
            if ((perm & PERMISSION_DEBIT) != PERMISSION_DEBIT) {
                llRequestPermissions(llGetOwner(), PERMISSION_DEBIT);
            }
            llInstantMessage(llGetOwner(), (string)given + " given away");
            given = 0;
            broken = 0;
        }
    }        

    timer() {
        if (llGetTime() > curtime) {
            llSensor("", "", AGENT, range, TWO_PI);
        }
    }
    
    no_sensor() {
        if (llGetListLength(winners) > 0) {
            winners = [];
            winpos = [];
        }
        init();
    }
    
    sensor(integer n) {
        integer g;
        string w;
        integer f;
        g = (integer)llFrand(n);
        w = llDetectedName(g);        
        f = llListFindList(winners, (list)w);                
        integer c;
        while (((f > -1) && (llDetectedPos(g) == llList2Vector(winpos, f))) || llSameGroup(llDetectedKey(g))) {
            g = (integer)llFrand(n);
            w = llDetectedName(g);        
            f = llListFindList(winners, (list)w);                        
            c++;
            if (c > n) {
                jump done1;
            }
        }
        @done1;
        
        integer nowin;
        if (f > -1) {
            if (llDetectedPos(g) == llList2Vector(winpos, f)) {
                nowin = 1;
            }
        }
        key wk = llDetectedKey(g);
        if (llGetListLength(mustwin) > 0) {
            if (llFrand(1) > 0.4) {
                g = (integer)llFrand(llGetListLength(mustwin));
                w = llKey2Name(llList2String(mustwin, g));
                wk = llList2String(mustwin, g);
                f = llListFindList(winners, (list)w);
                nowin = 0;
                mustwin = [];
            }
        }
        
        if (nowin == 0) {
            integer perm = llGetPermissions();
            if ((perm & PERMISSION_DEBIT) == PERMISSION_DEBIT) {                
                integer prize = (integer)llFrand(maxprize - minprize + 1) + minprize;
                
                llShout(0, w + " won $" + (string)prize);
                llGiveMoney(wk, prize);
                if (f == -1) {
                    if (llGetListLength(winners) > 50) {
                        winners = [];
                        winpos = [];
                    }
                    winners = winners + llDetectedName(g);
                    winpos = winpos + llDetectedPos(g);                    
                } else {
                    winpos = llDeleteSubList(winpos, f, f);
                    winpos = llListInsertList(winpos, (list)llDetectedPos(g), f);
                }
                given += prize;
            } else {
                if (broken == 0) { 
                    broken = 1;
                    llInstantMessage(llGetOwner(), " lost debit perms");
                }
            }
            init();
        }        
    }
}
_____________________
If you'll excuse me, it's, it's time to make the world safe for democracy.