EA13374 傭兵腳本問題

脩

我的傭兵腳本是去下載小修大大的
一值以來都有一個問題
就是 只要有玩家一值重複登出登入
傭兵數量就會增加

之後 我把它改成 要打完驗證碼 才有傭兵

但是 他們還是可以洗= =

這是什麼原因?

--------------------------分隔線------------------------------





//====================================================//
//====================================================//
//==製作人 : 陳小修 (SkyTwo) 　　　　　　Eathena　　==//
//==更新日期 : 西元2008/05/22 　　　　　　　Script　==//
//==腳本版號 : 繁體中文 v1.2 測試版　　　　　　　　 ==//
//==腳本名稱 : 傭兵系統　　　　　　　　　　　　　　 ==//
//==　　　　　　　　　　　　　　　　　　　　　　　　==//
//==腳本出處 : XXX　　　　==//
//==　　　　　　　　　　　　　　　　　　　　　　　　==//
//==各位大哥大姐轉載請保留以上，萬分感激。　　　　　==//
//====================================================//
//====================================================//

louyang.gat,240,105,5        script        僱用傭兵        719,{

        if ( SummonName != 0 ) {
        mes "[僱用傭兵]";
        mes "您已經僱用過傭兵了唷！";
        mes "請問您需要什麼服務呢？";
        next;
        switch(select("寄放傭兵","領回傭兵(- 200000 z)","解雇傭兵(+ 300000 z)")) {
case 1:
        mes "[僱用傭兵]";
        mes "您的傭兵將被您寄放，";
        mes "寄放時您會被強制下線唷！";
        next;
        set SummonING,1;
        atcommand strcharinfo(0)+"kick "+strcharinfo(0)+"";
        close;
case 2:
        if ( SummonING == 0 ) {        mes "[僱用傭兵]";
                                mes "您並沒有寄放任何的傭兵！";
                                close;        }
        if ( Zeny < 200000 ) {        mes "[僱用傭兵]";
                                mes "您身上的 Zeny 數量不足！";
                                close;        }
        set Zeny,Zeny - 300000;
        set SummonING,0;
        atcommand strcharinfo(0)+"summon "+SummonName+" 1440";
        close;
case 3:
        mes "[僱用傭兵]";
        mes "您的傭兵將被您解雇，";
        mes "解雇時您會被強制下線唷！";
        next;
        set Zeny,Zeny + 300000;
        set SummonName,0;
        atcommand strcharinfo(0)+"kick "+strcharinfo(0)+"";
        close;
        }
}
        mes "[僱用傭兵]";
        mes "警告!!";
        mes "如有兩支以上的傭兵 請打@DIE!!";
        mes "如被抓到有一支以上的傭兵會被鎖帳號!!";
        next;
        switch(select("神射手 - 300000 z","騎士領主 - 300000 z","正咩神官 - 300000 z",
                        "正咩魔導師 - 500000 z","魔導師 - 500000 z","智者 - 500000 z","十字刺客 - 500000 z",
                        "正咩武術宗師 - 500000 z","神工匠 - 500000 z","正咩十字刺客 - 500000 z","武術宗師 - 500000 z","神官 - 500000 z")) {
        case 1:        set .@SMZeny,300000;        set .@SMName,1951;        break;
        case 2:        set .@SMZeny,300000;        set .@SMName,1952;        break;
        case 3:        set .@SMZeny,300000;        set .@SMName,1953;        break;
        case 4:        set .@SMZeny,500000;        set .@SMName,1954;        break;
        case 5:        set .@SMZeny,500000;        set .@SMName,1955;        break;
        case 6:        set .@SMZeny,500000;        set .@SMName,1956;        break;
        case 7:        set .@SMZeny,500000;        set .@SMName,1958;        break;
        case 8:        set .@SMZeny,500000;        set .@SMName,1959;        break;
        case 9:        set .@SMZeny,500000;        set .@SMName,1960;        break;
        case 10: set .@SMZeny,500000;        set .@SMName,1961;        break;
        case 11: set .@SMZeny,500000; set .@SMName,1962;        break;
        case 12: set .@SMZeny,500000; set .@SMName,1963;        break;
}
        if ( Zeny < .@SMZeny ) {        mes "[僱用傭兵]";
                                        mes "您身上的 Zeny 數量不足！";
                                        close;        }
        set SummonName,.@SMName;
        set Zeny,Zeny - .@SMZeny;
        atcommand strcharinfo(0)+"summon "+SummonName+" 1440";
        close;

OnPCLoginEvent:
        if ( SummonName != 0 && SummonING == 0 ) {
        atcommand strcharinfo(0)+"summon "+SummonName+" 1440";
        }
        end;

OnPCDieEvent:
        if ( SummonING == 0 ) {
        set SummonName,0;
        }

        end;
}

