Tyhmät kysymykset (I/2009)

Voit pyytää apua ohjelmointiongelmiin täältä.
Locked
MAVmaggot
Advanced Member
Posts: 468
Joined: Fri Aug 31, 2007 10:18 pm
Location: bitspace

Re: Kymysys.

Post by MAVmaggot »

Eh. wrote:Onko ohjelmalla mahdollista tehdä troijalaisia/keyloggereita. Tarkoitan sellaisia joita anti-virus -ohjelmat eivät tunnista
Kerroppa eka kenet hakkeroisit :geek:
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

Re: Tyhmät kysymykset

Post by AllAh »

Joku nörtti jos vastais please! :|
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
User avatar
KillBurn
Advanced Member
Posts: 339
Joined: Wed Aug 29, 2007 5:02 pm

Re: Tyhmät kysymykset

Post by KillBurn »

AllAh wrote:Kumma ongelma pelissä.Painovoima toimii ihan hyvin mut sit kun se seisoo maassa ni yhtäkkiä menee siit läpi ja putoo alas.


Tuossa se koodi:

Code: Select all

      
    
     vauhti=0 'oletuksena ei liikettä

    CloneCameraPosition ukko
    'liikuta pelihahmoa
    TranslateObject ukko,vauhti,yPlus#
    yPlus=yPlus+PAINOVOIMA 'päivitä painovoima    
    
    UpdateGame 'päivitä törmäys
   
    
    maassa=0 'ilmassa jollei toisin käy ilmi
    törmäykset=CountCollisions(ukko)
    'katsotaan tärmätäänkö kattoon tai lattiaan
    For i=1 To törmäykset
        If GetCollision(ukko,i)=kenttä
            'lattia
            If CollisionAngle(ukko,i)=90 Then 
                yPlus#=-1
                maassa=1 'jalat on maassa
            EndIf
            'katto
            If CollisionAngle(ukko,i)=270 Then 
                yPlus#=-1
            EndIf
        EndIf
    Next i 
     If KeyHit(cbKeys) And maassa(KUN TUON POISTI NIIN HYPPY TOIMI) Then 
        yPlus#=2.5
    'HYPPY (vain jos jalat maassa)
     'voimaa ylös päin
    EndIf  
    
DrawGame
    'piirrä "kenttä"  
    
    DrawScreen

Until EscapeKey()

Kaikki on repeatin sisässä mut en sitä alkua jaksanu tänne tunkee
kun toi pelihahmo koskettaa maata niin sille ei tarvitse enää suorittaa painovoimaa,muuten se painovoima vain kiihtyy ja lopulta törmäyksentunnistus antaa periksi.Katso lisä apuja learning center->painovoima(vaikka ootkin tainnut jo katsoa)
Sumu Games: Sam, Ur eye!
AllAh
Newcomer
Posts: 33
Joined: Mon Oct 08, 2007 8:37 am
Location: Muhos

Re: Tyhmät kysymykset

Post by AllAh »

Voisitko sanoa tarkasti mitä mun pitää koodista poistaa/lisätä?
En oikeen osaa vaikka kyl testasin


Ja siin ei ees hyppy toimi!
Valmiita:
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
Guest

Re: Tyhmät kysymykset

Post by Guest »

Koodissani piirretään neljä painiketta, joista yksi on aina painettuna. Eli jos joku niistä painetaan alas, muut nousevat ylös. Tässä on koodi, mitä vikaa siinä on?

Code: Select all

    For i = 0 To 3
        If MouseHit(1) And MouseInButton(button, 0 + i * 40, 0) Then
            If buttons(i) = False Then
                buttons(i) = True 
                For y = 0 To 3
                    If buttons(y) <> i Then buttons(y) = False 
                Next y
            EndIf     
        EndIf 
    Next i 
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Tyhmät kysymykset

Post by TheFish »

Vieras wrote:Koodissani piirretään neljä painiketta, joista yksi on aina painettuna. Eli jos joku niistä painetaan alas, muut nousevat ylös. Tässä on koodi, mitä vikaa siinä on?

Code: Select all

    For i = 0 To 3
        If MouseHit(1) And MouseInButton(button, 0 + i * 40, 0) Then
            If buttons(i) = False Then
                buttons(i) = True 
                For y = 0 To 3
                    If buttons(y) <> i Then buttons(y) = False 
                Next y
            EndIf     
        EndIf 
    Next i 
Voisi olla helpompi auttaa jos tietäisi mitä vikaa sen toiminnassa on?
CoolBasic henkilökuntaa
Kehittäjä
Guest

Re: Tyhmät kysymykset

Post by Guest »

Vain toinen painike (=buttons(1)) painuu alas.
Thomazu
Active Member
Posts: 179
Joined: Tue Aug 28, 2007 7:28 am

Re: Tyhmät kysymykset

Post by Thomazu »

Code: Select all

If teko$=2 And KeyHit(28) Then
CloseInput
ClearText
Goto valinta
EndIf

DrawScreen
Forever 

Repeat

