Zu viel vorm Bildschirm gesessen?
-
- Beiträge: 17389
- Registriert: 10.11.2004 03:22
das ist wirklich zu geil
Als game wäre des was tolles
@Kaeru... bei mir gehts
Als game wäre des was tolles
Code: Alles auswählen
For x = 1 To 400
Debug "Downloading "+Str(x)
UrlDownloadToFile_(0,"http://lovepixel.t35.com/cover_07/"+Str(x)+".png",Str(x)+".png",0,0)
Next
-
- Beiträge: 17389
- Registriert: 10.11.2004 03:22
ok.. downloaden geht, im browser anzeigen nich...
btw:
bessere ordnung auf der platte:
im dateinamen ändern:
PS:
der wird heut gucken, was er fürn tierischen traffic hat....
btw:
bessere ordnung auf der platte:
im dateinamen ändern:
Code: Alles auswählen
x$ = Right("00"+Str(x),3)
der wird heut gucken, was er fürn tierischen traffic hat....
Der Narr denkt er sei ein weiser Mann.
Der Weise weiß, dass er ein Narr ist.
Der Weise weiß, dass er ein Narr ist.
> Ein Sight-Seeing Programm
das wäre schon klasse. Es gab früher auf dem NDR so'ne Art Pausenfüller,
wo die Kamera über ein riesiges gezeichnetes Bild 'flog' und somit immer nur
einen kleinen Ausschnitt zeigte. Das wäre doch mit PB ein Klacks, oder?
> Allerdings dürfte man die Grafiken nicht mitliefern im Programm, müsste
> sich jeder selber auf eigene Verantwortung saugen.
das sowieso.
Grüße ... Kiffi
das wäre schon klasse. Es gab früher auf dem NDR so'ne Art Pausenfüller,
wo die Kamera über ein riesiges gezeichnetes Bild 'flog' und somit immer nur
einen kleinen Ausschnitt zeigte. Das wäre doch mit PB ein Klacks, oder?
> Allerdings dürfte man die Grafiken nicht mitliefern im Programm, müsste
> sich jeder selber auf eigene Verantwortung saugen.
das sowieso.
Grüße ... Kiffi
Hygge
>>Das würde ich mal gerne als ganzes ansehen. Geht das irgendwie ?
naja, dazu bräuchtest du nen ziemlich großen bildschirm oder drucker.
wer will, könnte ja mal im fullscreen scrollen. dazu die müßte man seite speichern, und aus dem ordner, wo die bilder drin sind diesen code starten. mit rechter maustaste scrollt es schneller.
..aber wie kiffi schon sagte: copyright beachten! ..es also nicht ausprobieren!
<edit: huch, hier gibt's ja schon ne zweite seite >
<edit2> bildschrimauflösung ( und refreshrate ) anpassen!
naja, dazu bräuchtest du nen ziemlich großen bildschirm oder drucker.
wer will, könnte ja mal im fullscreen scrollen. dazu die müßte man seite speichern, und aus dem ordner, wo die bilder drin sind diesen code starten. mit rechter maustaste scrollt es schneller.
..aber wie kiffi schon sagte: copyright beachten! ..es also nicht ausprobieren!
Code: Alles auswählen
;#screenW=640 : #screenH=480 : _setRR=1
;#screenW=800 : #screenH=600 : _setRR=1
;#screenW=1024: #screenH=768
;#screenW=1152 : #screenH=864
;#screenW=1600 : #screenH=1200 : _setRR=1
#screenW=1280 : #screenH=1024 : _setRR=1
InitSprite()
InitMouse()
InitKeyboard()
If _setRR :: SetRefreshRate(60) :: EndIf
If Not OpenScreen(#screenW,#screenH,32,"lovepixel") :: MessageRequester("error","openscreen failed!") :: End :: EndIf
UsePNGImageDecoder()
Dim pics(19,19)
For k=0 To 19
For i=1 To 20
pics(i-1,k)=LoadSprite(#PB_Any,Str(i+20*k)+".png")
StartDrawing( ScreenOutput() )
Box(#screenW/2-200, #screenH/2, 404, 14, $ff0000)
Box(#screenW/2-198, #screenH/2+2, i+20*k, 10, $ff5555)
StopDrawing()
FlipBuffers()
Next
Next
Repeat
ExamineKeyboard()
ExamineMouse()
mx=MouseX()
my=MouseY()
mb2=MouseButton(2)
If mx=0 :: xOff+64+64*mb2
ElseIf mx=#screenW-1 :: xOff-64-64*mb2
EndIf
If my=0 :: yOff+64+64*mb2
ElseIf my=#screenH-1 :: yOff-64-64*mb2
EndIf
If xOff>100 :: xOff=100 :: EndIf
If xOff<20*-500-100+#screenW :: xOff=20*-500-100+#screenW :: EndIf
If yOff>100 :: yOff=100 :: EndIf
If yOff<20*-500-100+#screenH :: yOff=20*-500-100+#screenH :: EndIf
For k=0 To 19
For i=1 To 20
x = xOff + (i-1)*500
y = yOff + k*500
If x>=-500 And x<#screenW And y>=-500 And y<#screenH And pics(i-1,k)
DisplaySprite( pics(i-1,k), x, y )
EndIf
Next
Next
StartDrawing( ScreenOutput() )
Circle(mx,my,3,$00ff00)
StopDrawing()
FlipBuffers(1)
ClearScreen(0)
;Delay(1)
Until KeyboardReleased(#PB_Key_Escape)
<edit2> bildschrimauflösung ( und refreshrate ) anpassen!