Мини игра))

[Kubix!]

Только что сделал... от скуки))

Так вот, игра типа лотереи.. только нужно выиграть 3 раза что бы получить утроенный приз.

set @wantplay,rand(1,2);

здесь изменяем кол-во чисел нпца.

set $@ItemID,rand(7227,7230);

тут меняем ид итемов для игры.

set $@ItemCount,rand(1,3);

а тут кол-во..

Приз за победу изменяется ГМом прям в игре.

Если у кого-то есть какие-то идеи/пожелания/критика, с радостью выслушаю.

Изменено 6 января, 2012 пользователем ocelote =*

[nomn]

Молодец, за старания +, но учись писать читабельно. Эту пеленку трудно воспринимать.

И еще ты забыл в case указать break. Когда после IF выполняется только 1 команда, то можно обходиться

без операторных скобок {}, например так

if(select("[Играть]:[Забить]")==2)
    close;

Как-то вот так:

izlude,70,181,6 script  Scream RO       995,{

	set $@GMLevel,99;
	set $@ItemID,rand(7227,7230);
	set $@ItemCount,rand(1,3);

	if(countitem($@ItemID)>=$@ItemCount)
	{
		dispbottom "Вы имеете "+getitemname($@ItemID)+" будем играть?";
		set $@WinTime,3;
		callfunc "play_or";
	}

	dispbottom "Вы не имеете "+getitemname($@ItemID)+"";
	close;
}

function        script  play_or {

	if(getgmlevel()<$@GMLevel)
	{
		// Лабель в ифе? Оо
		Play:
		if($MyGame == 0)
		{
			dispbottom "Игра выключена.";
			close;
		}

		if(select("[Играть]:[Забить]")==2)
		{
			close;
		}

		delitem $@ItemID,$@ItemCount;
		set @wantplay,rand(1,2);
		input @player;

		if(@wantplay!=@player)
		{
			dispbottom "Вы проиграли";
			set $@WinTime,3;
			if(select("[Играть снова]:[Забить]")==2)
			{
				close;
			}

			callfunc "play_or";
		}
		else
		{
			set $@WinTime,$@WinTime-1;
			dispbottom "Вам нужно выиграть ещё "+$@WinTime+" раз(-а) что бы взять приз!..";
			if($@WinTime==0)
			{
				getitem $@PrizeID,$@PrizeCount*3;
				set $@WinTime,3;
				callfunc "play_or";
			}

			if(select("^0000FFПобеда^000000 [Играть снова]")==1)
			{
				goto Play;
			}
		}
	}
	else
	{
		switch(select("[Приз] ^FF0000"+getitemname($@PrizeID)+"^000000:[Кол-во] ^0000FF"+$@PrizeCount+"^000000:[Игра ВКЛ/ВЫКЛ]:[Играть]"))
		{
			case 1:
				input .priz;
				set $@PrizeID,.priz;
				callfunc "play_or";
			break;

			case 2:
				input .count;
				set $@PrizeCount,.count;
				callfunc "play_or";
			break;

			case 3:
				if($MyGame == 0)
				{
					set $MyGame,1;
					callfunc "play_or";
				}
				else
				{
					set $MyGame,0;
					callfunc "play_or";
				}
			break;

			case 4:
				goto Play;
			break;
		}
	}
}

[Kubix!]

спасибо за подсказку.как буду дома выложу новую версию.т.к. в этой много багов.

АП первый пост.Спасибо nomn'у.

Изменено 6 января, 2012 пользователем ocelote =*