Miten saisi tehtyä sellaisen kliseisen @ merkin, mikä liikkuisi nuolinäppäimistä painellessa ja tiettyyn kohtaan tullessa ruutun ilmestyisi tekstiä. Vinkkejä?
QB vai VB?
Olen nettiin tehnyt QB:llä tällaisen @-merkin siirtely pelin jota siirrellään nuolinäppäimillä. koordit on niitä kuvaavissa muuttujissa, ja url tähän "peliin" on: (näppäimet ei ihan aina tottele mut...)
http://mbnet.fi/paauli/miukumauku.bas
(nimi miukumauku.bas tulee siitä kun ennen kutsuin ät-merkkiä nimellä miukumauku, kun se merkki näytti kissanhännältä =)
DEFINT A-Z CLS x = 1 'alkusijainnit y = 1 COLOR 10 DO h = 1 SELECT CASE INKEY$ CASE CHR$(0) + "K" 'vasemmalle x = x - 1 CASE CHR$(0) + "M" 'oikealle x = x + 1 CASE CHR$(0) + "P" 'alas y = y + 1 CASE CHR$(0) + "H" 'ylös y = y - 1 CASE CHR$(27) EXIT DO CASE "" h = 0 END SELECT IF x < 1 THEN x = 1 IF x > 80 THEN x = 80 IF y < 1 THEN y = 1 IF y > 25 THEN y = 25 IF h THEN CLS LOCATE y, x PRINT "@"; END IF LOOP
Toi tekstijuttu onnistuu näin:
aarre_x=10 aarre_y=5 ... if x=aarre_x and y=aarre_y then locate 1,1:print "Aarre!!" ... locate aarre_y,aarre_x:print "#" ...
helevetin tejeez! tossa sen antamassa koodissa alku näyttää epäilyttävästi mun koodista pöllityltä! prkl :P
Saasta rauhoituppas nyt tejeez on nimittäin sen verta guru kuupeessä että ei varmasti kopsais toisten koodeja
saasta, se on sun koodistas.
EI SAA PÖLLIÄ
Tejeezin koodi näyttää kyllä paremmalta eikä se pätki. Saasta tästä on sulle hyötyä. Et kieltänyt kopioimasta sitä koodia :)
Aihe on jo aika vanha, joten et voi enää vastata siihen.