valinta:
Locate 0,287
Color 0,105,0
Addtextiä
Locate 10,25
aika$=Input ("Syötä kellon aika:")
If KeyHit(28) Then
ClearText
CloseInput
aika$=aika$
Goto juttu2
EndIf

DrawScreen
Forever 

Repeat

juttu2:
Text 25,60,"Ohjelma käynnissä"
If aika=Left(Time(),5) Then
End
EndIf
Eli ongelmani on se kun Jos lause teko$=2 toteutuu ja painetaan entteriä niin ohjelma ei mene kohtaan "valinta:" vaan hyppää sen yli jo suoraan "juttu2:". Sain ongelman "korjattua" niin että laitoin "valinta" kohdassa olevan If KeyHit(28) tilalle 54, (eli enterin tilalle shift). Mutta millä saisin tuon toimimaan niin että se ei hyppäisi tuon "valinta" kohdan yli entteriä painettaessa? Lyhensin koodia vähän..
Image
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm

Re: Tyhmät kysymykset

Post by Koodiapina »

Code: Select all

f=OpenToEdit("SaveConfig.dat")
        For ö = -3 To ratoja-3
            SeekFile f, 4*ö*3 ' huonompi jo
            If parasaika(ö+3) => ReadInt(f) Then
                parasaika(ö+3) = ReadInt(f)
            Else
                WriteInt f,parasaika(ö+3)
            EndIf
            SeekFile f, 4*ö*3+1 ' huonompi jo
            If ansaittu(ö+3) =< ReadInt(f) Then
                ansaittu(ö+3) = ReadInt(f)
            Else
                WriteInt f,ansaittu(ö+3)    
            EndIf
            SeekFile f,4*ö*3+2 ' huonompi jo
            If yrityksiä(ö+3) =< ReadInt(f) Then
                yrityksiä(ö+3) = ReadInt(f)
            Else
                WriteInt f,yrityksiä(ö+3)
            EndIf
        Next ö
CloseFile f
Seekfile failed. Tiedosto ja kaikki nuo taulukot ovat olemassa. Missä vika?
Eh. wrote:Onko ohjelmalla mahdollista tehdä troijalaisia/keyloggereita. Tarkoitan sellaisia joita anti-virus -ohjelmat eivät tunnista
On.
coolariko joka ei jaksanu kirjautua

Re: Tyhmät kysymykset

Post by coolariko joka ei jaksanu kirjautua »

mikähän tässä koodissa on kun se ei soita biisiä pelin laittaa päälle menee ajo osioon sitten odotan eikä musiikki lataa ikinä!

Code: Select all

FrameLimit 40



SCREEN 999,888
alku:
ClearText
ClearKeys
CloseInput


AddText "1. alota"
AddText "2. lopeta"


Repeat

    c=Input("?")
    
    DrawScreen
    
Until KeyHit(cbkeyreturn)

Select c
    Case 1
        GoTo peli
    Case 2
        End 



End Select
        
peli:
PlaySound "media/amistä.mp3"
ClearText
ClearKeys
CloseInput 
grass=MakeObjectFloor()
lawn=LoadImage("Media\ruoho.bmp")
PaintObject grass,lawn
kenttä=LoadMap("kenttä.til","tilet.png")
PlayObject kenttä,0,0,0.5
auto=LoadObject("Media\auto1.bmp",72)
SetupCollision auto,kenttä,2,4,2

PositionObject auto, -100,0
Repeat
kl = 0 

If vauhti<10 And UpKey() Then 
vauhti+1
Else
vauhti-1
EndIf

If vauhti+1 Then kl+vauhti
If kl>2 Then kl=2 

If vauhti<0.2 Then vauhti=0 

If vauhti>15 And LeftKey() Then MoveObject auto, 0,5 'heitä perää
If vauhti>15 And RightKey() Then MoveObject auto, 0,-5 'heitä perää

If LeftKey() Then TurnObject auto, kl 
If RightKey() Then TurnObject auto, -kl 
If DownKey() Then MoveObject auto, -kl 
    MoveObject auto, vauhti 
CloneCameraPosition auto
    DrawScreen

Until EscapeKey()

User avatar
KillBurn
Advanced Member
Posts: 339
Joined: Wed Aug 29, 2007 5:02 pm

Re: Tyhmät kysymykset

Post by KillBurn »

coolariko joka ei jaksanu kirjautua wrote:mikähän tässä koodissa on kun se ei soita biisiä pelin laittaa päälle menee ajo osioon sitten odotan eikä musiikki lataa ikinä!

Code: Select all

FrameLimit 40



SCREEN 999,888
alku:
ClearText
ClearKeys
CloseInput


AddText "1. alota"
AddText "2. lopeta"


Repeat

    c=Input("?")
    
    DrawScreen
    
Until KeyHit(cbkeyreturn)

Select c
    Case 1
        GoTo peli
    Case 2
        End 



End Select
        
