OK論壇

 找回密碼
 註冊
查看: 1824|回復: 3

請問釣魚腳本如何改秒數?

 關閉 [複製鏈接]

該用戶從未簽到

發表於 2009-2-12 19:25:57 | 顯示全部樓層 |閱讀模式
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;
}


請問要如何改秒數呢?
回復

使用道具 舉報

該用戶從未簽到

發表於 2009-2-12 19:57:17 | 顯示全部樓層
OnTimer10000
這個是十秒,以此類推改你要的秒數
回復 支持 反對

使用道具 舉報

該用戶從未簽到

 樓主| 發表於 2009-2-12 20:28:54 | 顯示全部樓層
謝謝大大的回答 我知道嚕
回復 支持 反對

使用道具 舉報

該用戶從未簽到

 樓主| 發表於 2009-2-13 16:23:15 | 顯示全部樓層
請關一下帖吧 謝謝大大了
回復 支持 反對

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊

本版積分規則

Archiver|手機版|小黑屋|OK討論區

GMT+8, 2024-5-3 06:34 AM , Processed in 0.060348 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回復 返回頂部 返回列表