prontera,150,150,0	script	Warper {
	query_sql "SELECT `account_id` FROM `vip` WHERE `account_id` = '"+getcharid(3)+"'", .@VIP;

	if ( .@VIP ) {
		mes .NPC$;
		mes "Where will i warp you?";
		switch(select("Bossnia1:Bossnia2:Bossnia3:Bossnia4:No, don't warp me")) {
			case 1:
				warp bossnia_01,0,0;
				break;
			case 2:
				warp bossnia_02,0,0;	
				break;
			case 3:
				warp bossnia_03,0,0;
				break;
			case 4:
				warp bossnia_04,0,0;
				break;
			case 5:
				mes .NPC$;
				mes "Bye ~";
				break;
			default:
				mes .NPC$;
				mes "Invalid choice!";
				break;				
		}
	} else {
		mes .NPC$;
		mes "Sorry " +strcharinfo(0)+ " you cannot use me because you are not a vip";
		close;
	}

	OnInit:
		set .NPC$, "[ " +strnpcinfo(1)+ " ]";
		end;
}