npc_kafra.txt

CS反恐精英1.6的部分C源代码。

//PRONTERA
//South Gate
prontera.gat,152,29,7	script	Kafra	115,{
cutin "kafra_03",2;
mes "[Kafra]";
mes "Welcome to Kafra Corp.We will stay with you wherever you go.";
next;
menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lteleport,"Rent a Cart",Lcart;
Lsave:
	save "prontera.gat",151,30;
	mes "Thank you come again!";
	cutin "kafra_03",255;
	close;
Lstorage:
	mes "not available yet...";
	cutin "kafra_03",255;
	close;
Lteleport:
	cutin "kafra_03",255;	
	menu	
		"Izlude Town -> 200z",Lizl,"Geffen Town -> 500z",Lgef,"Payon Town -> 800z",Lpay,"Alberta Town -> 1000z",Lalb,"Morocc Town -> 900z",Lmor,"Al De Baran Town -> 1000z",Lald,"Orc Dungeon -> 700z",Lorc,"Pyra Dungeon -> 900z",Lpyr,"Sphinx Dungeon -> 950z",Lsph,"Payon Dungeon -> 800z",Larc,"Bibalan Dungeon -> 900z",Lbib,"Treasure Island -> 1000z",Ltre,"Cancel",Lcan;
		
		//Lpro:	if(Zeny<100) goto NoGold;	set Zeny,0-100;		warp "prontera.gat",156,190;	close;
		Lizl:	if(Zeny<200) goto NoGold;	set Zeny,0-200;		warp "izlude.gat",35,78;	close;
		Lgef:	if(Zeny<500) goto NoGold;	set Zeny,0-500;		warp "geffen.gat",120,64;	close;
		Lpay:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "payon.gat",90,29;		close;
		Lmor:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "morocc.gat",160,294;	close;
		Lald:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "aldebaran.gat",140,123;	close;
		Lorc:	if(Zeny<700) goto NoGold;	set Zeny,0-700;		warp "in_orcs01.gat",28,157;	close;
		Lpyr:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "moc_ruins.gat",58,161;	close;
		Lsph:	if(Zeny<950) goto NoGold;	set Zeny,0-950;		warp "moc_fild19.gat",105,99;	close;
		Larc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "pay_arche.gat",45,132;	close;
		Lbib:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "iz_dun00.gat",168,168;	close;
		Ltre:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alb2trea.gat",91,63;	close;
		Lalb:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alberta.gat",115,57;	close;
		Lcan:	close;
Lcart:
	mes "not available yet...use !option command for this";
	cutin "kafra_03",255;
	close;
NoGold:
	mes "[Kafra]";
	mes "Sorry, but you don't have enought Zeny's to Teleport to this place. Come back later.";
	close;

close;	}

