Jump to content
  • 0

Does anyone have this script? Poring Roulette

iraciz

Asked by iraciz,

 Share

Question

iraciz Poporing

iraciz

Posted
Posted (edited)

 

This is a poring roulette I have been loking for, you bet coins and if it stops at your chosen poring you will win xtimes the invested coins, this script is around 8 years old and the links are no more availbale, If someone remember it, and have a copy,  could you share? 

 

poring_slots.jpg.c220cbc710c1cb68b6ecdae4c8238904.jpg

Edited by iraciz

7 answers to this question

Recommended Posts

  • 0
iraciz Poporing

iraciz

Posted
  • Author
Posted

Ok there you go, first you have to follow this indications:

1- add the gold poring mob if you are running pre-re, this is the indicator were the point is going, I  used this mob to replace the original portal npc. 

2248,GOLDPORING,Golden Poring,Golden Poring,50,10000,0,0,0,1,300,300,2,5,6,1,1,0,6,5,10,12,0,3,21,0x83,400,1872,672,480,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

 2- check the coordinates and locate them in a proper map,  my poring_w01 map is modified in gats and objetcs. 

//=-=-=-=-=-=-=-= Script by ColoExpress =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-= 2010 - 2011 Develop present =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-= Powered By www.coloexpress.in.th =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-=Fix and translation in spanish by iraciz=-=-=-=-=-=-=-=

-	script	PoringSlotsCh	-1,{
	end;

OnInit:
	set $PSItem,7539;
	set $PSre,7539; //Prize
	set $NMItem,1;
	end;
}

poring_w01,74,78,6	duplicate(PoringSlotsCh)	PoringSlots#01	1002
poring_w01,76,78,6	duplicate(PoringSlotsCh)	PoringSlots#02	1002
poring_w01,78,78,6	duplicate(PoringSlotsCh)	PoringSlots#03	1031
poring_w01,80,78,6	duplicate(PoringSlotsCh)	PoringSlots#04	1113
poring_w01,82,78,6	duplicate(PoringSlotsCh)	PoringSlots#05	1002
poring_w01,84,78,6	duplicate(PoringSlotsCh)	PoringSlots#06	950
poring_w01,86,78,6	duplicate(PoringSlotsCh)	PoringSlots#07	1002
poring_w01,88,78,6	duplicate(PoringSlotsCh)	PoringSlots#08	1096
poring_w01,90,78,6	duplicate(PoringSlotsCh)	PoringSlots#09	1002
poring_w01,92,78,6	duplicate(PoringSlotsCh)	PoringSlots#10	1113

poring_w01,92,76,6	duplicate(PoringSlotsCh)	PoringSlots#11	1031
poring_w01,92,74,6	duplicate(PoringSlotsCh)	PoringSlots#12	1031
poring_w01,92,72,6	duplicate(PoringSlotsCh)	PoringSlots#13	1002
poring_w01,92,70,6	duplicate(PoringSlotsCh)	PoringSlots#14	1113

poring_w01,92,68,6	duplicate(PoringSlotsCh)	PoringSlots#15	1002
poring_w01,90,68,6	duplicate(PoringSlotsCh)	PoringSlots#16	1031
poring_w01,88,68,6	duplicate(PoringSlotsCh)	PoringSlots#17	1002
poring_w01,86,68,6	duplicate(PoringSlotsCh)	PoringSlots#18	1113
poring_w01,84,68,6	duplicate(PoringSlotsCh)	PoringSlots#19	1002
poring_w01,82,68,6	duplicate(PoringSlotsCh)	PoringSlots#20	950
poring_w01,80,68,6	duplicate(PoringSlotsCh)	PoringSlots#21	1002
poring_w01,78,68,6	duplicate(PoringSlotsCh)	PoringSlots#22	1031
poring_w01,76,68,6	duplicate(PoringSlotsCh)	PoringSlots#23	1113
poring_w01,74,68,6	duplicate(PoringSlotsCh)	PoringSlots#24	1002

poring_w01,74,70,6	duplicate(PoringSlotsCh)	PoringSlots#25	1388 
poring_w01,74,72,6	duplicate(PoringSlotsCh)	PoringSlots#26	1113
poring_w01,74,74,6	duplicate(PoringSlotsCh)	PoringSlots#27	1002
poring_w01,74,76,6	duplicate(PoringSlotsCh)	PoringSlots#28	1096

poring_w01,74,78,6	script	PoringSlotsPoint	2248,1,1,{}

-	script	PoringSlotsSetter	-1,{

OnInit:
								//--TOP					//--RIGHT					//BOTTOM						//LEFT
	setarray $PoringSlotsX,74,76,78,80,82,84,86,88,90,	92,92,92,92,92,		92,90,88,86,84,82,80,78,76,74,		74,74,74,74,74;
	setarray $PoringSlotsY,78,78,78,78,78,78,78,78,78,	78,76,74,72,70,		68,68,68,68,68,68,68,68,68,68,		70,72,74,76,78;


	set $@PoringSlotsPlaying,	0;
	set $@PoringSlotsRunning,	0;

	donpcevent "PoringSlotsChoose#01::OnResetRoom";
	donpcevent "PoringSlotsChoose#02::OnResetRoom";
	donpcevent "PoringSlotsChoose#03::OnResetRoom";
	donpcevent "PoringSlotsChoose#04::OnResetRoom";
	donpcevent "PoringSlotsChoose#05::OnResetRoom";
	end;
}

