Help Me script I want to play with multiple people.

[4n0biz]

moroccx,215,232,6 script HorseNumber [ 1 ] 938,{

end;

OnEffect:for(set $@HM_i,1;$@HM_i<15;set $@HM_i,$@HM_i+1){specialeffect 68;sleep2 500;}end;

}

moroccx,215,231,6 script HorseNumber [ 2 ] 938,{

end;

OnEffect:for(set $@HM_i,1;$@HM_i<15;set $@HM_i,$@HM_i+1){specialeffect 68;sleep2 500;}end;

}

moroccx,215,230,6 script HorseNumber [ 3 ] 938,{

end;

OnEffect:for(set $@HM_i,1;$@HM_i<15;set $@HM_i,$@HM_i+1){specialeffect 68;sleep2 500;}end;

}

moroccx,215,229,6 script HorseNumber [ 4 ] 938,{

end;

OnEffect:for(set $@HM_i,1;$@HM_i<15;set $@HM_i,$@HM_i+1){specialeffect 68;sleep2 500;}end;

}

moroccx,225,228,6 duplicate(HorseMachineTemp) HorseEnd#01 858

moroccx,225,233,6 duplicate(HorseMachineTemp) HorseEnd#02 858

moroccx,215,228,6 duplicate(HorseMachineTemp) HorseStart#01 858

moroccx,215,233,6 duplicate(HorseMachineTemp) HorseStart#02 858

moroccx,220,226,4 script HorseMachine 930,{

goto Main;

Main:

mes "^FF0000[ HorseMachine ]^000000";

mes "- Welcome to cabinets";

mes "- What do you want to play for me";

next;

menu "- How to play",HowTo,"- Ranking",Stats,"- Start",Play;

end;

Play:

mes "^FF0000[ HorseMachine ]^000000";

mes "- Select the required thrust";

next;

input .@HM_Choose;

mes "^FF0000[ HorseMachine ]^000000";

mes "- Enter the desired number of coins bet";

next;

input .@HM_Coin;

if(.@HM_Choose<=0)

set .@HM_Choose,1;

else if(.@HM_Choose>4)

set .@HM_Choose,4;

mes "^FF0000[ HorseMachine ]^000000";

mes "- Each horse No. [ ^55AA55"+.@HM_Choose+"^000000 ]";

mes "- You bet on the number [ ^5555AA"+.@HM_Coin+"^000000 ]";

mes "- According to this agreement, right?";

next;

if(select("- New thrust","- Ok")==1)

goto Play;

if($@HM_Playing==1){

mes "^FF0000[ HorseMachine ]^000000";

mes "- Now the horse is running !!";

mes "- Please wait";

close;

end;

}

else if(.@HM_Coin<=0){

mes "^FF0000[ HorseMachine ]^000000";

mes "- You can bet at least 1 coin";

mes "- Please read the new me";

close;

end;

}

else if(countitem(7539)<.@HM_Coin){

mes "^FF0000[ HorseMachine ]^000000";

mes "- You do not have enough coins to bet.";

mes "- You want to excuse";

close;

end;

}

delitem 7539,.@HM_Coin;

set $@HM_Choose,.@HM_Choose;

set $@HM_Coin,.@HM_Coin;

set $@HM_ID,getcharid(3);

donpcevent "HorseMachine::OnPlaying";

close;

end;

Stats:

mes "^FF0000[ HorseMachine ]^000000";

mes "- ^008800The horse 1 Point ^555599[ "+$HM_Number_1+"^000000 ]";

mes "- ^00AA00The horse 2 Point ^555599[ "+$HM_Number_2+"^000000 ]";

mes "- ^00CC00The horse 3 Point ^555599[ "+$HM_Number_3+"^000000 ]";

mes "- ^00DD00The horse 4 Point ^555599[ "+$HM_Number_4+"^000000 ]";

mes "- ^FF0000Number of customers^555599[ "+$HM_Number_Same+"^000000 ]";

next;

goto Main;

end;

HowTo:

mes "^FF0000[ HorseMachine ]^000000";

mes "- 1.Choose your horse (1-4)";

mes "- 2.Enter the amount you want to bet";

mes "- 3.Waiting to go with it !!";

next;

mes "^FF0000[ HorseMachine ]^000000";

mes "- If you correctly predict the Will receive a *5";

mes "- If there is more than one horse to the finish line.";

mes "- You will not get anything";

next;

goto Main;

end;

OnPlaying:

set $@HM_Playing,1;

set $@HM_Check,0;

set $@HM_Count_Win,0;

for(set $@i,0;$@HM_Check==0;set $@i,$@i+1){

if(rand(2)==0){

set $@HorseNumber1X,$@HorseNumber1X+1;

movenpc "HorseNumber [ 1 ]",$@HorseNumber1X,232;

if($@HorseNumber1X==225){

set $@HM_Check,1;

set $@HM_Count_Win,$@HM_Count_Win+1;

}

}

if(rand(2)==0){

set $@HorseNumber2X,$@HorseNumber2X+1;

movenpc "HorseNumber [ 2 ]",$@HorseNumber2X,231;

if($@HorseNumber2X==225){

set $@HM_Check,2;

set $@HM_Count_Win,$@HM_Count_Win+1;

}

}

if(rand(2)==0){

set $@HorseNumber3X,$@HorseNumber3X+1;

movenpc "HorseNumber [ 3 ]",$@HorseNumber3X,230;

if($@HorseNumber3X==225){

set $@HM_Check,3;

set $@HM_Count_Win,$@HM_Count_Win+1;

}

}

if(rand(2)==0){

set $@HorseNumber4X,$@HorseNumber4X+1;

movenpc "HorseNumber [ 4 ]",$@HorseNumber4X,229;

if($@HorseNumber4X==225){

set $@HM_Check,4;

set $@HM_Count_Win,$@HM_Count_Win+1;

}

}

sleep2 1000;

}

if($@HM_Count_Win==1){

specialeffect 68;

donpcevent "HorseNumber [ "+$@HM_Check+" ]::OnEffect";

setd "$HM_Number_"+$@HM_Check,getd("$HM_Number_"+$@HM_Check)+1;

npctalk "Congratulations !! The horse [ "+$@HM_Check+" ] Finish line";

if($@HM_Check==$@HM_Choose)

getitem 7539,$@HM_Coin*5,$@HM_ID;

}

else{

npctalk "Oops !! A horse to finish more than 1 unit.";

set $HM_Number_Same,$HM_Number_Same+1;

for(set $@HM_i,1;$@HM_i<15;set $@HM_i,$@HM_i+1){specialeffect 68;sleep2 500;}

}

sleep2 10000;

movenpc "HorseNumber [ 1 ]",215,232;

movenpc "HorseNumber [ 2 ]",215,231;

movenpc "HorseNumber [ 3 ]",215,230;

movenpc "HorseNumber [ 4 ]",215,229;

set $@HorseNumber1X,215;

set $@HorseNumber2X,215;

set $@HorseNumber3X,215;

set $@HorseNumber4X,215;

set $@HM_Playing,0;

end;

OnInit:

set $@HM_Playing,0; //

set $@HM_Check,0; //

set $@HM_Count_Win,0; //

set $@HorseNumber1X,215;

set $@HorseNumber2X,215;

set $@HorseNumber3X,215;

set $@HorseNumber4X,215;

end;

}