ea 12466 sql 留言版問題...

呼延覺羅 · 發表於 2008-7-13 15:12:24

我偵測到下面這段有問題，不過...

我看不出問題在哪，有大大能幫我看看嗎<感謝...

que_qsch01,254,349,4 script 留言板 837,{
OnMsgStart:
set @msg_gm_lv,99; //設定可清除留言的GM權限
set @look_msg_money,500; //設定每張讀取卷需多少金額
set @msg_money,1000; //設定每則留言需多少金額
if($msg_nub_==0) set $msg_nub_,1;
set @msg_val,0;
set @times,0;
set @change_pg,0;
set @pass_check$,@pass_clean$;
set @pass_ch,3;
for(set @check_val,1;@check_val<=6;set @check_val,@check_val+1)
{
set @msg_val,@msg_val+$msg_nub2[@check_val];
}

mes "[留言板]";
mes "歡迎^12F060"+strcharinfo(0)+"^000000使用留言板";
mes "本留言板可容許600則留言";
mes "每一頁可察看100則留言";
mes "留一則留言需花費5000元";
mes "目前留言板內有^FF0000"[email=+@msg_val+]+@msg_val+"^000000[/email]則留言";
next;
if(getgmlevel(3)==@msg_gm_lv)
{
menu "查看留言..",OnLook,"進行留言..",Send,"清除留言..",Clean,"離開..",No;
}
else
{
menu "查看留言..",OnLook,"進行留言..",Send,"離開..",No;
}

[ 本帖最後由呼延覺羅於 2008-7-16 05:13 AM 編輯 ]

goddameit · 發表於 2008-7-13 15:13:59

偵測到哪段 ?

呼延覺羅 · 發表於 2008-7-13 15:26:09

mes "歡迎^12F060"+strcharinfo(0)+"^000000使用留言板";
mes "本留言板可容許600則留言";
mes "每一頁可察看100則留言";
mes "留一則留言需花費5000元";
mes "目前留言板內有^FF0000"[email=+@msg_val+]+@msg_val+"^000000[/email]則留言";
next;
if(getgmlevel(3)==@msg_gm_lv)
{
menu "查看留言..",OnLook,"進行留言..",Send,"清除留言..",Clean,"離開..",No;
}
else
{
menu "查看留言..",OnLook,"進行留言..",Send,"離開..",No;
}

這段...

[ 本帖最後由呼延覺羅於 2008-7-13 05:24 PM 編輯 ]

goddameit · 發表於 2008-7-13 15:27:59

這 JA 腳本 ?

reasapakisa · 發表於 2008-7-13 17:00:29

修正環境Ea12921 SQL

[錯誤] if(getgmlevel(3)==@msg_gm_lv)

[修正]if(getgmlevel()==@msg_gm_lv)

並在腳本最後一行補上}

[ 本帖最後由 reasapakisa 於 2008-7-13 05:11 PM 編輯 ]

呼延覺羅 · 發表於 2008-7-13 17:26:54

還是有問題....

我附上我叫本內的內容...

請大大幫忙...