poring_w01,82,73,6	script	Poring Slots Play	693,{

	mes "[ Poring Slots Play ]";
	mes "Bienvenido a la ruleta poring";
	mes "Antes de girar la ruleta, procura hacer tus apuestas ok? ";
	mes "- Se cobra [ ^9900FF" +$NMItem+ "^000000 ] ^00AA55"+getitemname($PSItem)+"^000000 por lanzamiento.";
	next;
	if(select("- Girar la Ruleta","- Cancelar")==2)
		close;
	if($@PoringSlotsPlaying==1){
		mes "[ Poring Slots Play ]";
		mes "Ya hay un lanzamiento en fila. Debes esperar que termine para iniciar otro.";
		close;
	}
	if(countitem($PSItem)<$NMItem){
		mes "[ Poring Slots Play ]";
		mes " No tienes la cantidad necesaria de monedas para girar la ruleta.";
		close;
	}
	delitem $PSItem,$NMItem;
	mes "[ Poring Slots Play ]";
	mes "Comenzamos..";
	donpcevent "Poring Slots Play::OnPoringSlotsAnnounce";
	close;

OnPoringSlotsAnnounce:
	set $@PoringSlotsPlaying,1;
	mapannounce "poring_w01","[ PoringSlots ] : Atencion a todos, la ruleta va a dar inicio en 1 Minuto a partir de este momento.",bc_map;
	
	sleep 20000;
	npctalk "La ruleta va a girar dentro 40 segundos, vayan cerrando sus apuestas.";
	sleep 20000;
	npctalk "Dentro de poco iniciara el lanzamiento! quedan 20 Segundos";
	sleep 5000;
	npctalk "15 segundos restantes para el lanzamiento dela ruleta Poring.";
	sleep 5000;
	npctalk "Inicia el conteo regresivo de 10 segundos.";
	sleep 1000; npctalk "9";
	sleep 1000; npctalk "8";
	sleep 1000; npctalk "7";
	sleep 1000; npctalk "6";
	sleep 1000; npctalk "5";
	sleep 1000; npctalk "4";
	sleep 1000; npctalk "3";
	sleep 1000; npctalk "2";
	sleep 1000; npctalk "1";
	sleep 1000; npctalk "It's Show Time!!";	
	donpcevent "Poring Slots Play::OnPoringSlotsPlaying";
	end;

OnPoringSlotsPlaying:
	set $@PoringSlotsRunning,1;
	set $PoringSlotsRound,$PoringSlotsRound+1;
	set $@PoringSlotsSpeed,10;
		for(set $@PoringSlotsRound,0;$@PoringSlotsRound<8;set $@PoringSlotsRound,$@PoringSlotsRound+1){
			set $@PoringSlotsTemp,rand(20,40);
			for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
				movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
				set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
				if($@PoringSlotsPoint>=28)
				set $@PoringSlotsPoint,0;
				sleep $@PoringSlotsSpeed;
			}
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+10;
		}
	set $@PoringSlotsTemp,rand(5,10);
		for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
			movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
			set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
			if($@PoringSlotsPoint>=28)
			set $@PoringSlotsPoint,0;
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+100;
			sleep $@PoringSlotsSpeed;
		}
	set $@PoringSlotsTemp,rand(8,15);
		for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
			movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
			set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
			if($@PoringSlotsPoint>=28)
			set $@PoringSlotsPoint,0;
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+150;
			sleep $@PoringSlotsSpeed;
		}
	switch($@PoringSlotsPoint)
	{
		case 6:case 20:
			set $FSC_Win,0;break;
		case 1:case 2:case 5:case 7:case 9:case 12:case 13:case 15:case 17:case 19:case 21:case 24:case 27:
			set $FSC_Win,1;break;
		case 4:case 10:case 14:case 18:case 23:case 26:
			set $FSC_Win,2;break;
		case 3:case 11:case 16:case 22:
			set $FSC_Win,3;break;
		case 8:case 0:
			set $FSC_Win,4;break;
		case 25:
			set $FSC_Win,5;break;
	}
	specialeffect 577;
	if($FSC_Win==0) { npctalk "Ups.. se detuvo en un Ghostring"; sleep 1000; npctalk "Todos Pierden... Muahaha!!!"; }
	if($FSC_Win==1) { npctalk "La ruleta se detuvo en Poring, Aquel que aposto al poring ha ganado del doble de la inversion!"; sleep 1000; npctalk "Quien haya ganado, retire su premio!"; }
	if($FSC_Win==2) { npctalk "La ruleta se detuvo en Drops, Aquel que aposto al Drops, ganaria el Triple de la Inversion"; sleep 1000; npctalk "Quien haya ganado, retire su premio!"; }
	if($FSC_Win==3) { npctalk "La ruleta se detuvo en Poporing"; sleep 1000; npctalk "Gana x 5 tu inversion"; sleep 1000; npctalk "Retiren su premio si han ganado!"; }
	if($FSC_Win==4) { npctalk "La ruleta se detuvo en el exquisito Angeling.. multiplicando la inversion x9"; sleep 1000; npctalk "El feliz ganador puede retirar su botin!"; }
	if($FSC_Win==5) { npctalk "Oh por Dios, La ruleta se detuvo en el el Arch Angeling..."; sleep 1000; npctalk "Quien haya apostado al Arch Angeling habra multiplicado » 17 Veces lo que invirtio!!";}

	donpcevent "PoringSlotsChoose#01::OnResetRoom";
	donpcevent "PoringSlotsChoose#02::OnResetRoom";
	donpcevent "PoringSlotsChoose#03::OnResetRoom";
	donpcevent "PoringSlotsChoose#04::OnResetRoom";
	donpcevent "PoringSlotsChoose#05::OnResetRoom";
	donpcevent "PoringSlotsChoose#0"+$FSC_Win+"::OnEffect";
	set $@PoringSlotsPlaying,0;
	set $@PoringSlotsRunning,0;
	end;
}

