Koil's site

Koil smells bad.

Mon, 21 Nov 2011 04:10:32 +0000

ya'll smelly

Who is this girl?

Sun, 26 Jul 2009 06:05:58 +0000

She's been on Bootyboy's blog page for awhile. I'd love to know who it is.

Getting the screen location of a map object.

Fri, 27 Feb 2009 02:17:22 +0000

How would I get the screen location of an object that isn't actually in client.screen, but is on the map and is in the players' view?

Like, say I have an object at 55,67. I walk away from this object until it's in the top right corner of my 7x7 view. That would mean it's screen location would be 7,7, even though it's map location is 55,67. Get what I mean?

What.. the heck? [edit]

Mon, 19 Jan 2009 23:22:18 +0000

Code:

#define islist(x) istype(x, /list)

proc
    srand(min, max, shade)
        if(!shade || shade == 1 || max < min) return min
        
        return round(min + rand(1, shade) * ((max - min) / shade))

color
    var
        red_min = 0
        green_min = 0
        blue_min = 0
        
        red_max = 0
        green_max = 0
        blue_max = 0
        
        red_shades = 0
        green_shades = 0
        blue_shades = 0
    
    New(rm = 0, rx = 0, rs = 0, gm = 0, gx = 0, gs = 0, bm = 0, bx = 0, bs = 0)
        red_min = rm
        red_max = rx
        red_shades = rs
        
        green_min = gm
        green_max = gx
        green_shades = gs
        
        blue_min = bm
        blue_max = bx
        blue_shades = bs
    
    proc
        debug()
            return "[red_min],[red_max]([red_shades])=[srand(red_min, red_max, red_shades)]; [green_min],[green_max]([green_shades])=[srand(green_min, green_max, green_shades)]; [blue_min],[blue_max]([blue_shades])=[srand(blue_min, blue_max, blue_shades)]"
        
        generateColor()
            return rgb(srand(red_min, red_max, red_shades), srand(green_min, green_max, green_shades), srand(blue_min, blue_max, blue_shades))

atom
    var
        color/foreground = null
        color/background = null
        display_text = null
    
    New()
        ..()
        refreshDisplay()
    
    proc
        generateDisplayText()
            if(copytext(display_text, 1, 2) == ":" && copytext(display_text, length(display_text)) == ";")
                . = copytext(display_text, 2, length(display_text))
                
                var/rdt = rand(1, length(.))
                . = copytext(., rdt, rdt + 1)
            
            else . = display_text
            
        refreshDisplay()
            var
                fg_color = (foreground) ? (foreground.generateColor()) : (null)
                bg_color = (background) ? (background.generateColor()) : (null)
                dt = generateDisplayText()

            if(fg_color && bg_color) text = "<font bgcolor=[bg_color] color=[fg_color]>[dt]</font>"
            else if(fg_color && !bg_color) text = "<font color=[fg_color]>[dt]</font>"
            else if(!fg_color && bg_color) text = "<font bgcolor=[bg_color]>[dt]</font>"
            else text = "[dt]"

world/mob = /mob/player
    
turf
    text = ""
    
    grass
        text = "<font bgcolor=#009900> </font>"

        foreground = new/color(0, 0, 0, 150, 200, 3, 0, 0, 0)
        display_text = ":` ,;"

mob
    player
        text = "@"
        
        foreground = new/color(50, 255, 3, 50, 255, 3, 50, 255, 3)
        display_text = "@"

Problem description:
Okay I have the foreground and background /colors that are created with the arguments being color and shade numbers. The /color object returns a random color based on what ranges you give it.

The problem is that it does not work on turfs. It works fine on /mobs and /objs, but it just won't work on turfs. I tried this with the turf and it made it work:

turf
    text = ""
    
    grass
        text = "<font bgcolor=#009900> </font>"

        //foreground = new/color(0, 0, 0, 150, 200, 3, 0, 0, 0)
        display_text = ":` ,;"
        
        New()
            foreground = new/color
            foreground.green_min = 150
            foreground.green_max = 200
            foreground.green_shades = 3
            
            ..()

but that's completely retarded. Why do other /atoms BESIDES /turf let me instance the /color object like they do?

Am I missing some secret innerworking of BYOND?!

[edit]
This also makes it correctly set the grass color.

mob
    player
        text = "@"
        
        foreground = new/color(50, 255, 3, 50, 255, 3, 50, 255, 3)
        display_text = "@"
        
        Login()
            ..()
            for(var/turf/A in world)
                A.foreground = new/color(0, 0, 0, 150, 200, 3, 0, 0, 0)
                A.background = new/color(0, 0, 0, 100, 150, 3, 0, 0, 0)
                A.refreshDisplay()

Parser

Sun, 18 Jan 2009 07:42:56 +0000

Here is the parser I made for my MUD. I realize AbyssDragon already has a nice parser, but it's got too many features I don't need and it doesn't handle certain things like I need them to be handled, so I made my own.

