Что нового

[Данные, строки] Саморазвивающаяся игра в загадки с компьютером

Suppir

Продвинутый
Сообщения
967
Репутация
62
А можно здесь выложить программу целиком?

Я боюсь на такие сайты с сервера заходить :smile:
 
Автор
F

forfrends

Новичок
Сообщения
176
Репутация
3
[Данные, строки] Re: [Данные, строки] Саморазвивающаяся игра в загадки с компьютером

Пробовал, код слишком длинный, не печатается весь
Сайт нормальный, сам создал
http://filer.ucoz.com/load/igry/2

Но если сайт не нравится вот ссылочка на депозит (там установщик 1мб, в нем же и код находится)
http://filer.ucoz.com/games/zagadki_1.2.1.zip
 
Автор
F

forfrends

Новичок
Сообщения
176
Репутация
3
По просьбе читателей...
Вот код программы:
[box title=TitleBox]Dim $slovo[10000]
Dim $vopr[10000]
Dim $sl[10000]
$timer = 0
$v=0
$blok=1
$i = 1
$imx = 1
$sl = 'А какой вопрос можно задать к слову '
$mesage = 'Загадки v.1.2.0' & @CRLF & @CRLF & 'Создана Силенок И.Н.' & @CRLF & '[email protected]' & @CRLF & @CRLF & 'Программа распространяется бесплатно,' & @CRLF & 'но вы можете перечислить любу сумму на предложенный счет:' & @CRLF & @CRLF
$mesage2 = 'WebMoney: Z276423836545 R388159260110' & @CRLF & 'LibertyReserve: U8876395' & @CRLF & 'PayPol: [email protected]'
$mesage3 = @CRLF & @CRLF & 'Чтобы это сообщение в дальнейшем не появлялось автоматически,' & @CRLF & 'перечислите любую сумму на любой, вышеуказанный счет' & @CRLF & 'С пометкой "За игру" и вашим имейлом' & @CRLF & 'В ответ получите код отмены'

$file4 = FileOpen("file.idl", 0)
If $file4 = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
$timer = $timer + 1
$timer1 = FileReadLine($file4)
If @error = -1 Then ExitLoop
Wend
FileClose($file4)

$file1 = FileOpen("sl.dl", 0)
$file2 = FileOpen("vo.dl", 0)
$file3 = FileOpen("ii.dl", 0)
If $file1 = -1 Then
MsgBox(0, "Error", "Unable to open file.")
Exit
EndIf
While 1
$i = FileReadLine($file3)
$slovo[$i] = FileReadLine($file1)
$vopr[$i] = FileReadLine($file2)
If @error = -1 Then ExitLoop
Wend
FileClose($file1)
FileClose($file2)
FileClose($file3)

$mes = 'Загадки v.1.2.0' & @CRLF & @CRLF & 'Создана Силенок И.Н.' & @CRLF & '[email protected]' & @CRLF & 'Самообучающаяся программа в загадки с компьютером.' & @CRLF & 'Компьютер пытается отгадать слово,' & @CRLF & ' которое вы загадали.' & @CRLF & 'Чем больше вы будете играть,' & @CRLF & 'тем больше компьютер будет знать!' & @CRLF & 'Итак, загадайте слово!'
MsgBox(64, "Начало", $mes)

$i = 1
Do

If $blok=1 Then
$i = 1
$blok=2
EndIf

If $blok=2 Then
$s=MsgBox(4, "Вопрос", $vopr[$i])
; 6 = да
; 7 = нет
;MsgBox(4, "Вопрос", $s)
If $s=6 Then $blok=35
If $s=7 Then $blok=3
EndIf

If $blok=3 Then
$i=($i*2)+1
if $imx < $i Then $imx = $i
$blok=4
EndIf