function	script	FuncPoringSlotsChoose	{

	if($@PoringSlotsRunning==1){
		mes "[ Poring Slots Play ]";
		mes "- Hay un juego en proceso";
		mes "- debes esperar que termine para volver a apostar.";
		close;
		end;
	}

	set .@FSC_Poring,getarg(0);
	set .@FSC_GetPoint,getarg(1);

	if(getd("FSC_Coin"+.@FSC_Poring)>0){
		if(getd("PoringSlotsRound"+.@FSC_Poring)==$PoringSlotsRound-1&&.@FSC_Poring==$FSC_Win){
			set .@FSC_Temp,getd("FSC_Coin"+.@FSC_Poring)*.@FSC_GetPoint;
			getitem $PSRe,.@FSC_Temp;
			specialeffect2 18;
			setd "FSC_Coin"+.@FSC_Poring,0;
			mes "[ Poring Slots Play ]";
			mes "- Ganaste la bolsa de ^00AA55"+getitemname($PSRe)+"^000000";
			mes "- Premio [ ^AA3366"+.@FSC_Temp+"^000000 ]";
			close;
		}
	}
	mes "[ Poring Slots Play ]";
	mes "Deseas apostar ^00AA55"+getitemname($PSItem)+"^000000?";
	mes "- Ganaras ^0000FF"+getitemname($PSRe)+" * "+.@FSC_GetPoint+"^000000 ";
	if(getd("FSC_Coin"+.@FSC_Poring)!=0&&getd("PoringSlotsRound"+.@FSC_Poring)==$PoringSlotsRound){
		mes "- La bolsa actual es [ ^AA3333"+getd("FSC_Coin"+.@FSC_Poring)+"^000000 ]";
		mes "- Habla conmigo despues de girar y te entregare tu premio.";
		close;
	}
	mes "^FF0000Consejos:^000000";	
	mes "El stack maximo es de ^FF000030,000 Coins^000000";
	mes "Conserva monedas para pagar el lanzamiento.";
	next;
	input .@FSC_Input;
	mes "[ Poring Slots Play ]";
	mes "- Haz ingresado [ ^2236BB"+.@FSC_Input+"^000000 ] unidades.";
	next;
	if(select("- Confirmar","- Cambie de idea")==2)
		close;
	if(countitem($PSItem)<.@FSC_Input){
		mes "[ Poring Slots Play ]";
		mes "No tienes suficientes  [ ^2236BB"+getitemname($PSItem)+"^000000 ] para la cantidad que elegiste.";
		close;
		return;
	}
	if(.@FSC_Input==0){
		mes "[ Poring Slots Play ]";
		mes "Debes apostar como minimo ^0000FF1^000000 moneda..";
		close;
		return;
	}
	delitem $PSItem,.@FSC_Input;
	setd "FSC_Coin"+.@FSC_Poring,.@FSC_Input;
	delwaitingroom "PoringSlotsChoose#0"+.@FSC_Poring;
	setd "$FSC_Coin"+.@FSC_Poring,getd("$FSC_Coin"+.@FSC_Poring)+.@FSC_Input;
	setd "$FSC_Player"+.@FSC_Poring,getd("$FSC_Player"+.@FSC_Poring)+1;
	waitingroom "Bets ["+getd("$FSC_Player"+.@FSC_Poring)+"] Inv ["+getd("$FSC_Coin"+.@FSC_Poring)+"]",0;
	setd "PoringSlotsRound"+.@FSC_Poring,$PoringSlotsRound;
	mes "[ Poring Slots Play ]";
	mes "Tu apuesta ha sido registrada, todavia puedes apostar a otros porings o lanzar la ruleta.";
	mes "Buena suerte.";
	close;
	return;
}

poring_w01,96,80,4	script	PoringSlotsChoose#01	1002,{
	callfunc("FuncPoringSlotsChoose",1,2);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#01";
	set $FSC_Coin1,0;
	set $FSC_Player1,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,96,75,4	script	PoringSlotsChoose#02	1113,{
	callfunc("FuncPoringSlotsChoose",2,3);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#02";
	set $FSC_Coin2,0;
	set $FSC_Player2,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,96,70,4	script	PoringSlotsChoose#03	1031,{
	callfunc("FuncPoringSlotsChoose",3,5);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#03";
	set $FSC_Coin3,0;
	set $FSC_Player3,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,101,72,4	script	PoringSlotsChoose#04	1096,{
	callfunc("FuncPoringSlotsChoose",4,9);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#04";
	set $FSC_Coin4,0;
	set $FSC_Player4,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,101,77,4	script	PoringSlotsChoose#05	1388 ,{
	callfunc("FuncPoringSlotsChoose",5,17);
	end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#05";
	set $FSC_Coin5,0;
	set $FSC_Player5,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

 

  • 0
iraciz Poporing

iraciz

Posted
  • Author
Posted (edited)

Bro... why that creepy language? 

	npctalk "·èÒ¹ã´á·§àÍÒäÇéä´é¶Ù¡µéͧ ÃÕºä»ÃѺÃÒ§ÇÑÅ´éÇÂËÅèÐ";
	sleep 10000;
	npctalk "·èÒ¹ã´ÂѧäÁèä´éá·§Ãպᷧà¢éÒËÅèÐ ÁÕàÇÅÒÍÕ¡ 40 ÇÔ¹Ò·Õ";
	sleep 10000;
	npctalk "µÍ¹¹ÕéàËÅ×ÍàÇÅÒÍÕ¡à¾Õ§ 30 ÇÔ¹Ò·ÕáÅéÇ";
	sleep 10000;
	npctalk "àËÅ×ÍàÇÅÒÍÕ¡ 20 ÇÔ¹Ò·ÕÊØ´·éÒÂ";
	sleep 10000;
	npctalk "¢éҨйѺ¶ÍÂËÅѧ 10 ÇÔ¹Ò·Õ";

And those Monsters Ids?, Where is this script from? Thailand? Located in an extint morroc map... even before satan.. now they are inside the new buildings.. anyway.. I think this will take several hours of work..  to make it usable... 

 

I managed to get it work in latest revision, after several hours of deduction and common sense, I managed to  find out how it works, and what this hardcoded NPC dialog was trying to explain.....

Damm... I will share it soon...

Edited by iraciz
bad section
  • 0
LearningRO Magmaring

LearningRO

Posted
Posted
7 hours ago, iraciz said:

Ok there you go, first you have to follow this indications:

1- add the gold poring mob if you are running pre-re, this is the indicator were the point is going, I  used this mob to replace the original portal npc. 


2248,GOLDPORING,Golden Poring,Golden Poring,50,10000,0,0,0,1,300,300,2,5,6,1,1,0,6,5,10,12,0,3,21,0x83,400,1872,672,480,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

 2- check the coordinates and locate them in a proper map,  my poring_w01 map is modified in gats and objetcs. 


//=-=-=-=-=-=-=-= Script by ColoExpress =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-= 2010 - 2011 Develop present =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-= Powered By www.coloexpress.in.th =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-=Fix and translation in spanish by iraciz=-=-=-=-=-=-=-=

-	script	PoringSlotsCh	-1,{
	end;

OnInit:
	set $PSItem,7539;
	set $PSre,7539; //Prize
	set $NMItem,1;
	end;
}

