Skocz do zawartości

Czarny Ass

Użytkownicy
  • Postów

    601
  • Dołączył

  • Ostatnia wizyta

Odpowiedzi opublikowane przez Czarny Ass

  1. Za ######sty głos postaci którą chce się aż słuchać i jest rodem z np Wowa.

    Dokładnie. Jakbyście sobie przypomnieli trailery z budżetowych produkcji to byście wiedzieli, że to podobnie wygląda.

    Takie jest moje zdanie. Może innym to nie wygląda podobnie do większości trailerów budżetowych.

  2. Wiem, że plik Yqd.exe to wirus ale muszę wiedzieć co robi.

     

    EDIT:

    A słyszeliście kiedyś o Chucku Norrisie? Ja go miałem! Nie znoszę Chucka Norrisa! Nie pozwalał mi wyłączać procesów i w ogóle. Ale go tak skopałem, że już nigdy nie wrócił. Użyłem Avasta. :D

  3. Zrób wirusa pokemona! Żeby nic nie psuł na kompie tylko cały czas wyświetlało okienka typu:

    |_|\/\//-\g/-\!!! /\/\aSz ŚłłiiTaŚnEg0 wIrUsA!!!!! B|_|ZiAcZki :******* |<0C|-|/-\sI|_|!! ;* NaRsi/-\ :>

     

    Tłumaczenie na polski:

    Uwaga!!! Masz (śłitaśnego - ?) wirusa!!!!! Buziaczki kochasiu, narsia.

     

    Przydadzą się jeszcze błędy ortograficzne i brak interpunkcji.

  4. Czy przypadkiem nie ustawię koloru za pomocą Palette? Bo ustawiałem kolor ale dla napisu w ten sposób. Ink to shit! :P

    4 kolory i do tego jakieś dziwaczne; różowy, biały, zielony, niebieski. WTF?!

    Lepsze by były tylko kolory podstawowe, biały i czarny.

     

    EDIT:

    Po kompilacji nie ma errorów! Ale sprite jest czarny, a tło też. Jak zmienić kolor? Palette nie pomogło.

  5. Jak używać datalong i dataint?

    Kawałek kodu zródłowego z gry Shnakeee 2, z użyciem dataint:

        DATAINT      512,  512,  511,  511,  510,  508,  506,  505
        DATAINT      502,  500,  497,  494,  490,  486,  482,  478
        DATAINT      473,  468,  463,  458,  452,  446,  440,  433
        DATAINT      426,  419,  412,  404,  396,  388,  380,  372
        DATAINT      363,  354,  345,  335,  326,  316,  306,  296
        DATAINT      286,  275,  264,  254,  243,  232,  220,  209
        DATAINT      197,  186,  174,  162,  150,  138,  126,  114
        DATAINT      102,  89,  77,  65,  52,  40,  27,  15
        DATAINT      2, -10, -23, -35, -48, -60, -73, -85
        DATAINT     -97, -110, -122, -134, -146, -158, -170, -182
        DATAINT     -193, -205, -216, -228, -239, -250, -261, -271
        DATAINT     -282, -292, -302, -312, -322, -332, -341, -351
        DATAINT     -360, -368, -377, -385, -394, -401, -409, -417
        DATAINT     -424, -431, -437, -444, -450, -456, -461, -466
        DATAINT     -472, -476, -481, -485, -489, -492, -496, -499
        DATAINT     -501, -504, -506, -508, -509, -510, -511, -512
        DATAINT     -512, -512, -512, -511, -510, -509, -507, -505
        DATAINT     -503, -501, -498, -495, -491, -488, -484, -479
        DATAINT     -475, -470, -465, -460, -454, -448, -442, -435
        DATAINT     -429, -422, -414, -407, -399, -391, -383, -375
        DATAINT     -366, -357, -348, -339, -329, -320, -310, -300
        DATAINT     -289, -279, -268, -258, -247, -236, -224, -213
        DATAINT     -202, -190, -178, -167, -155, -143, -131, -118
        DATAINT     -106, -94, -82, -69, -57, -44, -32, -19
        DATAINT     -7,  6,  18,  31,  43,  56,  68,  81
        DATAINT      93,  105,  118,  130,  142,  154,  166,  178
        DATAINT      189,  201,  212,  224,  235,  246,  257,  268
        DATAINT      278,  289,  299,  309,  319,  329,  338,  347
        DATAINT      356,  365,  374,  382,  391,  399,  406,  414
        DATAINT      421,  428,  435,  441,  448,  454,  459,  465
        DATAINT      470,  475,  479,  483,  487,  491,  494,  498
        DATAINT      500,  503,  505,  507,  509,  510,  511,  512

     

    albo to:

        DATALONG    $00111100; Shnakeee head
        DATALONG    $01111110
        DATALONG    $11211211
        DATALONG    $11111111
        DATALONG    $11111111
        DATALONG    $11222211
        DATALONG    $01222210
        DATALONG    $00111100

    Nie wiem skąd się w ogóle wzięły te cyfry? W dokumentacji języka nie ma nic o tych cyfrach tylko wytłumaczenie polecenia.

    Oto oryginalny wycinek z dokumentacji o DATALONG i DATAINT:

    Command DATA:

    Syntax: Data <Constant 1>,<Constant 2>,........

     

    Description: Insets data into the basic program that can be read by command Read. Any data has to be byte-long (see DATAINT for 16-bit data, and DATALONG for 32-bit). Strings can be used in the DATA statement. The latest release of BasiEgaXorz no longer requires the user to zero-terminate any strings, and the newer compiler is backwards compatible with strings that were zero-terminated manually. An example string usage: Data "Hello Data!". If a value greater than 255 is used (exceeding the byte-long data limit), the file will not compile.

  6. Można także bardziej rozbudowanie:

    USES CRT;
    
    VAR
    plik,na:integer;
    
    begin
    plik:=0;
    na:=0;
    delay(1000);
    repeat
    gotoxy(1,1);
    writeln('Witaj! za sekundę zmienię zmienną plik na ', plik + 1 ,'!');
    delay(1000);
    plik +=1;
    if plik=1 THEN writeln('Powodzenie!');
    until na = 1;
    end.

    Teraz będzie co sekundę dawało w nieskończoność ale jak osiągnie 1 napisze Powodzenie!.

    Można wstawić też po

    if plik=1 THEN writlen('Powodzenie!');

    if plik=MAX THEN na:=1;

     

    W MAX możesz wpisz jakąś liczbę na której ma przerwać.

     

     

     

    nie lepiej readln; end. ?

    Nie specjalnie to polecam, bo będziesz mógł wypisywac pierdoły jakieś. Lepiej Readkey; .

     

     

    EDIT:

    I pozmieniaj wszystkie ę na e, no chyba, że dorobisz znaki polskie w pascalu. Ja wiem jak to się robi. Z miłą chęcią zrobię Ci bibliotekę ze znakami polskimi.

  7. Ważył tyle. A tak w ogóle to teraz znowu waży mniej, a dodałem do niego sporo. Waży z powrotem 26,5 KB.

     

    EDIT:

    Co to za diableski kompilator? Cały czas zmniejsza i zwiększa na zmianę objętość pliku. Teraz waży po dodaniu ikonek więcej. Jednak pozostaje sprawa tych 65,5 KB.

     

    EDIT2:

    Jakby się przydały te informacje to teraz waży 27 KB. Czy te zmiany objętości pliku na mniejsze po dodaniu nowych rzeczy mogą mi zepsuć program? Bo uważam, że to co najmniej dziwne i bez sensu, że tak szaleje.

  8. Po skompilowaniu mój plik ważył 65,5 KB, sprawdziłem czy działa wszystko. Jest OK. Dodaje wiele rzeczy, kompiluje. Plik waży 27 KB! WTF?! Chyba nie skompilowało do końca, włączam program. Działa! Myślę sobie "o lol!". skompilowałem 2 raz, może czegoś nie skompilowało, a ja tego nie zauważyłem. Ale program nadal waży mniej. Czy to znaczy, że czegoś mi nie skompilowało. Cały czas używam jednego kompilatora.

×
×
  • Dodaj nową pozycję...