olympics

//______olympics 2000
//sc3d5
//jr 2/01
(
var x, v, o;
x = GUIScreen.new("olympics", Rect.newBy(30,50,400,300));
x.view = View.new(Pen(action: \fill, backColor: Color.black), 

        [ 
                Rect.newBy(0,0,600,800),
                v =  View.new
                
         ]);


15.do({ v.items  = v.items.add(TextBox(Pen(textSize: 9, action: \fill,
foreColor: Color.green), Rect.newBy(400.rand, 295 + 5.rand2, 20, 10),
500.0.rand.asString) )});
                        
o = OffsetPix.new(nil, 100, 40);
v.items.add(o);
x.sched(0, inf, { 
        o.x = o.x + 3.rand2;
        o.y = o.y + 3.rand;
        if(0.07.coin, { v.items = v.items.scramble });
        x.refresh; 
        0.01
});
)

Links to this Page

• graphic patches for sc2 and sc3d5 last edited on 23 May 2003 at 4:30 pm by josephine.hfbk.org
• enter. last edited on 29 January 2003 at 10:46 pm by 203.14.169.19