prontera,160,162,4	script	Farming Instance	630,{
	if (#HuntRoomDelay == 0) {
		callsub FARM_INSTANCE;
		end;
	}
	if (#HuntRoomDelay <  1 ) {
		set .last,#HuntRoomDelay - gettimetick(2);
		set .@min,  .last % ( 24 * 3600 ) % 3600 / (60);
		mes "less than 1 min";
		close;
	} else if( #HuntRoomDelay > gettimetick(2) ) {
		set .last,#HuntRoomDelay - gettimetick(2);
		set .@min,  .last % ( 24 * 3600 ) % 3600 / (60);
		mes "Wait for ^FF0000"+.@min+" Minutes^000000.";
		close;
	}
FARM_INSTANCE:
	#FarmHunt = 0;
	.@md_namenpc$ = "[ ^551A8B Farming Instance ^000000 ]";
	.@md_name$ = "Farming Instance";
	mes .@md_namenpc$;
	mes "Hello there "+strcharinfo(0)+".";
	mes "I have something I want to tell you..";
	next;
	mes .@md_namenpc$;
	mes "etc";
	next;
	mes .@md_namenpc$;
	mes "etc";
	next;
	mes .@md_namenpc$;
	switch(select("Yes, I want to farm: No thanks.")) {
	case 1:
		mes "Attempting to open the dimension gate to enter the realm of bountiful item farming.";
		sleep2 (200);
		mes "...";
		sleep2 (200);;
		mes "The gate is OPEN! Good luck on farming!";
		mes "Watch as the rift engulfs you!";
		specialeffect2 777;
		announce "[Entering Farming Instance]",bc_self;
		sleep2 (45);
		specialeffect2 EF_HEALSP;
		specialeffect2 EF_M05;
		sleep2 (20);
		
		.@instance = instance_create( .@md_name$, getcharid( 3 ), IOT_CHAR);
		if( .@instance < 0 ) { 
			dispbottom "Instance Failed.";
			end;
		}
		dispbottom "^0000ff" + .@md_name$ + "^000000- Attempting to create Farm Instance.";
		if( instance_attachmap("1@def01",.@instance) == "" ) {
			instance_destroy( .@instance );
			dispbottom "Failed to instance yuno_fild02/Instance Name: 1@def01";
			end;
		}

		dispbottom "^0000ff" + .@md_name$ + " attempt successful on Instance attach!";
		instance_set_timeout( 3600, 300, .@instance );
		instance_init( .@instance );
		instance_attach .@instance;
		'cid = getcharid(0);
		'aid = getcharid(3);
	//	CK_cooldown = gettimetick(2) + 3600; // 1 hour cooldown
		warp instance_mapname("1@def01",.@instance),50,50;
		end;
	case 2:
		mes "Alright then, come again another time!";
		close;
	}
}

1@def01,45,50,1	script	FarmInstance#Ins	-1,{

OnInstanceInit:
	.DelayMin = 1;
	.MaxItemLimit = 3;
	'FarmID1Rate = 50;

// Adding X Minutes of Delay before can go in again.
// Map that will be used in this Instance.
	set .Map$,"1@def01";

	'Farm_Count = 0;
	'Farm_Start = 0;

	if (!'Farm_Start) {
		donpcevent instance_npcname("FarmInstance#Ins")+"::OnFarmStart";
		'Farm_Start++;
		end;
	}
OnFarmStart:
	instance_announce -1,"[Farming Instance] Enjoy farming some items!",bc_map;
	monster instance_mapname("1@def01"),50,50,"[ Farm Zone ] Resident",PORING,6,instance_npcname("FarmInstance#Ins")+"::OnFarmItem";
	monster instance_mapname("1@def01"),50,50,"[ Farm Zone ] Resident",PORING,6,instance_npcname("FarmInstance#Ins")+"::OnFarmItem";
	end;
OnFarmItem:
	if ( rand(100) < 'FarmID1Rate ) {
		'FarmIDList = callfunc("F_Rand",1129,1222,1163,1357,1360,1522,1811,1410);
		#FarmHunt++;
	//	dispbottom "You obtained an item! Congratulations!";
		'Farm_Count++;
		dispbottom "[ Farm Zone ] : Farmed "+#FarmHunt+" / "+.MaxItemLimit+" Items";
		if( #FarmHunt >= .MaxItemLimit ) {
			message strcharinfo(0),"Limit Reach , you may join again later.";
			sleep2 500;
			set #HuntRoomDelay,gettimetick(2) + ( .DelayMin * 60 );
			warp "prontera",150,150;
			instance_destroy();
			end;
		}
		donpcevent instance_npcname("FarmInstance#Ins")+"::OnCountFarm";
		getitem 'FarmIDList, 1;
	} else {
		dispbottom "Sorry, you didn't obtain an item! Keep farming!";
		'Farm_Count++;
		donpcevent instance_npcname("FarmInstance#Ins")+"::OnCountFarm";
		end;
	}
		end;
///	YOUR PROBLEM IS DID NOT PUT AN end; HERE !!! AGAIN !! How many times I have to tell
///	you donpcevent to OnCountFarm, but there is no end; command here, so it read the next line through the label
OnCountFarm:
	if ('Farm_Count >= 1) { // I SET THIS TO 1 TO QUICKLY TEST FARMING INSTANCE COMPLETED, which executes twice... D:

		if( attachrid('aid) )
			if( getcharid(0) == 'cid ) {
				instance_announce -1,"[Farming Instance] Farming instance Completed.",bc_map;
				set #HuntRoomDelay,gettimetick(2) + ( .DelayMin * 60 );
				sleep2 5000;
				instance_destroy();
				end;
			}
			else
				end;
	}
}