Exemple d'Animation

par **Papydall-Admin** Jeu 13 Oct - 4:19

Code:: rem ============================================================================ rem A N I M A T I O N rem PAR PAPYDALL rem ============================================================================ Init() Anim() Terminer() END REM ============================================================================ SUB Init() dim p,xh,xc,xr,xs,x,y,x1,x3,xfr,v color 0,100,50,20 full_space 0 : picture 10 : width 10,920 : height 10,600 top 10,(height(0) - height(10))/2 : left 10,(width(0) - width(10))/2 color 10,0,255,255 : 2d_target_is 10 : print_target_is 10 : hide 10 font_color 10,255,0,0 : font_bold 10 : font_size 10,8 caption 0,"<ESC> pour arrêter ...." v = 10 : ' vitesse du mouvement des engins à modifier image 20 END_SUB REM ============================================================================ SUB Anim() for p = 1 to 10000 Landscap() Building() Fred_House() Panoramic() Rita_Shop() Scool_Car() Papydall() Sidney_Car() MR() Ambulance() Trains() Snow_Man() image_recopy() if scancode = 27 then exit_sub next p END_SUB REM ============================================================================ SUB Landscap() 2d_fill_on : 2d_fill_color 000,255,255 : 2d_rectangle 0,0,920,600 2d_fill_on : 2d_fill_color 220,220,255 : 2d_rectangle 0,300,920,600 2d_pen_color 220,220,220 2d_circle 000,300,150 : 2d_circle 050,300,170 : 2d_circle 100,300,090 2d_circle 200,300,050 : 2d_circle 230,300,100 : 2d_circle 300,300,060 2d_circle 430,300,120 : 2d_circle 500,300,060 : 2d_circle 630,300,090 2d_circle 700,300,070 : 2d_circle 770,300,070 : 2d_circle 850,300,050 2d_circle 880,300,040 2d_fill_color 128,128,128 : 2d_rectangle 0,350,920,400 END_SUB REM ============================================================================ SUB Building() 2d_fill_color 164,164,164 2d_pen_color 164,164,164 : 2d_rectangle 500,70,600,320 2d_fill_color 0,0,128 : 2d_pen_color 0,0,128 For x = 510 to 570 step 30 For y = 80 to 290 step 30 : 2d_rectangle x,y,x+20,y+20 : next y next x 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_rectangle 570,260,590,320 END_SUB REM ============================================================================ SUB Fred_House() 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle 700,250,800,350 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_rectangle 740,300,765,350 2d_fill_color 128,0,0 : 2d_pen_color 128,0,0 2d_rectangle 775,200,800,250 if p = 1 then xh = 1 if xh > 80 then xh = 1 xh = xh + 2.5 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle 700,250,800,350 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_rectangle 740,300,765,350 2d_fill_color 128,0,0 : 2d_pen_color 128,0,0 2d_rectangle 775,200,800,250 2d_fill_color 164,164,164 : 2d_pen_color 164,164,164 2d_circle 785,195-xh,5 : 2d_circle 800,195-xh,4 : ' fummée 2d_circle 790,195-xh,3 : 2d_circle 780,195-xh,2 : ' fummée END_SUB REM ============================================================================ SUB Panoramic() 2d_fill_color 164,164,164 : 2d_pen_color 164,164,164 2d_Rectangle 0,240,150,340 2d_fill_color 0,0,255 : 2d_pen_color 0,0,255 2d_Rectangle 20,280,90,330 2d_fill_color 255,102,0 : 2d_pen_color 255,102,0 2d_Rectangle 110,270,130,330 2d_fill_color 0,255,0 : 2d_pen_color 0,255,0 2d_rectangle 20,220,105,240 2d_fill_color 255,255,0 : 2d_pen_color 255,255,0 2d_rectangle 103,220,143,240 print_locate 20,220 : print " Panoramic's bar " END_SUB REM ============================================================================ SUB Rita_Shop() 2d_fill_color 164,164,164 : 2d_pen_color 164,164,164 2d_Rectangle 170,240,320,340 2d_fill_color 0,0,255 : 2d_pen_color 0,0,255 2d_Rectangle 190,280,260,330 2d_fill_color 255,102,0 : 2d_pen_color 255,102,0 2d_Rectangle 270,280,290,340 2d_fill_color 0,255,0 : 2d_pen_color 0,255,0 2d_rectangle 180,220,310,240 print_locate 190,220 : print " Rita's Deals" print_locate 205,245 : print "Cupcakes" END_SUB REM ============================================================================ SUB Papydall() if p = 1 then xc = 100 xc = xc + .5*v if xc > 1000 then xc = 0 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle 910-xc,270+y,970-xc,290+y 2d_rectangle 930-xc,230+y,1090-xc,290+y 2d_fill_color 0,128,128 : 2d_pen_color 0,128,128 2d_rectangle 935-xc,250+y,1075-xc,270+y 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 print_locate 970-xc,230+y : print "Papydall " 2d_circle 925-xc,290+y,10 : 2d_circle 1050-xc,290+y,10 2d_fill_color 128,128,0 : 2d_pen_color 128,128,0 2d_circle 980-xc,260+y,5 : 2d_circle 970-xc,260+y,5 2d_circle 990-xc,260+y,5 : 2d_circle 1000-xc,260+y,5 2d_circle 1010-xc,260+y,5 : 2d_circle 1030-xc,260+y,5 2d_circle 945-xc,260+y,5 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 END_SUB rem ============================================================================ SUB Scool_Car() if p = 1 then xr = 0 xr = xr + 1*v if xr > 1000 then x = 0 y = 60 2d_fill_color 255,255,0 : 2d_pen_color 255,255,0 2d_rectangle 910-xr,270+y,970-xr,290+y 2d_rectangle 930-xr,230+y,1000-xr,290+y print_locate 935-xr,230+y : print "Scool" 2d_fill_color 0,128,128 : 2d_pen_color 0,128,128 2d_rectangle 935-xr,250+y,995-xr,270+y 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle 925-xr,290+y,10 : 2d_circle 990-xr,290+y,10 END_SUB REM ============================================================================ SUB Sidney_Car() if p = 1 then x1 = 0 x1 = x1 + 1.5*v if x1 > 1200 then x1 = 0 2d_fill_color 0,0,128 : 2d_pen_color 0,0,128 2d_rectangle 910-x1,270+y,970-x1,290+y 2d_rectangle 930-x1,260+y,970-x1,280+y 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle 925-x1,290+y,10 : 2d_circle 955-x1,290+y,10 END_SUB REM ============================================================================ SUB MR() if p = 1 then x3 = 90 x3 = x3 + 1.1*v : y = 60 if x3 > 1000 then x3 = 0 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle 910-x3,270+y,970-x3,290+y 2d_rectangle 930-x3,230+y,1000-x3,290+y 2d_fill_color 0,128,128 : 2d_pen_color 0,128,128 2d_rectangle 935-x3,250+y,995-x3,270+y 2d_fill_color 255,255,0 : 2d_pen_color 255,255,0 print_locate 935-x3,230+y : print " MR 123 " 2d_circle 925-x3,290+y,10 : 2d_circle 990-x3,290+y,10 END_SUB REM ============================================================================ SUB Snow_Man() y = 300 2d_fill_color 255,255,255 : 2d_pen_color 255,255,255 2d_circle 100,230+y,50 : 2d_circle 100,150+y,45 : 2d_circle 100,70+y,40 2d_fill_color 255,255,0 : 2d_pen_color 0,0,0 : 2d_circle 90,60+y,5 if sin(p/150) < .98 then 2d_circle 110,60+y,5 2d_circle 100,85+y,5 : 2d_circle 110,85+y,5 : 2d_circle 90,85+y,5 2d_circle 080,80+y,5 : 2d_circle 120,80+y,5 print_locate 75,145+y : print "M E R C I" print_locate 70,225+y : print "VISITEUR" END_SUB REM ============================================================================ SUB Trains() if p = 1 then xfr = 0 xfr = xfr + 1*v 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 if xfr > 1000 then xfr = -200 2d_rectangle 10+xfr,280,40+xfr,340 2d_fill_color 255,102,0 : 2d_pen_color 255,102,0 2d_rectangle 10+xfr,315,130+xfr,365 2d_fill_color 164,164,164 : 2d_pen_color 164,164,164 2d_circle 70+xfr,380,15 : 2d_circle 110+xfr,380,15 : 2d_circle 35+xfr,380,15 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle 70+xfr,380,5 : 2d_circle 110+xfr,380,5 : 2d_circle 35+xfr,380,5 2d_rectangle xfr-30,340,10+xfr,350 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle xfr-100,315,xfr-25,365 2d_fill_color 164,164,164 : 2d_pen_color 164,164,164 2d_circle xfr-80,380,15 : 2d_circle xfr-40,380,15 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle xfr-80,380,5 : 2d_circle xfr-40,380,5 if xfr > 250 then x = 0 2d_rectangle 230+xfr,260,250+xfr,320 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle 210+xfr,315,330+xfr,365 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle 270+xfr,370,15 : 2d_circle 310+xfr,370,15 : 2d_circle 235+xfr,370,15 2d_fill_color 255,255,0 : 2d_pen_color 255,255,0 2d_circle 270+xfr,370,5 : 2d_circle 310+xfr,370,5 : 2d_circle 235+xfr,370,5 END_SUB REM ============================================================================ SUB Ambulance() if p = 1 then xs = 200 y = 65 : xs = xs + 2.5*v if xs > 1200 then xs = -250 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_circle 965-xs,225+y,8 2d_fill_color 164,164,164 : 2d_pen_color 164,164,164 2d_rectangle 910-xs,270+y,970-xs,290+y 2d_rectangle 930-xs,230+y,1000-xs,290+y 2d_fill_color 0,128,128 : 2d_pen_color 0,128,128 2d_rectangle 935-xs,250+y,995-xs,270+y print_locate 935-xs,230+y : print "Ambulance" 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle 925-xs,290+y,10 : 2d_circle 990-xs,290+y,10 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_circle 650-xs,225+y,10 2d_fill_color 255,255,255 : 2d_pen_color 255,255,255 2d_rectangle 610-xs,270+y,670-xs,290+y 2d_rectangle 630-xs,230+y,700-xs,290+y 2d_fill_color 255,0,0 : 2d_pen_color 255,0,0 2d_rectangle 650-xs,250+y,680-xs,260+y 2d_rectangle 660-xs,240+y,670-xs,270+y 2d_fill_color 0,0,0 : 2d_pen_color 0,0,0 2d_circle 625-xs,290+y,10 : 2d_circle 690-xs,290+y,10 END_SUB REM ============================================================================ ' Pour éviter le scintillement SUB image_recopy() 2d_target_is 10 : 2d_image_copy 20,0,0,width(10),height(10) 2d_target_is 0 : 2d_image_paste 20,left(10),top(10) 2d_target_is 10 END_SUB rem ============================================================================ SUB Terminer() dim_local i for i = height(0) to 50 step -10 height 0,i : pause 100 next i terminate END_SUB rem ============================================================================

Lun	Mar	Mer	Jeu	Ven	Sam	Dim
1	2	3	4	5	6	7
8	9	10	11	12	13	14
15	16	17	18	19	20	21
22	23	24	25	26	27	28
29	30