- ■ ゲーム製作技術板自治03
439 ：名前は開発中のものです。[sage]：2011/03/04(金) 07:05:03.12 ID:vhSZK/lm - 「コテにすると叩かれるから拒否する」
言っている事が滅茶滅茶だから叩かれるだけ。
| - ■ ゲーム製作技術板自治03
440 ：名前は開発中のものです。[sage]：2011/03/04(金) 07:31:44.40 ID:vhSZK/lm - 投稿数の順位 510 / 832 では、板分割は到底無理だね。
しかも、昨日の 250 レスの内の 80 レスはここ自治スレによるものなのでノーカウント。
そうなると 573/ 832 まで下がる。
で、これが LR を改変すると何が変わるって？
何が「ゲームの魔力」だって？
あのさ、君って結局の所、ゲームなんて作った事ないでしょ？
ゲーム作りやプログラミングにおける作業の 7 割っていうのは、テストとデバッグなんよ。
これがもの凄まじくつまらない。しかしこれをこなせないと良いものは決して作れない。
ゲームをプレイしたがる人間は多くても、ゲームを作りたがる人間、
そしてその為に勉強しようなんて人間はごく少数だって分からないのかね。
そりゃ、脳内妄想だけする奴は多いよ。それがいわゆる「企画厨」ってやつ。
企画君はさ、ちょっと自分で書いたスクリプトとか見せてよ。
吉里吉里なり、Nscripter のスクリプトは書けるんでしょ？
多分出せないだろうけどねｗ
| - ■ ゲーム製作技術板自治03
441 ：名前は開発中のものです。[sage]：2011/03/04(金) 07:40:28.26 ID:vhSZK/lm - sub x {
my $in_map = @_[0]; $return_value = ""; %ranks = (); $i;
for ($i = 0; $i < @dirs; $i++) {
if (-e "$userdir/@dirs[$i]/stage_clear_data.cgi"){
open my $fh,"< $userdir/@dirs[$i]/stage_clear_data.cgi" or &error("$userdir/@dirs[$i]/ファイルが開けません");
while (my $line = <$fh>) {
my($stage_no, $stage_clear_num) = split /<>/, $line;
if ($stage_no == $in_map){
$ranks{"${stage_clear_num}_$i"} = @dirs[$i];
}else{
}
}
close $fh;
}else{next;}
}
my $j = 1; $fimage = "";
foreach $key (sort { $b <=> $a } keys %ranks) {
my $player_name = pack 'H*', $ranks{$key};
if (-e "$userdir/$ranks{$key}/fimage"){
$fimage = "*****************";
}else{
$fimage = "";
}
$key =~ s/_[0-9]+//g;
if ($j >= 5){last;}
$j++;
}
return $return_value;
}
こんなんで良いからさ、ちょろっと頼むよ。
| - ■ ゲーム製作技術板自治03
443 ：名前は開発中のものです。[sage]：2011/03/04(金) 07:46:55.19 ID:vhSZK/lm - Private Function RunProcess(GetExePath$, GetCommandLine$, GetFileName$)
On Error GoTo RunProcess_Err
Dim udtProcessAttributes As SECURITY_ATTRIBUTES
Dim udtThreadAttributes As SECURITY_ATTRIBUTES
Dim strCurrentDriectory As String
Dim udtStartupInfo As STARTUPINFO
Dim udtProcessInfomation As PROCESS_INFORMATION
Dim lngProcessExitCode As Long
Dim lngWin32apiResultCode As Long
stbMain.Panels(1).Text = GetFileName$ & " ************ しばらくお待ち下さい。"
dtProcessAttributes.nLength = Len(udtProcessAttributes)
udtThreadAttributes.nLength = Len(udtThreadAttributes)
strCurrentDriectory = vbNullString
udtStartupInfo.cb = Len(udtStartupInfo)
lngWin32apiResultCode = CreateProcess(GetExePath$, GetCommandLine$, udtProcessAttributes, udtThreadAttributes, False, 0, ByVal vbNullString, strCurrentDriectory, udtStartupInfo, udtProcessInfomation)
If lngWin32apiResultCode <> 0 Then
Do
With udtProcessInfomation
lngWin32apiResultCode = GetExitCodeProcess(.hProcess, lngProcessExitCode)
End With
DoEvents
Loop While lngProcessExitCode = STILL_ACTIVE
Else
End If
こんなんでも良いよ。
| - ■ ゲーム製作技術板自治03
444 ：名前は開発中のものです。[sage]：2011/03/04(金) 07:48:18.69 ID:vhSZK/lm - >>442
ああ、ごめんごめん。ちょっと目立ちにくくなっちゃって。
↓ ↓ ↓
442 名前：名前は開発中のものです。[sage] 投稿日：2011/03/04(金) 07:44:26.27 ID:sVzpMWFb
自治板04立てなければ自動的に決着がつくんじゃないの？
|
|