私のこと

XYZ
こんにちは。D-FRIENDSリーダーのXYZです。 昼はSE、夜はゲームクリエイターという忙しい毎日を過ごしています。 そんな中にでも、ちょっとした変化や出来事を楽しみながら多忙な日々を過ごしたいと思います。 非公開のゲーム公開もあるかも?
非常口
カテゴリ別
マイヒストリー
19xx年1月7日この世に生を受ける。無事生まれたので、一族、勢い余って病院で大騒ぎして、医者と看護士に怒られる。(祖父母からすれば初孫ということもある。)
2歳 2月26日妹、未成熟児として生を受ける。危機的状況ながらも何とか一命を取り留める。(しかし、妹は幼稚園に入園するまで非常に病弱だった。)
3歳〜5歳両親が妹の看病のため、孤独な幼年幼女時代で、非常に荒んだ日々を過ごす。
6歳〜12歳小学校に入学。内気な子だった。しかし、そろばん、英会話、剣道、塾を習い始め、徐々にライバルと張り合う楽しさに気づき始める。
13歳〜15歳中学校に入学。自信家に成長する。しかし、その態度が気に入らない子が居たせいか、いじめられる。(この頃から、自分が気づかない間にとんでもない力を発揮することがあった。)
16歳〜18歳某体育系の高校に進学。思いっきり青春を謳歌する。生徒会も経験する。(自分が気づかない間にとんでもない力を発揮することが自分でも気づき始めた。)
18歳以降(1)情報系短大に進学。大学編入のために勉強しつつも、強力なライバル達に出会い、良い刺激を受けながら日々を過ごす。
この頃から自分の根本が確立されてきた。
18歳以降(2)その後、並立の大学(情報系学科)に編入。師匠と呼べる人からゲーム制作のノウハウを叩き込まれる。(自分が気づかない間にとんでもない力を発揮することが顕著になった。)
18歳以降(3)師匠と別れる。しかし、この辺りで制作したゲームが巷の雑誌に紹介されまくる。一時期有頂天になり、感覚がおかしくなった。
その後、有頂天から立ち直り、現D-FRIENDSメンバーから「弟子にして下さい」と嘆願される。本格的にD-FRIENDSがサークル化する。
社会人(1)IT系の会社に就職。組み込み系の部署に配属されるが、面白くない日々を過ごす。(実は解離性人格障害、所謂2重人格であることが発覚する。しかし、治療の必要なしと診察されて終了。)
社会人(2)同社にて、異動命令を受ける。(一説には放り出されたという説も。)マネージメント系の仕事をするようになる。多忙ながら充実の日々を過ごす。(片割れの自分を受け入れられるようになった。)
2009年3月D-FRIENDSの某メンバーの不祥事により、某メンバーを懲戒脱退させる。その後、新メンバー4人が加入し9人体制の大所帯サークルになる。
未来知らない。幸せであることを願う。
<% Function googleColor(value, random) Dim colorArray colorArray = Split(value, ",") googleColor = colorArray(random Mod (UBound(colorArray) + 1)) End Function Function googleScreenRes() Dim screenRes, delimiter, resArray screenRes = Request.ServerVariables("HTTP_UA_PIXELS") delimiter = "x" If IsEmpty(screenRes) Then screenRes = Request.ServerVariables("HTTP_X_UP_DEVCAP_SCREENPIXELS") delimiter = "," End If resArray = Split(screenRes, delimiter, 2) If (UBound(resArray) + 1) = 2 Then googleScreenRes = "&u_w=" & resArray(0) & "&u_h=" & resArray(1) End If End Function Function googleDcmguid() Dim dcmguid dcmguid = Request.ServerVariables("HTTP_X_DCMGUID") If Not IsEmpty(dcmguid) Then googleDcmguid = "&dcmguid=" & dcmguid End If End Function Dim googleTime, googleDt, googleScheme, googleHost googleTime = DateDiff("s", "01/01/1970 00:00:00", Now()) googleDt = (1000 * googleTime) + Round(1000 * (Timer - Int(Timer))) googleScheme = "http://" If StrComp(Request.ServerVariables("HTTPS"), "on") = 0 Then googleScheme = "https://" googleHost = Server.URLEncode(googleScheme & Request.ServerVariables("HTTP_HOST")) Dim googleAdUrl, googleAdOutput googleAdUrl = "http://pagead2.googlesyndication.com/pagead/ads?" &_ "ad_type=text" &_ "&channel=9565986320+5601423821+5840107389+4310060897+7429481610" &_ "&client=ca-mb-pub-7188648081157211" &_ "&dt=" & googleDt &_ "&format=mobile_double" &_ "&host=" & googleHost &_ "&ip=" & Server.URLEncode(Request.ServerVariables("REMOTE_ADDR")) &_ "&markup=xhtml" &_ "&oe=utf8" &_ "&output=xhtml" &_ "&ref=" & Server.URLEncode(Request.ServerVariables("HTTP_REFERER")) &_ "&url=" & googleHost & Server.URLEncode(Request.ServerVariables("URL")) &_ "&useragent=" & Server.URLEncode(Request.ServerVariables("HTTP_USER_AGENT")) &_ googleScreenRes() &_ googleDcmguid() Set googleAdOutput = Server.CreateObject("MSXML2.ServerXMLHTTP") googleAdOutput.Open "GET", googleAdUrl, false googleAdOutput.Send Response.Write(googleAdOutput.responseText) %>