トップページ⇒php
17コメント7KB

ゲームを作る方法を優しい人がうpしてくれるスレ

■ このスレッドは過去ログ倉庫に格納されています
0001nobodyさん02/09/24 00:39ID:DENw+sma
m(_ _ )mおねがいすます
0002nobodyさん02/09/24 02:52ID:???
>>1
うっさいボケ
0003nobodyさん02/09/24 03:26ID:???
>>1
真性の厨房とみた。さらしあげ
0004nobodyさん02/09/24 04:21ID:???
>>1
http://www.enterbrain.co.jp/digifami/products/index.html
0005nobodyさん02/09/24 09:51ID:???
A
0006nobodyさん02/09/24 09:59ID:???
>>4
warta

>>1
ちゃんと削除依頼だしとけよ。
つーかゲーム作成板いけ。

でもこんな感じでスレ立てるじゃねーぞ。
また削除依頼ださなきゃならんくなるぞ。
0007nobodyさん02/09/24 12:19ID:???
#!/usr/bin/perl
$Genkai=50;
$Turn=5000;
#同じ数字に固まらない
$kitai1=unit_date("S1u","1","49","10","short","S1");
$kitai2=unit_date("S2u","1","50","10","short","S2");
$kitai3=unit_date("L1u","12","12","10","long","L1");
$kitai4=unit_date("L2u","12","24","10","long","L2");
$kitai5=unit_date("S3u","38","18","10","short","S3");


#戦闘中ルーチン
$Zenk_n=@Zenk;
for($it=0;$it<=$Turn;$it++){
for($uii=0;$uii<$Zenk_n;$uii++){
idou("$Zenk[$uii]");
$cvU1="$Zenk[$uii]";
push @maping,$$cvU1[$it];
#class::map
}
}
0008nobodyさん02/09/24 12:21ID:???
$mapN=@maping;print "\@maping=$mapN\n";
for($hjk=0;$hjk<=$Turn;$hjk++){
#動的生成eval
$K1="$maping[$hjk*$Zenk_n]";
$K2="$maping[$hjk*$Zenk_n+1]";
$K3="$maping[$hjk*$Zenk_n+2]";
$K4="$maping[$hjk*$Zenk_n+3]";
$K5="$maping[$hjk*$Zenk_n+4]";
if($K1 eq $k2){ print "$K2 Cras2://$hjk*$Zenk_n\n";}
elsif($K1 eq $K3){ print "$K3 Cras3://$hjk*$Zenk_n\n";}
elsif($K1 eq $K4){ print "$K4 Cras4://$hjk*$Zenk_n\n";}
elsif($K1 eq $K5){ print "$K5 Cras5://$hjk*$Zenk_n\n";}
}
#$km1="[L]11 [R]49";#$km1=~s/(\d{2}).*(\d[2])/$1.$2/;
#$km2="[L]11 [R]49";#$km2=~s/(\d{2}).*(\d[2])/$1.$2/;
# if($Km1 eq $Km2){ print "Cras0\n";};
#print $K1.$K2."\n";
#print $mapWrite[0],"\n";
#結果
0009nobodyさん02/09/24 12:22ID:???
for($uiis=0;$uiis<$Zenk_n;$uiis++){
$cvU="$Zenk[$uiis]";
print "$Zenk[$uiis] $$cvU[$Turn]\n";
}
#移動[同じ位置にかさならない]
#ひとつのユニットがマップをもっとかなあかん monitar クラス[ほかの機の位置とpower]
sub idou{
my($unit)=@_;
my($it);
randing();
if($houkou eq 4){$$unit{mapLine}=$$unit{mapLine}-1;
if($$unit{mapLine} < 1){
$$unit{mapLine}=$$unit{mapLine}+1
}
}#L-1
elsif($houkou eq 3){
$$unit{mapLine}=$$unit{mapLine}+1;
if($$unit{mapLine} > $Genkai){
$$unit{mapLine}=$$unit{mapLine}-1;
}
}#L+1
0010nobodyさん02/09/24 12:24ID:???
elsif($houkou eq 2){$$unit{mapRow}=$$unit{mapRow}-1;
if($$unit{mapRow} < 1){
$$unit{mapRow}=$$unit{mapRow}+1;
}
}#R-1
else{$$unit{mapRow}=$$unit{mapRow}+1;
if($$unit{mapRow} > $Genkai){
$$unit{mapRow}=$$unit{mapRow}-1;
}
};#R-1
#重なり回避+戦闘ルーチン
$qwer="$unit";
push @$qwer,"[L]$$unit{mapLine} [R]$$unit{mapRow}";
} #print "[L]$$unit{mapLine} [R]$$unit{mapRow}\n";
#}

$lmap->[23][13]="L1";
$lmap->[23][26]="S1";
$lmap->[49][26]="L2";
$lmap->[28][29]="S2";
#turn 4
for($i=0;$i<=3;$i++){
#それぞれのmapハッシュを足す
}

#mapの書き出しfor for i<=99
#WF ダブルフォ-
0011nobodyさん02/09/24 12:25ID:???
$fdvv=0;
for($wf=0;$wf<=50;$wf++){
for($mi=0;$mi<=50;$mi++){
$dcf=$lmap->[$mi][$wf];
#print ".";
#$wf=~s/99/print \n/e;
#-------print $dcf;
}
}
#if($mi eq 99){print \n};
#poin 結果
sub unit_date{
my($tgn,$mapLine,$mapRow,$powd,$tyd,$namd)=@_;
%$tgn=(
"mapLine" =>$mapLine,
"mapRow" =>$mapRow,
"power" =>$powd,
"type" =>$typd,
"name" =>$namd,
);
#idou("$tgn");
push @Zenk,$tgn;
}
sub randing{
$houkou=int(rand 4)+1;
}
0012 ヽ(`∀´)σ02/09/24 12:28ID:???
終わり
                          /
                         /   _
         /◎)、_______∠l /   /○ヽ
          |  「....;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| |,,.   ` -_´/
    .彡⌒ー/|  \___;;;;;;;;;;;;;;;;;;;;;;| |;;;;,   "    i ̄ ̄i
      /´⌒ヽ_____\ ̄ ̄ ̄ .|;;;;;;,      /    ゙、
    ,/´    ! ヲ=℃/ ̄      |;;;;;;;;,     /_,-..‐..-、_゙、
   /_レ‐ー――‐" ̄ ̄)         ヾ;;;;;;;;,,,..  /':::::::::::::::::::::`i
  /    __   r'~ ̄            ヾ;;;;;;;;;;;;,,,.トー――――-!
 /       _)               ヾ;;;;;;;;;;;;;;,,,,....
 |     、  ノ                 ヾ;;;;;;;;;;;;;;;;;;;;;;;;;,,,,....
 ゙、;;;,,..    ̄"                   );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;.......
0013nobodyさん02/09/24 12:30ID:???
>>7-11

そーやって自慢するからまた変なスレが立つんだ。
0014nobodyさん02/09/24 18:56ID:???
どーせなら鯖が暴走するヤシ書いて下さい。
厨房アカウントが排除できまぷよ。
0015nobodyさん02/09/24 20:42ID:???
そんな事したら
>>14のアカウントが消えるでしょ
0016nobodyさん02/09/24 21:52ID:???
>>7-11氏の手によってFFを超える名作RPGが生まれた

よって記念キコカ
0017nobodyさん02/10/13 21:09ID:???
なんだかわかんないけど、すごいんですね!
■ このスレッドは過去ログ倉庫に格納されています