[Help! i think you know this]

prontera,150,150,6	script	Instant Job Palit	492,{
waitingroom "Instant Job Changer",0;
	if(Class==Job_Novice && countitem(7539) >= 500){ goto level;} else { goto Require;}
Require:
	mes "[^000088Kath Leen^000000]";
	mes "I'm sorry but you need to be a ^AA0000Novice^000000 and have 500 ^0000AAPoring Coins^000000 in order to change Jobs.";
	close;
level:
	mes "[^000088Kath Leen^000000]";
	mes "What job do you like?";
	next;
	menu "Champion",champ,"Lord Knight",knight,"High Priest",priest,"High Wizard",wizard,"Whitesmith",white,"Sniper",snipe,"Assassin Cross",cross,"Professor",prof,"Stalker",stalk,"Creator",create,"Ninja",nin,"Gunslinger",guns,"Taekwon Master",star,"Soul Linker",link,"Clown / Gypsy",Clown,"Paladin",pala,"Taekwon",Tae;
champ:
	mes "[^000088Kath Leen^000000]";
	mes "you are now Champion";
	jobchange 4016;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1505,1,1,10,0,0,0,0,0; //+10 mace

	close;
knight:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Lord Knight";
	jobchange 4008;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1102,1,1,10,0,0,0,0,0; //+10 sword
	close;
priest:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a High Priest";
	jobchange 4009;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1505,1,1,10,0,0,0,0,0; //+10 mace
	close;
wizard:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a High Wizard";
	jobchange 4010;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1624,1,1,10,0,0,0,0,0; //+10 staff of destruction

	close;
white:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Whitesmith";
	jobchange 4011;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1302,1,1,10,0,0,0,0,0; //+10 axe
	close;
snipe:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Sniper";
	jobchange 4012;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1702,1,1,10,0,0,0,0,0;// +10 bow
	close;
cross:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Assassin Cross";
	jobchange 4013;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	getitem2 1208,1,1,10,0,0,0,0,0;// +10 sandstorm
	getitem2 1208,1,1,10,0,0,0,0,0;// +10 sandstorm
	delitem 7539,500;
	close;
prof:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Professor";
	jobchange 4017;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1624,1,1,10,0,0,0,0,0; //+10 staff of destruction
	close;
stalk:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Stalker";
	jobchange 4018;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1702,1,1,10,0,0,0,0,0;// +10 bow
	close;
create:
	mes "[^000088Kath Leen^000000]";
	mes "You are now a Creator";
	jobchange 4019;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1302,1,1,10,0,0,0,0,0; //+10 axe
	close;
nin:
	mes "[^000088Kath Leen^000000]";
	mes "You are now a Ninja";
	jobchange 25;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 13010,1,1,10,0,0,0,0,0; //+10 Asura (Beginner Ninja Weapon)
	close;
guns:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Gunslinger";
	jobchange 24;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 13101,1,1,10,0,0,0,0,0; //+10six shooter
	close;
star:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Taekwon Master";
	jobchange 4047;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1550,1,1,10,0,0,0,0,0; //+10 book
	close;
link:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Soul Linker";
	jobchange 4049;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1630,1,1,10,0,0,0,0,0; //+10 Release of Wish
	close;
Clown:
	mes "[^000088Kath Leen^000000]";
	mes "Congratulations!";
	jobchange 4020;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	if(Sex == 1 ) {getitem2 1902,1,1,10,0,0,0,0,0;} else {getitem2 1952,1,1,10,0,0,0,0,0;} //First Item is +10 Violin, Second is +10 Whip
	close;
pala:
	mes "[^000088Kath Leen^000000]";
	mes "Congratulations!";
	jobchange 4015;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1408,1,1,10,0,0,0,0,0; //+10 pike
	close;
Tae:
	mes "[^000088Kath Leen^000000]";
	mes "you are now a Taekwon";
	jobchange 4046;
	set BaseLevel,BaseLevel+255;
	set JobLevel,JobLevel+150;
	delitem 7539,500;
	getitem2 1550,1,1,10,0,0,0,0,0; //+10 book
	close;
}

Is it possible to make this an IP based script instead of account base so people wont abuse it sir?