poring_w01,74,78,6	duplicate(PoringSlotsCh)	PoringSlots#01	1002
poring_w01,76,78,6	duplicate(PoringSlotsCh)	PoringSlots#02	1002
poring_w01,78,78,6	duplicate(PoringSlotsCh)	PoringSlots#03	1031
poring_w01,80,78,6	duplicate(PoringSlotsCh)	PoringSlots#04	1113
poring_w01,82,78,6	duplicate(PoringSlotsCh)	PoringSlots#05	1002
poring_w01,84,78,6	duplicate(PoringSlotsCh)	PoringSlots#06	950
poring_w01,86,78,6	duplicate(PoringSlotsCh)	PoringSlots#07	1002
poring_w01,88,78,6	duplicate(PoringSlotsCh)	PoringSlots#08	1096
poring_w01,90,78,6	duplicate(PoringSlotsCh)	PoringSlots#09	1002
poring_w01,92,78,6	duplicate(PoringSlotsCh)	PoringSlots#10	1113

poring_w01,92,76,6	duplicate(PoringSlotsCh)	PoringSlots#11	1031
poring_w01,92,74,6	duplicate(PoringSlotsCh)	PoringSlots#12	1031
poring_w01,92,72,6	duplicate(PoringSlotsCh)	PoringSlots#13	1002
poring_w01,92,70,6	duplicate(PoringSlotsCh)	PoringSlots#14	1113

poring_w01,92,68,6	duplicate(PoringSlotsCh)	PoringSlots#15	1002
poring_w01,90,68,6	duplicate(PoringSlotsCh)	PoringSlots#16	1031
poring_w01,88,68,6	duplicate(PoringSlotsCh)	PoringSlots#17	1002
poring_w01,86,68,6	duplicate(PoringSlotsCh)	PoringSlots#18	1113
poring_w01,84,68,6	duplicate(PoringSlotsCh)	PoringSlots#19	1002
poring_w01,82,68,6	duplicate(PoringSlotsCh)	PoringSlots#20	950
poring_w01,80,68,6	duplicate(PoringSlotsCh)	PoringSlots#21	1002
poring_w01,78,68,6	duplicate(PoringSlotsCh)	PoringSlots#22	1031
poring_w01,76,68,6	duplicate(PoringSlotsCh)	PoringSlots#23	1113
poring_w01,74,68,6	duplicate(PoringSlotsCh)	PoringSlots#24	1002

poring_w01,74,70,6	duplicate(PoringSlotsCh)	PoringSlots#25	1388 
poring_w01,74,72,6	duplicate(PoringSlotsCh)	PoringSlots#26	1113
poring_w01,74,74,6	duplicate(PoringSlotsCh)	PoringSlots#27	1002
poring_w01,74,76,6	duplicate(PoringSlotsCh)	PoringSlots#28	1096

poring_w01,74,78,6	script	PoringSlotsPoint	2248,1,1,{}

-	script	PoringSlotsSetter	-1,{

OnInit:
								//--TOP					//--RIGHT					//BOTTOM						//LEFT
	setarray $PoringSlotsX,74,76,78,80,82,84,86,88,90,	92,92,92,92,92,		92,90,88,86,84,82,80,78,76,74,		74,74,74,74,74;
	setarray $PoringSlotsY,78,78,78,78,78,78,78,78,78,	78,76,74,72,70,		68,68,68,68,68,68,68,68,68,68,		70,72,74,76,78;


	set $@PoringSlotsPlaying,	0;
	set $@PoringSlotsRunning,	0;

	donpcevent "PoringSlotsChoose#01::OnResetRoom";
	donpcevent "PoringSlotsChoose#02::OnResetRoom";
	donpcevent "PoringSlotsChoose#03::OnResetRoom";
	donpcevent "PoringSlotsChoose#04::OnResetRoom";
	donpcevent "PoringSlotsChoose#05::OnResetRoom";
	end;
}