//West Gate
prontera.gat,30,208,5	script	Kafra	115,{
cutin "kafra_01",2;
mes "[Kafra]";
mes "Welcome to Kafra Corp.We will stay with you wherever you go.";
next;
menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lteleport,"Rent a Cart",Lcart;
Lsave:
	save "prontera.gat",32,204;
	mes "Thank you come again!";
	cutin "kafra_01",255;
	close;
Lstorage:
	mes "not available yet...";
	cutin "kafra_01",255;
	close;
Lteleport:
	cutin "kafra_01",255;	
	menu	
		"Izlude Town -> 200z",Lizl,"Geffen Town -> 500z",Lgef,"Payon Town -> 800z",Lpay,"Alberta Town -> 1000z",Lalb,"Morocc Town -> 900z",Lmor,"Al De Baran Town -> 1000z",Lald,"Orc Dungeon -> 700z",Lorc,"Pyra Dungeon -> 900z",Lpyr,"Sphinx Dungeon -> 950z",Lsph,"Payon Dungeon -> 800z",Larc,"Bibalan Dungeon -> 900z",Lbib,"Treasure Island -> 1000z",Ltre,"Cancel",Lcan;
		
		//Lpro:	set Zeny,0-100;		warp "prontera.gat",156,190;	close;
		Lizl:	if(Zeny<200) goto NoGold;	set Zeny,0-200;		warp "izlude.gat",35,78;	close;
		Lgef:	if(Zeny<500) goto NoGold;	set Zeny,0-500;		warp "geffen.gat",120,64;	close;
		Lpay:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "payon.gat",90,29;		close;
		Lmor:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "morocc.gat",160,294;	close;
		Lald:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "aldebaran.gat",140,123;	close;
		Lorc:	if(Zeny<700) goto NoGold;	set Zeny,0-700;		warp "in_orcs01.gat",28,157;	close;
		Lpyr:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "moc_ruins.gat",58,161;	close;
		Lsph:	if(Zeny<950) goto NoGold;	set Zeny,0-950;		warp "moc_fild19.gat",105,99;	close;
		Larc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "pay_arche.gat",45,132;	close;
		Lbib:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "iz_dun00.gat",168,168;	close;
		Ltre:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alb2trea.gat",91,63;	close;
		Lalb:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alberta.gat",115,57;	close;
		Lcan:	close;
Lcart:
	mes "not available yet...use !option command for this";
	cutin "kafra_01",255;
	close;
NoGold:
	mes "[Kafra]";
	mes "Sorry, but you don't have enought Zeny's to Teleport to this place. Come back later.";
	close;	
close;	}

//East Gate
prontera.gat,281,208,3	script	Kafra	115,{
cutin "kafra_02",2;
mes "[Kafra]";
mes "Welcome to Kafra Corp.We will stay with you wherever you go.";
next;
menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lteleport,"Rent a Cart",Lcart;
Lsave:
	save "prontera.gat",279,205;
	mes "Thank you come again!";
	cutin "kafra_02",255;	close;
Lstorage:
	mes "not available yet...";
	cutin "kafra_02",255;	close;
Lteleport:
	cutin "kafra_02",255;	
	menu	
		"Izlude Town -> 200z",Lizl,"Geffen Town -> 500z",Lgef,"Payon Town -> 800z",Lpay,"Alberta Town -> 1000z",Lalb,"Morocc Town -> 900z",Lmor,"Al De Baran Town -> 1000z",Lald,"Orc Dungeon -> 700z",Lorc,"Pyra Dungeon -> 900z",Lpyr,"Sphinx Dungeon -> 950z",Lsph,"Payon Dungeon -> 800z",Larc,"Bibalan Dungeon -> 900z",Lbib,"Treasure Island -> 1000z",Ltre,"Cancel",Lcan;
		
		//Lpro:	set Zeny,0-100;		warp "prontera.gat",156,190;	close;
		Lizl:	if(Zeny<200) goto NoGold;	set Zeny,0-200;		warp "izlude.gat",35,78;	close;
		Lgef:	if(Zeny<500) goto NoGold;	set Zeny,0-500;		warp "geffen.gat",120,64;	close;
		Lpay:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "payon.gat",90,29;		close;
		Lmor:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "morocc.gat",160,294;	close;
		Lald:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "aldebaran.gat",140,123;	close;
		Lorc:	if(Zeny<700) goto NoGold;	set Zeny,0-700;		warp "in_orcs01.gat",28,157;	close;
		Lpyr:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "moc_ruins.gat",58,161;	close;
		Lsph:	if(Zeny<950) goto NoGold;	set Zeny,0-950;		warp "moc_fild19.gat",105,99;	close;
		Larc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "pay_arche.gat",45,132;	close;
		Lbib:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "iz_dun00.gat",168,168;	close;
		Ltre:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alb2trea.gat",91,63;	close;
		Lalb:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alberta.gat",115,57;	close;
		Lcan:	close;
Lcart:
	mes "not available yet...use !option command for this";
	cutin "kafra_02",255;	close;
NoGold:
	mes "[Kafra]";
	mes "Sorry, but you don't have enought Zeny's to Teleport to this place. Come back later.";
	close;	
close;	}

