附魔腳本修改問題

too520 · 發表於 2014-1-2 23:18:01

本帖最後由 too520 於 2014-1-3 10:07 AM 編輯

請問各位腳本大師
我想修改只能附魔在裝飾品和調整成功率
求求各位大師幫忙了~

mes "[附魔哥哥]";
mes "如果確定要附魔就給我等值的酬勞";
mes " ";
mes "附魔前請詳讀說明，避免憾事發生";
mes " ";
next;
switch(select("[附魔^ff555550萬Zeny^000000]")){
case 1:
set .@money,500000;
set .@baiL,10;
setarray .@s,4704,4714,4724,4734,4744,4754;
break;
}
while(set(.@i,.@i+1)&&.@i<=6) {
if(getequipweaponlv(.@i)>0) set .@color$,"^0000AA";
else set .@color$,"^006400";
set .@menu$,.@menu$+("附魔 - "+.@color$+""+getitemname(getequipid(.@i))+"^000000")+":";
}
select(.@menu$);
if(getitemname(getequipid(@menu))=="null") {
mes "[附魔哥哥]";
mes "這個null代表該位置沒裝備..";
close;
}
set .@focus,@menu;
mes "[附魔哥哥]";
mes "確定要附魔 "+.@color$+""+getitemname(getequipid(.@focus))+"["+getitemslots(getequipid(.@focus))+"] ？";
mes "^888888插槽1: ^A0522D"+getitemname(getequipcardid(.@focus,0));
mes "^888888插槽2: ^2F4F4F"+getitemname(getequipcardid(.@focus,1));
mes "^888888插槽3: ^339900"+getitemname(getequipcardid(.@focus,2));
mes "^888888插槽4: ^0000AA"+getitemname(getequipcardid(.@focus,3));
if(select("確定!!!!","取消")==2)
close;
else
if (zeny<.@money) {next; mes "[附魔哥哥]"; mes "你的Zeny不足.. ";mes "需要 "+.@money+" Zeny .."; close; }
set zeny,zeny-.@money;
specialeffect2 EF_MAPPILLAR;
set .@ohno,rand(1,100/.@baiL);
if (.@ohno==1 ||.@ohno==2 ||.@ohno==3 ||.@ohno==4 ||.@ohno==5 ||.@ohno==6 ||.@ohno==7 ||.@ohno==18 ||.@ohno==19||.@ohno==20) {
next;
specialeffect2 EF_PHARMACY_FAIL;
delitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),getequipcardid(.@focus,3);
mes "[附魔哥哥]";
mes "沒什麼好埋怨的 ";
mes "我警告過了... 這是有機率會失敗的";
mes "你的錢我收下了 :|";
close;
}
next;
specialeffect2 154;
mes "[附魔哥哥]";
mes "完成了";
mes "這是你的裝備，拿去吧";
set .@ss,.@s[rand(getarraysize(.@s))];
getitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),.@ss;
//announce "[ 附魔哥哥 ] "+strcharinfo(0)+" 的 "+getitemname(getequipid(.@focus))+" 擁有了"+getitemname(.@ss)+" 的能力！",15,0x91C7FF;
delitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),getequipcardid(.@focus,3);
close;
}

複製代碼

emistry · 發表於 2014-1-2 23:50:03

把

while(set(.@i,.@i+1)&&.@i<=6) {
if(getequipweaponlv(.@i)>0) set .@color$,"^0000AA";
else set .@color$,"^006400";
set .@menu$,.@menu$+("附魔 - "+.@color$+""+getitemname(getequipid(.@i))+"^000000")+":";
}
select(.@menu$);
if(getitemname(getequipid(@menu))=="null") {
mes "[附魔哥哥]";
mes "這個null代表該位置沒裝備..";
close;
}
set .@focus,@menu;

複製代碼

改成

select( "裝飾 1","裝飾 2" ) + 6;
if(getitemname(getequipid(@menu))=="null") {
mes "[附魔哥哥]";
mes "這個null代表該位置沒裝備..";
close;
}
set .@focus,@menu;

複製代碼

sinya · 發表於 2014-1-3 01:30:09

本帖最後由 sinya 於 2014-1-3 02:24 AM 編輯

@emistry
set @menu,select( "裝飾 1","裝飾 2" ) + 6;

至於成功率的腳本我看不懂他這些寫什麼
if (.@ohno==1 ||.@ohno==2 ||.@ohno==3 ||.@ohno==4 ||.@ohno==5 ||.@ohno==6 ||.@ohno==7 ||.@ohno==18 ||.@ohno==19||.@ohno==20) {

不過上面那些改成下面這行就容易瞭解了
if(rand(100)>= 20){ // -->意思是說失敗(機率有80% ，這裡我假設成功率有20%)

如果是我，我不會用 getitemname 因為 getequid 就能判斷了 if(getequid(@menu)==-1){...}

emistry · 發表於 2014-1-3 02:16:10

sinya 發表於 2014-1-3 01:30 AM
@emistry
set @menu,select( "裝飾 1","裝飾 2" ) + 6;

set @menu,select( "裝飾 1","裝飾 2" ) + 6;

複製代碼

sinya 。。。其實是可以不用寫的。。
因為當你使用 select() / menu() 時， @menu 就會自動的儲存你所選的menu index了

如果要寫，通常都是為了把你所選的 option 存起來用在別處罷了

sinya · 發表於 2014-1-3 02:21:02

emistry 發表於 2014-1-3 02:16 AM
sinya 。。。其實是可以不用寫的。。
因為當你使用 select() / menu() 時， @menu 就會自動的儲存你所選 ...

但是你有+6，應該要寫吧

emistry · 發表於 2014-1-3 02:27:31

sinya 發表於 2014-1-3 02:21 AM
但是你有+6，應該要寫吧

哦。。。是喔。。。哈哈忘了。。沒注意到。。{:soso_e112:}

too520 · 發表於 2014-1-3 10:04:42

emistry 發表於 2014-1-2 11:50 PM
把改成

超級感謝emistry大大的幫助
已經順利解決搂~~

too520 · 發表於 2014-1-3 10:06:35

sinya 發表於 2014-1-3 01:30 AM
@emistry
set @menu,select( "裝飾 1","裝飾 2" ) + 6;

超級感謝sinya大大的幫助~~
已經順利解決搂 ^^

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