If $blok=4 Then
If $vopr[$i] = '' Then
$SPC = Random(1, 7, 1)
if $SPC = 1 Then $Qve ='Сдаюсь! Какое слово ты загадал?'
if $SPC = 2 Then $Qve ='Ты такое слово загадал, что и не отгадаешь! Что ты загадал?'
if $SPC = 3 Then $Qve ='Все! У меня больше нет вариантов! Что за слово ты загадал?'
if $SPC = 4 Then $Qve ='Все перепробовал! Незнаю что ты загадал. Скажи свое слово.'
if $SPC = 5 Then $Qve ='Ты наверное гений! Загадал такое слово, что и не отгадаешь! Что ты загадал?'
if $SPC = 6 Then $Qve ='Немогу отгадать твое слово! Что ты загадал?'
if $SPC = 7 Then $Qve ='Сдаюсь! Скажи, какое слово ты загадал?'
$slovo[$i] = InputBox("Незнаю слова", $Qve, "", "")
$slovo[$i] = $slovo[$i] & Chr(63)
;MsgBox(4, "Вопрос", $slovo[$i])
$SPC = Random(1, 6, 1)
if $SPC = 1 Then $sl = 'Незнаю такого слова. Что такое ' & $slovo[$i]
if $SPC = 2 Then $sl = 'А какой вопрос можно задать к слову ' & $slovo[$i]
if $SPC = 3 Then $sl = 'Что такое ' & $slovo[$i] & ' Первый раз слышу.'
if $SPC = 4 Then $sl = 'Никогда не слышал это слово. Опиши, что такое ' & $slovo[$i]
if $SPC = 5 Then $sl = 'Ты, наверное, в словаре вычитал. Так что же такое ' & $slovo[$i]
if $SPC = 6 Then $sl = 'Ты специально выбрал слово которе я незнаю? Как описать ' & $slovo[$i]
;$sl = 'А какой вопрос можно задать к слову ' & $slovo[$i]
$vopr[$i] = InputBox("Незнаю слова", $sl, "", "")
$vopr[$i] = $vopr[$i] & Chr(63)
$blok=1
$v=MsgBox(4, "Вопрос", "Еще сыграем?")
FileWriteLine("sl.dl", $slovo[$i] & @CRLF)
FileWriteLine("vo.dl", $vopr[$i] & @CRLF)
FileWriteLine("ii.dl", $i & @CRLF)
if $timer >10 then MsgBox(64, "О программе", $mesage & $mesage2 & $mesage3)
;MsgBox(64, "О программе", $mesage & $mesage2)
Else
$blok=2
EndIf
EndIf

If $blok=35 Then
$t=MsgBox(4, "Вопрос", $slovo[$i])
If $t=6 Then
$blok=1
$v=MsgBox(4, "Вопрос", "Еще сыграем?")
EndIf
If $t=7 Then
$i=($i+1)*2
if $imx < $i Then $imx = $i
$blok=4
EndIf
EndIf

Until $v=7

if $timer < 200 Then $timer = $timer + 1
FileWriteLine("file.idl", $timer & @CRLF)
if $timer >199 then MsgBox(64, "О программе", $mesage & $mesage2)
[/box]


Добавлено:
Сообщение автоматически объединено:

К программе должны еще прилагаться 4 файла, в каждом по одной строке:
ii.dl = "1"
sl.dl = "Кошка?"
vo.dl = "Умеет мяукать?"
file.idl = "0"

без них может заглючить
 

Suppir

Продвинутый
Сообщения
967
Репутация
62
Сразу выдает ошибку (не объявлены переменные)
 
Автор
F

forfrends

Новичок
Сообщения
176
Репутация
3
Попробуй скачать с депозита, там и код и скомпилированная игра попробуй. У меня работает так как есть
Вот ссылка:
http://filer.ucoz.com/games/zagadki_1.2.1.zip

К тому же сам код без дополнительных 4-х файлов врядли будет работать (смотреть выше)

На всякий случай я и код отредактировал, выложил по-новой.
 
Верх