//GEFFEN
//West Gate
geffen.gat,122,203,5	script	Kafra	115,{
cutin "kafra_04",2;
mes "[Kafra]";
mes "Welcome to Kafra Corp.We will stay with you wherever you go.";
next;
menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lteleport,"Rent a Cart",Lcart;
Lsave:
	save "geffen.gat",120,200;
	mes "Thank you come again!";
	cutin "kafra_04",255;	close;
Lstorage:
	mes "not available yet...";
	cutin "kafra_04",255;	close;
Lteleport:
	cutin "kafra_04",255;	
	menu	
		"Prontera Town -> 500z",Lpro,"Izlude Town -> 600z",Lizl,"Payon Town -> 900z",Lpay,"Alberta Town -> 1000z",Lalb,"Morocc Town -> 800z",Lmor,"Al De Baran Town -> 900z",Lald,"Orc Dungeon -> 800z",Lorc,"Pyra Dungeon -> 700z",Lpyr,"Sphinx Dungeon -> 750z",Lsph,"Payon Dungeon -> 800z",Larc,"Bibalan Dungeon -> 900z",Lbib,"Treasure Island -> 1000z",Ltre,"Cancel",Lcan;
		
		Lpro:	if(Zeny<500) goto NoGold;	set Zeny,0-500;		warp "prontera.gat",156,190;	close;
		Lizl:	if(Zeny<600) goto NoGold;	set Zeny,0-600;		warp "izlude.gat",35,78;	close;
		//Lgef:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "geffen.gat",120,64;	close;
		Lpay:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "payon.gat",90,29;		close;
		Lmor:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "morocc.gat",160,294;	close;
		Lald:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "aldebaran.gat",140,123;	close;
		Lorc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "in_orcs01.gat",28,157;	close;
		Lpyr:	if(Zeny<700) goto NoGold;	set Zeny,0-700;		warp "moc_ruins.gat",58,161;	close;
		Lsph:	if(Zeny<750) goto NoGold;	set Zeny,0-750;		warp "moc_fild19.gat",105,99;	close;
		Larc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "pay_arche.gat",45,132;	close;
		Lbib:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "iz_dun00.gat",168,168;	close;
		Ltre:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alb2trea.gat",91,63;	close;
		Lalb:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alberta.gat",115,57;	close;
		Lcan:	close;
Lcart:
	mes "not available yet...use !option command for this";
	cutin "kafra_04",255;	close;
NoGold:
	mes "[Kafra]";
	mes "Sorry, but you don't have enought Zeny's to Teleport to this place. Come back later.";
	close;	
close;	}