//====================================================//





[ 本帖最後由 　　脩 於 2009-2-25 03:17 PM 編輯 ]

pan00017

腳本沒有問題

另外有個BUG快改掉吧= =

脩

什麼BUG?

找好久 不知道 哪裡出問題

pan00017

atcommand
。。。

脩

腳本裡面atcommand語法 都要改掉?
那我需要改成怎樣?

它是什麼的BUG?

pan00017

人物ID用成指令你就會知道

教學區有一篇

脩

那個我有設定
我在CHAR裡面 有設定@#下去

現在創造那樣 會失敗

[ 本帖最後由 　　脩 於 2009-2-25 01:47 PM 編輯 ]

pan00017

#7
語法從腳本改就OK

那個是另一種方法

脩

了解....


那 我想再問一個問題 就是說

有辦法 把傭兵 設定說 一下線 或者重登之後 傭兵就取消了
需要重新租貸才有傭兵

pan00017

1. 
   
2. 
   
3.         if ( SummonName != 0 ) {
   
4.         mes &quot;[僱用傭兵]&quot;;
   
5.         mes &quot;您已經僱用過傭兵了唷！&quot;;
   
6.         mes &quot;請問您需要什麼服務呢？&quot;;
   
7.         next;
   
8.         switch(select(&quot;寄放傭兵&quot;,&quot;領回傭兵(- 200000 z)&quot;,&quot;解雇傭兵(+ 300000 z)&quot;)) {
   
9. case 1:
   
10.         mes &quot;[僱用傭兵]&quot;;
    
11.         mes &quot;您的傭兵將被您寄放，&quot;;
    
12.         mes &quot;寄放時您會被強制下線唷！&quot;;
    
13.         next;
    
14.         set SummonING,1;
    
15.         atcommand strcharinfo(0)+&quot;kick &quot;+strcharinfo(0)+&quot;&quot;;
    
16.         close;
    
17. case 2:
    
18.         if ( SummonING == 0 ) {        mes &quot;[僱用傭兵]&quot;;
    
19.                                 mes &quot;您並沒有寄放任何的傭兵！&quot;;
    
20.                                 close;        }
    
21.         if ( Zeny &lt; 200000 ) {        mes &quot;[僱用傭兵]&quot;;
    
22.                                 mes &quot;您身上的 Zeny 數量不足！&quot;;
    
23.                                 close;        }
    
24.         set Zeny,Zeny - 300000;
    
25.         set SummonING,0;
    
26.         atcommand strcharinfo(0)+&quot;summon &quot;+SummonName+&quot; 1440&quot;;
    
27.         close;
    
28. case 3:
    
29.         mes &quot;[僱用傭兵]&quot;;
    
30.         mes &quot;您的傭兵將被您解雇，&quot;;
    
31.         mes &quot;解雇時您會被強制下線唷！&quot;;
    
32.         next;
    
33.         set Zeny,Zeny + 300000;
    
34.         set SummonName,0;
    
35.         atcommand strcharinfo(0)+&quot;kick &quot;+strcharinfo(0)+&quot;&quot;;
    
36.         close;
    
37.         }
    
38. }
    
39. 
    
40. =========================================================
    
41. OnPCLoginEvent:
    
42.         if ( SummonName != 0 &amp;&amp; SummonING == 0 ) {
    
43.         atcommand strcharinfo(0)+&quot;:@summon &quot;+SummonName+&quot; 1440&quot;;
    
44.         }
    
45.         end;

複製代碼

拿掉就OK

脩

OK 我去刪除 並且測試
等上來 回覆狀況

脩

