Esimerkki mitä pascalilla...

Dumbell

http://www.the-underdogs.info/game.php?id=1455

Tuossa on 1992 vuonna julkaistu strategiapeli.

Tein ko. peliin omien skenaarioiden suunnitteluohjelman pascalilla, mukana oli grafikkaimportteri sekä mappien/uusien yksiköiden suunnitteluohjelma. Softalla pystyi muokkaamaan olemassaolevia yksiköitä jne jne (taistelukanoja :). Melko täydellinen paketti joka toi pelille rajattomasti lisäkenttiä ja uusia pelinappuloita niiden noin 15 valmiin rinnalle.

Ainoa mitä uusiin mappeihin piti erikseen tehdä oli "tekoälyn ohjeistus" jotka tulivat erilliseen tekstitiedostoon. Olisi senkin pystynyt tekemään mutta editorini fanbase jäi noin 100 edes semi-aktiiviseen käyttäjään (BBS:ien kautta tavoitettuja) joten kehitykseen ei viitsinyt panostaa kovin kummoisesti.

Kaikki tämä ihan tavallisella turbopascalilla. Sääli ettei edikkaa ole enää kaiketi missään, oli nimellä SiegEdit ja sorsat on jossain hevonvitussa.

Kyl se pascal vääntyi silloin ja vääntyy vielä paremmin nykyään kun on kaikki windowskikkulat yms.

Tietäiskö joku mitään hyvää resurssia Delphipascal-koodin tiivistämiseen, ei mitään UXP vaan siis sellaisia kunnon oikoteitä/optimointikirjastoja? Tahtoisin tehdä pitkästä aikaa kaikenlaisia mukavia miniapplikaatioita kun useimmat nykyiset haukkaa aina kymmeniä megoja vaikka olis kuinka yksinkertainen operaatio...

4

