UID209377
帖子
精華
主題
積分566
現金
積極性
威望
違規
熱心
推廣次數
閱讀權限10
註冊時間2009-11-1
在線時間 小時
最後登錄1970-1-1
TA的每日心情 | 怒 2016-8-15 04:40 PM |
---|
簽到天數: 22 天 連續簽到: 1 天 [LV.4]偶爾看看III
|

樓主 |
發表於 2010-3-7 20:52:14
|
顯示全部樓層
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 ( $@Fishger[@i] == getcharid(3) ) {
mes "已經在進行釣魚作業了!";
close; } }
mes "請問您要進行什麼動作呢?";
menu "進行釣魚作業",-;
close2;
initnpctimer;
//取得釣魚者座標
set $@Fishger[$@IsFish],getcharid(3);
set $@FishName$[$@IsFish],strcharinfo(0);
getmapxy(@FishMAP$,$@FishLocX[$@IsFish],$@FishLocY[$@IsFish],0,$@FishName$[$@IsFish]);
set $@IsFish,$@IsFish+1;
if ( $@IsFish == 128 ) { set $@IsFish,0; }
announce "尋找到礦點,開始釣魚作業!",bc_self;
end;
OnTimer3000:
set .@Fishs,0;
for( set .@Fish,0; .@Fish < 128; set .@Fish,.@Fish+1 ) {
getmapxy(.@FishMAP$[.@Fish],.@Fishx[.@Fish],.@Fishy[.@Fish],0,$@FishName$[.@Fish]);
if ( attachrid($@Fishger[.@Fish]) == 1 ) {
//移動位置
if ( .@Fishx[.@Fish]!= $@FishLocX[.@Fish] || .@Fishy[.@Fish] != $@FishLocY[.@Fish] ) {
announce "移動了位置,停止釣魚作業!",bc_self;
set $@Fishger[.@Fish],0; }
//正常釣魚
else if ( HP >= 100 && Weight <= MaxWeight/10*9 ) {
set HP,HP-100;
callfunc "Fishing"; }
//體力不足
else if ( HP < 100 ) {
announce "體力不足,停止釣魚作業!",bc_self;
set $@Fishger[.@Fish],0; }
//負重率不足
else { announce "負重率不足,停止釣魚作業!",bc_self;
set $@Fishger[.@Fish],0; } }
else { set .@Fishs,.@Fishs+1; } }
if ( .@Fishs != 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 $@Fishing,rand(1500);
//海螺
if ( $@Fishing < 25 ) getitem 961,1;
//螃蟹外殼
else if ( $@Fishing >= 25 && $@Fishing <= 300 ) getitem 964,1;
//蛤蜊外殼
else if ( $@Fishing >= 301 && $@Fishing <= 502 ) getitem 965,1;
//烏龜外殼
else if ( $@Fishing >= 503 && $@Fishing <= 700 ) getitem 967,1;
//人魚之心
else if ( $@Fishing >= 701 && $@Fishing <= 800 ) getitem 950,1;
//人魚之牙
else if ( $@Fishing >= 801 && $@Fishing <= 900 ) getitem 1053,1;
//人魚嘴巴
else if ( $@Fishing >= 901 && $@Fishing <= 1050 ) getitem 1054,1;
//蝦子
else if ( $@Fishing >= 1051 && $@Fishing <= 1200 ) getitem 567,1;
//Divx玩家抽獎券
else if ( $@Fishing >= 1201 && $@Fishing <= 1210 ) getitem 7852,1;
//被掉線割傷
else if ( $@Fishing >= 1211 && $@Fishing <= 1300 ) {
set HP,HP-500;
announce "被釣線割傷了手指,受到傷害 500 !",bc_self; }
//被魚拖倒在地
else if ( $@Fishing >= 1301 && $@Fishing <= 1400 ) {
set HP,HP-900;
announce "被快上鉤的魚拖倒在地,受到傷害 900 !",bc_self; }
//被魚拖到海裡
else { if ( $@Fishing >= 1401 && $@Fishing <= 1500 ) {
set HP,HP-2000;
announce "被快上鉤的魚拖到海裡,受到傷害 2000 !",bc_self; }
}
return;
}
//====================================================//
生活技能腳本[釣魚點的地方] |
|