peli:
PlaySound "media/amistä.mp3"
ClearText
ClearKeys
CloseInput 
grass=MakeObjectFloor()
lawn=LoadImage("Media\ruoho.bmp")
PaintObject grass,lawn
kenttä=LoadMap("kenttä.til","tilet.png")
PlayObject kenttä,0,0,0.5
auto=LoadObject("Media\auto1.bmp",72)
SetupCollision auto,kenttä,2,4,2

PositionObject auto, -100,0
Repeat
kl = 0 

If vauhti<10 And UpKey() Then 
vauhti+1
Else
vauhti-1
EndIf

If vauhti+1 Then kl+vauhti
If kl>2 Then kl=2 

If vauhti<0.2 Then vauhti=0 

If vauhti>15 And LeftKey() Then MoveObject auto, 0,5 'heitä perää
If vauhti>15 And RightKey() Then MoveObject auto, 0,-5 'heitä perää

If LeftKey() Then TurnObject auto, kl 
If RightKey() Then TurnObject auto, -kl 
If DownKey() Then MoveObject auto, -kl 
    MoveObject auto, vauhti 
CloneCameraPosition auto
    DrawScreen

Until EscapeKey()

koita tällaista:
music=loadsound("media/amistä.mp3")
playsound music
ei toi ehkä toimi mutta voit yrittää
Sumu Games: Sam, Ur eye!
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: Tyhmät kysymykset

Post by iTKEVAnAKKI »

Miksi ei poista?

Code: Select all

DeleteFile "Media\tilemap.til"
ei tule mitään valituksia, tiedosto on olemassa eikä ole kirjoitusvirheitä. Vai voiko tuota komentoa käyttää noin? :D
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee ;)
Minä!
Newcomer
Posts: 3
Joined: Fri Oct 19, 2007 2:37 pm

Re: Tyhmät kysymykset

Post by Minä! »

ei kai sitä tuolleen voi tehä...
kokeile:

delete kartta

tai minkä nyt oletkin antanut sen kartan nimeksi..
tuo toimii minulla ainakin..
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: Tyhmät kysymykset

Post by iTKEVAnAKKI »

eieieie! En halua tuhota pelissä olevaa kartaa vaan, vain sen mistä se ladattiin :D Mutta ratkaisin jo ongelman, kirjoitan sen lukukelvottomaksi....
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee ;)
TheFish
Developer
Developer
Posts: 477
Joined: Mon Aug 27, 2007 9:28 pm
Location: Joensuu

Re: Tyhmät kysymykset

Post by TheFish »

iTKEVAnAKKI wrote:eieieie! En halua tuhota pelissä olevaa kartaa vaan, vain sen mistä se ladattiin :D Mutta ratkaisin jo ongelman, kirjoitan sen lukukelvottomaksi....
Ainakin minä pystyin poistamaan kartan tällä:

Code: Select all

DeleteFile "media\testmap.til"
CoolBasic henkilökuntaa
Kehittäjä
Thomazu
Active Member
Posts: 179
Joined: Tue Aug 28, 2007 7:28 am

Re: Tyhmät kysymykset

Post by Thomazu »

Thomazu wrote: Eli ongelmani on se kun Jos lause teko$=2 toteutuu ja painetaan entteriä niin ohjelma ei mene kohtaan "valinta:" vaan hyppää sen yli jo suoraan "juttu2:". Sain ongelman "korjattua" niin että laitoin "valinta" kohdassa olevan If KeyHit(28) tilalle 54, (eli enterin tilalle shift). Mutta millä saisin tuon toimimaan niin että se ei hyppäisi tuon "valinta" kohdan yli entteriä painettaessa? Lyhensin koodia vähän..
Sain selvitettyä ongelmani.
Image
hohoo
Newcomer
Posts: 5
Joined: Wed Sep 05, 2007 7:54 pm

Re: Tyhmät kysymykset

Post by hohoo »

Onkohan olemassa tapaa suurentaa objekteja? Vähän niin kuin ResizeImage?
Guest

Re: Tyhmät kysymykset

Post by Guest »

Ei ole, mutta voit suurentaa kuvaa ja maalata sitten objektin tällä kuvalla.

Jotenkin:

Code: Select all

img = loadimage("kuva.png")
obj = makeobject(72)

//koodia

if objektisuurenee then
   resizeimage img, entinenkoko + 10
   paintobject obj, -img
endif
ankka

Re: Tyhmät kysymykset

Post by ankka »

hohoo wrote:Onkohan olemassa tapaa suurentaa objekteja? Vähän niin kuin ResizeImage?
viewtopic.php?f=10&t=114

foorumeilta kun vähän olisit ettiny^heti löytyy apua.
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: Tyhmät kysymykset

Post by iTKEVAnAKKI »

Code: Select all

  If KeyHit(näppäin(nappi)) Then
    nappi+1
  ElseIf GetKey() And KeyHit(näppäin(nappi))=False Then
    virheitä+1
  EndIf
Eli jos painaa oikeaa näppäintä niin pitäisi siirtyä seuraavaan nappiin, jos väärään niin virheiden pitäisi nousta. Nyt vaikka painaakin oikeaa näppäintä niin virheet kasvaa.
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee ;)
Locked