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

Назад

Трынька

Автор: Anton: Дата: 11.06.2008

//===== 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,152,145,4    script    Player    944,{



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