YMIHere's site

Blog looks crazy with new layout.

Sun, 28 Aug 2011 05:55:55 +0000

Going to have to fix it a little bit at least.

Oh, and howdy. =P

Nobody likes a drunken programmer.

Fri, 12 Dec 2008 12:09:03 +0000

I can't honestly blame them, but I spent a few minutes trying to convince someone that I could help with their programming problem tonight. Maybe I should stick to Chatters sober, sorry Zephyrous.

A quote

Sat, 16 Aug 2008 14:30:01 +0000

"This is fake because it is obviously fake, I mean, just look at how fake it is, what a fake if I ever saw a fake.
PS. Fake" -The Magic Man in ID:657545

=)

(8:02 am) Occupied Forces is online!

Tue, 05 Aug 2008 11:15:39 +0000

I'm hosting Occupied Forces, started doing so at 8:02 am. =P

What I mean is that I probably shouldn't get that update in the pager. =)

Forum Suggestion

Mon, 03 Dec 2007 23:02:26 +0000

I think it'd be nice if we had the quote arrows ("> ") removed from DM tags. I know they don't show up when posted, but they take away from limited horizontal space.

Aww, what happened?

Thu, 08 Feb 2007 17:50:02 +0000

I setup these cool little check marks after visited links in my CSS. My computer crapped out on me a while back and I went back to the old laptop, which didn't seem to recognize them and put a question mark there instead. A little while ago something made the checks come back, but now they're gone again. It's kind of odd given that they mean the exact opposite to me. =)

I suppose I should use this opportunity to try out polls.

NiceTime()

Wed, 17 Jan 2007 02:50:22 +0000

//Title: NiceTime()
//Credit to: Public domain
//Contributed by: YMIHere


/*
This snippets turns a boring old number into a text string 
reflecting time in the form of x weeks x days x hours x minutes x ticks.
*/


proc
    NiceTime(time)
        var/list/measures=list("week"=6048000,"day"=864000,\
            "hour"=36000,"minute"=600,"second"=10,"tick"=1)
        var/string
        for(var/measure in measures)
            var/how_many = round(time / measures[measure])
            if(how_many >= 1)
                string += "[how_many] [measure]"
                if(how_many >= 2)
                    string += "s"
                string += " "
                time -= how_many*measures[measure]
        return copytext(string, 1, length(string))


///*
//Testing Code/Sample Implementation:

mob/var/time_joined
mob/verb/how_long_have_I_been_here()
    src << NiceTime(world.realtime-time_joined)
mob/verb/test(n as num)
    src << NiceTime(n)

mob/Login()
    ..()
    time_joined=world.realtime

//*/

cutnsend() javascript for large form handling.

Fri, 12 Jan 2007 01:16:58 +0000

//Title: cutnsend
//Public domain.
//Contributed by: YMIHere

/*
This will bypass the size limit of the GET method by 
sending multiple links to datum.Topic() and building 
the anwsers in the datums form_info list (in the form 
of "name"="value"). For checkboxes and radio buttons, 
their information will only send if they've been checked. 
Call datum.CNSScript to get the script for that datum and 
put it in the header of the HTML page, then call cutnsend() 
whenever you want to send the information. 
datum.CNSFinished() is called when the form_info list has 
been completely filled out. I think you might be able to 
use this with HTML forms, not real sure. =P
*/

datum
    Topic(href,href_list[])
        if("CUTNSEND" in href_list)
            if(href_list["CUTNSEND"]=="DONE")
                CNSFinished()
            else
                if(!form_info) form_info=new
                form_info[href_list[3]]+=href_list[href_list[3]]
        .=..()
    var/list/form_info
    proc
        CNSFinished()
            del form_info
        CNSScript(limit=150)
            return {"
<script type="text/javascript">
 function cutnsend()
 {
  var text="";
  for (form in document.forms)
  {
   form=document.forms\[form\];
   for (i=0; i<form.length; i++)
   {
    if(form.elements\[i\].type!="checkbox" && 
    form.elements\[i\].type!="radio" || 
    form.elements\[i\].checked)
    {
     text=form.elements\[i\].value;
     for (j=0; j<=text.length; j+=[limit])
     {
      var newstr=text.substr(j,[limit]);
      var url="byond://?src=\ref[src];CUTNSEND;"+form.elements\[i\].name + 
      "=" + 
      newstr;
      window.open(url,"_top");
     }
    }
   }
  }
  window.open("byond://?src=\ref[src];CUTNSEND=DONE;","_top");
 }
</script>
"}

///*
//Testing Code/Sample Implementation:

mob/verb
    settings()
        var/page={"<html><head><title>Settings</title>[CNSScript()]</head>
        <body><form><input type="hidden" name="use" value="settings" />
        Name:<br /><input type="text" name="name" value="[key]" /><br />
        Description:<br /><textarea name="description" cols="15" 
        rows="6">[client.gender]</textarea></form><br /><input type="button" 
        value="Save Changes" disabledclick="cutnsend()" /></body></html>"}
        src << browse(page,"window=settings")
    preferences()
        var/page={"<html><head><title>Preferences</title>[CNSScript()]</head>
        <body><form><input type="hidden" name="use" value="preferences" />
        Color:<input type="text" name="color" value="blue" /><br />
        Bold:<input type="checkbox" name="bold" value="TRUE" />
        </form><br /><input type="button" value="Save Changes" 
        disabledclick="cutnsend()" /></body></html>"}
        src << browse(page,"window=preferences")

mob/CNSFinished()
    if(form_info["use"]=="settings")
        name=form_info["name"]
        desc=form_info["description"]
        src<<"Your name is now [name].\nYour desc is now <pre>[desc]."
        src << browse(null,"window=settings")
    else if(form_info["use"]=="preferences")
        src<<"<font color=\"[form_info["color"]]\">\
        [form_info["bold"]?"<b>":][name]\
        [form_info["bold"]?"</b>":]</font>"
        src << browse(null,"window=preferences")
//  for(var/variable in form_info)
//      src << "[variable] = [form_info[variable]]"
    ..()

//*/

Fall update got me

Mon, 25 Dec 2006 17:20:39 +0000

Microsoft's going to send me a box to send my 360 to them in, classy! Hopefully they'll replace that USB port on the back that hasn't worked since I got it.

http://www.majornelson.com/archive/2006/11/01/ having-an-issue-with-the-fall-update.aspx

FindTexts()

Thu, 30 Nov 2006 20:53:43 +0000

//Title: findTexts()
//Public domain.
//Contributed by: YMIHere


/*
It's just like findText() except it returns the first string it finds out of a 
list (in the form of [pos];[string]). It could be useful for command line 
parsing.
*/


proc/findTexts(haystack, list/needles, start=1, end=length(haystack))
    while(start <= end)
        for(var/needle in needles)          
            var/i
            while(get_letter(haystack, start+i) == get_letter(needle, ++i))
                if(i >= length(needle))
                    return "[start];[needle]"               
        start++     

proc/get_letter(string, pos)
    return ascii2text(text2ascii(string,pos))



///*

mob/verb/test()
    src << findTexts("Should I move or just look around?",\
        list("look","move"))  // returns "10;move"
    src << findTexts("I'm not going anywhere!",\
        list("look","move"))  // returns null

//*/