Форум: "Игры";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];
ВнизПри условии несколько действий Найти похожие ветки
← →
Eugewik (2007-06-10 16:23) [0]при нажатии кнопки, если денег больше 50, должны изменяться 3 параметра (opit,reiting,money), а если нет, то сообщение "нехватает денег"
щас стоит вот что:
if money>100 then
money:=money-100 else showmessage("не хватает денег");
reiting:=reiting+5;
opit:=opit+100;
Когда денег нету, выскакивает сообщение "Денег нету" и повышается опыт и рейтинг (
плиз хелп
← →
dFedor © (2007-06-10 17:00) [1]исправь код на:)
if money>100 then begin
money:=money-100;
reiting:=reiting+5;
opit:=opit+100;
end
else showmessage("не хватает денег");
← →
@!!ex_ (2007-06-10 17:18) [2]LOL. Начинающиу чтоли?
учись юзать операторные скобки.
begin...end
читай маны.
← →
Eugewik (2007-06-10 17:38) [3]Да, я начинающий,у меня сначала было:
if money>100 then
begin
money:=money-100;
reiting:=reiting+5;
opit:=opit+100;
else
showmessage("не хватает денег");
писалась ошибка, я не понимал в чём проблема, а теперь понял end :) ,спасибо большое )
← →
antonn © (2007-06-10 19:00) [4]
> Да, я начинающий,у меня сначала было:
вот где в нулевом посте есть упоминание того, "чот было"? :)
← →
Eugewik (2007-06-10 19:37) [5]Не понял ? :),Ю напиши с знаками препинания )
← →
Eugewik (2007-06-10 19:39) [6]И вообще , кто хочет поссмотреть и помочь исправить мне мою ПЕРВУЮ в жизни полность сделанную мною игру ? ))
← →
@!!ex_ (2007-06-10 19:48) [7]> [5] Eugewik (10.06.07 19:37)
Хм. А я - понял. Русски ни панимайт?
> [6] Eugewik (10.06.07 19:39)
Чиста паржать?
← →
dFedor © (2007-06-10 20:27) [8]
> Eugewik
о да я представляю что за игра...ото лучче не позорься и не смеши народ)
← →
Eugewik (2007-06-10 22:14) [9]Ну как хотите :)
← →
rumpelshtilchen © (2007-06-10 23:25) [10]Вышли мне
← →
@!!ex_ (2007-06-10 23:59) [11]> [6] Eugewik (10.06.07 19:39)
Если ты на самом деле планируешь стать нормальным программером, и понимаешь, что придется основательно попотеть и выбросить в мусорку несколько проектов, то выкладывай. Но готовься к тому, что найдутся и те, кто посмеется, и те кто обругает, и те кто поможет и подскажет.
Здесь не буду восхищаться. Я за все время прошедшее с тех пор как зарегился, видел восхищение лишь двумя проектами серьезными. Rust и Metal&Fire.
Когда игру не тестили, в них играли. Если ты хочешь в будущем сделать что-то чем будут восхищаться, то выкладыай и приготовься к острой критике.
← →
evgewik (2007-06-11 07:11) [12]не, игру я выкладывать не хочу, уж больно она простенькая, так что не хочу критики и насмешек. Я бы хотел кому нибудь выслать, чтобы показали мне они ошибки,исправил бы или просто сказал где, что не так, а где можно сделать проще,мне это надо, чтобы в будущем не совершать таких ошибок, как говорится, на ошибках учатся. я знаю, что ошибки у меня есть, но как исправить их- незнаю. Завтра или сегодня наверное уже сделаю, так что пишите если че.
← →
evgewik (2007-06-11 09:20) [13]а, еще, кому не трудно дайте ссылку на игру rust или metal&fire
← →
Eugewik (2007-06-11 15:54) [14]Опять проблемка :( , помогите плиз
даны 6 кнопок, допустим button1,button2,button3,button4,button5,button6,
при нажатии кнопки 1(button1), если й>2, изменяется 4 параметра(например: й:=й+1; ц:=ц+1;у:=у-1;к:=к+1;) и кнопка 1 становится недоступной(enabled:=false), если денег нет, сообщение об этом . При нажатии кнопки 2 (button2),если й>2, изменяется 4 параметра(например: й:=й+2; ц:=ц+2;у:=у-2;к:=к+2;) и кнопка 1 и 2 становится недоступоной button1.enabled:=false;. При нажатии кнопки 3,если й>2, изменяется 4 параметра(хоть на сколько ) и становятся недоступными кнопки 1,2 и 3 и тд.
← →
dFedor © (2007-06-11 15:55) [15]
> Eugewik
а в чем собственно проблема? ты чет вроде о ней ни слова не сказал
← →
rumpelshtilchen © (2007-06-11 16:17) [16]
> Eugewik (11.06.07 15:54) [14]
>
> Опять проблемка :( , помогите плиз
> даны 6 кнопок, допустим button1,button2,button3,button4,
> button5,button6,
> при нажатии кнопки 1(button1), если й>2, изменяется 4 параметра(например:
> й:=й+1; ц:=ц+1;у:=у-1;к:=к+1;) и кнопка 1 становится недоступной(enabled:
> =false), если денег нет, сообщение об этом . При нажатии
> кнопки 2 (button2),если й>2, изменяется 4 параметра(например:
> й:=й+2; ц:=ц+2;у:=у-2;к:=к+2;) и кнопка 1 и 2 становится
> недоступоной button1.enabled:=false;. При нажатии кнопки
> 3,если й>2, изменяется 4 параметра(хоть на сколько ) и становятся
> недоступными кнопки 1,2 и 3 и тд.
А в чём проблема - то
procedure TForm.ButtonClick(Sender: TObject);
begin
if i>2 then
begin
i:=i+1;
j:=j+1;
k:=k-1;
l:=l+1;
button.enabled:=false;
end
else
ShowMessage("i<2");
end;
-
Это для первой, а далее сам давай
← →
dFedor © (2007-06-11 16:33) [17]
> Eugewik
и вообще если ты начинающий так лучче уж возьми какую-нить книгу по паскалю порешай задачи....а то сразу в делфя лезть...а ошибки надо самому искать а то так ты ой не многому сможеш научится....
← →
Eugewik (2007-06-11 16:51) [18]Короче, мне нужно сделать так, что если выбираешь кнопку 1 она потухает, если нажимаешь кнопку 2 , потухает она и кнопка 1 , если кнопка 3, то потухает она 1 и 2, у меня сейчас вот так :
procedure Tmyach.Button1Click(Sender: TObject);
begin
if moneyg>0 then begin
sk:=sk+1;
vraw:=vraw+1;
contr:=contr+1;
moneyg:=moneyg-1;
button1.Enabled:=false;
end
else
showmessage("Эх деньги... ");
end;
procedure Tmyach.Button2Click(Sender: TObject);
begin
if moneyg>2 then begin
sk:=sk+1;
vraw:=vraw+1;
contr:=contr+1;
end
else
showmessage("Эх деньги... ");
if button2.Enabled=true then begin
sk:=sk+1;
vraw:=vraw+1;
contr:=contr+1;
button1.Enabled:=false;
end
else
button1.Enabled:=false;
button2.Enabled:=false;
moneyg:=moneyg-3;
end;
А дальше я совсем запутался, как это сделать с 3 ,4 ,5 и 6 кнопке, может я иду не по правильному пути ?
← →
dFedor © (2007-06-11 17:03) [19]
> Eugewik
если я тебя правильно понял то ...и еще раз повторюсь читай книги по паскалю...
if moneyg>0 then begin
sk:=sk+1;
vraw:=vraw+1;
contr:=contr+1;
moneyg:=moneyg-1;
for i:=1 to n do
btn[i].enabled:=false;
end
else
showmessage("Эх деньги... ");
btn - массив из твоих кнопок, n - номер нажатой кнопки
← →
Eugewik (2007-06-11 17:08) [20]:) спасибо, и кода меньше будет
Страницы: 1 вся ветка
Форум: "Игры";
Текущий архив: 2009.07.26;
Скачать: [xml.tar.bz2];
Память: 0.49 MB
Время: 0.843 c