Отправлено: 20.11.13 13:21. Заголовок: Хабром навеяно, до 30 строк ...

Вот набросал змейку на harbour, сильно урезано, без хвоста, без проверок всяких, можно еще кое-что втиснуть чтоб было 30 строк, но можно поиграться.
Может у кого уже есть подобное, выкладывайте.

 
 FUNC Main() 
    LOCAL showD := {|| aField[ 1 ] := hb_RandomInt( 0, MaxRow() ), aField[ 2 ] := hb_RandomInt( 0, MaxCol() ), DevPos( aField[ 1 ], aField[ 2 ] ), DevOut( "*" ) } 
    PRIVATE aField:={0,0,0,{{hb_RandomInt(0,MaxRow()),hb_RandomInt(0,MaxCol())}},1,"█"} 
    cls 
    SET CURSOR OFF 
    Eval( showD ) 
    WHILE ( nKey := LastKey() ) != 27 
       aEval( aField[4], {|x|DevPos(x[1],x[2]),DevOut(aField[6])} ) 
       Inkey( .2 ) 
       IF nKey == 4 .OR. nKey == 19 /* RIGHT, LEFT */ 
          aadd(aField[4],{aField[4,Len(aField[4]),1],iif( aField[4,Len(aField[4]),2] == iif( nKey == 4, MaxCol(), 0 ), iif( nKey == 4, 0, MaxCol() ), iif( nKey == 4, aField[4,Len(aField[4]),2] + 1, aField[4,Len(aField[4]),2] - 1 ) )}) 
       ELSEIF nKey == 5 .OR. nKey == 24 /* UP, DOWN */ 
          aadd(aField[4],{iif( aField[4,Len(aField[4]),1] == iif( nKey == 5, 0, MaxRow() ), iif( nKey == 5, MaxRow(), 0 ), iif( nKey == 5, aField[4,Len(aField[4]),1] - 1, aField[4,Len(aField[4]),1] + 1 ) ),aField[4,Len(aField[4]),2]}) 
       ENDIF 
       IF aField[4,Len(aField[4]),1] == aField[ 1 ] .AND. aField[4,Len(aField[4]),2] == aField[ 2 ] 
          aField[ 3 ] += 1 
          Eval( showD ) 
       ENDIF 
       if ascan({4,19,5,24},nKEy)!=0 
          @aField[4,1,1], aField[4,1,2] SAY " " 
          if aField[3]==0 
             hb_aDel(aField[4],1,.T.) 
          elseif aField[3]==1 
             aField[3]:=0 
          endif 
       endif 
    END 
    RETURN NIL 
 

 Отправлено: 20.11.13 14:25. Заголовок: AlexMyr пишет: Вот ..

AlexMyr пишет:

цитата:

Вот набросал змейку на harbour,

А генерации фамилий, имен и отчеств нет случайно ?
Мне тестовую базу загрузить нужно...

 Отправлено: 20.11.13 15:24. Заголовок: Andrey пишет: А ген..

Andrey пишет:

цитата:

А генерации фамилий, имен и отчеств нет случайно ?

Не, нету. Можно с этим http://interweb.spb.ru/phone/fio/f1 что-то сделать.

 Отправлено: 20.11.13 15:33. Заголовок: Ждем сокобан, тетрис..

Ждем сокобан, тетрис и электронную таблицу :)
Кстати, вместо Int( hb_Random() ) можно hb_RandomInt()

 Отправлено: 20.11.13 15:35. Заголовок: Andrey пишет: Уж оч..

Andrey пишет:

цитата:

Уж очень мало славянских фамилий...

это да, но и разрешения на обработку перс. даных брать не надо

 Отправлено: 20.11.13 15:46. Заголовок: Andrey пишет: А ген..

Andrey пишет:

цитата:

А генерации фамилий, имен и отчеств нет случайно ? Мне тестовую базу загрузить нужно...

Вместо фамилий с именами названия улиц подойдут ?
Берешь street.dbf из kladr.org, там почти миллион улиц. Из них составляешь псевдоФИО

 Отправлено: 20.11.13 20:22. Заголовок: Pasha пишет: Из них..

Pasha пишет:

цитата:

Из них составляешь псевдоФИО

 Отправлено: 21.11.13 16:40. Заголовок: Выражение для dbEval

tone(Random(recno())/20,0.5),IIF(Inkey()=27.and.Alert('Надоело слушать МУЗЫКУ?',2)=1,dbGoTo(0),IIF(RecNo()=LastRec(),dbGoTop(),Nil)),.F.

 Отправлено: 22.11.13 17:38. Заголовок: SergeJaHome пишет: ..

SergeJaHome пишет:

цитата:

tone(Random(recno())/20,0.5),IIF(Inkey()=27.and.Alert('Надоело слушать МУЗЫКУ?',2)=1,dbGoTo(0),IIF(RecNo()=LastRec(),dbGoTop(),Nil)),.F.

Не компилится,
str1.prg(1) Error E0030 Syntax error "syntax error at ','"
hbmk2: Error: Running Harbour compiler (embedded). 1
(c:\dev\harbour\bin\harbour.exe) -n2 str1.prg -p -od:\tmp\hbmk_41hkmq.dir\ -ic:\dev\harbour\include

Идея вроде понятна, но код не самодостаточный.

 Отправлено: 25.11.13 10:22. Заголовок: alkresin пишет: Кст..

alkresin пишет:

цитата:

Кстати, вместо Int( hb_Random() ) можно hb_RandomInt()

Теперь использую. Спасибо.

Доделал хвост, код в первом сообщении.