Имитация CPU Терминатора

[Colossus]

люди подскажите как замутить имитацию ЦПУ терминаторА? ну типа чтобы на монитор выводились всякие коды команды (кто смотрел поймет) ? но чтобы они выводились не сразу а построчно как в фильме, и чтобы выводились как бы "блоками" чтоли... типа

типа если наводим прицел на цель то нам выводится один списочек убираем прицел список пропадает

если находимся в режиме поиска то всякие блоки рандомно выскакивают на монитор режимы

и еще... вопросик как сделать автономную цель, чтобы она перемещалась по монитору как у терминатора? а как только мы приближались на определенное расстояние к цели то прицел наводился бы на нее и нам выводился бы фейковый блок команд и параметров о цели?

[IgorOK]

Graphics 1024, 768, 32, 2

Global CPU_COMMANDS_COUNT=9
Dim CPU_COMMANDS$(CPU_COMMANDS_COUNT)

CPU_COMMANDS$(0)="memory acces violation"
CPU_COMMANDS$(1)="check memory statys: ok"
CPU_COMMANDS$(2)="Terminate Jhon Connor"
CPU_COMMANDS$(3)="DESTROY!!!!!"
CPU_COMMANDS$(4)="the cake is lie!"
CPU_COMMANDS$(5)="hasta la vista baby"
CPU_COMMANDS$(6)="no fate"
CPU_COMMANDS$(7)="fuck you asshole!"
CPU_COMMANDS$(8)="I`ll be back!"

Global CPU_STRINGS_COUNT=20
Dim CPU_OUTPUT$(CPU_STRINGS_COUNT)

Global CPU_OUTPUT_DELAY=2
Global CPU_WAIT=CPU_OUTPUT_DELAY
Global CPU_OUTPUT_INDEX

Function DrawTerminatorCPU(X, Y)
    CPU_WAIT=CPU_WAIT-1
    
    If CPU_WAIT=0
        CPU_WAIT=CPU_OUTPUT_DELAY
    
        CPU_OUTPUT_INDEX=CPU_OUTPUT_INDEX+1
    
        If CPU_OUTPUT_INDEX=CPU_STRINGS_COUNT
            CPU_OUTPUT_INDEX=0
            For i=0 To CPU_STRINGS_COUNT-1
                CPU_OUTPUT(i)=""
            Next
        EndIf
        
        CPU_OUTPUT(CPU_OUTPUT_INDEX)=CPU_COMMANDS(Rand(0, CPU_COMMANDS_COUNT-1))
    EndIf
    
    For i=0 To CPU_STRINGS_COUNT-1
        Text X, Y+StringHeight("_")*i, CPU_OUTPUT(i)
    Next
End Function

While Not KeyHit(1)
    DrawTerminatorCPU(100, 100)
    Flip
    Cls
Wend
End

Разберёшься?)))

[Colossus]

КУЛ!)) сенкс мен)) только надо бы не рандомно а по блокам

типа пример наводим на цель вылезает такой построчный блок
****************
TARGET PARAMETERS
TOLERANCE LEVEL 345987
TARGET STATUS
CHECKSUM
IDENT POSITIVE
TARGET ACQUIRED

ну типо не рандомно а по заданным параметрам и желательно надо универсальную функцию... чтобы где надо выводить определенные блоки кодов и когда надо на примере кубика может кто нибудь сделать такую фичу?

[IgorOK]

Нуууу.... Эээээ... Подожди до завтра)

[Colossus]

пля мне б сегоднь желательно))) просто ночью делать нечего я тут сижу размышляю))

[IgorOK]

Я уже допёр что ты имеешь ввиду, но у меня есть кое какие дела)))

[Taugeshtu]

я тут сижу размышляю))

Не ври, ты не размышляешь, ты нагло клянчишь код.
Всё, что тебе было нужно - заглянуть в справку по команде "Text" и напрячь голову

[Colossus]

да не я реально размышляю, тока не оч получается, по text почитал все равно не понЯл нехрена))

[impersonalis]

imper вошёл в чат

[Colossus]

запилил нах почти)) надо сделать так чтобы когда текст вывелся он немножко помигал и пропал...

[KOPCAP]

LinePick тебе в помощь вот его парамтры, если не знаешь:
LinePick ( x#,y#,z#,dx#,dy#,dz#[,radius#] )

Parameters:
x# - x координата начала line pick
y# - y координата начала line pick
z# - z координата начала line pick
dx# - длина x line pick
dy# - длина y line pick
dz# - длина z line pick
radius (optional) - радиус line pick

Description:

Возвращает первую попавшуюся энтити между x,y,z до x+dx,y+dy,z+dz.
Щас сам сижу читаю справку по этому объекту...

[Colossus]

зянятно)

[Bestbboy]

Colossus, на моём сайте есть видео урок по выводу над объектом определённой строки или надписи. Посмотри может поможет - http://nidarts.net/view_post.php?id=25