Ping Pong Extrem



  • ~->Ping Pong Extrem<-~

    Hier hab ihr mein Programm "Ping Pong Extrem" :multikiller:
    zumindest den Code ^^ das spielbare Programm folgt in wenigen Tagen XD

    [code]AppTitle"Spiel1"
    Graphics 640,480
    SetBuffer BackBuffer()
    SeedRnd MilliSecs()
    a$=Input("Welches level?(schwer,normal,mittel,leicht)")

    If a$="mittel" Then
    t=CreateTimer(75)
    ElseIf a$="normal" Then
    t=CreateTimer(50)
    ElseIf a$="leicht" Then
    t=CreateTimer(25)
    If a$="schwer" Then
    t=CreateTimer(200)
    Else t=CreateTimer(10000)
    EndIf

    Global bunter.schweif
    Type schweif
    Field sx
    Field sy
    Field r
    Field g
    Field b
    End Type
    h=0

    x=320
    y=240
    bx=320
    by=240

    s1x=0
    s1y=240
    s1p=0

    s2x=630
    s2y=240
    s2p=0

    s3x=320
    s3y=0
    s3p=20

    s4x=320
    s4y=470
    s4p=0

    Repeat

    xx=Rand(-5,5)
    yy=Rand(-5,5)
    bxx=Rand(-5,5)
    byy=Rand(-5,5)
    Until xx<>0 And yy<>0 And byy<>0 And bxx<>0

    Ball=LoadImage ("C:BbBall.bmp")
    Schlaeger=LoadImage("C:BbSchlaeger.bmp")
    schlaegerin=LoadImage("C:BbSchlaeger2.bmp")
    hinter=LoadImage("C:Bbhinter.bmp")
    ClsColor 0,0,255
    Color 0,0,0
    Repeat
    x=xx+x
    y=yy+y
    ay=y
    ax=x
    bx=bx+bxx
    by=by+byy
    h=h+1
    If h<100 Then
    bunter.schweif=New schweif
    bunter
    =Rand(255)
    bunterg=Rand(255)
    bunter=Rand(255)
    EndIf

    If ImagesOverlap (Ball,x,y, Schlaeger,s1x,s1y) Or ImagesOverlap (Ball,x,y, Schlaeger,s2x,s2y) Then
    xx=xx*-1
    EndIf

    If ImagesOverlap (Ball,x,y, schlaegerin,s3x,s3y) Or ImagesOverlap (Ball,x,y, schlaegerin,s4x,s4y)Then

    yy=yy*-1
    EndIf

    If ImagesOverlap (Ball,bx,by, Schlaeger,s1x,s1y) Or ImagesOverlap (Ball,bx,by, Schlaeger,s2x,s2y) Then
    bxx=bxx*-1
    EndIf

    If ImagesOverlap (Ball,bx,by, schlaegerin,s3x,s3y) Or ImagesOverlap (Ball,bx,by, schlaegerin,s4x,s4y)Then

    byy=byy*-1
    EndIf

    If x<0 Then
    s1p=s1p+1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If x>640 Then
    s2p=s2p+1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If by>480 Then
    s4p=s4p+1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If by<0 Then
    s3p=s3p-1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If bx<0 Then
    s1p=s1p+1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If bx>640 Then
    s2p=s2p+1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If y>480 Then
    s4p=s4p+1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If y<0 Then
    s4p=s3p-1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If KeyDown (200) Then
    s2y=s2y-5
    EndIf

    If KeyDown (208) Then
    s2y=s2y+5
    EndIf

    If KeyDown (17) Then
    s1y=s1y-5
    EndIf

    If KeyDown (31) Then
    s1y=s1y+5
    EndIf

    If KeyDown (17) Then
    s3y=s3y-5
    EndIf

    If KeyDown (31) Then
    s3y=s3y+5
    EndIf

    If s1y<0 Then s1y=640
    If s1y>480 Then s1y=0
    If s2y<0 Then s2y=640
    If s2y>480 Then s2y=0
    If s3y<0 Then s3y=640
    If s3y>480 Then s3y=0

    ;SPIELER 1 KI
    If x<bx Then
    If s1yy Then s1y=s1y-5
    EndIf
    If x>bx Then
    If s1yby Then s1y=s1y-5
    EndIf

    ;SPIELER 3 KI
    If y<by Then
    If s3xx Then s3x=s3x-5
    EndIf
    If y>by Then
    If s3xbx Then s3x=s3x-5
    EndIf

    ;SPILER 4KI
    If y>by Then
    If s4xx Then s4x=s4x-5
    EndIf
    If y<by Then
    If s4xbx Then s4x=s4x-5
    EndIf

    Flip
    Cls
    Color 125,125,125

    Text s2x-20,s2y,s2p
    Text s1x+40,s1y,s1p
    Text s3x,s3y+40,s3p
    Text s4x,s4y-10,s4p

    For bunter.schweif <=Each schweif
    axx=buntersx
    ayy=buntersy
    buntersx=ax
    buntersy=ay
    ax=axx
    ay=ayy
    Color bunter
    ,bunterg,bunter

    Oval buntersx,buntersy,10,10
    Next

    DrawImage Ball,bx,by
    DrawImage Ball,x,y
    DrawImage Schlaeger,s1x,s1y
    DrawImage Schlaeger,s2x,s2y
    DrawImage schlaegerin,s3x,s3y
    DrawImage schlaegerin,s4x,s4y

    WaitTimer(t)
    Forever

    ;><)))>
    ;~><)))
    >~><)))>
    ;><)))
    >~><)))>~><)))>
    [/code]



  • ~->Ping Pong Extrem<-~

    Hier hab ihr mein Programm "Ping Pong Extrem" :multikiller:
    zumindest den Code ^^ das spielbare Programm folgt in wenigen Tagen XD

    [code]AppTitle"Spiel1"
    Graphics 640,480
    SetBuffer BackBuffer()
    SeedRnd MilliSecs()
    a$=Input("Welches level?(schwer,normal,mittel,leicht)")

    If a$="mittel" Then
    t=CreateTimer(75)
    ElseIf a$="normal" Then
    t=CreateTimer(50)
    ElseIf a$="leicht" Then
    t=CreateTimer(25)
    If a$="schwer" Then
    t=CreateTimer(200)
    Else t=CreateTimer(10000)
    EndIf

    Global bunter.schweif
    Type schweif
    Field sx
    Field sy
    Field r
    Field g
    Field b
    End Type
    h=0

    x=320
    y=240
    bx=320
    by=240

    s1x=0
    s1y=240
    s1p=0

    s2x=630
    s2y=240
    s2p=0

    s3x=320
    s3y=0
    s3p=20

    s4x=320
    s4y=470
    s4p=0

    Repeat

    xx=Rand(-5,5)
    yy=Rand(-5,5)
    bxx=Rand(-5,5)
    byy=Rand(-5,5)
    Until xx<>0 And yy<>0 And byy<>0 And bxx<>0

    Ball=LoadImage ("C:BbBall.bmp")
    Schlaeger=LoadImage("C:BbSchlaeger.bmp")
    schlaegerin=LoadImage("C:BbSchlaeger2.bmp")
    hinter=LoadImage("C:Bbhinter.bmp")
    ClsColor 0,0,255
    Color 0,0,0
    Repeat
    x=xx+x
    y=yy+y
    ay=y
    ax=x
    bx=bx+bxx
    by=by+byy
    h=h+1
    If h<100 Then
    bunter.schweif=New schweif
    bunter
    =Rand(255)
    bunterg=Rand(255)
    bunter=Rand(255)
    EndIf

    If ImagesOverlap (Ball,x,y, Schlaeger,s1x,s1y) Or ImagesOverlap (Ball,x,y, Schlaeger,s2x,s2y) Then
    xx=xx*-1
    EndIf

    If ImagesOverlap (Ball,x,y, schlaegerin,s3x,s3y) Or ImagesOverlap (Ball,x,y, schlaegerin,s4x,s4y)Then

    yy=yy*-1
    EndIf

    If ImagesOverlap (Ball,bx,by, Schlaeger,s1x,s1y) Or ImagesOverlap (Ball,bx,by, Schlaeger,s2x,s2y) Then
    bxx=bxx*-1
    EndIf

    If ImagesOverlap (Ball,bx,by, schlaegerin,s3x,s3y) Or ImagesOverlap (Ball,bx,by, schlaegerin,s4x,s4y)Then

    byy=byy*-1
    EndIf

    If x<0 Then
    s1p=s1p+1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If x>640 Then
    s2p=s2p+1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If by>480 Then
    s4p=s4p+1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If by<0 Then
    s3p=s3p-1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If bx<0 Then
    s1p=s1p+1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If bx>640 Then
    s2p=s2p+1
    bxx=Rand(1,5)
    byy=Rand(1,5)
    bx=320
    by=240
    EndIf

    If y>480 Then
    s4p=s4p+1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If y<0 Then
    s4p=s3p-1
    xx=Rand(1,5)
    yy=Rand(1,5)
    x=320
    y=240
    EndIf

    If KeyDown (200) Then
    s2y=s2y-5
    EndIf

    If KeyDown (208) Then
    s2y=s2y+5
    EndIf

    If KeyDown (17) Then
    s1y=s1y-5
    EndIf

    If KeyDown (31) Then
    s1y=s1y+5
    EndIf

    If KeyDown (17) Then
    s3y=s3y-5
    EndIf

    If KeyDown (31) Then
    s3y=s3y+5
    EndIf

    If s1y<0 Then s1y=640
    If s1y>480 Then s1y=0
    If s2y<0 Then s2y=640
    If s2y>480 Then s2y=0
    If s3y<0 Then s3y=640
    If s3y>480 Then s3y=0

    ;SPIELER 1 KI
    If x<bx Then
    If s1yy Then s1y=s1y-5
    EndIf
    If x>bx Then
    If s1yby Then s1y=s1y-5
    EndIf

    ;SPIELER 3 KI
    If y<by Then
    If s3xx Then s3x=s3x-5
    EndIf
    If y>by Then
    If s3xbx Then s3x=s3x-5
    EndIf

    ;SPILER 4KI
    If y>by Then
    If s4xx Then s4x=s4x-5
    EndIf
    If y<by Then
    If s4xbx Then s4x=s4x-5
    EndIf

    Flip
    Cls
    Color 125,125,125

    Text s2x-20,s2y,s2p
    Text s1x+40,s1y,s1p
    Text s3x,s3y+40,s3p
    Text s4x,s4y-10,s4p

    For bunter.schweif <=Each schweif
    axx=buntersx
    ayy=buntersy
    buntersx=ax
    buntersy=ay
    ax=axx
    ay=ayy
    Color bunter
    ,bunterg,bunter

    Oval buntersx,buntersy,10,10
    Next

    DrawImage Ball,bx,by
    DrawImage Ball,x,y
    DrawImage Schlaeger,s1x,s1y
    DrawImage Schlaeger,s2x,s2y
    DrawImage schlaegerin,s3x,s3y
    DrawImage schlaegerin,s4x,s4y

    WaitTimer(t)
    Forever

    ;><)))>
    ;~><)))
    >~><)))>
    ;><)))
    >~><)))>~><)))>
    [/code]


 

Es scheint als hättest du die Verbindung zu MyTechZone 2 verloren, bitte warte während wir versuchen sie wieder aufzubauen.