Bunnie's site

TrueRandom or Not?

Thu, 19 Aug 2010 12:39:03 +0000

proc/TrueRandom(list/TheDeck)
    var
        size = TheDeck.len
    while(size>0)
        TheDeck.Swap(rand(1,size),rand(1,TheDeck.len))
        size--

I've done alot of online reading lately about how to randomly shuffle a deck of 52 cards.
From what I read they all ultimately suggest to;
Switch A with B
Where A = A number between 1 and LoopCount
and B = Number btween 1 and DeckMax
LoopCount starts at the Deck's size and decreases.

This is proposed to be truly random as EACH position in the deck has an exactly equal chance of being swapped with another.

Lummox JR wrote:

This is a correct shuffling algorithm:
proc/Shuffle(list/deck)
>   if(!deck) return
>   for(var/i=deck.len, i>1, --i)
>     deck.Swap(i, rand(1,i))
Essentially what that's doing is building the shuffled deck from the bottom up, choosing a card at random from the unshuffled part (indexes 1 through i) and moving it to the shuffled pile (i+1 through deck.len), replacing it with another card. As the loop progresses, the growing shuffled pile is filled with cards in truly random order while the unshiffled pile becomes more random as it gets smaller.
The loop terminates when i==1 because at that point, the process of elimination has left you with only one card.

Multi-Lists don't work with List Procs

Thu, 19 Aug 2010 08:22:15 +0000

I am trying to make a shuffle system for a card game and getting an annoying issue with this.
Code:

proc/PileRandom(list/TheDeck)
    var
        list/piles[6]
        list/newdeck[]
        ii=0
        pilenum=0
        CardNum=0
    while(TheDeck.len>0)
        ii++
        pilenum=ii%6
        if(pilenum==0) pilenum=6
        CardNum=rand(1,TheDeck.len)
        piles[pilenum].Add(TheDeck[CardNum])
        TheDeck.Cut(CardNum, CardNum+1)
    while(piles.len>0)
        pilenum = rand(1,piles.len)
        newdeck+=piles[pilenum]
        piles.Cut(pilenum,pilenum+1)
    TheDeck.Cut()
    TheDeck.Add(newdeck)

Problem description:
piles[pilenum].Add(TheDeck[CardNum]) error: .: expected end of statement

The same thing happens with all of the built-inlist procs;
Add, Copy, Cut, Find, Insert, Remove & Swap

Windows vs Linux Server Rebooter

Sat, 25 Jul 2009 20:46:33 +0000

Code:

var/ipaddress="127.0.0.1"
var/port="1709"
var/serverpath="~/byond/MyHub/dmu/dmu.dmb"
var/serveroptionals="-trusted"

world/New()
    world.log=file("Monitorlog.txt");
    Check_Server()

proc
    Check_Server()
        var/failattempts = 0
        LOOP
        var/SERVER = world.Export("[ipaddress]:[port]?ping")
        if(!SERVER)
            world.log<<"<[time2text(world.timeofday)]> Server failed to respond"
            failattempts++;
            if(failattempts>2)
                world.log<<"<[time2text(world.timeofday)]> Reboot Attempted"
                world.log<<"----------------------"
                startup(serverpath,port,serveroptionals)
                failattempts=0;
        spawn(10)
        goto LOOP

Problem description:

This code works perfectly fine on Windows.
However, neither logging output or running of a server works on a Linux machine.

Any ideas?

FYI. It's using variables because I plan to make it use an external txt file to obtain this information when I know it works solid.

Windows vs Linux Server Rebooter

Fri, 24 Jul 2009 05:14:17 +0000

Code:

world/New()
    world.log=file("Monitorlog.txt");
    Check_Server()
var/failattempts
proc
    Check_Server()
        var/SERVER = world.Export("byond://127.0.0.1:1709?ping")
        if(!SERVER)
            world.log<<"<[time2text(world.timeofday)]> Server failed to respond"
            failattempts++;
            if(failattempts>2)
                world.log<<"<[time2text(world.timeofday)]> Reboot Attempted"
                world.log<<"----------------------"
                startup("dmu/dmu.dmb",1709,"-trusted")
                failattempts=0;
        spawn(10)
        Check_Server()

