Tyhmät kysymykset (I/2009)

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

Re: Kymysys.

Post by MAVmaggot » Thu Oct 18, 2007 6:21 pm

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 » Fri Oct 19, 2007 4:29 pm

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 » Fri Oct 19, 2007 4:56 pm

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 » Fri Oct 19, 2007 7:05 pm

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 » Sun Oct 21, 2007 6:00 pm

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 » Sun Oct 21, 2007 8:38 pm

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 » Sun Oct 21, 2007 8:48 pm

Vain toinen painike (=buttons(1)) painuu alas.

User avatar
Thomazu
Active Member
Posts: 179
Joined: Tue Aug 28, 2007 7:28 am

Re: Tyhmät kysymykset

Post by Thomazu » Mon Oct 22, 2007 7:16 am

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

User avatar
Koodiapina
Forum Veteran
Posts: 2396
Joined: Tue Aug 28, 2007 4:20 pm
Contact:

Re: Tyhmät kysymykset

Post by Koodiapina » Thu Oct 25, 2007 3:20 pm

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.
Olen liian älykäs ollakseni väärässä. Jos olet kanssani eri mieltä, suosittelen sinua pohtimaan omaa elämänkatsomustasi ja sen perusteita.

coolariko joka ei jaksanu kirjautua

Re: Tyhmät kysymykset

Post by coolariko joka ei jaksanu kirjautua » Thu Oct 25, 2007 5:18 pm

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 » Thu Oct 25, 2007 7:20 pm

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!

User avatar
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: Tyhmät kysymykset

Post by iTKEVAnAKKI » Fri Oct 26, 2007 6:27 pm

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ä! » Fri Oct 26, 2007 6:33 pm

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

delete kartta

tai minkä nyt oletkin antanut sen kartan nimeksi..
tuo toimii minulla ainakin..

User avatar
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: Tyhmät kysymykset

Post by iTKEVAnAKKI » Fri Oct 26, 2007 6:36 pm

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 » Fri Oct 26, 2007 8:10 pm

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ä

User avatar
Thomazu
Active Member
Posts: 179
Joined: Tue Aug 28, 2007 7:28 am

Re: Tyhmät kysymykset

Post by Thomazu » Sun Oct 28, 2007 7:42 pm

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 » Tue Oct 30, 2007 10:17 am

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

Guest

Re: Tyhmät kysymykset

Post by Guest » Tue Oct 30, 2007 10:45 am

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 » Tue Oct 30, 2007 12:23 pm

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.

User avatar
iTKEVAnAKKI
Advanced Member
Posts: 335
Joined: Tue Aug 28, 2007 3:55 pm
Location: Siellä jossain

Re: Tyhmät kysymykset

Post by iTKEVAnAKKI » Tue Oct 30, 2007 6:36 pm

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