494

    Vastaukset 4

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • maanpinnalle

      Koettaakaa nyt poikaset ymmärtää että koodauskieli on sivuseikka ohjelmoinnissa. Kaikki sovellukset voi tehdä millä kielellä tahansa, toisissa hieman enemmän tekemistä riippuen tilanteesta.

      • ...

        "Kaikki sovellukset voi tehdä millä kielellä tahansa..."
        Tuo ei ole kyllä totta, yritäppä tehdä vaikka windows-sovellus qbasicilla... veikkaan että ei tule onnistumaan mitenkään, eli kyllä sillä kielelläkin on väliä...!


      • maanpinnalle
        ... kirjoitti:

        "Kaikki sovellukset voi tehdä millä kielellä tahansa..."
        Tuo ei ole kyllä totta, yritäppä tehdä vaikka windows-sovellus qbasicilla... veikkaan että ei tule onnistumaan mitenkään, eli kyllä sillä kielelläkin on väliä...!

        >...yritäppä tehdä vaikka windows-sovellus qbasicilla...

        No mikä ettei onnistu? Ei taida olla sinulla oikein ohjelmointi hanskassa ?

        Se että jossain Borlandin Builderissa tai vastaavassa on Windowsin ikkunointi ja muut winapin funktiot koodattu valmiiksi ei suinkaan tarkoita että se olisi jotenkin kielen "ominaisuus" ja ettei niitä voi tehdä jollain muulla kielellä ja koodin voi vääntää vaikka Notepadilla.


      • Insinöörinen
        maanpinnalle kirjoitti:

        >...yritäppä tehdä vaikka windows-sovellus qbasicilla...

        No mikä ettei onnistu? Ei taida olla sinulla oikein ohjelmointi hanskassa ?

        Se että jossain Borlandin Builderissa tai vastaavassa on Windowsin ikkunointi ja muut winapin funktiot koodattu valmiiksi ei suinkaan tarkoita että se olisi jotenkin kielen "ominaisuus" ja ettei niitä voi tehdä jollain muulla kielellä ja koodin voi vääntää vaikka Notepadilla.

        Tämä kirjoitus kuvaa hyvin tämän foorumin vajaaälyisyyttä...

        Että qbasiclla voidaan kirjoittaa windows-ohjelmia...

        Ensinnäkin alkuselvennykseksi qbasic on 16 bittinen dossissa toimiva tulkki. Sillä on mahdoton käskyttää 32-bittistä win32-apia...


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Ampuminen kylpylässä

      Onko vornasen timbe käynyt hiukan kylpemässä vai mikä tämä ampumatapaus on kylpylässä? Tuntuu aika villi meno olevan naa
      Naantali
      43
      1077
    2. Moottoripyöräonnettomuus

      Mopomiitissä tapahtunut onnettomuus ja uutisointi. Ajoradan ylityksen vaarallisuudesta ei mitään uutisointia. Ei myöskää
      Alajärvi
      83
      887
    3. haluatko lopettaa

      ihan lopullisesti
      Ikävä
      164
      877
    4. Jos oikeasti haluat mies

      Tiedät mitä on tehtävä. Luotan, että etenet jos haluat. En voi tehdä enää mitään kun ei ole numeroasi.
      Ikävä
      105
      824
    5. Uusi ruokapaikka

      Tuleeko Haapavedelle uusi lounaspaikka ,haetaan kokkia? Uusi firma kyseessä
      Haapavesi
      29
      765
    6. Miten sinä voit?

      Kysytkö kukaan sitä sinulta? Olen huomannut, että jos kohtaa empaattisen ihmisen ja hän kysyy noin, saattaa padot murtua
      Ikävä
      93
      697
    7. Kerro minulle totuus

      Minä haluan kuulla sen nyt. Kenen kanssa sinä olet nykyisin, ja miksi jätit minut? 🐒
      Ikävä
      197
      690
    8. Hautakivien massapoisto aloitettu Härkökankaan vanhalla hautausmaalla kaikessa hiljaisuudessa!

      Suomussalmen seurakunnan kirkkoneuvosto on tehnyt historiansa surullisimman päätöksen hautojen haltuunotosta ja raivauks
      Suomussalmi
      40
      653
    9. voi luoja kun uskaltaisin

      laittaa viestiä sinulle...
      Ikävä
      22
      612
    10. Miten yrität

      Vielä saada kaivattusi?
      Ikävä
      61
      592
    11. VILLISIKALAUMA TULOSSA IISALMEEN

      Yle: Poliisi varoittaa Iisalmen keskustaa lähestyvästä villisika­laumasta Poliisi on pyytänyt Pohjois-Savossa Iisalmessa
      Iisalmi
      42
      576
    12. Hei, voitko kuunnella

      Voisitko auttaa minua selvittämään asioita? En halua ajaa sinua hulluuteen kanssani, en sitoa sinua, en esittää vaatimu
      Ikävä
      118
      563
    13. Useita poliisiautoja kunnantalolla

      Maijojen kyydissä tuttuja naamoja ja nyt kannetaan arkistolaatikoita autoihin. Nyt se on alkanut. Pidätykset.
      Ähtäri
      12
      525
    14. Kemijärvellä vesionnettomuus

      Pitkänsillan ja taiteilijanniemen välillä nähty henkilön painuvan veden alle. Mitä on tapahtunut? Onko vesihiisi taas as
      Kemijärvi
      7
      520
    15. On todella ikävää

      Todella ikävää, että asiat ovat menneet tällaisiksi. Tämä ei ollut missään vaiheessa tarkoitukseni. Olen tehnyt virheit
      Ikävä
      78
      510
    16. 39
      485
    17. Muutto auto hakee sut tänään!

      Tein sulle oman huoneen! mieheltä naiselle
      Ikävä
      57
      475
    18. Jos näkisimme vielä joskus

      ... mihin veisit miut treffeille? 😊
      Ikävä
      73
      471
    19. sinulle....

      Olen ymmärtänyt, ettei minua haluta enää takaisin. Mitään pahaa en koskaan halunnut sinulle. Ikävä että kuvittelit niin.
      Ikävä
      75
      467
    20. Ottanet yhteyttä

      Facebookissa,jos on jotain asiaa.Miehelle! T.M-nainen.
      Ikävä
      55
      467
    Aihe