prontera.gat,164,107,3	script	泡點服務#1::TreeLoc	906,{

	mes "[泡點服務]";
	mes "您好，我是^0000FF泡點服務員^000000。";
	mes "請問您有需要什麼嗎？";
	next;
	switch(select("介紹 ^0000FF泡點服務^000000 ！:進行泡點服務 ！")){
case 1:
	mes "[泡點服務]";
	mes "您必須達到^0000FF150^000000等";
	mes "才有辦法進行泡點作業。";
	next;
	mes "[泡點服務員]";
	mes "每^FF0000 3 ^000000秒鐘作業一次，";
	mes "每次消耗^FF0000 100 ^000000 體力，";
	mes "以下情況會自動停止泡點作業唷！";
	mes "1.^FF0000移動位置^000000";
	mes "2.^FF0000體力不足^000000";
	mes "3.^FF0000負重率不足^000000";
	next;
	mes "[泡點服務員]";
	mes "系統會根據玩家的在線時間累積點數";
	mes "『注意』：如果玩家開啟聊天室則無法累積泡點";
	mes "每1分鐘可以領取獎勵1次";
	mes "歡迎大家多上來坐坐~";
	close;

case 2:
//檢查等級
	if(baselevel < 149 ) {	mes "您的等級尚未達到150等";
				close;
				}

//檢查避免重複泡點
	for ( set @i,0; @i < 128; set @i,@i+1 ) {
		if ( $@Treeger[@i] == getcharid(3) ) {
			mes "已經在進行泡點服務了！";
			close;	}	}
	close2;
	initnpctimer;

//取得伐木者座標
	set $@Treeger[$@IsTree],getcharid(3);
	set $@TreeName$[$@IsTree],strcharinfo(0);
	getmapxy(@TreeMAP$,$@TreeLocX[$@IsTree],$@TreeLocY[$@IsTree],0,$@TreeName$[$@IsTree]);
	set memoidex, $@IsTree;
	set $@IsTree,$@IsTree+1;
	if ( $@IsTree == 128 ) {	set $@IsTree,0;	}
	announce "開始泡點服務！",bc_self;
	end;

OnTimer60000:

	set .@Trees,0;
	for( set .@Tree,0; .@Tree < 128; set .@Tree,.@Tree+1 ) {
	getmapxy(.@TreeMAP$[.@Tree],.@Treex[.@Tree],.@Treey[.@Tree],0,$@TreeName$[.@Tree]);
	if ( attachrid($@Treeger[.@Tree]) == 1 ) {

		//移動位置
		if ( .@Treex[.@Tree]!= $@TreeLocX[.@Tree] || .@Treey[.@Tree] != $@TreeLocY[.@Tree] ) {
			announce "移動了位置，停止泡點服務！",bc_self;
			set $@Treeger[.@Tree],0;	}

		//正常泡點
		else if ( HP >= 100 && Weight <= MaxWeight/10*9 ) {
			set HP,HP-100;
			callfunc "Treeing";	}

		//體力不足
		else if ( HP < 100 ) {
			announce "體力不足，停止泡點服務！",bc_self;
			set $@Treeger[.@Tree],0;	}

		//負重率不足
		else {	announce "負重率不足，停止泡點服務！",bc_self;
			set $@Treeger[.@Tree],0;	}	}

		else { set .@Trees,.@Trees+1; }	}

	if ( .@Trees != 0 ) initnpctimer;
		else { stopnpctimer; }
		end;

OnInit:
	end;	}
}

//====================================================//

prontera.gat,164,107,3	duplicate(TreeLoc)	泡點服務#2	906
prontera.gat,164,107,3	duplicate(TreeLoc)	泡點服務#3	906
prontera.gat,164,107,3	duplicate(TreeLoc)	泡點服務#4	906
prontera.gat,164,107,3	duplicate(TreeLoc)	泡點服務#5	906
prontera.gat,164,107,3	duplicate(TreeLoc)	泡點服務#6	906
prontera.gat,164,107,3	duplicate(TreeLoc)	泡點服務#7	906

//====================================================//

function	script	Treeing	{

	set $@Treeing,rand(100);
//金錢1000元
	if ( $@Treeing < 25 ) {	set zeny,zeny + 1000;
				announce "得到1000zeny！",bc_self;
				}
//P點 3 點
	else if ( $@Treeing >= 26 && $@Treeing <= 30 ) {
		set #CASHPOINTS,#CASHPOINTS+3;
		announce "得到 3 點cash點數！",bc_self;
		}
//金錢500元
	else if ( $@Treeing >= 31 && $@Treeing <= 40 ) {
				set zeny,zeny + 500;
				announce "得到500zeny！",bc_self;
				}
//P點 2 點
	else if ( $@Treeing >= 41 && $@Treeing <= 50 ) {
		set #CASHPOINTS,#CASHPOINTS+2;
		announce "得到 2 點cash點數！",bc_self;
		}
//鋁原石
	else if ( $@Treeing >= 51 && $@Treeing <= 60 ) getitem 757,1;
//神之金屬原石
	else if ( $@Treeing >= 61 && $@Treeing <= 70 ) getitem 756,1;
//金錢2000元
	else if ( $@Treeing >= 71 && $@Treeing <= 80 ) {
				set zeny,zeny + 2000;
				announce "得到2000zeny！",bc_self;
				}
//P點 1 點
	else if ( $@Treeing >= 81 && $@Treeing <= 90 ) {
		set #CASHPOINTS,#CASHPOINTS+1;
		announce "得到 1 點cash點數！",bc_self;
		}
//蒼翅
	else if ( $@Treeing >= 91 && $@Treeing <= 97 ) getitem 601,5;

//被麻雀攻擊
	else if ( $@Treeing == 98 ) {
		set HP,HP-200;
		announce "被麻雀攻擊，受到傷害 200 ！",bc_self;	}
//被路人踩到腳
	else if ( $@Treeing == 99 ) {
		set HP,HP-400;
		announce "被路人踩到腳，受到傷害 400 ！",bc_self;	}
//被手推車撞到
	else {	if ( $@Treeing == 100 ) {
		set HP,HP-600;
		announce "被手推車撞到，受到傷害 600 ！",bc_self;	}
		}
	return;
}