Re: Kymysys.
Posted: Thu Oct 18, 2007 6:21 pm
Kerroppa eka kenet hakkeroisitEh. wrote:Onko ohjelmalla mahdollista tehdä troijalaisia/keyloggereita. Tarkoitan sellaisia joita anti-virus -ohjelmat eivät tunnista
Game Making Should Be Easy...
https://www.coolbasic.com/phpBB3/
Kerroppa eka kenet hakkeroisitEh. wrote:Onko ohjelmalla mahdollista tehdä troijalaisia/keyloggereita. Tarkoitan sellaisia joita anti-virus -ohjelmat eivät tunnista
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
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?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
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
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
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: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()
Code: Select all
DeleteFile "Media\tilemap.til"
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"
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..
Code: Select all
img = loadimage("kuva.png")
obj = makeobject(72)
//koodia
if objektisuurenee then
resizeimage img, entinenkoko + 10
paintobject obj, -img
endif
viewtopic.php?f=10&t=114hohoo wrote:Onkohan olemassa tapaa suurentaa objekteja? Vähän niin kuin ResizeImage?
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