//East Gate
geffen.gat,202,123,3	script	Kafra	115,{
cutin "kafra_02",2;
mes "[Kafra]";
mes "Welcome to Kafra Corp.We will stay with you wherever you go.";
next;
menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lteleport,"Rent a Cart",Lcart;
Lsave:
	save "geffen.gat",200,120;
	mes "Thank you come again!";
	cutin "kafra_02",255;	close;
Lstorage:
	mes "not available yet...";
	cutin "kafra_02",255;	close;
Lteleport:
	cutin "kafra_04",255;	
	menu	
		"Prontera Town -> 500z",Lpro,"Izlude Town -> 600z",Lizl,"Payon Town -> 900z",Lpay,"Alberta Town -> 1000z",Lalb,"Morocc Town -> 800z",Lmor,"Al De Baran Town -> 900z",Lald,"Orc Dungeon -> 800z",Lorc,"Pyra Dungeon -> 700z",Lpyr,"Sphinx Dungeon -> 750z",Lsph,"Payon Dungeon -> 800z",Larc,"Bibalan Dungeon -> 900z",Lbib,"Treasure Island -> 1000z",Ltre,"Cancel",Lcan;
		
		Lpro:	if(Zeny<500) goto NoGold;	set Zeny,0-500;		warp "prontera.gat",156,190;	close;
		Lizl:	if(Zeny<600) goto NoGold;	set Zeny,0-600;		warp "izlude.gat",35,78;	close;
		//Lgef:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "geffen.gat",120,64;	close;
		Lpay:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "payon.gat",90,29;		close;
		Lmor:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "morocc.gat",160,294;	close;
		Lald:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "aldebaran.gat",140,123;	close;
		Lorc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "in_orcs01.gat",28,157;	close;
		Lpyr:	if(Zeny<700) goto NoGold;	set Zeny,0-700;		warp "moc_ruins.gat",58,161;	close;
		Lsph:	if(Zeny<750) goto NoGold;	set Zeny,0-750;		warp "moc_fild19.gat",105,99;	close;
		Larc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "pay_arche.gat",45,132;	close;
		Lbib:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "iz_dun00.gat",168,168;	close;
		Ltre:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alb2trea.gat",91,63;	close;
		Lalb:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alberta.gat",115,57;	close;
		Lcan:	close;
Lcart:
	mes "not available yet...use !option command for this";
	cutin "kafra_02",255;	close;
NoGold:
	mes "[Kafra]";
	mes "Sorry, but you don't have enought Zeny's to Teleport to this place. Come back later.";
	close;	
close;	}

//North Gate
geffen.gat,38,122,5	script	Kafra	115,{
cutin "kafra_01",2;
mes "[Kafra]";
mes "Welcome to Kafra Corp.We will stay with you wherever you go.";
next;
menu "Save",Lsave,"Use Storage",Lstorage,"Use Teleport Service",Lteleport,"Rent a Cart",Lcart;
Lsave:
	save "geffen.gat",41,119;
	mes "Thank you come again!";
	cutin "kafra_01",255;	close;
Lstorage:
	mes "not available yet...";
	cutin "kafra_01",255;	close;
Lteleport:
	cutin "kafra_01",255;	
	menu	
		"Prontera Town -> 500z",Lpro,"Izlude Town -> 600z",Lizl,"Payon Town -> 900z",Lpay,"Alberta Town -> 1000z",Lalb,"Morocc Town -> 800z",Lmor,"Al De Baran Town -> 900z",Lald,"Orc Dungeon -> 800z",Lorc,"Pyra Dungeon -> 700z",Lpyr,"Sphinx Dungeon -> 750z",Lsph,"Payon Dungeon -> 800z",Larc,"Bibalan Dungeon -> 900z",Lbib,"Treasure Island -> 1000z",Ltre,"Cancel",Lcan;
		
		Lpro:	if(Zeny<500) goto NoGold;	set Zeny,0-500;		warp "prontera.gat",156,190;	close;
		Lizl:	if(Zeny<600) goto NoGold;	set Zeny,0-600;		warp "izlude.gat",35,78;	close;
		//Lgef:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "geffen.gat",120,64;	close;
		Lpay:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "payon.gat",90,29;		close;
		Lmor:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "morocc.gat",160,294;	close;
		Lald:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "aldebaran.gat",140,123;	close;
		Lorc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "in_orcs01.gat",28,157;	close;
		Lpyr:	if(Zeny<700) goto NoGold;	set Zeny,0-700;		warp "moc_ruins.gat",58,161;	close;
		Lsph:	if(Zeny<750) goto NoGold;	set Zeny,0-750;		warp "moc_fild19.gat",105,99;	close;
		Larc:	if(Zeny<800) goto NoGold;	set Zeny,0-800;		warp "pay_arche.gat",45,132;	close;
		Lbib:	if(Zeny<900) goto NoGold;	set Zeny,0-900;		warp "iz_dun00.gat",168,168;	close;
		Ltre:	if(Zeny<1000) goto NoGold;	set Zeny,0-1000;	warp "alb2trea.gat",91,63;	close;