Jump to content
  • 0

place only one bet [Poring Slot]

Yukaiii

Asked by Yukaiii,

 Share

Question

Yukaiii Garling

Yukaiii

Posted
  • Group:  Members
  • Topic Count:  72
  • Topics Per Day:  0.02
  • Content Count:  170
  • Reputation:   9
  • Joined:  11/20/13
  • Last Seen:  
Posted

What's up guys!!
Guys, could someone give me some support on this script here?
I would like that when the player makes the bet he could only bet on one portion... not on all of them if he has coins.

Thank you very much for any help! 

//=-=-=-=-=-=-=-= 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;
}

prontera,147,285,6	duplicate(PoringSlotsCh)	PoringSlots#01	1002
prontera,149,285,6	duplicate(PoringSlotsCh)	PoringSlots#02	1002
prontera,151,285,6	duplicate(PoringSlotsCh)	PoringSlots#03	1031
prontera,153,285,6	duplicate(PoringSlotsCh)	PoringSlots#04	1113
prontera,155,285,6	duplicate(PoringSlotsCh)	PoringSlots#05	1002
prontera,157,285,6	duplicate(PoringSlotsCh)	PoringSlots#06	950
prontera,159,285,6	duplicate(PoringSlotsCh)	PoringSlots#07	1002
prontera,161,285,6	duplicate(PoringSlotsCh)	PoringSlots#08	1096
prontera,163,285,6	duplicate(PoringSlotsCh)	PoringSlots#09	1002
prontera,165,285,6	duplicate(PoringSlotsCh)	PoringSlots#10	1113

prontera,165,283,6	duplicate(PoringSlotsCh)	PoringSlots#11	1031
prontera,165,281,6	duplicate(PoringSlotsCh)	PoringSlots#12	1031
prontera,165,279,6	duplicate(PoringSlotsCh)	PoringSlots#13	1002
prontera,165,277,6	duplicate(PoringSlotsCh)	PoringSlots#14	1113

prontera,163,277,6	duplicate(PoringSlotsCh)	PoringSlots#15	1002
prontera,161,277,6	duplicate(PoringSlotsCh)	PoringSlots#16	1031
prontera,159,277,6	duplicate(PoringSlotsCh)	PoringSlots#17	1002
prontera,157,277,6	duplicate(PoringSlotsCh)	PoringSlots#18	1113
prontera,155,277,6	duplicate(PoringSlotsCh)	PoringSlots#19	1002
prontera,153,277,6	duplicate(PoringSlotsCh)	PoringSlots#20	950
prontera,151,277,6	duplicate(PoringSlotsCh)	PoringSlots#21	1002
prontera,149,277,6	duplicate(PoringSlotsCh)	PoringSlots#22	1031
prontera,147,277,6	duplicate(PoringSlotsCh)	PoringSlots#23	1113
prontera,145,277,6	duplicate(PoringSlotsCh)	PoringSlots#24	1002

prontera,145,279,6	duplicate(PoringSlotsCh)	PoringSlots#25	1388 
prontera,145,281,6	duplicate(PoringSlotsCh)	PoringSlots#26	1113
prontera,145,283,6	duplicate(PoringSlotsCh)	PoringSlots#27	1002
prontera,145,285,6	duplicate(PoringSlotsCh)	PoringSlots#28	1096

prontera,145,279,6	script	PoringSlotsPoint	1578,1,1,{}

-	script	PoringSlotsSetter	-1,{

OnInit:
								//--TOP					//--RIGHT					//BOTTOM						//LEFT
	setarray $PoringSlotsX,147,149,151,153,155,157,159,161,163,	165,165,165,165,165,		163,161,159,157,155,153,151,149,147,155,		144,144,144,144,144;
	setarray $PoringSlotsY,285,285,285,285,285,285,285,285,285,	285,283,281,279,277,		277,277,277,277,277,277,277,277,277,277,		279,281,283,285,287;


	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;
}

prontera,154,281,6	script	Poring Slots Play	563,{

	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;
}

prontera,149,290,3	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;
}

prontera,146,288,3	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;
}

prontera,162,290,3	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;
}

prontera,165,288,3	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;
}

prontera,155,294,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;
}

 

Link to comment
Share on other sites

1 answer to this question

Recommended Posts

  • 0
rokimoki Metaling

rokimoki

Posted
  • Group:  Members
  • Topic Count:  5
  • Topics Per Day:  0.00
  • Content Count:  75
  • Reputation:   11
  • Joined:  12/16/11
  • Last Seen:  
Posted

I see you have spanish NPC, since I don't understand this question, ask me in Spanish in a PM and I'll try to help if possible and post solution here.

Link to comment
Share on other sites

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
×
×
  • Create New...