poring_w01,82,73,6	script	Poring Slots Play	693,{

	mes "[ Poring Slots Play ]";
	mes "Bienvenido a la ruleta poring";
	mes "Antes de girar la ruleta, procura hacer tus apuestas ok? ";
	mes "- Se cobra [ ^9900FF" +$NMItem+ "^000000 ] ^00AA55"+getitemname($PSItem)+"^000000 por lanzamiento.";
	next;
	if(select("- Girar la Ruleta","- Cancelar")==2)
		close;
	if($@PoringSlotsPlaying==1){
		mes "[ Poring Slots Play ]";
		mes "Ya hay un lanzamiento en fila. Debes esperar que termine para iniciar otro.";
		close;
	}
	if(countitem($PSItem)<$NMItem){
		mes "[ Poring Slots Play ]";
		mes " No tienes la cantidad necesaria de monedas para girar la ruleta.";
		close;
	}
	delitem $PSItem,$NMItem;
	mes "[ Poring Slots Play ]";
	mes "Comenzamos..";
	donpcevent "Poring Slots Play::OnPoringSlotsAnnounce";
	close;

OnPoringSlotsAnnounce:
	set $@PoringSlotsPlaying,1;
	mapannounce "poring_w01","[ PoringSlots ] : Atencion a todos, la ruleta va a dar inicio en 1 Minuto a partir de este momento.",bc_map;
	
	sleep 20000;
	npctalk "La ruleta va a girar dentro 40 segundos, vayan cerrando sus apuestas.";
	sleep 20000;
	npctalk "Dentro de poco iniciara el lanzamiento! quedan 20 Segundos";
	sleep 5000;
	npctalk "15 segundos restantes para el lanzamiento dela ruleta Poring.";
	sleep 5000;
	npctalk "Inicia el conteo regresivo de 10 segundos.";
	sleep 1000; npctalk "9";
	sleep 1000; npctalk "8";
	sleep 1000; npctalk "7";
	sleep 1000; npctalk "6";
	sleep 1000; npctalk "5";
	sleep 1000; npctalk "4";
	sleep 1000; npctalk "3";
	sleep 1000; npctalk "2";
	sleep 1000; npctalk "1";
	sleep 1000; npctalk "It's Show Time!!";	
	donpcevent "Poring Slots Play::OnPoringSlotsPlaying";
	end;

OnPoringSlotsPlaying:
	set $@PoringSlotsRunning,1;
	set $PoringSlotsRound,$PoringSlotsRound+1;
	set $@PoringSlotsSpeed,10;
		for(set $@PoringSlotsRound,0;$@PoringSlotsRound<8;set $@PoringSlotsRound,$@PoringSlotsRound+1){
			set $@PoringSlotsTemp,rand(20,40);
			for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
				movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
				set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
				if($@PoringSlotsPoint>=28)
				set $@PoringSlotsPoint,0;
				sleep $@PoringSlotsSpeed;
			}
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+10;
		}
	set $@PoringSlotsTemp,rand(5,10);
		for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
			movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
			set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
			if($@PoringSlotsPoint>=28)
			set $@PoringSlotsPoint,0;
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+100;
			sleep $@PoringSlotsSpeed;
		}
	set $@PoringSlotsTemp,rand(8,15);
		for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
			movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
			set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
			if($@PoringSlotsPoint>=28)
			set $@PoringSlotsPoint,0;
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+150;
			sleep $@PoringSlotsSpeed;
		}
	switch($@PoringSlotsPoint)
	{
		case 6:case 20:
			set $FSC_Win,0;break;
		case 1:case 2:case 5:case 7:case 9:case 12:case 13:case 15:case 17:case 19:case 21:case 24:case 27:
			set $FSC_Win,1;break;
		case 4:case 10:case 14:case 18:case 23:case 26:
			set $FSC_Win,2;break;
		case 3:case 11:case 16:case 22:
			set $FSC_Win,3;break;
		case 8:case 0:
			set $FSC_Win,4;break;
		case 25:
			set $FSC_Win,5;break;
	}
	specialeffect 577;
	if($FSC_Win==0) { npctalk "Ups.. se detuvo en un Ghostring"; sleep 1000; npctalk "Todos Pierden... Muahaha!!!"; }
	if($FSC_Win==1) { npctalk "La ruleta se detuvo en Poring, Aquel que aposto al poring ha ganado del doble de la inversion!"; sleep 1000; npctalk "Quien haya ganado, retire su premio!"; }
	if($FSC_Win==2) { npctalk "La ruleta se detuvo en Drops, Aquel que aposto al Drops, ganaria el Triple de la Inversion"; sleep 1000; npctalk "Quien haya ganado, retire su premio!"; }
	if($FSC_Win==3) { npctalk "La ruleta se detuvo en Poporing"; sleep 1000; npctalk "Gana x 5 tu inversion"; sleep 1000; npctalk "Retiren su premio si han ganado!"; }
	if($FSC_Win==4) { npctalk "La ruleta se detuvo en el exquisito Angeling.. multiplicando la inversion x9"; sleep 1000; npctalk "El feliz ganador puede retirar su botin!"; }
	if($FSC_Win==5) { npctalk "Oh por Dios, La ruleta se detuvo en el el Arch Angeling..."; sleep 1000; npctalk "Quien haya apostado al Arch Angeling habra multiplicado » 17 Veces lo que invirtio!!";}

	donpcevent "PoringSlotsChoose#01::OnResetRoom";
	donpcevent "PoringSlotsChoose#02::OnResetRoom";
	donpcevent "PoringSlotsChoose#03::OnResetRoom";
	donpcevent "PoringSlotsChoose#04::OnResetRoom";
	donpcevent "PoringSlotsChoose#05::OnResetRoom";
	donpcevent "PoringSlotsChoose#0"+$FSC_Win+"::OnEffect";
	set $@PoringSlotsPlaying,0;
	set $@PoringSlotsRunning,0;
	end;
}

function	script	FuncPoringSlotsChoose	{

	if($@PoringSlotsRunning==1){
		mes "[ Poring Slots Play ]";
		mes "- Hay un juego en proceso";
		mes "- debes esperar que termine para volver a apostar.";
		close;
		end;
	}

	set .@FSC_Poring,getarg(0);
	set .@FSC_GetPoint,getarg(1);

	if(getd("FSC_Coin"+.@FSC_Poring)>0){
		if(getd("PoringSlotsRound"+.@FSC_Poring)==$PoringSlotsRound-1&&.@FSC_Poring==$FSC_Win){
			set .@FSC_Temp,getd("FSC_Coin"+.@FSC_Poring)*.@FSC_GetPoint;
			getitem $PSRe,.@FSC_Temp;
			specialeffect2 18;
			setd "FSC_Coin"+.@FSC_Poring,0;
			mes "[ Poring Slots Play ]";
			mes "- Ganaste la bolsa de ^00AA55"+getitemname($PSRe)+"^000000";
			mes "- Premio [ ^AA3366"+.@FSC_Temp+"^000000 ]";
			close;
		}
	}
	mes "[ Poring Slots Play ]";
	mes "Deseas apostar ^00AA55"+getitemname($PSItem)+"^000000?";
	mes "- Ganaras ^0000FF"+getitemname($PSRe)+" * "+.@FSC_GetPoint+"^000000 ";
	if(getd("FSC_Coin"+.@FSC_Poring)!=0&&getd("PoringSlotsRound"+.@FSC_Poring)==$PoringSlotsRound){
		mes "- La bolsa actual es [ ^AA3333"+getd("FSC_Coin"+.@FSC_Poring)+"^000000 ]";
		mes "- Habla conmigo despues de girar y te entregare tu premio.";
		close;
	}
	mes "^FF0000Consejos:^000000";	
	mes "El stack maximo es de ^FF000030,000 Coins^000000";
	mes "Conserva monedas para pagar el lanzamiento.";
	next;
	input .@FSC_Input;
	mes "[ Poring Slots Play ]";
	mes "- Haz ingresado [ ^2236BB"+.@FSC_Input+"^000000 ] unidades.";
	next;
	if(select("- Confirmar","- Cambie de idea")==2)
		close;
	if(countitem($PSItem)<.@FSC_Input){
		mes "[ Poring Slots Play ]";
		mes "No tienes suficientes  [ ^2236BB"+getitemname($PSItem)+"^000000 ] para la cantidad que elegiste.";
		close;
		return;
	}
	if(.@FSC_Input==0){
		mes "[ Poring Slots Play ]";
		mes "Debes apostar como minimo ^0000FF1^000000 moneda..";
		close;
		return;
	}
	delitem $PSItem,.@FSC_Input;
	setd "FSC_Coin"+.@FSC_Poring,.@FSC_Input;
	delwaitingroom "PoringSlotsChoose#0"+.@FSC_Poring;
	setd "$FSC_Coin"+.@FSC_Poring,getd("$FSC_Coin"+.@FSC_Poring)+.@FSC_Input;
	setd "$FSC_Player"+.@FSC_Poring,getd("$FSC_Player"+.@FSC_Poring)+1;
	waitingroom "Bets ["+getd("$FSC_Player"+.@FSC_Poring)+"] Inv ["+getd("$FSC_Coin"+.@FSC_Poring)+"]",0;
	setd "PoringSlotsRound"+.@FSC_Poring,$PoringSlotsRound;
	mes "[ Poring Slots Play ]";
	mes "Tu apuesta ha sido registrada, todavia puedes apostar a otros porings o lanzar la ruleta.";
	mes "Buena suerte.";
	close;
	return;
}

