點數累積兌換腳本版本：v2.6 獎品紀錄問題

傲殺 · 發表於 2010-5-23 08:24:09

set .@EID,PtGetEID(getarg(0),getarg(1));
if(!getd("$Pt_ExCONOFF_"+.@EID) && !getd("$Pt_ExCAllVar_"+.@EID))setd "$Pt_ExCAllVar_"+.@EID,-1;
if(!getd("$Pt_ExCGetVar_"+.@EID) || !getd("$Pt_ExCDelVar_"+.@EID))PtSetItem .@EID,0,3;
while(1){
set .@GSize,getarraysize(getd("$Pt_ExCGetVar_"+.@EID));
set .@DSize,getarraysize(getd("$Pt_ExCDelVar_"+.@EID));
if(!.@GSize || !.@DSize)set @menu,8+.@GSize+.@DSize;
else {
deletearray .@menu$,getarraysize(.@menu$);
deletearray .@Page[1],getarraysize(.@Page)-1;
for(set .@i,.@GSize;.@i;set .@i,.@i-1) {
for(set .@Index,0;getstrlen(.@menu$[.@Index])>1900;set .@Index,.@Index+1)continue;
if(.@Index && .@menu$[.@Index] == "")set .@Page[.@Index],.@GSize-.@i;
set .@menu$[.@Index],.@menu$[.@Index]+":^440088換取 ^000000"+GetBetweenStrCS(35,(getd("$Pt_ExCGetItem_"+.@EID+"["+(.@i-1)+"]")<getarraysize($Pt_TypeName$)?$Pt_TypeName$[getd("$Pt_ExCGetItem_"+.@EID+"["+(.@i-1)+"]")%128]:(getd("$Pt_ExCGetRefine_"+.@EID+"["+(.@i-1)+"]")?"+"+getd("$Pt_ExCGetRefine_"+.@EID+"["+(.@i-1)+"]"):"")+getitemname(getd("$Pt_ExCGetItem_"+.@EID+"["+(.@i-1)+"]"))+(getiteminfo(getd("$Pt_ExCGetItem_"+.@EID+"["+(.@i-1)+"]"),10)?"["+getiteminfo(getd("$Pt_ExCGetItem_"+.@EID+"["+(.@i-1)+"]"),10)+"]":"")+(getd("$Pt_ExCGet0CardID_"+.@EID+"["+(.@i-1)+"]")?"+":"")),".",getd("$Pt_ExCGetVar_"+.@EID+"["+(.@i-1)+"]"),5);
}
for(set .@i,.@DSize;.@i;set .@i,.@i-1) {
for(set .@Index,0;getstrlen(.@menu$[.@Index])>1900;set .@Index,.@Index+1)continue;
if(.@Index && .@menu$[.@Index] == "")set .@Page[.@Index],.@GSize+.@DSize-.@i;
set .@menu$[.@Index],.@menu$[.@Index]+":^880044付出 ^000000"+GetBetweenStrCS(35,(getd("$Pt_ExCDelItem_"+.@EID+"["+(.@i-1)+"]")<getarraysize($Pt_TypeName$)?$Pt_TypeName$[getd("$Pt_ExCDelItem_"+.@EID+"["+(.@i-1)+"]")%128]:getitemname(getd("$Pt_ExCDelItem_"+.@EID+"["+(.@i-1)+"]"))),".",getd("$Pt_ExCDelVar_"+.@EID+"["+(.@i-1)+"]"),5);
}
while(.@Page && !.@Page[.@Page])set .@Page,.@Page-1;
set .@Page[(getarraysize(.@Page)?getarraysize(.@Page):1)],.@GSize+.@DSize;
ChangePage:
select (getd("$Pt_ExCONOFF_"+.@EID)&2?"編輯完成:狀態："+(getd("$Pt_ExCONOFF_"+.@EID)&1?"^888888關閉^000000":"^0000ff啟動^000000"):"設定完成:")+":名稱："+(getd("$Pt_ExCName_"+.@EID+"$")==""?"^888888未命名^000000":getd("$Pt_ExCName_"+.@EID+"$"))+":"+(.@GSize+.@DSize==256?"":"^0000ff新增 ...^000000"),(.@Page?"上一頁":"")+.@menu$[.@Page],(.@Page[.@Page+2]?"下一頁":""),(getd("$Pt_ExCAllVar_"+.@EID)?"":"^ff0000")+"存貨："+(getd("$Pt_ExCAllVar_"+.@EID)==-1?"^888888無限量":"剩餘 "+getd("$Pt_ExCAllVar_"+.@EID)+" 份"),(getd("$Pt_ExCONOFF_"+.@EID)&2?"^ff0000刪除":"^888888取消新")+"兌換^000000";
}
if(@menu == 1) {
setd "$Pt_ExCONOFF_"+.@EID,getd("$Pt_ExCONOFF_"+.@EID)|2;
return;
}
else if(@menu == 2)setd "$Pt_ExCONOFF_"+.@EID,getd("$Pt_ExCONOFF_"+.@EID)^1;
else if(@menu == 3)ExCNamed .@EID,(.@GSize==1 && .@DSize==1 && getstrlen((getd("$Pt_ExCGetItem_"+.@EID)<getarraysize($Pt_TypeName$)?$Pt_TypeName$[getd("$Pt_ExCGetItem_"+.@EID)%128]:(getd("$Pt_ExCGetRefine_"+.@EID)?"+"+getd("$Pt_ExCGetRefine_"+.@EID):"")+getitemname(getd("$Pt_ExCGetItem_"+.@EID))+(getiteminfo(getd("$Pt_ExCGetItem_"+.@EID),10)?"["+getiteminfo(getd("$Pt_ExCGetItem_"+.@EID),10)+"]":"")+(getd("$Pt_ExCGet0CardID_"+.@EID)?"+":""))+getd("$Pt_ExCGetVar_"+.@EID))<=$@Pt_GetLen && getstrlen((getd("$Pt_ExCDelItem_"+.@EID)<getarraysize($Pt_TypeName$)?$Pt_TypeName$[getd("$Pt_ExCDelItem_"+.@EID)%128]:getitemname(getd("$Pt_ExCDelItem_"+.@EID)))+getd("$Pt_ExCDelVar_"+.@EID))<=31-$@Pt_GetLen);
else if(@menu == 4) {
if(prompt("^0000ff新增^000000 換取...","^0000ff新增^000000 付出...","返回")<3)PtSetItem .@EID,(@menu==1?.@GSize:.@DSize),3&@menu;
}
else if(@menu == 5) {
set .@Page,.@Page-1;
goto ChangePage;
}
else if(@menu < .@Page[.@Page+1]-.@Page[.@Page]+6) {
if(@menu < .@GSize-.@Page[.@Page]+6)PtSetItem .@EID,5+.@GSize-@menu-.@Page[.@Page],1;
else PtSetItem .@EID,5+.@GSize+.@DSize-@menu-.@Page[.@Page],2;
}
else if(@menu == .@Page[.@Page+1]-.@Page[.@Page]+6) {
set .@Page,.@Page+1;
goto ChangePage;
}
else if(@menu == .@Page[.@Page+1]-.@Page[.@Page]+7) {
announce "請輸入要提供的數量(輸入 -1 即為無限量)",bc_self;
input getd("$Pt_ExCAllVar_"+.@EID),-1,2147483647;
}
else {
callfunc "PtItemControlRun",20,getarg(0),getarg(1);
return;
}
}
}

複製代碼

sinya · 發表於 2010-5-24 04:00:43

先質疑你的使用方法吧不關腳本的事
這是很久很久的腳本了經過多次修改
很多人試過的如果有bug早就被提起修正了

pan00017 · 發表於 2010-5-24 17:29:54

跟腳本無關
有樣東西你沒設定
不想說的第三行

傲殺 · 發表於 2010-5-24 20:43:56

解決了
3Q

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

點數累積兌換腳本 版本：v2.6 獎品紀錄問題

點數累積兌換腳本版本：v2.6 獎品紀錄問題