forum.boolean.name

forum.boolean.name (http://forum.boolean.name/index.php)
-   Blitz3D (http://forum.boolean.name/forumdisplay.php?f=45)
-   -   Имитация CPU Терминатора (http://forum.boolean.name/showthread.php?t=13408)

Colossus 25.09.2010 23:04

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

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

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

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

IgorOK 25.09.2010 23:38

Ответ: Имитация CPU Терминатора
 
Код:

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 25.09.2010 23:48

Ответ: Имитация CPU Терминатора
 
КУЛ!)) сенкс мен)) только надо бы не рандомно а по блокам

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

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

IgorOK 26.09.2010 00:05

Ответ: Имитация CPU Терминатора
 
Нуууу.... Эээээ... Подожди до завтра)

Colossus 26.09.2010 00:06

Ответ: Имитация CPU Терминатора
 
пля мне б сегоднь желательно))) просто ночью делать нечего я тут сижу размышляю))

IgorOK 26.09.2010 00:09

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

Taugeshtu 26.09.2010 00:11

Ответ: Имитация CPU Терминатора
 
Цитата:

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

Colossus 26.09.2010 00:14

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

impersonalis 26.09.2010 00:21

Ответ: Имитация CPU Терминатора
 
imper вошёл в чат

Colossus 26.09.2010 01:22

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

KOPCAP 12.10.2010 04:06

Ответ: Имитация CPU Терминатора
 
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.
Щас сам сижу читаю справку по этому объекту...:teach:

Colossus 12.10.2010 04:55

Ответ: Имитация CPU Терминатора
 
зянятно)

Bestbboy 14.11.2010 20:29

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


Часовой пояс GMT +4, время: 13:37.

vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot