Tyhmät kysymykset (I/2009)

[MikkoK]

Tää on tosi typerä kysymys, mut miten saan sellasen:
ostat auton kaupasta, niin rahan pitäisi vähentyä.
eli
if keyhit (cbkeyspace) then raha=-40
jotenki tollanen pitäis saaha onnistumaa

Tässäpä sinulle pieni pätkä. If KeyHit (cbkeyspace) Then raha = raha - 40 .

[Ozcar]

Mulla ois tyhmä kysymys... Miten saan tehtyä tasohyppelyyn kentän???

Tile-editorilla (Tilester tai mielummin esim. Tilegen). Piirrät tileillä kentän (aloita vaikka cb:n oletustileillä), laitat hitboxeja sinne, mistä et halua ukon valuvan läpi ja sitten vain pelissä lataat kartan sekä tilesetin LoadMapilla, sekä asetat törmäyksentunnistuksen kartan ja pelaajan välille. Ja homma pelittää!

Tää on tosi typerä kysymys, mut miten saan sellasen:
ostat auton kaupasta, niin rahan pitäisi vähentyä.
eli
if keyhit (cbkeyspace) then raha=-40
jotenki tollanen pitäis saaha onnistumaa

Helpotetaan: ...Then raha - 40. Sinun koodillasihan rahamäärä asetetaan -40:iin, joka ei varmaankaan ollut tarkoitus ;).

[Warlock]

Kun laitan textin, jossa näytetään muuttuja health, se jää kartan alle.
Koodia:

Code: Select all

Color cbwhite
Text 0,10, "Health: "+health+"%"

[-Z-]

Kun laitan textin, jossa näytetään muuttuja health, se jää kartan alle.
Koodia:

Code: Select all

Color cbwhite
Text 0,10, "Health: "+health+"%"

Komenna ennen tekstin piirtoa DrawGame.

[Warlock]

Code: Select all

    DrawGame
    Color cbwhite
    Text 0,10, "Health: "+health+"%"

Yhä se jää tuonne kartan alle, näkyy vain jos sattuu olemaan mustalla kohdalla, jossa ei ole karttaa.

Muokkaus: Poistin DrawGamen lopusta ja toimii.

[Olwi]

Miten voisin poistaa addtextiä,ilman että poistan kaikkea? Siis oishan tohon sellanen että poistaa ensin kaiken cleartextillä,ja lataa uudestaan kaiken muun,paitsi sen jonka kohdalla kumia löi,mutta vähän pätkittää kun alkaa yhdessä kartassa olemaan <500 merkkiä.
Ne siis lisätään näin:

Code: Select all

If keyhit(cbkeyreturn) then
    objects=objects+1
    locate Ox,Oy
    addtext chr(object)
endif

[valscion]

Miten voisin poistaa addtextiä,ilman että poistan kaikkea? Siis oishan tohon sellanen että poistaa ensin kaiken cleartextillä,ja lataa uudestaan kaiken muun,paitsi sen jonka kohdalla kumia löi,mutta vähän pätkittää kun alkaa yhdessä kartassa olemaan <500 merkkiä.
Ne siis lisätään näin:

Code: Select all

...koodia...

Oma ehdotukseni olisi, että piirtäisit merkit kuvaan ja voisit sitten myöhemmin vain piirtää vaikka mustalla merkkien päälle niin merkit häviäisivät.

[Nassi_Setä]

no varmaa kaikkien aikojen tyhmin kysymy:kuinka saa vihuille ampumisen,kun vaan yks vihu ampuu tan hetkisel koodilla

[Harakka]

Jos vihut on tehty typellä, luo kaikille oma reload-fieldi. Käy nämä läpi For...Each-loopissa.

Code: Select all

For iVihu.VIHU = Each VIHU
  If iVihu\reload = 0 Then
    If ObjectSight(iVihu\obj,pelaaja) Then
      uusiAmmus.AMMUS = new(AMMUS)
      uusiAmmus\obj = CloneObject(mAmmus)
      CloneObjectOrientation uusiAmmus\obj,iVihu\obj
      CloneObjectPosition uusiAmmus\obj,iVihu\obj
      iVihu\reload = 10
    EndIf
  Else
    iVihu\reload = iVihu\reload -1
  EndIf
Next iVihu

Taulukoilla sama systeemi, mutta käyt vihut läpi For...Next-loopissa ja vaihdat objektien nimet oikeiksi (tämän joudut tekemään toki muutenkin) ja käyttämään taulukoita.

[typerys]