poring_w01,96,80,4	script	PoringSlotsChoose#01	1002,{
	callfunc("FuncPoringSlotsChoose",1,2);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#01";
	set $FSC_Coin1,0;
	set $FSC_Player1,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,96,75,4	script	PoringSlotsChoose#02	1113,{
	callfunc("FuncPoringSlotsChoose",2,3);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#02";
	set $FSC_Coin2,0;
	set $FSC_Player2,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,96,70,4	script	PoringSlotsChoose#03	1031,{
	callfunc("FuncPoringSlotsChoose",3,5);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#03";
	set $FSC_Coin3,0;
	set $FSC_Player3,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,101,72,4	script	PoringSlotsChoose#04	1096,{
	callfunc("FuncPoringSlotsChoose",4,9);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#04";
	set $FSC_Coin4,0;
	set $FSC_Player4,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,101,77,4	script	PoringSlotsChoose#05	1388 ,{
	callfunc("FuncPoringSlotsChoose",5,17);
	end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#05";
	set $FSC_Coin5,0;
	set $FSC_Player5,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

 

english ver please ?

  • 0
AyenPanda Poring

AyenPanda

Posted
Posted
18 hours ago, iraciz said:

Ok there you go, first you have to follow this indications:

1- add the gold poring mob if you are running pre-re, this is the indicator were the point is going, I  used this mob to replace the original portal npc. 


2248,GOLDPORING,Golden Poring,Golden Poring,50,10000,0,0,0,1,300,300,2,5,6,1,1,0,6,5,10,12,0,3,21,0x83,400,1872,672,480,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0

 2- check the coordinates and locate them in a proper map,  my poring_w01 map is modified in gats and objetcs. 


//=-=-=-=-=-=-=-= Script by ColoExpress =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-= 2010 - 2011 Develop present =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-= Powered By www.coloexpress.in.th =-=-=-=-=-=-=-=
//=-=-=-=-=-=-=-=Fix and translation in spanish by iraciz=-=-=-=-=-=-=-=

-	script	PoringSlotsCh	-1,{
	end;

OnInit:
	set $PSItem,7539;
	set $PSre,7539; //Prize
	set $NMItem,1;
	end;
}

poring_w01,74,78,6	duplicate(PoringSlotsCh)	PoringSlots#01	1002
poring_w01,76,78,6	duplicate(PoringSlotsCh)	PoringSlots#02	1002
poring_w01,78,78,6	duplicate(PoringSlotsCh)	PoringSlots#03	1031
poring_w01,80,78,6	duplicate(PoringSlotsCh)	PoringSlots#04	1113
poring_w01,82,78,6	duplicate(PoringSlotsCh)	PoringSlots#05	1002
poring_w01,84,78,6	duplicate(PoringSlotsCh)	PoringSlots#06	950
poring_w01,86,78,6	duplicate(PoringSlotsCh)	PoringSlots#07	1002
poring_w01,88,78,6	duplicate(PoringSlotsCh)	PoringSlots#08	1096
poring_w01,90,78,6	duplicate(PoringSlotsCh)	PoringSlots#09	1002
poring_w01,92,78,6	duplicate(PoringSlotsCh)	PoringSlots#10	1113

poring_w01,92,76,6	duplicate(PoringSlotsCh)	PoringSlots#11	1031
poring_w01,92,74,6	duplicate(PoringSlotsCh)	PoringSlots#12	1031
poring_w01,92,72,6	duplicate(PoringSlotsCh)	PoringSlots#13	1002
poring_w01,92,70,6	duplicate(PoringSlotsCh)	PoringSlots#14	1113

poring_w01,92,68,6	duplicate(PoringSlotsCh)	PoringSlots#15	1002
poring_w01,90,68,6	duplicate(PoringSlotsCh)	PoringSlots#16	1031
poring_w01,88,68,6	duplicate(PoringSlotsCh)	PoringSlots#17	1002
poring_w01,86,68,6	duplicate(PoringSlotsCh)	PoringSlots#18	1113
poring_w01,84,68,6	duplicate(PoringSlotsCh)	PoringSlots#19	1002
poring_w01,82,68,6	duplicate(PoringSlotsCh)	PoringSlots#20	950
poring_w01,80,68,6	duplicate(PoringSlotsCh)	PoringSlots#21	1002
poring_w01,78,68,6	duplicate(PoringSlotsCh)	PoringSlots#22	1031
poring_w01,76,68,6	duplicate(PoringSlotsCh)	PoringSlots#23	1113
poring_w01,74,68,6	duplicate(PoringSlotsCh)	PoringSlots#24	1002

poring_w01,74,70,6	duplicate(PoringSlotsCh)	PoringSlots#25	1388 
poring_w01,74,72,6	duplicate(PoringSlotsCh)	PoringSlots#26	1113
poring_w01,74,74,6	duplicate(PoringSlotsCh)	PoringSlots#27	1002
poring_w01,74,76,6	duplicate(PoringSlotsCh)	PoringSlots#28	1096

poring_w01,74,78,6	script	PoringSlotsPoint	2248,1,1,{}

