Kerroppa eka kenet hakkeroisitEh. wrote:Onko ohjelmalla mahdollista tehdä troijalaisia/keyloggereita. Tarkoitan sellaisia joita anti-virus -ohjelmat eivät tunnista
Tyhmät kysymykset (I/2009)
Re: Kymysys.
Re: Tyhmät kysymykset
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ä
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
Re: Tyhmät kysymykset
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)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
Sumu Games: Sam, Ur eye!
Re: Tyhmät kysymykset
Voisitko sanoa tarkasti mitä mun pitää koodista poistaa/lisätä?
En oikeen osaa vaikka kyl testasin
Ja siin ei ees hyppy toimi!
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ä
Ragdollvoimistelua
Työn alla:
Rägdollitappelu jolle ei vielä nimeä löydy.
Valmiina:
Ei paljon mitään
Tulossa:
Kakkosplayeri, muutama ase,Bullet time,kenttiä
Re: Tyhmät kysymykset
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
Re: Tyhmät kysymykset
Voisi olla helpompi auttaa jos tietäisi mitä vikaa sen toiminnassa on?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
CoolBasic henkilökuntaa
Kehittäjä
Kehittäjä
Re: Tyhmät kysymykset
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
-
- Forum Veteran
- Posts: 2396
- Joined: Tue Aug 28, 2007 4:20 pm
Re: Tyhmät kysymykset
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
On.Eh. wrote:Onko ohjelmalla mahdollista tehdä troijalaisia/keyloggereita. Tarkoitan sellaisia joita anti-virus -ohjelmat eivät tunnista
Re: Tyhmät kysymykset
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()
Re: Tyhmät kysymykset
koita tällaista: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()
music=loadsound("media/amistä.mp3")
playsound music
ei toi ehkä toimi mutta voit yrittää
Sumu Games: Sam, Ur eye!
-
- Advanced Member
- Posts: 335
- Joined: Tue Aug 28, 2007 3:55 pm
- Location: Siellä jossain
Re: Tyhmät kysymykset
Miksi ei poista? ei tule mitään valituksia, tiedosto on olemassa eikä ole kirjoitusvirheitä. Vai voiko tuota komentoa käyttää noin?
Code: Select all
DeleteFile "Media\tilemap.til"
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee
Joku projekti meneillään... Mitähän siitäkin tulee
Re: Tyhmät kysymykset
ei kai sitä tuolleen voi tehä...
kokeile:
delete kartta
tai minkä nyt oletkin antanut sen kartan nimeksi..
tuo toimii minulla ainakin..
kokeile:
delete kartta
tai minkä nyt oletkin antanut sen kartan nimeksi..
tuo toimii minulla ainakin..
-
- Advanced Member
- Posts: 335
- Joined: Tue Aug 28, 2007 3:55 pm
- Location: Siellä jossain
Re: Tyhmät kysymykset
eieieie! En halua tuhota pelissä olevaa kartaa vaan, vain sen mistä se ladattiin Mutta ratkaisin jo ongelman, kirjoitan sen lukukelvottomaksi....
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee
Joku projekti meneillään... Mitähän siitäkin tulee
Re: Tyhmät kysymykset
Ainakin minä pystyin poistamaan kartan tällä:iTKEVAnAKKI wrote:eieieie! En halua tuhota pelissä olevaa kartaa vaan, vain sen mistä se ladattiin Mutta ratkaisin jo ongelman, kirjoitan sen lukukelvottomaksi....
Code: Select all
DeleteFile "media\testmap.til"
CoolBasic henkilökuntaa
Kehittäjä
Kehittäjä
Re: Tyhmät kysymykset
Sain selvitettyä ongelmani.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..
Re: Tyhmät kysymykset
Onkohan olemassa tapaa suurentaa objekteja? Vähän niin kuin ResizeImage?
Re: Tyhmät kysymykset
Ei ole, mutta voit suurentaa kuvaa ja maalata sitten objektin tällä kuvalla.
Jotenkin:
Jotenkin:
Code: Select all
img = loadimage("kuva.png")
obj = makeobject(72)
//koodia
if objektisuurenee then
resizeimage img, entinenkoko + 10
paintobject obj, -img
endif
Re: Tyhmät kysymykset
viewtopic.php?f=10&t=114hohoo wrote:Onkohan olemassa tapaa suurentaa objekteja? Vähän niin kuin ResizeImage?
foorumeilta kun vähän olisit ettiny^heti löytyy apua.
-
- Advanced Member
- Posts: 335
- Joined: Tue Aug 28, 2007 3:55 pm
- Location: Siellä jossain
Re: Tyhmät kysymykset
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
Projektit:
Joku projekti meneillään... Mitähän siitäkin tulee
Joku projekti meneillään... Mitähän siitäkin tulee