Тема: Трынька =)

Назад

Трынька =)

Автор: ????: Дата: 02.11.2009

ыыыы, прикольный НПЦ, мои игроки когда то на 99 лвл просрали на него 20кк каждый =)*obstenku*

//===== eAthena Script ======================================= 

//= Трынька 

//===== By ==================================================  = 

//= [molod] 

//===== Version ============================================== 

//= 1.0 

//===== Compatible With ====================================== 

//= eAthena SVN and Freya SVN 

//===== Description ========================================== 

//= Play with the npc in a cart game =) 

//===== Comments ============================================= 

//= 1.0 - Initial beta release 

//==================================================  ========== 



prontera.gat,159,181,4 script Player 831,{ 



setarray @arrayofnumbers$[0],"6 пика"; 

setarray @arrayofnumbers$[1],"6 креста"; 

setarray @arrayofnumbers$[2],"6 буба"; 

setarray @arrayofnumbers$[3],"6 черва"; 



setarray @arrayofnumbers$[4],"7 пика"; 

setarray @arrayofnumbers$[5],"7 креста"; 

setarray @arrayofnumbers$[6],"7 буба"; 

setarray @arrayofnumbers$[7],"7 черва"; 



setarray @arrayofnumbers$[8],"8 пика"; 

setarray @arrayofnumbers$[9],"8 креста"; 

setarray @arrayofnumbers$[10],"8 буба"; 

setarray @arrayofnumbers$[11],"8 черва"; 



setarray @arrayofnumbers$[12],"9 пика"; 

setarray @arrayofnumbers$[13],"9 креста"; 

setarray @arrayofnumbers$[14],"9 буба"; 

setarray @arrayofnumbers$[15],"9 черва"; 



setarray @arrayofnumbers$[16],"10 пика"; 

setarray @arrayofnumbers$[17],"10 креста"; 

setarray @arrayofnumbers$[18],"10 буба"; 

setarray @arrayofnumbers$[19],"10 черва"; 



setarray @arrayofnumbers$[20],"туз пика"; 

setarray @arrayofnumbers$[21],"туз креста"; 

setarray @arrayofnumbers$[22],"туз буба"; 

setarray @arrayofnumbers$[23],"туз черва"; 



play: 



mes "[ Player ]"; 

mes "Сыграем в трыньку?"; 

menu "Да",-,"Нет",no; 



next; 

mes "[ Player ]"; 

mes "Ставки! Скока ставишь?"; 

input @playerzeny; 

if(@playerzeny>10000000) goto maxstavka; 

if(@playerzeny<1000) goto minstavka; 

if(@playerzeny>Zeny) goto goaway; 

next; 



mes "[ Player ]"; 

mes "Как играем?!"; 

mes "Открытая ? Закрытая? ..."; 

menu "Открытая",open,"Закрытая",closet; 



closet: 



mes "[ Player ]"; 

mes "Ок! Каждый ход бует стоить " + @playerzeny + " Зени!"; 

set @trcloset,1; 

set Zeny, Zeny - @playerzeny; 

goto randomcart; 



open: 

next; 

set @trcloset,0; 

mes "[ Player ]"; 

mes "ОК ПОЕХАЛИ!"; 

mes "Тусуем калоду..."; 

set Zeny, Zeny - @playerzeny; 

mes "На кону "+ 2*@playerzeny; 



randomcart: 



set @ran1,rand(23); 

set @card1$, @arrayofnumbers$[@ran1]; 



card2: 

set @ran2,rand(23); 

set @card2$, @arrayofnumbers$[@ran2]; 



if(@card2$==@card1$) goto card2; 



card3: 

set @ran3,rand(23); 

set @card3$, @arrayofnumbers$[@ran3]; 



if(@card3$==@card1$) goto card3; 

if(@card3$==@card2$) goto card3; 



/// KOMP 



compcard1: 



set @ran1,rand(23); 

set @compcard1$, @arrayofnumbers$[@ran1]; 



if(@compcard1$==@card1$) goto compcard1; 

if(@compcard1$==@card2$) goto compcard1; 

if(@compcard1$==@card3$) goto compcard1; 



compcard2: 



set @ran2,rand(23); 

set @compcard2$, @arrayofnumbers$[@ran2]; 



if(@compcard2$==@card1$) goto compcard2; 

if(@compcard2$==@card2$) goto compcard2; 

if(@compcard2$==@card3$) goto compcard2; 



if(@compcard2$==@compcard1$) goto compcard2; 



compcard3: 



set @ran3,rand(23); 

set @compcard3$, @arrayofnumbers$[@ran3]; 



if(@compcard3$==@card1$) goto compcard3; 

if(@compcard3$==@card2$) goto compcard3; 

if(@compcard3$==@card3$) goto compcard3; 



if(@compcard3$==@compcard1$) goto compcard3; 

if(@compcard3$==@compcard2$) goto compcard3; 



//////////////////Определяем масть игрока: 



//////////////////////////////////// пика: 



if(@card1$ == @arrayofnumbers$[0]) set @mast1,1; 

if(@card1$ == @arrayofnumbers$[4]) set @mast1,1; 

if(@card1$ == @arrayofnumbers$[8]) set @mast1,1; 

if(@card1$ == @arrayofnumbers$[12]) set @mast1,1; 

if(@card1$ == @arrayofnumbers$[16]) set @mast1,1; 

if(@card1$ == @arrayofnumbers$[20]) set @mast1,1; 



if(@card2$ == @arrayofnumbers$[0]) set @mast2,1; 

if(@card2$ == @arrayofnumbers$[4]) set @mast2,1; 

if(@card2$ == @arrayofnumbers$[8]) set @mast2,1; 

if(@card2$ == @arrayofnumbers$[12]) set @mast2,1; 

if(@card2$ == @arrayofnumbers$[16]) set @mast2,1; 

if(@card2$ == @arrayofnumbers$[20]) set @mast2,1; 



if(@card3$ == @arrayofnumbers$[0]) set @mast3,1; 

if(@card3$ == @arrayofnumbers$[4]) set @mast3,1; 

if(@card3$ == @arrayofnumbers$[8]) set @mast3,1; 

if(@card3$ == @arrayofnumbers$[12]) set @mast3,1; 

if(@cart3$ == @arrayofnumbers$[16]) set @mast3,1; 

if(@card3$ == @arrayofnumbers$[20]) set @mast3,1; 



if(@mast1 == 1) && (@card1$ == @arrayofnumbers$[0]) set @point1,6; 

if(@mast1 == 1) && (@card1$ == @arrayofnumbers$[4]) set @point1,7; 

if(@mast1 == 1) && (@card1$ == @arrayofnumbers$[8]) set @point1,8; 

if(@mast1 == 1) && (@card1$ == @arrayofnumbers$[12]) set @point1,9; 

if(@mast1 == 1) && (@card1$ == @arrayofnumbers$[16]) set @point1,10; 

if(@mast1 == 1) && (@card1$ == @arrayofnumbers$[20]) set @point1,11; 



if(@mast2 == 1) && (@card2$ == @arrayofnumbers$[0]) set @point2,6; 

if(@mast2 == 1) && (@card2$ == @arrayofnumbers$[4]) set @point2,7; 

if(@mast2 == 1) && (@card2$ == @arrayofnumbers$[8]) set @point2,8; 

if(@mast2 == 1) && (@card2$ == @arrayofnumbers$[12]) set @point2,9; 

if(@mast2 == 1) && (@card2$ == @arrayofnumbers$[16]) set @point2,10; 

if(@mast2 == 1) && (@card2$ == @arrayofnumbers$[20]) set @point2,11; 



if(@mast3 == 1) && (@card3$ == @arrayofnumbers$[0]) set @point3,6; 

if(@mast3 == 1) && (@card3$ == @arrayofnumbers$[4]) set @point3,7; 

if(@mast3 == 1) && (@card3$ == @arrayofnumbers$[8]) set @point3,8; 

if(@mast3 == 1) && (@card3$ == @arrayofnumbers$[12]) set @point3,9; 

if(@mast3 == 1) && (@card3$ == @arrayofnumbers$[16]) set @point3,10; 

if(@mast3 == 1) && (@card3$ == @arrayofnumbers$[20]) set @point3,11; 



//////////////////////////////////// Креста: 



if(@card1$ == @arrayofnumbers$[1]) set @mast1,2; 

if(@card1$ == @arrayofnumbers$[5]) set @mast1,2; 

if(@card1$ == @arrayofnumbers$[9]) set @mast1,2; 

if(@card1$ == @arrayofnumbers$[13]) set @mast1,2; 

if(@card1$ == @arrayofnumbers$[17]) set @mast1,2; 

if(@card1$ == @arrayofnumbers$[21]) set @mast1,2; 



if(@card2$ == @arrayofnumbers$[1]) set @mast2,2; 

if(@card2$ == @arrayofnumbers$[5]) set @mast2,2; 

if(@card2$ == @arrayofnumbers$[9]) set @mast2,2; 

if(@card2$ == @arrayofnumbers$[13]) set @mast2,2; 

if(@card2$ == @arrayofnumbers$[17]) set @mast2,2; 

if(@card2$ == @arrayofnumbers$[21]) set @mast2,2; 



if(@card3$ == @arrayofnumbers$[1]) set @mast3,2; 

if(@card3$ == @arrayofnumbers$[5]) set @mast3,2; 

if(@card3$ == @arrayofnumbers$[9]) set @mast3,2; 

if(@card3$ == @arrayofnumbers$[13]) set @mast3,2; 

if(@cart3$ == @arrayofnumbers$[17]) set @mast3,2; 

if(@card3$ == @arrayofnumbers$[21]) set @mast3,2; 



if(@mast1 == 2) && (@card1$ == @arrayofnumbers$[1]) set @point1,6; 

if(@mast1 == 2) && (@card1$ == @arrayofnumbers$[5]) set @point1,7; 

if(@mast1 == 2) && (@card1$ == @arrayofnumbers$[9]) set @point1,8; 

if(@mast1 == 2) && (@card1$ == @arrayofnumbers$[13]) set @point1,9; 

if(@mast1 == 2) && (@card1$ == @arrayofnumbers$[17]) set @point1,10; 

if(@mast1 == 2) && (@card1$ == @arrayofnumbers$[21]) set @point1,11; 



if(@mast2 == 2) && (@card2$ == @arrayofnumbers$[1]) set @point2,6; 

if(@mast2 == 2) && (@card2$ == @arrayofnumbers$[5]) set @point2,7; 

if(@mast2 == 2) && (@card2$ == @arrayofnumbers$[9]) set @point2,8; 

if(@mast2 == 2) && (@card2$ == @arrayofnumbers$[13]) set @point2,9; 

if(@mast2 == 2) && (@card2$ == @arrayofnumbers$[17]) set @point2,10; 

if(@mast2 == 2) && (@card2$ == @arrayofnumbers$[21]) set @point2,11; 



if(@mast3 == 2) && (@card3$ == @arrayofnumbers$[1]) set @point3,6; 

if(@mast3 == 2) && (@card3$ == @arrayofnumbers$[5]) set @point3,7; 

if(@mast3 == 2) && (@card3$ == @arrayofnumbers$[9]) set @point3,8; 

if(@mast3 == 2) && (@card3$ == @arrayofnumbers$[13]) set @point3,9; 

if(@mast3 == 2) && (@card3$ == @arrayofnumbers$[17]) set @point3,10; 

if(@mast3 == 2) && (@card3$ == @arrayofnumbers$[21]) set @point3,11; 



//////////////////////////////////////// БУБА: 



if(@card1$ == @arrayofnumbers$[2]) set @mast1,3; 

if(@card1$ == @arrayofnumbers$[6]) set @mast1,3; 

if(@card1$ == @arrayofnumbers$[10]) set @mast1,3; 

if(@card1$ == @arrayofnumbers$[14]) set @mast1,3; 

if(@card1$ == @arrayofnumbers$[18]) set @mast1,3; 

if(@card1$ == @arrayofnumbers$[22]) set @mast1,3; 



if(@card2$ == @arrayofnumbers$[2]) set @mast2,3; 

if(@card2$ == @arrayofnumbers$[6]) set @mast2,3; 

if(@card2$ == @arrayofnumbers$[10]) set @mast2,3; 

if(@card2$ == @arrayofnumbers$[14]) set @mast2,3; 

if(@card2$ == @arrayofnumbers$[18]) set @mast2,3; 

if(@card2$ == @arrayofnumbers$[22]) set @mast2,3; 



if(@card3$ == @arrayofnumbers$[2]) set @mast3,3; 

if(@card3$ == @arrayofnumbers$[6]) set @mast3,3; 

if(@card3$ == @arrayofnumbers$[10]) set @mast3,3; 

if(@card3$ == @arrayofnumbers$[14]) set @mast3,3; 

if(@cart3$ == @arrayofnumbers$[18]) set @mast3,3; 

if(@card3$ == @arrayofnumbers$[22]) set @mast3,3; 



if(@mast1 == 3) && (@card1$ == @arrayofnumbers$[2]) set @point1,6; 

if(@mast1 == 3) && (@card1$ == @arrayofnumbers$[6]) set @point1,7; 

if(@mast1 == 3) && (@card1$ == @arrayofnumbers$[10]) set @point1,8; 

if(@mast1 == 3) && (@card1$ == @arrayofnumbers$[14]) set @point1,9; 

if(@mast1 == 3) && (@card1$ == @arrayofnumbers$[18]) set @point1,10; 

if(@mast1 == 3) && (@card1$ == @arrayofnumbers$[22]) set @point1,11; 



if(@mast2 == 3) && (@card2$ == @arrayofnumbers$[2]) set @point2,6; 

if(@mast2 == 3) && (@card2$ == @arrayofnumbers$[6]) set @point2,7; 

if(@mast2 == 3) && (@card2$ == @arrayofnumbers$[10]) set @point2,8; 

if(@mast2 == 3) && (@card2$ == @arrayofnumbers$[14]) set @point2,9; 

if(@mast2 == 3) && (@card2$ == @arrayofnumbers$[18]) set @point2,10; 

if(@mast2 == 3) && (@card2$ == @arrayofnumbers$[22]) set @point2,11; 



if(@mast3 == 3) && (@card3$ == @arrayofnumbers$[2]) set @point3,6; 

if(@mast3 == 3) && (@card3$ == @arrayofnumbers$[6]) set @point3,7; 

if(@mast3 == 3) && (@card3$ == @arrayofnumbers$[10]) set @point3,8; 

if(@mast3 == 3) && (@card3$ == @arrayofnumbers$[14]) set @point3,9; 

if(@mast3 == 3) && (@card3$ == @arrayofnumbers$[18]) set @point3,10; 

if(@mast3 == 3) && (@card3$ == @arrayofnumbers$[22]) set @point3,11; 



////////////////////////////////// Черва: 



if(@card1$ == @arrayofnumbers$[3]) set @mast1,4; 

if(@card1$ == @arrayofnumbers$[7]) set @mast1,4; 

if(@card1$ == @arrayofnumbers$[11]) set @mast1,4; 

if(@card1$ == @arrayofnumbers$[15]) set @mast1,4; 

if(@card1$ == @arrayofnumbers$[19]) set @mast1,4; 

if(@card1$ == @arrayofnumbers$[23]) set @mast1,4; 



if(@card2$ == @arrayofnumbers$[3]) set @mast2,4; 

if(@card2$ == @arrayofnumbers$[7]) set @mast2,4; 

if(@card2$ == @arrayofnumbers$[11]) set @mast2,4; 

if(@card2$ == @arrayofnumbers$[15]) set @mast2,4; 

if(@card2$ == @arrayofnumbers$[19]) set @mast2,4; 

if(@card2$ == @arrayofnumbers$[23]) set @mast2,4; 



if(@card3$ == @arrayofnumbers$[3]) set @mast3,4; 

if(@card3$ == @arrayofnumbers$[7]) set @mast3,4; 

if(@card3$ == @arrayofnumbers$[11]) set @mast3,4; 

if(@card3$ == @arrayofnumbers$[15]) set @mast3,4; 

if(@cart3$ == @arrayofnumbers$[19]) set @mast3,4; 

if(@card3$ == @arrayofnumbers$[23]) set @mast3,4; 



if(@mast1 == 4) && (@card1$ == @arrayofnumbers$[3]) set @point1,6; 

if(@mast1 == 4) && (@card1$ == @arrayofnumbers$[7]) set @point1,7; 

if(@mast1 == 4) && (@card1$ == @arrayofnumbers$[11]) set @point1,8; 

if(@mast1 == 4) && (@card1$ == @arrayofnumbers$[15]) set @point1,9; 

if(@mast1 == 4) && (@card1$ == @arrayofnumbers$[19]) set @point1,10; 

if(@mast1 == 4) && (@card1$ == @arrayofnumbers$[23]) set @point1,11; 



if(@mast2 == 4) && (@card2$ == @arrayofnumbers$[3]) set @point2,6; 

if(@mast2 == 4) && (@card2$ == @arrayofnumbers$[7]) set @point2,7; 

if(@mast2 == 4) && (@card2$ == @arrayofnumbers$[11]) set @point2,8; 

if(@mast2 == 4) && (@card2$ == @arrayofnumbers$[15]) set @point2,9; 

if(@mast2 == 4) && (@card2$ == @arrayofnumbers$[19]) set @point2,10; 

if(@mast2 == 4) && (@card2$ == @arrayofnumbers$[23]) set @point2,11; 



if(@mast3 == 4) && (@card3$ == @arrayofnumbers$[3]) set @point3,6; 

if(@mast3 == 4) && (@card3$ == @arrayofnumbers$[7]) set @point3,7; 

if(@mast3 == 4) && (@card3$ == @arrayofnumbers$[11]) set @point3,8; 

if(@mast3 == 4) && (@card3$ == @arrayofnumbers$[15]) set @point3,9; 

if(@mast3 == 4) && (@card3$ == @arrayofnumbers$[19]) set @point3,10; 

if(@mast3 == 4) && (@card3$ == @arrayofnumbers$[23]) set @point3,11; 

goto Result; 



/////////////////////////////////////////////////////////////////////////////// 



//////////////////Определяем масть компа: 



//////////////////////////////////// пика: 



Compmast: 



if(@compcard1$ == @arrayofnumbers$[0]) set @mast1,1; 

if(@compcard1$ == @arrayofnumbers$[4]) set @mast1,1; 

if(@compcard1$ == @arrayofnumbers$[8]) set @mast1,1; 

if(@compcard1$ == @arrayofnumbers$[12]) set @mast1,1; 

if(@compcard1$ == @arrayofnumbers$[16]) set @mast1,1; 

if(@compcard1$ == @arrayofnumbers$[20]) set @mast1,1; 



if(@compcard2$ == @arrayofnumbers$[0]) set @mast2,1; 

if(@compcard2$ == @arrayofnumbers$[4]) set @mast2,1; 

if(@compcard2$ == @arrayofnumbers$[8]) set @mast2,1; 

if(@compcard2$ == @arrayofnumbers$[12]) set @mast2,1; 

if(@compcard2$ == @arrayofnumbers$[16]) set @mast2,1; 

if(@compcard2$ == @arrayofnumbers$[20]) set @mast2,1; 



if(@compcard3$ == @arrayofnumbers$[0]) set @mast3,1; 

if(@compcard3$ == @arrayofnumbers$[4]) set @mast3,1; 

if(@compcard3$ == @arrayofnumbers$[8]) set @mast3,1; 

if(@compcard3$ == @arrayofnumbers$[12]) set @mast3,1; 

if(@compcard3$ == @arrayofnumbers$[16]) set @mast3,1; 

if(@compcard3$ == @arrayofnumbers$[20]) set @mast3,1; 



if(@mast1 == 1) && (@compcard1$ == @arrayofnumbers$[0]) set @point1,6; 

if(@mast1 == 1) && (@compcard1$ == @arrayofnumbers$[4]) set @point1,7; 

if(@mast1 == 1) && (@compcard1$ == @arrayofnumbers$[8]) set @point1,8; 

if(@mast1 == 1) && (@compcard1$ == @arrayofnumbers$[12]) set @point1,9; 

if(@mast1 == 1) && (@compcard1$ == @arrayofnumbers$[16]) set @point1,10; 

if(@mast1 == 1) && (@compcard1$ == @arrayofnumbers$[20]) set @point1,11; 



if(@mast2 == 1) && (@compcard2$ == @arrayofnumbers$[0]) set @point2,6; 

if(@mast2 == 1) && (@compcard2$ == @arrayofnumbers$[4]) set @point2,7; 

if(@mast2 == 1) && (@compcard2$ == @arrayofnumbers$[8]) set @point2,8; 

if(@mast2 == 1) && (@compcard2$ == @arrayofnumbers$[12]) set @point2,9; 

if(@mast2 == 1) && (@compcard2$ == @arrayofnumbers$[16]) set @point2,10; 

if(@mast2 == 1) && (@compcard2$ == @arrayofnumbers$[20]) set @point2,11; 



if(@mast3 == 1) && (@compcard3$ == @arrayofnumbers$[0]) set @point3,6; 

if(@mast3 == 1) && (@compcard3$ == @arrayofnumbers$[4]) set @point3,7; 

if(@mast3 == 1) && (@compcard3$ == @arrayofnumbers$[8]) set @point3,8; 

if(@mast3 == 1) && (@compcard3$ == @arrayofnumbers$[12]) set @point3,9; 

if(@mast3 == 1) && (@compcard3$ == @arrayofnumbers$[16]) set @point3,10; 

if(@mast3 == 1) && (@compcard3$ == @arrayofnumbers$[20]) set @point3,11; 



//////////////////////////////////// Креста: 



if(@compcard1$ == @arrayofnumbers$[1]) set @mast1,2; 

if(@compcard1$ == @arrayofnumbers$[5]) set @mast1,2; 

if(@compcard1$ == @arrayofnumbers$[9]) set @mast1,2; 

if(@compcard1$ == @arrayofnumbers$[13]) set @mast1,2; 

if(@compcard1$ == @arrayofnumbers$[17]) set @mast1,2; 

if(@compcard1$ == @arrayofnumbers$[21]) set @mast1,2; 



if(@compcard2$ == @arrayofnumbers$[1]) set @mast2,2; 

if(@compcard2$ == @arrayofnumbers$[5]) set @mast2,2; 

if(@compcard2$ == @arrayofnumbers$[9]) set @mast2,2; 

if(@compcard2$ == @arrayofnumbers$[13]) set @mast2,2; 

if(@compcard2$ == @arrayofnumbers$[17]) set @mast2,2; 

if(@compcard2$ == @arrayofnumbers$[21]) set @mast2,2; 



if(@compcard3$ == @arrayofnumbers$[1]) set @mast3,2; 

if(@compcard3$ == @arrayofnumbers$[5]) set @mast3,2; 

if(@compcard3$ == @arrayofnumbers$[9]) set @mast3,2; 

if(@compcard3$ == @arrayofnumbers$[13]) set @mast3,2; 

if(@compcard3$ == @arrayofnumbers$[17]) set @mast3,2; 

if(@compcard3$ == @arrayofnumbers$[21]) set @mast3,2; 



if(@mast1 == 2) && (@compcard1$ == @arrayofnumbers$[1]) set @point1,6; 

if(@mast1 == 2) && (@compcard1$ == @arrayofnumbers$[5]) set @point1,7; 

if(@mast1 == 2) && (@compcard1$ == @arrayofnumbers$[9]) set @point1,8; 

if(@mast1 == 2) && (@compcard1$ == @arrayofnumbers$[13]) set @point1,9; 

if(@mast1 == 2) && (@compcard1$ == @arrayofnumbers$[17]) set @point1,10; 

if(@mast1 == 2) && (@compcard1$ == @arrayofnumbers$[21]) set @point1,11; 



if(@mast2 == 2) && (@compcard2$ == @arrayofnumbers$[1]) set @point2,6; 

if(@mast2 == 2) && (@compcard2$ == @arrayofnumbers$[5]) set @point2,7; 

if(@mast2 == 2) && (@compcard2$ == @arrayofnumbers$[9]) set @point2,8; 

if(@mast2 == 2) && (@compcard2$ == @arrayofnumbers$[13]) set @point2,9; 

if(@mast2 == 2) && (@compcard2$ == @arrayofnumbers$[17]) set @point2,10; 

if(@mast2 == 2) && (@compcard2$ == @arrayofnumbers$[21]) set @point2,11; 



if(@mast3 == 2) && (@compcard3$ == @arrayofnumbers$[1]) set @point3,6; 

if(@mast3 == 2) && (@compcard3$ == @arrayofnumbers$[5]) set @point3,7; 

if(@mast3 == 2) && (@compcard3$ == @arrayofnumbers$[9]) set @point3,8; 

if(@mast3 == 2) && (@compcard3$ == @arrayofnumbers$[13]) set @point3,9; 

if(@mast3 == 2) && (@compcard3$ == @arrayofnumbers$[17]) set @point3,10; 

if(@mast3 == 2) && (@compcard3$ == @arrayofnumbers$[21]) set @point3,11; 



//////////////////////////////////////// БУБА: 



if(@compcard1$ == @arrayofnumbers$[2]) set @mast1,3; 

if(@compcard1$ == @arrayofnumbers$[6]) set @mast1,3; 

if(@compcard1$ == @arrayofnumbers$[10]) set @mast1,3; 

if(@compcard1$ == @arrayofnumbers$[14]) set @mast1,3; 

if(@compcard1$ == @arrayofnumbers$[18]) set @mast1,3; 

if(@compcard1$ == @arrayofnumbers$[22]) set @mast1,3; 



if(@compcard2$ == @arrayofnumbers$[2]) set @mast2,3; 

if(@compcard2$ == @arrayofnumbers$[6]) set @mast2,3; 

if(@compcard2$ == @arrayofnumbers$[10]) set @mast2,3; 

if(@compcard2$ == @arrayofnumbers$[14]) set @mast2,3; 

if(@compcard2$ == @arrayofnumbers$[18]) set @mast2,3; 

if(@compcard2$ == @arrayofnumbers$[22]) set @mast2,3; 



if(@compcard3$ == @arrayofnumbers$[2]) set @mast3,3; 

if(@compcard3$ == @arrayofnumbers$[6]) set @mast3,3; 

if(@compcard3$ == @arrayofnumbers$[10]) set @mast3,3; 

if(@compcard3$ == @arrayofnumbers$[14]) set @mast3,3; 

if(@compcard3$ == @arrayofnumbers$[18]) set @mast3,3; 

if(@compcard3$ == @arrayofnumbers$[22]) set @mast3,3; 



if(@mast1 == 3) && (@compcard1$ == @arrayofnumbers$[2]) set @point1,6; 

if(@mast1 == 3) && (@compcard1$ == @arrayofnumbers$[6]) set @point1,7; 

if(@mast1 == 3) && (@compcard1$ == @arrayofnumbers$[10]) set @point1,8; 

if(@mast1 == 3) && (@compcard1$ == @arrayofnumbers$[14]) set @point1,9; 

if(@mast1 == 3) && (@compcard1$ == @arrayofnumbers$[18]) set @point1,10; 

if(@mast1 == 3) && (@compcard1$ == @arrayofnumbers$[22]) set @point1,11; 



if(@mast2 == 3) && (@compcard2$ == @arrayofnumbers$[2]) set @point2,6; 

if(@mast2 == 3) && (@compcard2$ == @arrayofnumbers$[6]) set @point2,7; 

if(@mast2 == 3) && (@compcard2$ == @arrayofnumbers$[10]) set @point2,8; 

if(@mast2 == 3) && (@compcard2$ == @arrayofnumbers$[14]) set @point2,9; 

if(@mast2 == 3) && (@compcard2$ == @arrayofnumbers$[18]) set @point2,10; 

if(@mast2 == 3) && (@compcard2$ == @arrayofnumbers$[22]) set @point2,11; 



if(@mast3 == 3) && (@compcard3$ == @arrayofnumbers$[2]) set @point3,6; 

if(@mast3 == 3) && (@compcard3$ == @arrayofnumbers$[6]) set @point3,7; 

if(@mast3 == 3) && (@compcard3$ == @arrayofnumbers$[10]) set @point3,8; 

if(@mast3 == 3) && (@compcard3$ == @arrayofnumbers$[14]) set @point3,9; 

if(@mast3 == 3) && (@compcard3$ == @arrayofnumbers$[18]) set @point3,10; 

if(@mast3 == 3) && (@compcard3$ == @arrayofnumbers$[22]) set @point3,11; 



////////////////////////////////// Черва: 



if(@compcard1$ == @arrayofnumbers$[3]) set @mast1,4; 

if(@compcard1$ == @arrayofnumbers$[7]) set @mast1,4; 

if(@compcard1$ == @arrayofnumbers$[11]) set @mast1,4; 

if(@compcard1$ == @arrayofnumbers$[15]) set @mast1,4; 

if(@compcard1$ == @arrayofnumbers$[19]) set @mast1,4; 

if(@compcard1$ == @arrayofnumbers$[23]) set @mast1,4; 



if(@compcard2$ == @arrayofnumbers$[3]) set @mast2,4; 

if(@compcard2$ == @arrayofnumbers$[7]) set @mast2,4; 

if(@compcard2$ == @arrayofnumbers$[11]) set @mast2,4; 

if(@compcard2$ == @arrayofnumbers$[15]) set @mast2,4; 

if(@compcard2$ == @arrayofnumbers$[19]) set @mast2,4; 

if(@compcard2$ == @arrayofnumbers$[23]) set @mast2,4; 



if(@compcard3$ == @arrayofnumbers$[3]) set @mast3,4; 

if(@compcard3$ == @arrayofnumbers$[7]) set @mast3,4; 

if(@compcard3$ == @arrayofnumbers$[11]) set @mast3,4; 

if(@compcard3$ == @arrayofnumbers$[15]) set @mast3,4; 

if(@compcard3$ == @arrayofnumbers$[19]) set @mast3,4; 

if(@compcard3$ == @arrayofnumbers$[23]) set @mast3,4; 



if(@mast1 == 4) && (@compcard1$ == @arrayofnumbers$[3]) set @point1,6; 

if(@mast1 == 4) && (@compcard1$ == @arrayofnumbers$[7]) set @point1,7; 

if(@mast1 == 4) && (@compcard1$ == @arrayofnumbers$[11]) set @point1,8; 

if(@mast1 == 4) && (@compcard1$ == @arrayofnumbers$[15]) set @point1,9; 

if(@mast1 == 4) && (@compcard1$ == @arrayofnumbers$[19]) set @point1,10; 

if(@mast1 == 4) && (@compcard1$ == @arrayofnumbers$[23]) set @point1,11; 



if(@mast2 == 4) && (@compcard2$ == @arrayofnumbers$[3]) set @point2,6; 

if(@mast2 == 4) && (@compcard2$ == @arrayofnumbers$[7]) set @point2,7; 

if(@mast2 == 4) && (@compcard2$ == @arrayofnumbers$[11]) set @point2,8; 

if(@mast2 == 4) && (@compcard2$ == @arrayofnumbers$[15]) set @point2,9; 

if(@mast2 == 4) && (@compcard2$ == @arrayofnumbers$[19]) set @point2,10; 

if(@mast2 == 4) && (@compcard2$ == @arrayofnumbers$[23]) set @point2,11; 



if(@mast3 == 4) && (@compcard3$ == @arrayofnumbers$[3]) set @point3,6; 

if(@mast3 == 4) && (@compcard3$ == @arrayofnumbers$[7]) set @point3,7; 

if(@mast3 == 4) && (@compcard3$ == @arrayofnumbers$[11]) set @point3,8; 

if(@mast3 == 4) && (@compcard3$ == @arrayofnumbers$[15]) set @point3,9; 

if(@mast3 == 4) && (@compcard3$ == @arrayofnumbers$[19]) set @point3,10; 

if(@mast3 == 4) && (@compcard3$ == @arrayofnumbers$[23]) set @point3,11; 



goto CompResult; 



/////////////////////////////////////////////////////////////////////////////// 



Result: 



///Считаем очки Игрока 



if(@mast1 == @mast2) & (@mast1 != @mast3) goto var1; 

if(@mast1 == @mast3) & (@mast1 != @mast2) goto var2; 

if(@mast2 == @mast3) & (@mast2 != @mast1) goto var3; 

if(@mast1 == @mast2) & (@mast1 == @mast3) goto var4; 

if(@mast1 != @mast2) & (@mast1 != @mast3) & (@mast2 != @mast3) goto spor; 



spor: 

if(@point1>=@point2) && (@point1>=@point3) set @cardpoint,@point1; 

if(@point2>=@point1) && (@point2>=@point3) set @cardpoint,@point2; 

if(@point3>=@point2) && (@point3>=@point1) set @cardpoint,@point3; 

goto Compmast; 



var1: 

set @cardpoint,@point1+@point2; 

goto Compmast; 

var2: 

set @cardpoint,@point1+@point3; 

goto Compmast; 

var3: 

set @cardpoint,@point2+@point3; 

goto Compmast; 

var4: 

set @cardpoint,@point1+@point2+@point3; 

goto Compmast; 



/////////////////////////////////////////////////////////////////////////////////////// 



CompResult: 



///Считаем очки Компа 



if(@mast1 == @mast2) & (@mast1 != @mast3) goto cvar1; 

if(@mast1 == @mast3) & (@mast1 != @mast2) goto cvar2; 

if(@mast2 == @mast3) & (@mast2 != @mast1) goto cvar3; 

if(@mast1 == @mast2) & (@mast1 == @mast3) goto cvar4; 

if(@mast1 != @mast2) & (@mast1 != @mast3) & (@mast2 != @mast3) goto cspor; 



cspor: 

if(@point1>=@point2) && (@point1>=@point3) set @compcardpoint,@point1; 

if(@point2>=@point1) && (@point2>=@point3) set @compcardpoint,@point2; 

if(@point3>=@point2) && (@point3>=@point1) set @compcardpoint,@point3; 



goto mess; 



cvar1: 

set @compcardpoint,@point1+@point2; 

goto mess; 

cvar2: 

set @compcardpoint,@point1+@point3; 

goto mess; 

cvar3: 

set @compcardpoint,@point2+@point3; 

goto mess; 

cvar4: 

set @compcardpoint,@point1+@point2+@point3; 

goto mess; 



//////////////////////////////////////////////////////////////////////////// 



mess: 



next; 



if(@trcloset == 1) goto trincloset; 



mes "Твои карты:"; 

mes "1 карта = "+@card1$; 

mes "2 карта = "+@card2$; 

mes "3 карта = "+@card3$; 

mes " "; 

mes "Карты нпс:"; 

mes "1 карта = "+@compcard1$; 

mes "2 карта = "+@compcard2$; 

mes "3 карта = "+@compcard3$; 

next; 

if(@cardpoint<@compcardpoint) goto compwin; 

mes "[ Player ]"; 

mes "Твои очки = "+@cardpoint; 

mes "Мои очки = "+@compcardpoint; 

mes "Вы выйграли!"; 

set Zeny, Zeny+2*@playerzeny; 

emotion 29,1; 

emotion 32; 

next; 

goto play; 



compwin: 

mes "[ Player ]"; 

mes "Твои очки = "+@cardpoint; 

mes "Мои очки = "+@compcardpoint; 

mes "Вы проиграли!"; 

emotion 29; 

emotion 32,1; 

next; 

goto play; 



no: 

mes "[ Player ]"; 

mes "ok"; 

emotion 30; 

close; 



minstavka: 



mes "[ Player ]"; 

mes "Минимальная ставка:"; 

mes "1000 z ..."; 

next; 

goto play; 



goaway: 

next; 

mes "[ Player ]"; 

mes "У тебя нет таких деняг!"; 

mes "Проваливай"; 

close; 



maxstavka: 



mes "[ Player ]"; 

mes "Максимальная ставка:"; 

mes "10000000 z ..."; 

next; 

goto play; 



///////////////////////// Закрытая: 



trincloset: 



set @closetzeny, 2*@playerzeny; 



mes "Твои карты:"; 

mes "1 карта = "+@card1$; 

mes "2 карта = "+@card2$; 

mes "3 карта = "+@card3$; 

mes "Твои очки = "+@cardpoint; 

next; 



PlayerWord: 



mes "Ходи..."; 

mes "Твои очки = "+@cardpoint; 

mes "На кону = "+@closetzeny; 

menu "Дальше за "+ @playerzeny,dal,"Вскыть за "+ @playerzeny,vsk,"Упасть",fall; 



dal: 

next; 



if(Zeny<@playerzeny) goto PlayerWord; 



set Zeny, Zeny - @playerzeny; 

set @closetzeny, @closetzeny+@playerzeny; 



mes "[ Player ]"; 

mes "Дал дальше? Ок!"; 

next; 

mes "Ход; нпс..."; 

goto AINPC; 



fall: 



mes "[ Player ]"; 

mes "Сразу бы так!"; 

next; 

goto play; 



vsk: 

next; 



if(Zeny<@playerzeny) goto PlayerWord; 



set Zeny, Zeny - @playerzeny; 

set @closetzeny, @closetzeny+@playerzeny; 



if(@cardpoint<@compcardpoint) goto zakcompwin; 

mes "[ Player ]"; 

mes "Твои очки = "+@cardpoint; 

mes "Мои очки = "+@compcardpoint; 

mes "Вы выйграли!"; 

set Zeny,Zeny + @closetzeny; 

emotion 29,1; 

emotion 32; 

next; 

goto play; 



zakcompwin: 

mes "[ Player ]"; 

mes "Твои очки = "+@cardpoint; 

mes "Мои очки = "+@compcardpoint; 

mes "Вы проиграли!"; 

emotion 29; 

emotion 32,1; 

next; 

goto play; 

AINPC: 

if(@compcardpoint<10) goto compfall; 

if(@compcardpoint>=10) & (@compcardpoint<=18) goto compvskr; 

if(@compcardpoint>18) goto compdal; 



compfall: 

set @ai,rand(1,2); 

if(@ai == 1) goto compdal; 

next; 

mes "[ Player ]"; 

mes "Я упал!"; 

mes "Ты выйграл!"; 

emotion 29,1; 

set Zeny, Zeny + @closetzeny; 

next; 

goto play; 



compvskr: 

set @ai,rand(1,2); 

if(@ai == 1) goto compdal; 

next; 

mes "[ Player ]"; 

mes "Я тя вскрою!"; 

set @closetzeny,@closetzeny+@playerzeny; 

next; 

if(@cardpoint<@compcardpoint) goto vskzakcompwin; 

mes "[ Player ]"; 

mes "Твои очки = "+@cardpoint; 

mes "Мои очки = "+@compcardpoint; 

mes "Вы выйграли!"; 

set Zeny,Zeny + @closetzeny; 

emotion 29,1; 

emotion 32; 

next; 

goto play; 



vskzakcompwin: 

mes "[ Player ]"; 

mes "Твои очки = "+@cardpoint; 

mes "Мои очки = "+@compcardpoint; 

mes "Вы проиграли!"; 

emotion 29; 

emotion 32,1; 

next; 

goto play; 



compdal: 

next; 

set @closetzeny, @closetzeny+@playerzeny; 



mes "[ Player ]"; 

mes "Я дальше! Твой ход!"; 

next; 

goto PlayerWord; 

}

Автор: : Дата: 01.01.1970