UID335212
帖子
精華
主題
積分613
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2017-3-16
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 開心 2017-5-29 12:19 PM |
---|
簽到天數: 35 天 連續簽到: 1 天 [LV.5]常住居民I
|
樓主 |
發表於 2017-4-3 02:54:23
|
顯示全部樓層
-樂- 發表於 2017-4-3 12:53 AM
直接測試不就知道對不對?
壇主~ 我感覺我快成功了..
但還是不是很懂到底哪裡出了問題...
左飾品變成0了以後,我根本摸不著頭緒...
我盡力的結果如下...
但是右飾品總是不顯示或是沒辦法正確判別有沒有卡片...- //================================================//
- set .@Size,getarraysize(.@Item);
- mes $@RrcssNPC_Str$;
- mes "請選擇您要拆除的物品選項。";
- next;
- setarray .@Equip$[1],"飾品左","鞋子","斗篷","頭下","頭中","頭上","身體","左手","右手","飾品右";
- for ( set @i,1; @i <= 10; set @i,@i+1 ) {
- if ( getequipid(@i) <= 0 ) {
- setd "@EquipName"+@i+"$",.@Equip$[@i]+"–^FF0000沒有裝備物品^000000";
- } else {
- if ( getequipcardcnt(@i) ) {
- setd "@EquipName"+@i+"$",.@Equip$[@i]+"–^0000FF"+getequipname(@i)+"^000000["+getitemslots(getequipid(@i))+"S]";
- } else {
- setd "@EquipName"+@i+"$",.@Equip$[@i]+"–^FF0000沒有插上卡片^000000";
- }
- }
- }
- set @CItem,select(@EquipName1$,@EquipName2$,@EquipName3$,@EquipName4$,@EquipName5$,@EquipName6$,@EquipName7$,@EquipName8$,@EquipName9$,@EquipName0$);
- set @CardCount,getequipcardcnt(@CItem);
- for ( set @i,1; @i <= 10; set @i,@i+1 ) {
- setd "@EquipName"+@i+"$","";
- }
- if ( @CardCount == 0 ) {
- mes $@RrcssNPC_Str$;
- mes "這個物品並沒有插上卡片唷!";
- close;
- }
- mes "[多功能工匠][機率:^FF0000"+(.@CardRand1-(@CardCount*.@CardRand2))+"%^000000]";
- mes "拆除 ^0000FF"+getequipname(@CItem)+"^000000["+getitemslots(getequipid(@CItem))+"S] 上的卡片";
- mes "需要 ^FF0000金錢 "+(.@CardZeny1+(@CardCount*.@CardZeny2))+"^000000 z";
- for ( set @i,1; @i < .@Size; set @i,@i+1 ) {
- mes " 和 ^FF0000"+getitemname(.@Item[@i])+" "+.@INum[@i]+"^000000 個";
- }
- next;
- if (select("是的!","不了!")==2) {
- close;
- }
- if ( Zeny < (.@CardZeny1+(@CardCount*.@CardZeny2)) ) {
- mes $@RrcssNPC_Str$;
- mes "抱歉您身上的金錢不足!";
- close;
- }
- for ( set @i,1; @i < .@Size; set @i,@i+1 ) {
- if ( countitem(.@Item[@i]) < .@INum[@i] ) {
- mes $@RrcssNPC_Str$;
- mes "抱歉您身上的物品不足!";
- close;
- }
- }
- mes $@RrcssNPC_Str$;
- mes "鏘!鏘!鏘!";
- next;
- if ( (.@CardRand1-(@CardCount*.@CardRand2)) < 100 ) {
- mes "[多功能工匠][機率:^FF0000"+(.@CardRand1-(@CardCount*.@CardRand2))+"%^000000]";
- mes "如果拆除失敗您想保留什麼?";
- next;
- switch(select("保留裝備!","保留卡片!")) {
- case 1: set @CardFailed,1; set .@Str$,"裝備"; break;
- case 2: set @CardFailed,2; set .@Str$,"卡片"; break;
- }
- }
- set Zeny,Zeny - (.@CardZeny1+(@CardCount*.@CardZeny2));
- for ( set @i,1; @i < .@Size; set @i,@i+1 ) {
- delitem .@Item[@i],.@INum[@i];
- }
- if ( (.@CardRand1-(@CardCount*.@CardRand2)) >= rand(100) ) {
- successremovecards @CItem;
- specialeffect2 EF_SANCTUARY;
- mes $@RrcssNPC_Str$;
- mes "恭喜您物品已拆除成功了!";
- } else {
- failedremovecards @CItem,@CardFailed;
- specialeffect2 EF_SUI_EXPLOSION;
- mes $@RrcssNPC_Str$;
- mes "抱歉您的物品拆除失敗了!";
- mes "已經盡力幫您保住"+.@Str$+"了!";
- }
- close;
- }
複製代碼 |
|