[問題]請問商人物語
發表於 :
2007-09-04 7:49 pm
由 a4011933
我有空間了 也有上傳程式 也有原碼(日文) 我現在該怎製作商人物語 請大大交我 謝謝
發表於 :
2007-09-05 8:33 am
由 BSM
把程式整個丟上去就好啦~
---
一些設定會改吧? 好似從config.cgi改的樣子(?) 不確定
(目前手上暫時無相關的檔案 so 無法做詳細的說明)
---
當程式都上傳完畢以後
進入admin.cgi進行【遊戲初始化】跟 【商品數據初始化】
(步驟:先遊戲初始化後商品數據初始化)
就好了 0.0
發表於 :
2007-09-05 8:35 pm
由 a4011933
BSM 寫:把程式整個丟上去就好啦~
---
一些設定會改吧? 好似從config.cgi改的樣子(?) 不確定
(目前手上暫時無相關的檔案 so 無法做詳細的說明)
---
當程式都上傳完畢以後
進入admin.cgi進行【遊戲初始化】跟 【商品數據初始化】
(步驟:先遊戲初始化後商品數據初始化)
就好了 0.0
我上傳上去. . 商人物與???? ←檔案變成這樣 開啟上傳檔案 沒東西= =
發表於 :
2007-09-06 8:18 am
由 BSM
啥鬼?資料夾檔名不要有中文或日文出現=.=a
一率使用英文=_=
發表於 :
2007-09-06 6:39 pm
由 a4011933
#!/usr/local/bin/perl
# ??? 2005/03/30
require './_config.cgi';
GetQuery();
RequireFile("inc-makeitem.cgi") if $Q{key} eq "makeitem";
($MYDIR,$MYNAME)=($ENV{SCRIPT_NAME}=~/^.*\/([^\/]+)\/([^\/]+)$/); # &?/??
@log=();
OutError('?"?') if $MASTER_PASSWORD eq '';
OutError('????') if $ADMIN_EMAIL eq '';
OutError('') if ($MOVETOWN_ENABLE && !$TOWN_CODE);
OutError('$DATA_DIR $DATA_DIR ??') if !-e $DATA_DIR;
OutError('$SESSION_DIR $TEMP_DIR $LOG_DIR $BACKUP_DIR $SUBDATA_DIR ') if $SESSION_DIR eq '' || $TEMP_DIR eq '' || $LOG_DIR eq '' || $BACKUP_DIR eq '' || $SUBDATA_DIR eq '';
$checkdatadir=' ?? '.$DATA_DIR.' "0??';
if($Q{admin} ne $MASTER_PASSWORD)
{
$disp.=<<"HTML";
<FORM ACTION="$MYNAME" METHOD="POST">
<TABLE cellspacing="0" cellpadding="1" bgcolor="#6B6599" border="0">
<TBODY><TR vAlign=center align=middle><TD>
<TABLE cellspacing="0" cellpadding="5" width="700" border="0">
<TBODY><TR><TD width="80" bgcolor="#ABA5FF" align="center">
<FONT color="#FFFFFF"><small>for Admin</small></FONT></TD>
<TD align="center" bgcolor="#DBD5FF" colspan="2">?"?
<INPUT TYPE=PASSWORD size=8 NAME=admin> <INPUT TYPE=SUBMIT VALUE="???">
... <small><A HREF="http://akimono.org/"></A></small>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></FORM>
HTML
}
elsif($Q{mode} ne "")
{
RequireFile("inc-admin-func.cgi");
}
else
{
RequireFile("inc-admin.cgi");
}
OutHeader();
foreach(@log)
{
$_="<b>$_</b>" if substr($_,0,1) eq ' ';
print $_."<br>";
}
print $disp;
print <<"HTML" if scalar(@log);
<hr noshade size=1>
<FORM ACTION="$MYNAME" METHOD="POST">
<INPUT TYPE="HIDDEN" NAME=admin VALUE="$Q{admin}">
<INPUT TYPE="SUBMIT" VALUE="???">
</FORM>
HTML
print "</center></BODY>";
print "</HTML>";
exit;
sub OutHeader
{
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";
print "Content-type: text/html; charset=Shift_JIS\n\n";
print <<STR;
<HTML><HEAD>
<Style Type="text/css">
<!--
A:link { font-weight: bold; text-decoration:none}
A:visited{ font-weight: bold; text-decoration:none}
A:hover { font-weight: bold; text-decoration:underline;}
FORM {margin: 2pt;}
BODY,TR,TD,TH { font-family:"MS UI Gothic"; font-size:11pt; }
BIG { font-weight: bold; font-size:11pt; color:#664499 ;}
SPAN { font-weight: bold; font-size:11pt; color:#bb44bb ;}
input,select,textarea{color:#000000;background-color:#FFFFFF;border:1 #5f5f8c solid}
input.button{color:#000000;background-color:#FFFFFF;border:1 #5f5f8c solid}
hr {color:#666666;}
-->
</Style>
<TITLE>$HTML_TITLE:?</TITLE>
</HEAD><BODY BGCOLOR="#FFFFFF" TEXT="#000000" LINK="#6050cc" VLINK="#6050cc" ALINK="#FF0000">
<center>
<BIG> $HTML_TITLE ?</BIG><br><br>
STR
}
sub GetQuery
{
my($q,@q,$key,$val);
$q="";
if($ENV{'REQUEST_METHOD'} eq "POST")
{
read(STDIN,$q,$ENV{'CONTENT_LENGTH'});
}
$q.="&".$ENV{'QUERY_STRING'};
@q=split(/&/,$q);
foreach (@q)
{
($key,$val)=split(/=/);
$val =~ tr/\?/ /;
$val =~ tr/+/ /;
$val =~ s/\t/ /g;
$val =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("H2",$1)/eg;
$val =~ s/"/ /g;
$val =~ s/'/ /g;
$val =~ s/,/ /g;
$val =~ s/[\r\n]//g;
$Q{$key}=$val;
}
if($Q{u} ne '')
{
$Q{nm}="";
$Q{pw}="";
$Q{ss}="";
($Q{nm},$Q{pw},$Q{ss})=split(/[!:]/,$Q{u},3);
}
}
sub OutError
{
print "Cache-Control: no-cache, must-revalidate\n";
print "Pragma: no-cache\n";
print "Content-type: text/html; charset=Shift_JIS\n\n";
print "<HTML><HEAD><TITLE>???</TITLE></HEAD>";
print "<BODY>";
print $_[0]."<br>";
print '<font color=red><b>/??</b></font>' if !$_[1];
print qq|<FORM ACTION="$MYNAME" METHOD="POST"><INPUT TYPE=HIDDEN NAME=admin VALUE="$Q{admin}">|;
print qq|<INPUT TYPE="SUBMIT" VALUE="???"></FORM>|;
print "</BODY>";
print "</HTML>";
exit;
}
sub GetFileList
{
opendir(DIR,$_[0]);
my @list=map{$_[0]."/".$_}grep(/$_[1]/ && !/^\.\.?$/,readdir(DIR));
closedir(DIR);
return @list;
}
這是啥意思?看沒有= =
發表於 :
2007-09-06 8:33 pm
由 BSM
我囧..
都快搞不清楚你是哪邊有問題了...
能否把有問題的網址貼出來我看看呢?
發表於 :
2007-09-08 5:38 pm
由 a4011933
記事本打開的. .還有我把申請亞卓市網址砍了. . 但是空間還在. . 只是開了無法顯示. .怎辦~"~?
發表於 :
2007-09-09 7:59 am
由 BSM
空間問題我不清楚
以我的單機測試路徑來說
我的目錄如下
akimono
├akimono
├common
└program
所以
http://127.0.0.1/akimono/akimono/index.cgi
↑為商人物語的遊戲首頁,可直接用瀏覽器開啟
而
http://127.0.0.1/akimono/akimono/admin.cgi
↑為商人物語的管理畫面,可直接用瀏覽器開啟
另外
akimono/akimono/_config.cgi
↑為設定檔,請用記事本打開
---
再來,上傳以後還要設定檔案的權限(CMOD)
*.cgi,均設定為755
*.dat,均設定為666
發表於 :
2007-09-09 3:37 pm
由 a4011933
_config.cgi
開起發生錯誤 您希望檢視他嗎? 案希望 就會變成我之前PO的亂碼. . 為啥?
發表於 :
2007-09-10 9:24 pm
由 BSM
我建議你從這篇文章開始看起...
先解決會造成亂碼的問題= =
商人物語的遊戲強烈建議轉成BIG5!
轉UTF8會變成很麻煩,請特別注意...
然後接下來的步驟,就依照本篇文章我所做的回應來嘗試
大概的步驟
1.先把日文轉碼成BIG5
2.修改_config.cgi的內容
3.上傳
4.設定CMOD
5.登入admin.cgi
6.進行遊戲初始化
7.進行商品資料初始化
8.進入index.cgi進行遊戲
以上
有問題請詳細說明是在哪個步驟發生問題...