Не могу в игре реализовать Checkbox

[Serg-Grin]

Помогите. Я создаю игру, у меня на форме 8 checkbox.
1. Есть моя сторона checkbox
2. Есть сторона checkbox компьютера
Вот:


На свою сторону checkbox защиту и атаку можно выставить только по одному checked. (по одной галочке).
Компьютер выставляет сам (уже сделано).

Своя сторона:
checkbox1,checkbox2,checkbox3,check box4.
Компьютера сторона:
checkbox5,checkbox6,checkbox7,check box8.

Своя сторона: если (checkbox1.checked = checkbox5.checked) значит (в label выводится текст) он блокировал мой удар. А если (checkbox1<>checkbox5) значит я попал.

Так само я делаю из тремя checkbox на своей стороне, но появляется проблема:
Как бы я не расставил галочку (можно только по 1 у защите и у атаке), у меня выводит текст, что вы попали в checkbox8. И так всегда. А как сделать чтобы и в тот и втот попадало ??? Это я не знаю. Прошу, помогите, очень нужно. Спасибо

[ROD]

А о том, как вы это все делаете, мы должны узнавать с помощью телепатии?

[Juffin]

если честно, то ничего не понял. В какой "в этот и в тот"?

(checkbox1.checked = checkbox5.checked)

т.е. если оба чекбокса не отмечены то удар все равно заблокирован? как то странно

[Beermonza]

Вместо CheckBox нужно использовать RadioButton, помещенные в GroupBox они не дадут нажать сразу несколько положений в защите и/или атаке.

Создайте переменную для защиты и атаки, например:

Var
  MyDefense, MyAttack: Byte; // для меня
  CompDefense, CompAttack: Byte; // для компа

На OnClick каждого переключателя RadioButton запишите код, типа:

If RadioButtonMyDefense1.Checked then MyDefense := 1;

Этот код записывает в переменную вашей защиты порядковый номер. Номера означают место защиты. Проделайте так со всеми переключателями для защиты и атаки, ...для себя.

У компьютера будет случайный выбор защиты и атаки:

Randomize;
// защита
CompDefense := Random(4) + 1; //(1 - 4)
// атака
CompAttack := Random(4) + 1; //(1 - 4)

Сверяйте их крест на крест:

If CompAttack = MyDefense then // процедура "я защитился"
else // процедура "мне вломили"

If CompDefense = MyAttack then // процедура "комп защитился"
else // процедура "я ему вломил"

Пробуйте.

[apromix]

Дополню Beermonza

Лучше используйте компонент TRadioGroup, добавьте в него 4 поля и получайте или настраивайте их состояния с помощью свойства ItemIndex Код в разы упроститься и станет понятливее А че за игра? Заинтересовало Случайно не RPG?

[Serg-Grin]

Игра на подобе, онлайн игры privateer.ru
Хочу сделать похоже на нее.
У меня все же не вышло реализовать бой.
Вот исходник:
сражение.rar

[apromix]

Посмотрел исходник, мне несовсем непонятно, что именно нужно сделать. Объясни понятно, сделаю.

[Serg-Grin]

Есть 4 чекбокса - player
-checkbox1
-checkbox2
-checkbox3
-checkbox4
Есть 4 чекбокса - enemy
-checkbox5
-checkbox6
-checkbox7
-checkbox8
Есть button - Продолжить
В button пишем,
if checkbox1.checked=checkbox5.checked then
showmessage ('Он защитился от удара'); \\Если чекбокс 1 = чекбокс 2 значит он защитился а если...
if checkbox1.checked<>checkbox5.checke d then
showmessage ('Вы попали в него'); \\Если чекбокс 1 <> чекбокс 2 значит я попал в него...

Эта схема у меня работает, но когда я делаю на все остальные чекбоксы этот код, то ничего не получется...выходит путавщина. Вот так вот ((( Помогите

[apromix]

Так, вот набросал на форму, правильно?

[Serg-Grin]

Да все правильно, но как реализовать теперь это?