Does it look decent? I've never really made a command parser.

var/Parser/parser = new

mob
    var/list/inventory = list()

client/Command(cmd)
        parser.parse(mob, cmd)
            
obj/really_big_candy

Command // TEST COMMANDS
    say
        format = "(say);txt"
        function(mob/user, txt)
            world << "[user.name]: [txt]"

    tell
        format = "(tell whisper);mob:view,1,usr txt"
        function(mob/user, mob/mob, txt)
            if(mob)
                if(txt)
                    if(mob != user)
                        mob << "[user] tells you, \"[txt]\""
                        user << "You tell [mob], \"[txt]\""
                    
                    else user << "You tell yourself, \"[txt]\""
                else user << "Tell what?"
            else user << "Tell who?"

    get
        format = "(get grab);obj:view,1,usr"
        function(mob/user, obj/obj)
            if(obj)
                user << "You get [obj]."
                user.inventory += obj
                obj.Move(user)
                
            else user << "Get what?"

    drop
        format = "(drop);obj:view,1,usr"
        function(mob/user, obj/obj)
            if(obj)
                if(obj in user.inventory)
                    user << "You drop [obj]."
                    
                    obj.Move(user.loc)
                    user.inventory -= obj
                    
            else user << "Drop what?"

    walk
        format = "(walk step);txt"
        function(mob/user, txt)
            switch(txt)
                if("north", "n") step(user, NORTH)
                if("south", "s") step(user, SOUTH)
                if("east", "e") step(user, EAST)
                if("west", "w") step(user, WEST)
    
    give
        format = "(give);mob:view,1,usr obj:.inventory"
        function(mob/user, mob/mob, mob/obj)
            if(mob)
                if(obj)
                    user << "You give [mob] [obj]."
                    mob << "[user] gives you [obj]."
                    
                    obj.Move(mob)
                    user.inventory -= obj
                    mob.inventory += obj
                    
                else user << "Give what?"
            else user << "Give who?"

proc
    stringSplit(string, delimiter = " ")
        if(string)
            . = list()

            var/pos = findtext(string, delimiter)

            while(pos)
                . += copytext(string, 1, pos)
                string = copytext(string, pos + length(delimiter))

                pos = findtext(string, delimiter)

            if(string)
                . += string

        else return

    list2text(list/l, delimiter = " ")
        . = ""

        for(var/i = 1, i <= length(l), i ++)
            . += l[i]

            if(i < length(l))
                . += delimiter
    
    tokenize(string)
        var
            list/tokens = list()
            current
            quotes = FALSE
            char = ""

        while(length(string))
            char = copytext(string, 1, 2)

            if(char == "\"" || char == "'") quotes = !quotes
            else if(char != " " || quotes) current += char
            else
                tokens += current
                current = ""

            string = copytext(string, 2)

        return tokens + current
    
    text2atom(mob/user, name, token, type)
        var/location
        
        if(findtext(token, ":"))
            var
                ltag = copytext(token, findtext(token, ":") + 1)
                list/argl = stringSplit(ltag, ",")
            
            if(findtext(argl[1], ".")) location = user.vars[copytext(argl[1], findtext(argl[1], ".") + 1)]
            else
                switch(argl[1])
                    if("world") location = world
                    if("view") location = parseFind(user, "view", argl[2], argl[3])
                    if("oview") location = parseFind(user, "oview", argl[2], argl[3])
                    if("range") location = parseFind(user, "range", argl[2], argl[3])
                    if("orange") location = parseFind(user, "orange", argl[2], argl[3])
            
        else location = world

        for(var/atom/a in location)
            if(istype(a, type))
                if(a.name == name) return a
                if(ckey(a.name) == name) return a
                if(findtext(a.name, name)) return a
                if(findtext(ckey(a.name), ckey(name))) return a
    
    parseFind(mob/user, p, dist, center)
        dist = text2num(dist)
        center = parseCenter(user, center)
        
        switch(p)
            if("view") return view(dist, center)
            if("oview") return oview(dist, center)
            if("range") return range(dist, center)
            if("orange") return orange(dist, center)
        
    parseCenter(mob/user, tag)
        if(findtext(tag, "."))
            return user.vars[copytext(tag, findtext(tag, ".") + 1)]
            
        else
            switch(tag)
                if("usr") return user
                else return user