//====================================================//
//====================================================//
//==製作人 : 陳小修 (SkyTwo) 　　　　　　Eathena　　==//
//==更新日期 : 西元2008/05/22 　　　　　　　Script　==//
//==腳本版號 : 繁體中文 v1.2 測試版　　　　　　　　 ==//
//==腳本名稱 : 傭兵系統　　　　　　　　　　　　　　 ==//
//==　　　　　　　　　　　　　　　　　　　　　　　　==//
//==腳本出處 : http://srogm.no-ip.info/forum　　　　==//
//==　　　　　　　　　　　　　　　　　　　　　　　　==//
//==各位大哥大姐轉載請保留以上，萬分感激。　　　　　==//
//====================================================//
//====================================================//
louyang.gat,240,105,5 script 僱用傭兵 719,{
if ( SummonName != 0 ) {
mes "[僱用傭兵]";
mes "您已經僱用過傭兵了唷！";
mes "請問您需要什麼服務呢？";
next;
switch(select("寄放傭兵","領回傭兵(- 200000 z)","解雇傭兵(+ 300000 z)")) {
case 1:
mes "[僱用傭兵]";
mes "您的傭兵將被您寄放，";
mes "寄放時您會被強制下線唷！";
next;
set SummonING,1;
atcommand strcharinfo(0)+"kick "+strcharinfo(0)+"";
close;
case 2:
if ( SummonING == 0 ) { mes "[僱用傭兵]";
    mes "您並沒有寄放任何的傭兵！";
    close; }
if ( Zeny < 200000 ) { mes "[僱用傭兵]";
    mes "您身上的 Zeny 數量不足！";
    close; }
set Zeny,Zeny - 300000;
set SummonING,0;
atcommand strcharinfo(0)+"summon "+SummonName+" 1440";
close;
case 3:
mes "[僱用傭兵]";
mes "您的傭兵將被您解雇，";
mes "解雇時您會被強制下線唷！";
next;
set Zeny,Zeny + 300000;
set SummonName,0;
atcommand strcharinfo(0)+"kick "+strcharinfo(0)+"";
close;
}
}
mes "[僱用傭兵]";
mes "警告!!";
mes "如有兩支以上的傭兵 請打@DIE!!";
mes "如被抓到有一支以上的傭兵會被鎖帳號!!";
next;
switch(select("神射手 - 300000 z","騎士領主 - 300000 z","正咩神官 - 300000 z",
   "正咩魔導師 - 500000 z","魔導師 - 500000 z","智者 - 500000 z","十字刺客 - 500000 z",
                        "正咩武術宗師 - 500000 z","神工匠 - 500000 z","正咩十字刺客 - 500000 z","武術宗師 - 500000 z","神官 - 500000 z")) {
case 1: set [email=.@SMZeny,300000].@SMZeny,300000[/email]; set [email=.@SMName,1951].@SMName,1951[/email]; break;
case 2: set [email=.@SMZeny,300000].@SMZeny,300000[/email]; set [email=.@SMName,1952].@SMName,1952[/email]; break;
case 3: set [email=.@SMZeny,300000].@SMZeny,300000[/email]; set [email=.@SMName,1953].@SMName,1953[/email]; break;
case 4: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1954].@SMName,1954[/email]; break;
case 5: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1955].@SMName,1955[/email]; break;
case 6: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1956].@SMName,1956[/email]; break;
        case 7: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1958].@SMName,1958[/email]; break;
        case 8: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1959].@SMName,1959[/email]; break;
        case 9: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1960].@SMName,1960[/email]; break;
        case 10: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1961].@SMName,1961[/email]; break;
        case 11: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1962].@SMName,1962[/email]; break;
        case 12: set [email=.@SMZeny,500000].@SMZeny,500000[/email]; set [email=.@SMName,1963].@SMName,1963[/email]; break;
}
if ( Zeny < [email=.@SMZeny].@SMZeny[/email] ) { mes "[僱用傭兵]";
     mes "您身上的 Zeny 數量不足！";
     close; }
set SummonName,.@SMName;
set Zeny,Zeny - [email=.@SMZeny].@SMZeny[/email];
atcommand strcharinfo(0)+"summon "+SummonName+" 1440";
close;

OnPCDieEvent:
if ( SummonING == 0 ) {
set SummonName,0;
}
end;
}
//====================================================//


請問 這樣子對嗎?

[ 本帖最後由 　　脩 於 2009-2-25 02:19 PM 編輯 ]

pan00017

email整理一下

還有論壇聯結拿掉= =

pan00017

#12
寄放領回那邊要拿掉

脩

我試過了 沒辦法耶

是將 CASE 1  2 3 都拿掉嗎?