発言者： 戒
発言日： 2003 05/24 14:54
# Sub Normal Action #
sub normal_action {
@rcdlines = &get_user("$Fm{'id'}");
&get_file; &list_in;
print qq|<tr>|;
&form('start');
print qq|<td valign=top>|;
print qq|<font color=#009AFA><br>▼プレイヤーと接触</font><br>\n|;
&input('radio','mode','find_partner',' checked',"他のプレイヤーを探す<br>\n");
&input('radio','mode','note_before','',"メール送信<br>\n");
print qq|<div align=center><select name=pd>\n|;
foreach $line (@lstlines) {
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
if ($psp =~ /Nc/ ) { next }
if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $mytw = $ptw ; }
else {
if ($tw eq $ptw) { $mark2 = "◆"; }
else { $mark2 = "◇"; }
if ($pav eq 'dead') { $mark = 'style=color:red'; }
else { $mark = 'style=color:black'; }
print qq|<option value="$pid" $mark>$mark2$pid：$pnm($pjb)\n|; }
}
print qq|</select> ID：|;
&input('text','pd2','',' size=4','');
print qq|</div>\n|;
&OKbuttoninform('n');
&form('end');
&form('start');
print qq|<div align=left>\n|;
&input('radio','mode','find_partner',' checked',"ＮＰＣに会う \n");
print qq|<select name=pd>\n|;
@rcdlines = &get_user("$Fm{'id'}");
foreach $line (@lstlines) {
($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$pbn,$pak,$pdd,$php,$pxp,$pab,$pdb,
$pav,$pwn,$plz,$pdt,$pmn,$pbg,$pxi,$ptm,$plf,$pfe,$pcm,$pis,$pht,$pfg,$prw,$pkl,$ptw,$others) = split(/<>/,$line);
if ($psp !~ /Nc/ || $tw ne $ptw ) { next }
if ($pjb !~ /△/){
$pichi = "";
$pjob_ = "($pjb)";
}
else{
($pjob_,$pichi) = split(/△/,$pjb);
$pichi = "【$pichi】";
print qq|<option value="$pid">$pichi$pnm$pjob_\n|;
}
print qq|</select>\n|;
print qq|</div>\n|;
&OKbuttoninform('n');
&form('end');
&form('start');
print qq|<font color=#DA70D6>▼行動をする</font><br>\n|;
&input('radio','mode','idou','',"街を出る<br>\n") ;
if ($mysp !~ /Pb/) { &input('radio','mode','find_item',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 1); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item2',' checked',"<font color=dimgray>岩山探索</font><br>\n") if ($mytw eq 2); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item3',' checked',"<font color=#20b2aa>博打場探索</font><br>\n") if ($mytw eq 3); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item4',' checked',"<font color=hotpink>街中探索</font><br>\n") if ($mytw eq 4); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item5',' checked',"<font color=#66cdaa>農地探索</font><br>\n") if ($mytw eq 5); }
if ($mysp !~ /Pb/) { &input('radio','mode','find_item6',' checked',"<font color=#20b2aa>草原探索</font><br>\n") if ($mytw eq 6); }
print qq|<font color=#4169E1><br>▼アイテム関係</font><br>\n|;
&input('radio','mode','use_before','',"アイテム使用・装備<br>\n")
&input('radio','mode','dump_before','',"アイテムを捨てる<br>\n");
&input('radio','mode','up_before','',"カード化をする<br>\n") if $mysp =~ /Ca/;
&input('radio','mode','down_before','',"ゲインをする<br>\n") if $mysp =~ /Ca/;
&input('radio','mode','stell_before','',"ステラツィオの設定<br>\n") if $mysp !~ /Nf/;
print qq|<font color=gray><br>▼設定変更</font><br>\n|;
&input('radio','mode','goods_before','',"商品の設定<br>\n") if $mysp =~ /Tv/ && $mysp !~ /Nf/;
&input('radio','mode','goods_before',' checked',"商品の設定<br>\n") if $mysp =~ /Nf/;
&input('radio','mode','fee_before','',"治療費の設定<br>\n") if $mysp =~ /Ad|Rv/;
&input('radio','mode','judge_before','',"アイテム鑑定<br>\n") if $mysp =~ /Eo/;
&input('radio','mode','name_before','',"銘入り品の名前を変更する<br>\n") if $mybp =~ /Na/;
&input('radio','mode','com_before','',"コメント文の変更<br>\n");
&input('radio','mode','poem_before','',"詩・日誌を書く<br>\n") if $mysp =~ /Wp/ || $mysp =~ /An/;
&input('radio','mode','lv_before','',"レベルアップする<br>\n") if $mysp !~ /Ng/;
if ($mysp !~ /X/) {
&input('radio','mode','reward','','賞金首に金をかける ID：');
&input('text','pd','',' size=4',' 金額：');
&input('text','price','',' size=5','<br>');
}
print qq|<font color=#CC0033><br>▼保存をしてゲーム終了</font><br>\n|;
&input('radio','mode','norm_save','',"町で保存\n");
&input('radio','mode','hide_save','',"人里離れて保存<br>\n");
&input('radio','mode','levy','',"<font color=red>税の徴収をして保存（注意）</font><br>\n") if $mysp =~ /Lv/;
print qq|<br><b>▼データー管理</b><br>\n|;
&input('radio','mode','del_before','',"キャラを削除\n");
&input('radio','mode','back_up','',"バックアップ\n");
&OKbuttoninform('n');
print qq|</td>|;
&form('end');
}
恐らくっというか
八割方ないと思われます･･･(^^:
▼関連発言
│
└◆601:あの･･･ [戒] 05/23 01:41
└◆602:Re:あの･･･ [moon] 05/23 08:41
└◆603:Re[2]:あの･･･ [戒] 05/23 18:39
└◆604:Re[3]:あの･･･ [moon] 05/24 08:54
└◆605:Re[4]:あの･･･ [戒] 05/24 13:19
└◆606:Re[5]:あの･･･ [moon] 05/24 13:52
└◆607:Re[6]:あの･･･ [戒] 05/24 14:38
└◆608:Re[7]:あの･･･ [moon] 05/24 14:47
└◆609:Re[8]:あの･･･ [戒] 05/24 14:54
└◆610:Re[9]:あの･･･ [moon] 05/24 17:23
└◆611:Re[10]:あの･･･ [戒] 05/24 18:07
└◆612:Re[11]:あの･･･ [moon] 05/24 18:44
└◆613:Re[12]:あの･･･ [戒] 05/24 19:09
└◆614:Re[13]:あの･･･ [moon] 05/24 19:19
└◆615:Re[14]:あの･･･ [戒] 05/24 19:29<-last