Mulla on nyt tällanen

Text 489,720,"Rahat: 100" +rahat
ja sit se
If KeyHit (cbkeyspace) Then raha = raha - 40

mutta ruudussa näkyy "rahat: 100-40"

mistä toi johtuu?

[DatsuniG]

Teet sen näin:

Code: Select all

repeat
Text 489,720,"Rahat: "+raha
If KeyHit (cbkeyspace) Then raha = raha - 40
drawscreen
forever 

[typerys]

Teet sen näin:

Code: Select all

repeat
Text 489,720,"Rahat: "+raha
If KeyHit (cbkeyspace) Then raha = raha - 40
drawscreen
forever 

juujuu, mut mites jos on alotusraha 100e ja sitte ku laittaa ton ni siihen tulee taas se "100-40" juttu

sori ku en tajuu tätä vieläkää.

[esa94]

Öh, mikä muuttuja on koodissasi? Loppuuko se $ tai oletko esitellyt sen Dim raha As Str?
Kun se kerran on merkkijono?

Korjaa se näin:

Code: Select all

raha=Int(raha)-40

[DatsuniG]

Merkkaat sen aloitus rahan tuohon "raha" muuttujaan ennen repeattia.

Code: Select all

raha=100
Repeat
Text 0,0,"Rahat: "+raha
If KeyHit (cbkeyspace) Then raha = raha - 40
DrawScreen
Forever 

E: Jos nyt käsitin oikein : /

EDIT:

Just de : >

[esa94]

Kuule, 'raha' ei olisi sata jos sitä ei olisi jo määritelty. Olet väärässä, anteeksi.

[Koodiapina]

Kuule, 'raha' ei olisi sata jos sitä ei olisi jo määritelty. Olet väärässä, anteeksi.

Itseasiassa hän on oikeassa. Vikahan oli alunperin tässä

Code: Select all

Text 489,720,"Rahat: 100" +rahat

Eli tuon rivin olisi todennäköisesti pitänyt antaa alkusummaksi 100, mutta se ei tietenkään toiminut, joten DatsuniGin versio selventää kaiken.

[esa94]

Koho, en lukenut alkuperäistä koodia ollenkaan, lolwut

[Olwi]

Miten voisin poistaa addtextiä,ilman että poistan kaikkea? Siis oishan tohon sellanen että poistaa ensin kaiken cleartextillä,ja lataa uudestaan kaiken muun,paitsi sen jonka kohdalla kumia löi,mutta vähän pätkittää kun alkaa yhdessä kartassa olemaan <500 merkkiä.
Ne siis lisätään näin:

Code: Select all

...koodia...

Oma ehdotukseni olisi, että piirtäisit merkit kuvaan ja voisit sitten myöhemmin vain piirtää vaikka mustalla merkkien päälle niin merkit häviäisivät.

Njaahh.
Mieluiten poistaisin merkin,enkä vain piilottaisi sitä. Kylhän tuokin toimisi kun vain säätäisi,mutta pitää katsoa.

[Koodiapina]

Saat varmaan tästä muokattua haluamasi:

Code: Select all

    Global gly

    Type teksti
        Field x
        Field y
        Field c$
    EndType 
    
    AddText2("Klikkaile",100,50)
    AddText2("Näitä tekstejä,",100)
    AddText2("jotta ne häviäisivät",100)
    
    While True
        For t.teksti = Each teksti
            Text t\x,t\y,t\c
            If MouseX()>=t\x And MouseX()<=t\x+TextWidth(t\c) And MouseY()>=t\y And MouseY()<=t\y+TextHeight(t\c) And MouseHit(1) Then Delete t
        Next t
        DrawScreen 
    Wend 
    
    Function AddText2(c$,x,y=0)
        t.teksti = New(teksti)
        t\c = c
        t\x = x
        If y<>0 Then gly = y
        t\y = gly
        gly = gly + TextHeight("|")
    EndFunction 

Eli esimerkki, miten saat poistettua vain osan tekstistä / merkeistä. Homma toimii text komennoilla, ja on hieman erillainen kuin addtext. Tein siihen kuitenkin addtextimäisen automaagisen rivinvaihdon.

[Kuinkia?]

Kysymys on, kuinka saan botin pysymään tiettyjen tilejen alueella.

Onnistuisiko näin?

Code: Select all

If GetMap2 (0, x, y) = 7  then moveobject obj,- 2
If GetMap2 (0, x, y) = 8  then moveobject obj,2
if GetMap2 (0, x, y) = 9 then turnobject obj,60