-	script	PoringSlotsSetter	-1,{

OnInit:
								//--TOP					//--RIGHT					//BOTTOM						//LEFT
	setarray $PoringSlotsX,74,76,78,80,82,84,86,88,90,	92,92,92,92,92,		92,90,88,86,84,82,80,78,76,74,		74,74,74,74,74;
	setarray $PoringSlotsY,78,78,78,78,78,78,78,78,78,	78,76,74,72,70,		68,68,68,68,68,68,68,68,68,68,		70,72,74,76,78;


	set $@PoringSlotsPlaying,	0;
	set $@PoringSlotsRunning,	0;

	donpcevent "PoringSlotsChoose#01::OnResetRoom";
	donpcevent "PoringSlotsChoose#02::OnResetRoom";
	donpcevent "PoringSlotsChoose#03::OnResetRoom";
	donpcevent "PoringSlotsChoose#04::OnResetRoom";
	donpcevent "PoringSlotsChoose#05::OnResetRoom";
	end;
}

poring_w01,82,73,6	script	Poring Slots Play	693,{

	mes "[ Poring Slots Play ]";
	mes "Bienvenido a la ruleta poring";
	mes "Antes de girar la ruleta, procura hacer tus apuestas ok? ";
	mes "- Se cobra [ ^9900FF" +$NMItem+ "^000000 ] ^00AA55"+getitemname($PSItem)+"^000000 por lanzamiento.";
	next;
	if(select("- Girar la Ruleta","- Cancelar")==2)
		close;
	if($@PoringSlotsPlaying==1){
		mes "[ Poring Slots Play ]";
		mes "Ya hay un lanzamiento en fila. Debes esperar que termine para iniciar otro.";
		close;
	}
	if(countitem($PSItem)<$NMItem){
		mes "[ Poring Slots Play ]";
		mes " No tienes la cantidad necesaria de monedas para girar la ruleta.";
		close;
	}
	delitem $PSItem,$NMItem;
	mes "[ Poring Slots Play ]";
	mes "Comenzamos..";
	donpcevent "Poring Slots Play::OnPoringSlotsAnnounce";
	close;

OnPoringSlotsAnnounce:
	set $@PoringSlotsPlaying,1;
	mapannounce "poring_w01","[ PoringSlots ] : Atencion a todos, la ruleta va a dar inicio en 1 Minuto a partir de este momento.",bc_map;
	
	sleep 20000;
	npctalk "La ruleta va a girar dentro 40 segundos, vayan cerrando sus apuestas.";
	sleep 20000;
	npctalk "Dentro de poco iniciara el lanzamiento! quedan 20 Segundos";
	sleep 5000;
	npctalk "15 segundos restantes para el lanzamiento dela ruleta Poring.";
	sleep 5000;
	npctalk "Inicia el conteo regresivo de 10 segundos.";
	sleep 1000; npctalk "9";
	sleep 1000; npctalk "8";
	sleep 1000; npctalk "7";
	sleep 1000; npctalk "6";
	sleep 1000; npctalk "5";
	sleep 1000; npctalk "4";
	sleep 1000; npctalk "3";
	sleep 1000; npctalk "2";
	sleep 1000; npctalk "1";
	sleep 1000; npctalk "It's Show Time!!";	
	donpcevent "Poring Slots Play::OnPoringSlotsPlaying";
	end;

OnPoringSlotsPlaying:
	set $@PoringSlotsRunning,1;
	set $PoringSlotsRound,$PoringSlotsRound+1;
	set $@PoringSlotsSpeed,10;
		for(set $@PoringSlotsRound,0;$@PoringSlotsRound<8;set $@PoringSlotsRound,$@PoringSlotsRound+1){
			set $@PoringSlotsTemp,rand(20,40);
			for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
				movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
				set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
				if($@PoringSlotsPoint>=28)
				set $@PoringSlotsPoint,0;
				sleep $@PoringSlotsSpeed;
			}
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+10;
		}
	set $@PoringSlotsTemp,rand(5,10);
		for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
			movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
			set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
			if($@PoringSlotsPoint>=28)
			set $@PoringSlotsPoint,0;
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+100;
			sleep $@PoringSlotsSpeed;
		}
	set $@PoringSlotsTemp,rand(8,15);
		for(set $@i,0;$@i<$@PoringSlotsTemp;set $@i,$@i+1){
			movenpc "PoringSlotsPoint",$PoringSlotsX[$@PoringSlotsPoint],$PoringSlotsY[$@PoringSlotsPoint];
			set $@PoringSlotsPoint,$@PoringSlotsPoint+1;
			if($@PoringSlotsPoint>=28)
			set $@PoringSlotsPoint,0;
			set $@PoringSlotsSpeed,$@PoringSlotsSpeed+150;
			sleep $@PoringSlotsSpeed;
		}
	switch($@PoringSlotsPoint)
	{
		case 6:case 20:
			set $FSC_Win,0;break;
		case 1:case 2:case 5:case 7:case 9:case 12:case 13:case 15:case 17:case 19:case 21:case 24:case 27:
			set $FSC_Win,1;break;
		case 4:case 10:case 14:case 18:case 23:case 26:
			set $FSC_Win,2;break;
		case 3:case 11:case 16:case 22:
			set $FSC_Win,3;break;
		case 8:case 0:
			set $FSC_Win,4;break;
		case 25:
			set $FSC_Win,5;break;
	}
	specialeffect 577;
	if($FSC_Win==0) { npctalk "Ups.. se detuvo en un Ghostring"; sleep 1000; npctalk "Todos Pierden... Muahaha!!!"; }
	if($FSC_Win==1) { npctalk "La ruleta se detuvo en Poring, Aquel que aposto al poring ha ganado del doble de la inversion!"; sleep 1000; npctalk "Quien haya ganado, retire su premio!"; }
	if($FSC_Win==2) { npctalk "La ruleta se detuvo en Drops, Aquel que aposto al Drops, ganaria el Triple de la Inversion"; sleep 1000; npctalk "Quien haya ganado, retire su premio!"; }
	if($FSC_Win==3) { npctalk "La ruleta se detuvo en Poporing"; sleep 1000; npctalk "Gana x 5 tu inversion"; sleep 1000; npctalk "Retiren su premio si han ganado!"; }
	if($FSC_Win==4) { npctalk "La ruleta se detuvo en el exquisito Angeling.. multiplicando la inversion x9"; sleep 1000; npctalk "El feliz ganador puede retirar su botin!"; }
	if($FSC_Win==5) { npctalk "Oh por Dios, La ruleta se detuvo en el el Arch Angeling..."; sleep 1000; npctalk "Quien haya apostado al Arch Angeling habra multiplicado » 17 Veces lo que invirtio!!";}

	donpcevent "PoringSlotsChoose#01::OnResetRoom";
	donpcevent "PoringSlotsChoose#02::OnResetRoom";
	donpcevent "PoringSlotsChoose#03::OnResetRoom";
	donpcevent "PoringSlotsChoose#04::OnResetRoom";
	donpcevent "PoringSlotsChoose#05::OnResetRoom";
	donpcevent "PoringSlotsChoose#0"+$FSC_Win+"::OnEffect";
	set $@PoringSlotsPlaying,0;
	set $@PoringSlotsRunning,0;
	end;
}