Command
    var
        format = ""
        list/arguments = null
        list/alias = null
    
    New()
        alias = getAlias()
        arguments = tokenize(format)

    proc
        getAlias()
            var
                start = findtext(format, "(") + 1
                end = findtext(format, ");")
                
                aliasTxt = lowertext(copytext(format, start, end))
            
            format = copytext(format, end + 2)
            
            return stringSplit(aliasTxt, " ")
            
        process(mob/user, list/tokens)
            tokens.Cut(1, 2)
            
            var/argsend[length(arguments)]
            
            for(var/a = 1, a <= length(arguments), a ++)
                var
                    arga = arguments[a]
                    argt = tokens[a]
                
                switch(copytext(arga, 1, 4))
                    if("txt")
                        tokens.Cut(a - 1, a)
                        argsend[a] = list2text(tokens, " ")
                        
                    if("mob") argsend[a] = text2atom(user, argt, arga, /mob)
                    if("obj") argsend[a] = text2atom(user, argt, arga, /obj)
                    if("num") argsend[a] = text2num(argt)
            
            argsend.Insert(1, user)
            function(arglist(argsend))
            
        function(mob/user)
        match(list/tokens) if(length(tokens) >= length(arguments)) if(ckey(tokens[1]) in alias) return TRUE

Parser
    var
        list/commands

    New()
        commands = list()

        for(var/cmd in typesof(/Command) - /Command)
            var/Command/command = new cmd
            commands += command

    proc
        parse(mob/user, string)
            if(string)
                var/list/tokens = tokenize(string)
                for(var/Command/c in commands)
                    if(c.match(tokens))
                        c.process(user, tokens)
                        
                        break

Room border detection.

Sat, 03 Jan 2009 10:43:13 +0000

I'm trying to figure out a way to calculate all the turfs inside a room of any size. The room has entrances and exits which can be opened or closed (doors). I was thinking somehow picking a single spot in the room and "growing" out until it can't grow anymore (where it would stop growing when it got to an entrance or exit), but I just can't think of a way to implement it. Any help? Thanks.

Brisingr.

Fri, 19 Sep 2008 20:07:29 +0000

It comes out tomorrow. You guys gonna get it? I'm an extreme fan of the Inheritance books. I know I'll be at a bookstore tomorrow morning to get it at soon as possible. =P

Electricity.

Wed, 18 Jun 2008 11:13:38 +0000

I need a system to simulate electricity. For instance, you have a generator, and wires connected to it. Let's say you connect something that needs electricity to the wire. Now it works.

I can't think of an efficient way to do this (I don't really want to, for instance, have a proc that follows a wire in every direction until it finds a generator (or doesn't)). Ideas?

Maze generator

Sat, 31 May 2008 02:15:26 +0000

Well, uh, I have a problem with my maze generator.

maze
    var
        lowerBounds = null
        upperBounds = null

        list/area = null

        turf/wallType = /turf/wall
        turf/floorType = /turf/floor

    New(turf/_lowerBounds, turf/_upperBounds)
        lowerBounds = _lowerBounds
        upperBounds = _upperBounds
        area = block(lowerBounds, upperBounds)
        
    proc
        generate(seed)
            if(!seed)
                seed = world.realtime

            else
                rand_seed(seed)

            generateMaze()

        generateMaze()
            var
                list/unvisited = area
                list/visited = list()
                turf/currentCell = pick(unvisited)

            unvisited -= currentCell
            visited += currentCell

            while(length(unvisited))
                var
                    randomDirs = list(1, 2, 4, 8)
                    randomDir = pick(randomDirs)
                    turf/C = null

                while(!length(randomDirs) ||\
                      !get_step(currentCell, randomDir) ||\
                      !(get_step(currentCell, randomDir) in area) ||\
                      (get_step(currentCell, randomDir) in visited))
                    randomDirs -= randomDir

                    if(length(randomDirs))
                        randomDir = pick(randomDirs)

                    else
                        break

                if(!length(randomDirs))
                    currentCell = pick(visited - currentCell)

                    continue

                C = get_step(currentCell, randomDir)
                new/turf/floor(C)

                currentCell = C
                unvisited -= currentCell
                visited += currentCell

It's basically the hunt-and-kill algorithm. It works, but the problem is that there aren't any actual walls in between the passages that are created. It's actually making a maze because if you put a delay in the main while loop you can see it putting the maze together, there's just nothing in between each passage. I don't really know how to fix this. Anyone have any experience in random maze generation that can help me? =/

Uhm, this isn't making any sense.

Tue, 01 Apr 2008 23:24:50 +0000

Code:

world
    l33tdescription = "rly kewl gaem that liek has lotz of\
 liek procdurly made contents that iz liek gener8d @ liek\
 realtime each time u restart ur dream demons w/ rly detaled\
 nvironements/monsters everythin is fr3sh eech reb00t w/ all\
 itums spelz skilz and gaem rulz new eech time; the gaem iz\
 also multiplyr w/ NO LAG AT ALL kthx bai"

Problem description:
According to the 500.698 reference, description (world) allows you to specify the description of the world and DS will create it for you. Well, there's a bit of a problem. The game's content is procedurally generated each reboot in realtime (as expected), however, (and this only applies to the procedurally generated enemies) the monster names are VERY similar to each other, and I can't figure out why! Perhaps this is a bug in the system?