Добро пожаловать к нам в гости! Наш сайт посвящён программе NeoBook, с помощью которой вы легко сможете создавать собственные мультимедиа-приложения без необходимости изучать сложные языки программирования! Зарегистрируйтесь, чтобы стать членом нашего сообщества.
чтобы не проверять на 0 почему бы не включить 0 в число мастей, 0,1,2,3 ?
вместо Gotoline которые все сломаются и не заметишь после добавления кода используй такой прием:
:razdacha Random"4""[mast]" Random"6""[karta]"
Loop"1""8""[i]"
While"[mast]""=""0" Random"4""[mast]" endwhile
While"[karta]""=""0" Random"6""[karta]" endwhile
делаешь рандом перед блоками цикла, если окажется потом что там 0, будет цикл While который прервется когда random выдаст число>0 (условие While [x] = 0 нарушится). Далее исправлять не стал т.к. сломались все Gotoline и код стал нечитаем. Используй Gotoline только при крайней нужде.
Добавлено (29 Ноябрь 2011, 17:41) ---------------------------------------------
Quote (novichok)
подскажите как зделать,кому не лень
подскажем, тут мозголомство но думаю можно сделать. А как ты потом собираешься проверять старшинство карт при игре, по именам файлов где цифры больше? короче, пока задача сводится к уникальной сортировке кучи картинок по группам, а вот чем дальше в лес тем дров будет больше. Как задавать вопросы
точно как я не догодался,буду ещё голову ломать,спасибо
Добавлено (29 Ноябрь 2011, 17:45) ---------------------------------------------
Quote (DEMBEL)
А как ты потом собираешься проверять старшинство карт при игре, по именам файлов где цифры больше?
ну думал о бэтом-,1-1 маленькая 1-6 взрослая,както так
Добавлено (29 Ноябрь 2011, 17:46) --------------------------------------------- поэтому и хочу мозг поломать,все-таки интерестная программа!!!!!
Добавлено (29 Ноябрь 2011, 17:58) --------------------------------------------- блин все ровно одинаковые карты вылазют :razdacha Loop "1" "8" "[i]" Random "4" "[mast]" Random "6" "[karta]" While "[mast]" "=" "0" Random "4" "[mast]" endwhile
While "[karta]" "=" "0" Random "6" "[karta]" endwhile If "[lev-igrok[i]]" "=" "0" If "[mast]_[karta]" "<>" "1" SetVar "[kar[i]]" "[put-karta]\[mast]\[mast]_[karta].png" SetVar "[lev-igrok[i]]" "1" SetVar "[mast]_[karta]" "1" EndIf Else GotoLine "3" EndIf endloop
Loop "9" "15" "[i]" Random "4" "[mast]" Random "6" "[karta]" While "[mast]" "=" "0" Random "4" "[mast]" endwhile
While "[karta]" "=" "0" Random "6" "[karta]" endwhile If "[ya-igrok[i]]" "=" "0" If "[mast]_[karta]" "<>" "" SetVar "[kar[i]]" "[put-karta]\[mast]\[mast]_[karta].png" SetVar "[ya-igrok[i]]" "1" SetVar "[mast]_[karta]" "1" EndIf Else GotoLine "23" EndIf endloop
Loop "16" "23" "[i]" Random "4" "[mast]" Random "6" "[karta]" While "[mast]" "=" "0" Random "4" "[mast]" endwhile
While "[karta]" "=" "0" Random "6" "[karta]" endwhile If "[prav-igrok[i]]" "=" "0" If "[mast]_[karta]" "<>" "1" SetVar "[kar[i]]" "[put-karta]\[mast]\[mast]_[karta].png" SetVar "[prav-igrok[i]]" "1" SetVar "[mast]_[karta]" "1" EndIf Else GotoLine "42" EndIf endloop Return
да погоди, я тебе просто показал как лучше код писать... подумаем еще, что можно сделать.
Добавлено (29 Ноябрь 2011, 18:17) --------------------------------------------- а почему не все GotoLine исправил? они же сломанные теперь. для [lev-igrok[i]] и прочих тоже исправь проверки на 0
Одинаковые карты вылезают потому-что нет учета того, что уже роздано, и того, что осталось. Создай список карт (через ListBox), вычеркивай (удаляй) уже розданные, а раздачу продолжай из того, что осталось. - А вам какую операционку поставить - экспи, семерку или висту? - Это ты сейчас о чем? - Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный? - Ну, конечно, надежный! - Вот, значит - экспи, без вопросов! Сейчас сделаем...
(Улицы разбитых фонарей, сезон 10, серия 17)
Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!
При модном втюхе модоподдающимся начинает нравиться
Кстати, забыл сказать... Можно все сделать ещё проще (как в классической живой игре): заполнить список карт (ListBox) в случайном порядке (перемашать колоду), а затем раздавать, например, по-одной карте либо "сверху", либо "снизу". - А вам какую операционку поставить - экспи, семерку или висту? - Это ты сейчас о чем? - Олег Георгиевич, вам какой компьютер хотелось бы - молодежный или надежный? - Ну, конечно, надежный! - Вот, значит - экспи, без вопросов! Сейчас сделаем...
(Улицы разбитых фонарей, сезон 10, серия 17)
Единственная инновация Windows 8 это - Metro, чтобы дебилы по иконкам не промахивались!
При модном втюхе модоподдающимся начинает нравиться