Problem description:

This code works perfectly fine on Windows.
However, neither logging output or running of a server works on a Linux machine.

Any ideas?

input as list

Fri, 10 Apr 2009 23:15:03 +0000

How can I get list as a type of input to a proc?

world/proc/rearrange(input as list)

Bad input type.

What I'm trying to achieve is basically the php equivalent of..

$bob = rearrange($bob);

function rearrange($input)
{
// Rearranging stuff here
return $input
}

Linux (Ubuntu) Daemon Queries.

Fri, 09 May 2008 17:03:05 +0000

Alright, I've got DreamDaemon working on my Ubuntu server and it runs fine, however I have two things I would like to do..

First off, I connect via PuTTy, would it be possible to have the Daemon server remain active AFTER PuTTy is closed?

Second off, how can I get it to "login" properly? at the moment its hosting under an ?invalid? BYOND key, and servers run by it just report Host as Unknown, how do I get it to login under a byond key?

Ubuntu DreamDaemon [Resolved]

Fri, 09 May 2008 11:12:13 +0000

-bash: /home/****/bin/DreamDaemon: No such file or directory
****@digiyond:~/bin$ cd /home/****/bin/
****@digiyond:~/bin$ dir
DreamDaemon  DreamMaker  byondsetup  libext.so
****@digiyond:~/bin$

Can anyone explain this?

I'm on Ubuntu 8.04 LTS (hardy) and I've been tackling this for the past 3 hours now.

--Resolved--

Cinnom wrote:

If it's a 64-bit server, you may need to install ia32-libs:

sudo apt-get install ia32-libs

I hear invisible people! [Abandoned]

Sun, 06 Apr 2008 14:07:07 +0000

I'm setting people invisible to a player as previously displayed here.

http://www.byond.com/developer/forum/?id=628836

However it seems that whenever I make text output to view via a verb ( say() ) it allows the player to hear people that they cannot actually see?

Say()
    // Mute/Spam checks here.
    var/text = input("Say Something. What?","Say" as text
    for(var/mob/PC/p in view(usr))
        p<<"[usr]: [text]"

So, how can I resolve this issue?

p.s this is just a basic verb to demonstrate that it's not working, this isn't my actual verb :)

It became later apparent that this wouldn't be effective for me, even if I had managed to solve this (Although I do believe GhostAnime would have found the solution) as there were several commands that needed attention, and so it became easier to strip the verbs they were not allowed

Make players in AREA invisible [Solved]

Sat, 05 Apr 2008 03:17:33 +0000

Slightly incorrect topic title, I apologize, but what I'm trying to achieve is, while MOB is in /area/cave/ MOB cannot see other MOB's.

So if for example players John and Dave entered someplace, and it's area was /area/cave/

John could see himself, but not Dave
Dave could see himself, but not John

Unfortunately the invisibility variable isn't going to help in achieving this, either that or im tackling it in the wrong fashion.

area
    maze_area
        Enter()
            //Do stealthy stuff here
            return ..()
        Exit()
            //End stealthy stuff here
            return ..()

    Entered()
            usr.sight |= SEE_SELF
            usr.invisibility = 1
        Exited()
            usr.sight &= ~SEE_SELF
            usr.invisibility = 0

This is the solution I came up with thanks to Kaioken and Hiead, thanks for your insightful debate.

I was originally only applying one, I didn't know to mix them both to get the desired effect, thanks again.

Always be thoughful of your words.

Fri, 04 Apr 2008 07:24:59 +0000

Recently I hurt someone's feelings.
Mobius Evalon, I hurt his feelings, truely and deeply and words cannot begin to describe how sorry I am, nor will they ever be enough.

Mobius Evalon helped me get started learning coding, both DreamMaker and PHP, if it wasn't for his help, heck, I probably would never have gotten anywhere in my coding business.

So, Mobius Evalon, I salute you for being such a considerate and thoughtful person, regardless of all the hurt I put you through you always seemed to have a huge heart and the will to help which I suppose I did take advantage of and again I can never apologize enough to make up for it.

Mobius Evalon, You are mighty.