UID55804
帖子
精華
主題
積分2646
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2008-1-27
在線時間 小時
最後登錄1970-1-1
該用戶從未簽到
|
EA
私服版號: |
EA13435_WinTxtVc_Tw |
問題內容: |
腳本問題 |
釣魚腳本如下:
amatsu,92,78,4 script 釣魚點#1::FishLoc 844,{
//檢查配備
if ( isequipped(2221) == 0 && isequippedcnt(4311) == 0 ) {
mes "這裡似乎有釣魚的痕跡....";
close; }
//檢查避免重複釣魚
for ( set @i,0; @i < 128; set @i,@i+1 ) {
if ( [email=$@Fishger[@i]$@Fishger[@i[/email]] == getcharid(3) ) {
mes "已經在進行釣魚作業了!";
close; } }
mes "請問您要進行什麼動作呢?";
menu "進行釣魚作業",-;
close2;
initnpctimer;
//取得釣魚者座標
set [email=$@Fishger[$@IsFish],getcharid(3]$@Fishger[$@IsFish],getcharid(3[/email]);
set [email=$@FishName$[$@IsFish],strcharinfo(0]$@FishName$[$@IsFish],strcharinfo(0[/email]);
getmapxy(@FishMAP$,$@FishLocX[$@IsFish],$@FishLocY[$@IsFish],0,$@FishName$[$@IsFish]);
set [email=$@IsFish,$@IsFish+1]$@IsFish,$@IsFish+1[/email];
if ( [email=$@IsFish]$@IsFish[/email] == 128 ) { set [email=$@IsFish,0]$@IsFish,0[/email]; }
announce "尋找到礦點,開始釣魚作業!",bc_self;
end;
OnTimer10000:
set [email=.@Fishs,0].@Fishs,0[/email];
for( set [email=.@Fish,0].@Fish,0[/email]; [email=.@Fish].@Fish[/email] < 128; set [email=.@Fish,.@Fish+1].@Fish,.@Fish+1[/email] ) {
getmapxy([email=.@FishMAP$[.@Fish],.@Fishx[.@Fish],.@Fishy[.@Fish],0,$@FishName$[.@Fish].@FishMAP$[.@Fish],.@Fishx[.@Fish],.@Fishy[.@Fish],0,$@FishName$[.@Fish[/email]]);
if ( attachrid([email=$@Fishger[.@Fish]$@Fishger[.@Fish[/email]]) == 1 ) {
//移動位置
if ( [email=.@Fishx[.@Fish].@Fishx[.@Fish[/email]]!= [email=$@FishLocX[.@Fish]$@FishLocX[.@Fish[/email]] || [email=.@Fishy[.@Fish].@Fishy[.@Fish[/email]] != [email=$@FishLocY[.@Fish]$@FishLocY[.@Fish[/email]] ) {
announce "移動了位置,停止釣魚作業!",bc_self;
set [email=$@Fishger[.@Fish],0]$@Fishger[.@Fish],0[/email]; }
//正常釣魚
else if ( HP >= 1000 && Weight <= MaxWeight/10*9 ) {
set HP,HP-100;
callfunc "Fishing"; }
//體力不足
else if ( HP < 1000 ) {
announce "體力不足,停止釣魚作業!",bc_self;
set [email=$@Fishger[.@Fish],0]$@Fishger[.@Fish],0[/email]; }
//負重率不足
else { announce "負重率不足,停止釣魚作業!",bc_self;
set [email=$@Fishger[.@Fish],0]$@Fishger[.@Fish],0[/email]; } }
else { set [email=.@Fishs,.@Fishs+1].@Fishs,.@Fishs+1[/email]; } }
if ( [email=.@Fishs].@Fishs[/email] != 0 ) initnpctimer;
else { stopnpctimer; }
end;
OnInit:
end; }
//====================================================//
amatsu,100,78,4 duplicate(FishLoc) 釣魚點#2 844
amatsu,108,78,4 duplicate(FishLoc) 釣魚點#3 844
amatsu,116,78,4 duplicate(FishLoc) 釣魚點#4 844
amatsu,124,78,4 duplicate(FishLoc) 釣魚點#5 844
amatsu,132,78,4 duplicate(FishLoc) 釣魚點#6 844
amatsu,139,78,4 duplicate(FishLoc) 釣魚點#7 844
//====================================================//
function script Fishing {
//漁夫帽[1]增加機率
if ( isequipped(2221) == 1 ) {
switch(rand(10)) {
case 0: getitem 567,1;
break; } }
//果樹龜卡片增加機率
if ( isequippedcnt(4311) == 1 ) {
switch(rand(10)) {
case 0: getitem 567,1;
break; } }
set [email=$@Fishing,rand(100]$@Fishing,rand(100[/email]);
//海螺
if ( [email=$@Fishing]$@Fishing[/email] < 25 ) getitem 961,1;
//螃蟹外殼
else if ( [email=$@Fishing]$@Fishing[/email] >= 25 && [email=$@Fishing]$@Fishing[/email] <= 34 ) getitem 964,1;
//蛤蜊外殼
else if ( [email=$@Fishing]$@Fishing[/email] >= 35 && [email=$@Fishing]$@Fishing[/email] <= 44 ) getitem 965,1;
//烏龜外殼
else if ( [email=$@Fishing]$@Fishing[/email] >= 45 && [email=$@Fishing]$@Fishing[/email] <= 54 ) getitem 967,1;
//人魚之心
else if ( [email=$@Fishing]$@Fishing[/email] >= 55 && [email=$@Fishing]$@Fishing[/email] <= 64 ) getitem 950,1;
//人魚之牙
else if ( [email=$@Fishing]$@Fishing[/email] >= 65 && [email=$@Fishing]$@Fishing[/email] <= 74 ) getitem 1053,1;
//人魚嘴巴
else if ( [email=$@Fishing]$@Fishing[/email] >= 75 && [email=$@Fishing]$@Fishing[/email] <= 84 ) getitem 1054,1;
//蝦子
else if ( [email=$@Fishing]$@Fishing[/email] >= 85 && [email=$@Fishing]$@Fishing[/email] <= 97 ) getitem 567,1;
//被掉線割傷
else if ( [email=$@Fishing]$@Fishing[/email] == 98 ) {
set HP,HP-600;
announce "被釣線割傷了手指,受到傷害 200 !",bc_self; }
//被魚拖倒在地
else if ( [email=$@Fishing]$@Fishing[/email] == 99 ) {
set HP,HP-800;
announce "被快上鉤的魚拖倒在地,受到傷害 400 !",bc_self; }
//被魚拖到海裡
else { if ( [email=$@Fishing]$@Fishing[/email] == 100 ) {
set HP,HP-1000;
announce "被快上鉤的魚拖到海裡,受到傷害 800 !",bc_self; }
}
return;
}
請問要如何改秒數呢? |
|