function	script	FuncPoringSlotsChoose	{

	if($@PoringSlotsRunning==1){
		mes "[ Poring Slots Play ]";
		mes "- Hay un juego en proceso";
		mes "- debes esperar que termine para volver a apostar.";
		close;
		end;
	}

	set .@FSC_Poring,getarg(0);
	set .@FSC_GetPoint,getarg(1);

	if(getd("FSC_Coin"+.@FSC_Poring)>0){
		if(getd("PoringSlotsRound"+.@FSC_Poring)==$PoringSlotsRound-1&&.@FSC_Poring==$FSC_Win){
			set .@FSC_Temp,getd("FSC_Coin"+.@FSC_Poring)*.@FSC_GetPoint;
			getitem $PSRe,.@FSC_Temp;
			specialeffect2 18;
			setd "FSC_Coin"+.@FSC_Poring,0;
			mes "[ Poring Slots Play ]";
			mes "- Ganaste la bolsa de ^00AA55"+getitemname($PSRe)+"^000000";
			mes "- Premio [ ^AA3366"+.@FSC_Temp+"^000000 ]";
			close;
		}
	}
	mes "[ Poring Slots Play ]";
	mes "Deseas apostar ^00AA55"+getitemname($PSItem)+"^000000?";
	mes "- Ganaras ^0000FF"+getitemname($PSRe)+" * "+.@FSC_GetPoint+"^000000 ";
	if(getd("FSC_Coin"+.@FSC_Poring)!=0&&getd("PoringSlotsRound"+.@FSC_Poring)==$PoringSlotsRound){
		mes "- La bolsa actual es [ ^AA3333"+getd("FSC_Coin"+.@FSC_Poring)+"^000000 ]";
		mes "- Habla conmigo despues de girar y te entregare tu premio.";
		close;
	}
	mes "^FF0000Consejos:^000000";	
	mes "El stack maximo es de ^FF000030,000 Coins^000000";
	mes "Conserva monedas para pagar el lanzamiento.";
	next;
	input .@FSC_Input;
	mes "[ Poring Slots Play ]";
	mes "- Haz ingresado [ ^2236BB"+.@FSC_Input+"^000000 ] unidades.";
	next;
	if(select("- Confirmar","- Cambie de idea")==2)
		close;
	if(countitem($PSItem)<.@FSC_Input){
		mes "[ Poring Slots Play ]";
		mes "No tienes suficientes  [ ^2236BB"+getitemname($PSItem)+"^000000 ] para la cantidad que elegiste.";
		close;
		return;
	}
	if(.@FSC_Input==0){
		mes "[ Poring Slots Play ]";
		mes "Debes apostar como minimo ^0000FF1^000000 moneda..";
		close;
		return;
	}
	delitem $PSItem,.@FSC_Input;
	setd "FSC_Coin"+.@FSC_Poring,.@FSC_Input;
	delwaitingroom "PoringSlotsChoose#0"+.@FSC_Poring;
	setd "$FSC_Coin"+.@FSC_Poring,getd("$FSC_Coin"+.@FSC_Poring)+.@FSC_Input;
	setd "$FSC_Player"+.@FSC_Poring,getd("$FSC_Player"+.@FSC_Poring)+1;
	waitingroom "Bets ["+getd("$FSC_Player"+.@FSC_Poring)+"] Inv ["+getd("$FSC_Coin"+.@FSC_Poring)+"]",0;
	setd "PoringSlotsRound"+.@FSC_Poring,$PoringSlotsRound;
	mes "[ Poring Slots Play ]";
	mes "Tu apuesta ha sido registrada, todavia puedes apostar a otros porings o lanzar la ruleta.";
	mes "Buena suerte.";
	close;
	return;
}

poring_w01,96,80,4	script	PoringSlotsChoose#01	1002,{
	callfunc("FuncPoringSlotsChoose",1,2);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#01";
	set $FSC_Coin1,0;
	set $FSC_Player1,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,96,75,4	script	PoringSlotsChoose#02	1113,{
	callfunc("FuncPoringSlotsChoose",2,3);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#02";
	set $FSC_Coin2,0;
	set $FSC_Player2,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,96,70,4	script	PoringSlotsChoose#03	1031,{
	callfunc("FuncPoringSlotsChoose",3,5);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#03";
	set $FSC_Coin3,0;
	set $FSC_Player3,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,101,72,4	script	PoringSlotsChoose#04	1096,{
	callfunc("FuncPoringSlotsChoose",4,9);
end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#04";
	set $FSC_Coin4,0;
	set $FSC_Player4,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

poring_w01,101,77,4	script	PoringSlotsChoose#05	1388 ,{
	callfunc("FuncPoringSlotsChoose",5,17);
	end;
OnEffect:
	for(set $@FSC_i,1;$@FSC_i<15;set $@FSC_i,$@FSC_i+1){
		specialeffect 377;
		sleep 800;
		}
	end;
OnResetRoom:
	delwaitingroom "PoringSlotsChoose#05";
	set $FSC_Coin5,0;
	set $FSC_Player5,0;
	waitingroom"Bets [0] $ [0]",0;
	end;
OnInit:
	waitingroom"Bets [0] $ [0]",0;
	end;
}

 

wow thank you! but do you have a english version of it? i might translate it on wrong grammer !

  • -1
iraciz Poporing

iraciz

Posted
  • Author
Posted

No science, be smart, use common sense, you bet coins, if it stop in your selected porings get the expended  ammount in multipliers.  pay for spin the roulette etc.. I could make it from the f..up hardcoded language, now is ten times easier than before. Don't b lazy.

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to question listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...