que_qsch01,254,349,4       script       留言板       837,{

OnMsgStart:
set @msg_gm_lv,99;       //設定可清除留言的GM權限
set @look_msg_money,500;       //設定每張讀取卷需多少金額
set @msg_money,1000;       //設定每則留言需多少金額
if($msg_nub_==0)       set $msg_nub_,1;
set @msg_val,0;
set @times,0;
set @change_pg,0;
set @pass_check$,@pass_clean$;
set @pass_ch,3;

for(set @check_val,1;@check_val<=6;set @check_val,@check_val+1)
{
set @msg_val,@msg_val+$msg_nub2[@check_val];
}

mes "[留言板]";
mes "歡迎^12F060"+strcharinfo(0)+"^000000使用留言板";
mes "本留言板可容許600則留言";
mes "每一頁可察看100則留言";
mes "留一則留言需花費5000元";
mes "目前留言板內有^FF0000"+@msg_val+"^000000則留言";
next;
if(getgmlevel(3)==@msg_gm_lv)
      {
            menu "查看留言..",OnLook,"進行留言..",Send,"清除留言..",Clean,"離開..",No;
      }
else
      {
            menu "查看留言..",OnLook,"進行留言..",Send,"離開..",No;
      }

//------------------------------------------------------------查看留言-------------------------------------------------------

OnLook:
mes "[留言板]";
set @check,0;
set @change_pg,@change_pg+1;

if(@change_pg>6)
      {
            mes "內容以讀取完畢";
            close;
            end;
      }
mes "以下是第"+@change_pg+"頁的留言";
mes "^FF0000第"+ @change_pg +"頁共有"+ $msg_nub2[@change_pg] +"則留言^000000";

for(set @check_val,1;@check_val<=$msg_nub2[@change_pg];set @check_val,@check_val+1)
      {
            switch(@change_pg)
                     {
                              case 1: set @msg_time$,$msg_time1$[@check_val]; if($msg1$[@check_val] == "") set @check_pas,1; break;
                              case 2: set @msg_time$,$msg_time2$[@check_val]; if($msg2$[@check_val] == "") set @check_pas,1; break;
                              case 3: set @msg_time$,$msg_time3$[@check_val]; if($msg3$[@check_val] == "") set @check_pas,1; break;
                              case 4: set @msg_time$,$msg_time4$[@check_val]; if($msg4$[@check_val] == "") set @check_pas,1; break;
                              case 5: set @msg_time$,$msg_time5$[@check_val]; if($msg5$[@check_val] == "") set @check_pas,1; break;
                              case 6: set @msg_time$,$msg_time6$[@check_val]; if($msg6$[@check_val] == "") set @check_pas,1; break;
                     }
            if(@check_pas==1)
                     {

                              set @check_pas,0;
                     }
            else
                     {
                              mes "^00FF00----------------------------------^000000";
                              mes "^FF0000留言"+ (@check_val+(@change_pg-1)*100) +"^000000  "+@msg_time$;

                              switch(@change_pg)
                                    {
                                             set @check,@check+1;
                                             case 1: mes $msg1$[@check_val]; break;
                                             case 2: mes $msg2$[@check_val]; break;
                                             case 3: mes $msg3$[@check_val]; break;
                                             case 4: mes $msg4$[@check_val]; break;
                                             case 5: mes $msg5$[@check_val]; break;
                                             case 6: mes $msg6$[@check_val]; break;
                                    }
                     }
      }

next;
menu "下一頁..",OnLook,"離開..",No;

//------------------------------------------------------------發送留言-------------------------------------------------------

Send:
mes "[留言板]";
mes "每一則留言需要"+@msg_money+"元";
mes "確定要使用留言功能嗎?";
next;
menu "是",Pass;

Send_:

if($msg_nub_==6 && $msg_nub2[$msg_nub_]==100)
      {
            mes "[留言板]";
            mes "此留言板容許留言量已滿";
            close;
            end;
      }
if(@times >= 5)
      {
            mes "[留言板]";
            mes "你已經使用了剩餘的加長次數";
            mes "留言已發送出去";
            close;
            end;
      }
else
      {
            mes "[留言板]";
            mes "請輸入你要留的內容";
      }

next;

input @msg_main$;

if(zeny<@msg_money)
      {
            mes "[留言板]";
            mes "你身上金額不足";
            close;
            end;
      }
else
      {
            set zeny,zeny-@msg_money;
            set @times,@times+1;
      }
if(@times == 1)
      {
            set $msg_nub2[$msg_nub_],$msg_nub2[$msg_nub_]+1;

            if($msg_nub2[$msg_nub_]==100 && $msg_nub_<6)
                     {
                              set $msg_nub_,$msg_nub_+1;
                              set $msg_nub2[$msg_nub_],$msg_nub2[$msg_nub_]+1;
                     }

            switch($msg_nub_)
                     {
                              case 1:
                                    {
                                             set $msg1$[$msg_nub2[$msg_nub_]],"^0000FF"+strcharinfo(0)+":^000000"+@msg_main$;
                                             set $msg_time1$[$msg_nub2[$msg_nub_]],"^F122FF"+gettimestr("%Y/%m/%d %H:%M:%S",28)+"^000000";
                                             break;
                                    }
                              case 2:
                                    {
                                             set $msg2$[$msg_nub2[$msg_nub_]],"^0000FF"+strcharinfo(0)+":^000000"+@msg_main$;
                                             set $msg_time2$[$msg_nub2[$msg_nub_]],"^F122FF"+gettimestr("%Y/%m/%d %H:%M:%S",28)+"^000000";
                                             break;
                                    }
                              case 3:
                                    {
                                             set $msg3$[$msg_nub2[$msg_nub_]],"^0000FF"+strcharinfo(0)+":^000000"+@msg_main$;
                                             set $msg_time3$[$msg_nub2[$msg_nub_]],"^F122FF"+gettimestr("%Y/%m/%d %H:%M:%S",28)+"^000000";
                                             break;
                                    }
                              case 4:
                                    {
                                             set $msg4$[$msg_nub2[$msg_nub_]],"^0000FF"+strcharinfo(0)+":^000000"+@msg_main$;
                                             set $msg_time4$[$msg_nub2[$msg_nub_]],"^F122FF"+gettimestr("%Y/%m/%d %H:%M:%S",28)+"^000000";
                                             break;
                                    }
                              case 5:
                                    {
                                             set $msg5$[$msg_nub2[$msg_nub_]],"^0000FF"+strcharinfo(0)+":^000000"+@msg_main$;
                                             set $msg_time5$[$msg_nub2[$msg_nub_]],"^F122FF"+gettimestr("%Y/%m/%d %H:%M:%S",28)+"^000000";
                                             break;
                                    }
                              case 6:
                                    {
                                             set $msg6$[$msg_nub2[$msg_nub_]],"^0000FF"+strcharinfo(0)+":^000000"+@msg_main$;
                                             set $msg_time6$[$msg_nub2[$msg_nub_]],"^F122FF"+gettimestr("%Y/%m/%d %H:%M:%S",28)+"^000000";
                                             break;
                                    }
                     }
      }
else
      {

            switch($msg_nub_)
                     {
                              case 1: set $msg1$[$msg_nub2[$msg_nub_]],$msg1$[$msg_nub2[$msg_nub_]]+@msg_main$; break;
                              case 2: set $msg2$[$msg_nub2[$msg_nub_]],$msg2$[$msg_nub2[$msg_nub_]]+@msg_main$; break;
                              case 3: set $msg3$[$msg_nub2[$msg_nub_]],$msg3$[$msg_nub2[$msg_nub_]]+@msg_main$; break;
                              case 4: set $msg4$[$msg_nub2[$msg_nub_]],$msg4$[$msg_nub2[$msg_nub_]]+@msg_main$; break;
                              case 5: set $msg5$[$msg_nub2[$msg_nub_]],$msg5$[$msg_nub2[$msg_nub_]]+@msg_main$; break;
                              case 6: set $msg6$[$msg_nub2[$msg_nub_]],$msg6$[$msg_nub2[$msg_nub_]]+@msg_main$; break;
                     }
      }

mes "[留言板]";
mes "你現在已經完成留言";
mes "是否加長內容的字數";
mes "若加長內容則需外加5000元";
mes "可將五則連續內容合而為一";
next;
mes "[留言板]";
set @times_,5-@times;
mes "你目前尚有^FF0000 "+@times_+" ^000000次可以加長";
mes "是否繼續加長留言內容?";

switch($msg_nub_)
      {
            case 1: mes "目前留言內容為:^0000FF"+$msg1$[$msg_nub2[$msg_nub_]]+"^000000"; break;
            case 2: mes "目前留言內容為:^0000FF"+$msg2$[$msg_nub2[$msg_nub_]]+"^000000"; break;
            case 3: mes "目前留言內容為:^0000FF"+$msg3$[$msg_nub2[$msg_nub_]]+"^000000"; break;
            case 4: mes "目前留言內容為:^0000FF"+$msg4$[$msg_nub2[$msg_nub_]]+"^000000"; break;
            case 5: mes "目前留言內容為:^0000FF"+$msg5$[$msg_nub2[$msg_nub_]]+"^000000"; break;
            case 6: mes "目前留言內容為:^0000FF"+$msg6$[$msg_nub2[$msg_nub_]]+"^000000"; break;
      }

next;
menu "是",Send_,"否",-;
mes "[留言板]";
mes "留言完成";
close;
end;

//------------------------------------------------------------清除留言-------------------------------------------------------

Clean:
mes "[留言板]";
mes "歡迎使用清除留言";
mes "是否清除所有留言?";
next;
menu "是",-,"否",No;

for(set @check_val,1;@check_val<=100;set @check_val,@check_val+1)
      {
            set $msg1$[@check_val],$@clean$;
            set $msg2$[@check_val],$@clean$;
            set $msg3$[@check_val],$@clean$;
            set $msg4$[@check_val],$@clean$;
            set $msg5$[@check_val],$@clean$;
            set $msg6$[@check_val],$@clean$;
            set $msg_time1$[@check_val],$@clean$;
            set $msg_time2$[@check_val],$@clean$;
            set $msg_time3$[@check_val],$@clean$;
            set $msg_time4$[@check_val],$@clean$;
            set $msg_time5$[@check_val],$@clean$;
            set $msg_time6$[@check_val],$@clean$;
      }

for(set @check_val1,1;@check_val1<=10;set @check_val1,@check_val1+1)
      {
            set $msg_nub2[@check_val1],0;
      }

set $msg_nub_,1;

mes "[留言板]";
mes "已清除所有留言";
close;
end;

No:
mes "[留言板]";
mes "歡迎下次使用本服務";
close;
end;

//------------------------------------------------------------防洗驗證-------------------------------------------------------

Pass:

for(set @pass_val,1;       @pass_val<=5;       set @pass_val,@pass_val+1)
      {
            set @pass_rand,rand(61);

            switch(@pass_rand)
                     {
                              case 0:       set @pass_check$,@pass_check$+"0"; break;case 1:       set @pass_check$,@pass_check$+"1"; break;case 2:       set @pass_check$,@pass_check$+"2"; break;case 3:       set @pass_check$,@pass_check$+"3"; break;case 4:       set @pass_check$,@pass_check$+"4"; break;case 5:       set @pass_check$,@pass_check$+"5"; break;case 6:       set @pass_check$,@pass_check$+"6"; break;case 7:       set @pass_check$,@pass_check$+"7"; break;case 8:       set @pass_check$,@pass_check$+"8"; break;case 9:       set @pass_check$,@pass_check$+"9"; break;case 10:       set @pass_check$,@pass_check$+"a"; break;case 11:       set @pass_check$,@pass_check$+"A"; break;case 12:       set @pass_check$,@pass_check$+"b"; break;case 13:       set @pass_check$,@pass_check$+"B"; break;case 14:       set @pass_check$,@pass_check$+"c"; break;case 15:       set @pass_check$,@pass_check$+"C"; break;case 16:       set @pass_check$,@pass_check$+"d"; break;case 17:       set @pass_check$,@pass_check$+"D"; break;case 18:       set @pass_check$,@pass_check$+"e"; break;case 19:       set @pass_check$,@pass_check$+"E"; break;case 20:       set @pass_check$,@pass_check$+"f"; break;case 21:       set @pass_check$,@pass_check$+"F"; break;case 22:       set @pass_check$,@pass_check$+"g"; break;case 23:       set @pass_check$,@pass_check$+"G"; break;case 24:       set @pass_check$,@pass_check$+"h"; break;case 25:       set @pass_check$,@pass_check$+"H"; break;case 26:       set @pass_check$,@pass_check$+"i"; break;case 27:       set @pass_check$,@pass_check$+"I"; break;case 28:       set @pass_check$,@pass_check$+"j"; break;case 29:       set @pass_check$,@pass_check$+"J"; break;case 30:       set @pass_check$,@pass_check$+"k"; break;case 31:       set @pass_check$,@pass_check$+"K"; break;case 32:       set @pass_check$,@pass_check$+"l"; break;case 33:       set @pass_check$,@pass_check$+"L"; break;case 34:       set @pass_check$,@pass_check$+"m"; break;case 35:       set @pass_check$,@pass_check$+"M"; break;case 36:       set @pass_check$,@pass_check$+"n"; break;case 37:       set @pass_check$,@pass_check$+"N"; break;case 38:       set @pass_check$,@pass_check$+"o"; break;case 39:       set @pass_check$,@pass_check$+"O"; break;case 40:       set @pass_check$,@pass_check$+"p"; break;case 41:       set @pass_check$,@pass_check$+"P"; break;case 42:       set @pass_check$,@pass_check$+"q"; break;case 43:       set @pass_check$,@pass_check$+"Q"; break;case 44:       set @pass_check$,@pass_check$+"r"; break;case 45:       set @pass_check$,@pass_check$+"R"; break;case 46:       set @pass_check$,@pass_check$+"s"; break;case 47:       set @pass_check$,@pass_check$+"S"; break;case 48:       set @pass_check$,@pass_check$+"t"; break;case 49:       set @pass_check$,@pass_check$+"T"; break;case 50:       set @pass_check$,@pass_check$+"u"; break;case 51:       set @pass_check$,@pass_check$+"U"; break;case 52:       set @pass_check$,@pass_check$+"v"; break;case 53:       set @pass_check$,@pass_check$+"V"; break;case 54:       set @pass_check$,@pass_check$+"w"; break;case 55:       set @pass_check$,@pass_check$+"W"; break;case 56:       set @pass_check$,@pass_check$+"x"; break;case 57:       set @pass_check$,@pass_check$+"X"; break;case 58:       set @pass_check$,@pass_check$+"y"; break;case 59:       set @pass_check$,@pass_check$+"Y"; break;case 60:       set @pass_check$,@pass_check$+"z"; break;case 61:       set @pass_check$,@pass_check$+"Z"; break;
                     }
      }

mes "[留言板]";
mes "請輸入 ^7FFF8A"+@pass_check$+"^000000 以進行驗證";
mes "請注意大小寫, 以免輸入錯誤!";
mes "你尚有 ^FF0000"+@pass_ch+"^000000 驗證機會";
next;
input @check_pass$;

if(@check_pass$ != @pass_check$)
      {
            if(@pass_ch<=0)
                     {
                              mes "驗證機會已使用完.";
                              close;
                              end;
                     }

            mes "[留言板]";
            mes "驗證失敗, 請重新驗證..";
            set @pass_ch,@pass_ch-1;
            set @pass_check$,@pass_clean$;
            next;
            goto Pass;
      }
goto Send_;
}

[ 本帖最後由呼延覺羅於 2008-7-13 05:28 PM 編輯 ]

reasapakisa · 發表於 2008-7-14 11:40:34

噗...果然沒放上所有腳本內容。

而且這個留言版已經是很舊的了。

你只把getgmlevel(3)改成getgmlevel()應該就可以了。

你看不出哪裡錯誤無所謂，
EA的軟體看得出來，

它不是都會B一聲嗎?
然後你就知道哪裡錯啦...

[ 本帖最後由 reasapakisa 於 2008-7-14 11:42 AM 編輯 ]

呼延覺羅 · 發表於 2008-7-16 05:08:21

恩恩...

這個ok了，感謝~~

		自動登錄	找回密碼
密碼			註冊

ea 12466 sql 留言版問題...

本帖子中包含更多資源