上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

|-----|スポンサー広告||TOP↑
はいどうも。
とある古本屋で、東方萃夢想が7,800円で売っているのを目撃したユールさんです。
足元見るにも程があるだろ、マジで死ね。氏ねじゃなくて死ね。



Private Class Batton.aspx.vb

Rule()

For I As Integer = 1 To 9 Step 1
.  Question(I)
Next

'ルール解説のサブプロシージャ
Public sub Rule()
.  Label1.Text = "あなたが愛するスキルを、ひとつだけ軽く擬人化してください。"
.  Label1.Text += "あなたが愛するスキルに、ありったけの愛をぶつけてお答えください。"
.  Textbox1.Text = "迷惑にならない程度に、DOLプレイヤーにまわしてみましょう。"
.  TextBox1.Visible = False '見なかった事に
End Sub

'回答用のサブプロシージャ
Public Sub Question(number As Integer)
Select Case number
Case 1
.  LabelQ1.Text = "あなたの愛してやまないスキルはなんですか?"
.  IF Not LabelQ1.Text = Nothing Then
.    Dim Answer1 As String = "縫製"
.  EndIF

Case 2
.  LabelQ2.Text = "あなたとそのスキルとの出会いは?"
.  IF スキル枠 >= 1 And 心情 = "何か生産したい" Then
.    スキル枠 -= 1
.    スキル += "縫製"
.  End IF
Case 3
.  LabelQ3.Text = "どこに萌えますか?"
.  LabelAnswer3.Text = "ALL"

Case 4
.  LabelQ4.Text = "そのスキルはあなたに対してSですか、Mですか?"
.  Exit Sub '回答不能につきサブプロシージャ離脱

Case 5
.  LabelQ5.Text = "そのスキルをあなたの愛とドゥカートでブーストするといくつ?"
.  Dim スキルランク As Integer = 15 '最高ランクなのは当たり前
.  IF 職業 = 仕立師 Then
.    スキルランク += 1
.    IF 手装備 = 竹ほうき Then
.      スキルランク += 1
.      IF 副官スキル = 縫製+1 Then
.        スキルランク += 1
.      End IF
.    End IF
.  End IF
.  '↑これ以外の状態がないので、Else構文省略。よいこのみんなはちゃんとコーディングしようね
.  LabelAnswer5.Text = スキルランク

Case 6
.  LabelQ6.Text = "あなたが愛するスキルを成長させるデートスポットは?"
.  Selece Case 交易所
.  Case 生糸
.    文句なしのデートスポット
.  Case 羊毛
.    準デートスポット
.  End Select

Case 7
.  LabelQ7.Text = "そのスキルと出会って、あなたは幸せですか?"
.  LabelAnswer7.Text = "言うまでもなく"

Case 8
.  LabelQ8.Text = "デートでする行動(生産物や獲得物など)は?"
.  IF 船倉に羊毛 = True And 船倉に綿花 = True Then
.    船倉.成果物 = "モスリン"
.    管理技術.熟練度 += 少し
.  End IF

Case 9
.  LabelQ9.Text = "最後に、愛を叫んでください。"
.  LabelAnswer9.Style = Font-Size:XX-Large
.  LabelAnswer9.Text = "まぁ切る事は一生ないと思いたまえ"
End Select

End Sub

End Class



はいどうも。
ユールさんが愛するスキルを、軽くコード化してみました。
しかし何という単純なコーディング。IF~Then大好き。
これで満足でしょうかユスティニア様?
スポンサーサイト

|10-06|大航海のヨタ話コメント(4)TOP↑
この記事にコメント
Σ(・◇・)
VBかよ!

きっと少なくない数の読者さんが置いてけぼりだよ!w
From: べると * 2008/10/07 00:54 * URL * [Edit] *  top↑
更新おつかれさまー。
はい、正直にぶっちゃけよう。自分でふっといたバトンで恐縮だが、最初にパッと字面を見た瞬間ブラウザを閉じてしまいそうになりました。だって、頭が・・・痛い・・・。
で、頑張ってちゃんと読んでみた。意味はおおよそ分かりませんが、ところどころ縫製への愛が語られていたので安心しました。(きっと分かる人にはところどころじゃないんだろうけど・・・)

何はともあれバトン受け取ってくれてありがと~。一つだけ言えるのは、どんどんネタ度がエスカレートしている、と言うことw
From: justinia * 2008/10/07 01:18 * URL * [Edit] *  top↑
日本語で書いてるとこだけがんばってよんだ!;w;
From: コリナ * 2008/10/07 18:59 * URL * [Edit] *  top↑
リアにはさっぱりなのに、プログラムのわかる相方はやたらとウケていました。

>"まぁ切る事は一生ないと思いたまえ"

ここだけでも、ユール先生の愛の深さが知れますw
From: リア * 2008/10/08 09:07 * URL * [Edit] *  top↑
名前:
コメントタイトル:
メールアドレス:
URL:
コメント:

パスワード:
管理人だけに表示:
管理者にだけ表示を許可
この記事にトラックバック

プロフィール

ユールクース

Author:ユールクース
大航海時代オンラインはZephyrosサーバーでふ~らふら。
天下御免のお針子野郎ここに極まれり。
最近ナポリ近海でよく見かけるとか見かけないとか。

ナポリ木曜市協賛店舗

ユール縫製店/ワタクシことユール
お食事処ペギソハット/ペギソ
五香粉酒家/コリナ
フェルディナン海上運輸/逝けメン様


詳しくはこちらを参照のこと

カレンダー

09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -

最近の記事

最近のコメント

リンク

カテゴリー

まぁ色々とごっちゃりと

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。