| Вопрос: ошибка в программе, помогите найти. | Добавлено: 24.10.04 22:42 |
Автор вопроса:  Unheilig | Web-сайт: www.tarjaturunen.narod.ru | ICQ: 336859855 |
| Ответы | Всего ответов: 29 |
|
Номер ответа: 16 Автор ответа:  someone Вопросов: 215 Ответов: 1596 |
Web-сайт: Профиль | | #16 | Добавлено: 25.10.04 12:57 |
|
у нас ща информатик токо начал преподавать бейсик. информатика не бесплатна, но обязательна (парадокс). я на нее перестал ходить, препод, как-то поймал - чё не ходишь? - а нафиг?
он меня в 5 класе как-то пробовал учить бейсику, да я его шарахнул одной из своих прог, он сам еще бейсик 2 месяц тогда учил вот он и отстал от меня. а паскаля в Черкасских школах в глаза не видели |
||
|
Номер ответа: 17 Автор ответа:  CyRax  Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #17 | Добавлено: 26.10.04 00:46 |
| У нас в школе Бейсик на "Истрах" (или как там их) ещё преподавали. Я на информатику вообще не ходил. Пришёл на экзамен, а там все полные дубы - никто нихрена не знает. Я ему всё ответил, а он мне 4 поставил - из принципа. А на Псакаль я неходил потому что препод плохой был. Женщина, визгливая впридачу. Она как разоралась на всех на первом занятии, так я больше там и не появлялся. Обычно если мне препод не нравился, то я этого предмета вообще не знал. | ||
|
Номер ответа: 18 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #18 | Добавлено: 26.10.04 01:13 |
|
Попробуй такой вариант:
Private Sub Form_Load() Dim Damage(0 To 3) As Byte Damage(0) = 20 'Head Damage(1) = 15 'Bodey Damage(2) = 10 'Hands Damage(3) = 5 'Legs Dim Player1_Health As Integer, Player2_Health As Integer Player1_Health = 100: Player2_Health = 100 'Health Dim Player1 As Byte, Player2 As Byte, Luck As Byte Randomize Timer Do Until Player1_Health < 1 Or Player2_Health < 1 Player1 = Int(4 * Rnd): Player2 = Int(4 * Rnd) Luck = Int(2 * Rnd) If Player1 <> Player2 Then Select Case Luck Case 0 Player2_Health = Player2_Health - Damage(Player1) Case 1 Player1_Health = Player1_Health - Damage(Player2) End Select End If Loop Dim Result As String Result = "Battle finished!" & vbCr & "Player " If Player1_Health < 1 Then Result = Result & "2" Else Result = Result & "1" Result = Result & " win." & vbCr & vbCr & _ "Player 1 heals: " & Player1_Health & vbCr & _ "Player 2 heals: " & Player2_Health MsgBox Result End Sub Здесь: Damage - уровень повреждения для каждой части тела Player1_Health и Player2_Health - уровень здоровья игроков Player1 и Player2 - куда попал удар (случайно) Luck - какой из игроков ударил (случайно). Кстати можно миниконкурс устроить на движок битвы. Кому интересно оставьте тут свой вариант. |
||
|
Номер ответа: 19 Автор ответа: Unheilig ICQ: 336859855 Вопросов: 9 Ответов: 32 |
Web-сайт: Профиль | | #19 | Добавлено: 26.10.04 04:00 |
| миниконкурс на движок битвы? интересно! | ||
|
Номер ответа: 20 Автор ответа: UnheiligICQ: 336859855 Вопросов: 9 Ответов: 32 |
Web-сайт: Профиль | | #20 | Добавлено: 26.10.04 06:21 |
|
ну к примеру я такой делаю:
есть Герой (у него есть характеристики, типа сила,ловкость...), и есть противник  есть 4 вида ударов и 4 защиты. далее идут вычисления ударов. у кого другие идеи?
|
||
|
Номер ответа: 21 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #21 | Добавлено: 26.10.04 07:25 |
| Можно добавить мораль, удачу и опыт как в HMM. | ||
|
Номер ответа: 22 Автор ответа: UnheiligICQ: 336859855 Вопросов: 9 Ответов: 32 |
Web-сайт: Профиль | | #22 | Добавлено: 26.10.04 11:50 |
| Опыт это здорово, а мораль на что с удачей влияет? | ||
|
Номер ответа: 23 Автор ответа: astoro ICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #23 | Добавлено: 26.10.04 14:04 |
|
Еще можно Боевое мастерсво и различные виды оружия и доспехов, хорошая мораль добавляет вероятности положительного удара, а хорошая удача - уменьшает повреждения от пропущенного удара...
Dungeon&  ragons получился ))
|
||
|
Номер ответа: 24 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #24 | Добавлено: 26.10.04 14:08 |
| А также можно ввести навыки в определенных видах оружия (режущее - меч, палаш, кинжал; колющее - пика, копье; ударно-дробящее - молот, палица, кистень, цеп). В случае удачного исхода боя, боец улучшает свой навык вледния данным видом оружия, что влияет на его боевое мастерство. | ||
|
Номер ответа: 25 Автор ответа: UnheiligICQ: 336859855 Вопросов: 9 Ответов: 32 |
Web-сайт: Профиль | | #25 | Добавлено: 26.10.04 16:53 |
Всё это есть гуд, но сложно наверное будет 
|
||
|
Номер ответа: 26 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #26 | Добавлено: 27.10.04 00:21 |
|
astoro,
Ты немного перепутал. Удача влияет на силу удара, а мораль на самого героя. У кого выше мораль, тот например бъёт первым, а если мораль совсем высокая, то может ударить два раза за ход. Аналогично для низкой морали. Если совсем низкая, то не может вообще ударить. |
||
|
Номер ответа: 27 Автор ответа: astoroICQ: 649109 Вопросов: 31 Ответов: 391 |
Профиль | | #27 | Добавлено: 27.10.04 06:37 |
|
Я не перепутал, просто ты говоришь про HMM, а я про Dungeon&ragons
А вообще, правила настольных ролевых игр не возбраняют каждому писать свои правила, придумывать свои качества и навыки героя, у каждого свое разумение морали, например, в HMM войсками управляет герой, поэтому низкая мораль обозначает то, что войска герою подчиняются слабо и могут вообще на его приказы забить. В нашем же случае героя нет, а есть боец, поэтому и смысл его собственной морали другой... Или я не прав? |
||
|
Номер ответа: 28 Автор ответа: CyRax Разработчик Offline Client ICQ: 204447456 Вопросов: 180 Ответов: 4229 |
Web-сайт: Профиль | | #28 | Добавлено: 27.10.04 07:08 |
| Мораль - боевой дух. Или говоря иными словами - храбрость. На что конкретно они влияют зависит от типа игры, но общие правила для оперделения "мораль" всё же есть. Ты конечно можешь отойти от этих правил, но тогда играющем в твою игру прийдётся под них адаптироваться. | ||
|
Номер ответа: 29 Автор ответа: ZagZagICQ: 295002202 Вопросов: 87 Ответов: 1684 |
Профиль | | #29 | Добавлено: 27.10.04 13:01 |
|
Может тогда не мораль, а ловкость?
Если ловкость выше, то и быить можно чаще и удары отражать лучше... хотя это про Realtime-game's... |
||