Black Pumpkin

Edit 0 10 …
Older Version Newer Version

StPendl StPendl Oct 20, 2009 - "changed to use EXIT WHILE for correct loop termination, reading x and y as numbers, to get rid of useless type conversion"

This file may be too large to copy. Here is the uploaded bas file.

Right click and 'save target as' or 'save link as' in Firefox to save to your computer.

bpumpkin.bas


    'Black pumpkin
    'Happy Halloween!
    'Ben Jimenez
    '2009
    'ben_jimenez at yahoo dot com
 
    nomainwin
    WindowWidth=450
    WindowHeight=450
 
    open "Happy Halloween!" for graphics_nsb_nf as #1
    #1 "trapclose [quit]"
    #1 "setfocus"
    #1 "cls"
    #1 "down;fill 255 255 255"
    #1 "color 0 0 0"
    #1 "backcolor 0 0 0"
    #1 "size 4"
    #1 "down;place 249 169 ; circlefilled 99.7246208"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 179 115 194 84"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 173 155 179 115"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 172 197 173 155"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 172 197 179 240"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 203 113 215 74"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 199 160 203 113"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 199 160 200 207"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 200 207 207 258"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 227 121 239 70"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 222 194 227 121"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 222 194 227 255"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 225 255 229 267"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 262 71 275 115"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 275 115 277 175"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 272 229 277 175"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 264 268 272 229"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 250 69 252 117"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 252 117 252 197"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 247 268 252 197"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 288 77 299 115"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 299 115 302 164"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 299 211 302 165"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 287 260 299 211"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 313 94 322 136"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 322 136 325 185"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 323 209 325 185"
    #1 "color 62 62 62"
    #1 "size 4"
    #1 "down;line 316 240 323 209"
    #1 "color 62 62 62"
    #1 "size 8"
    #1 "down;line 234 47 253 66"
    #1 "color 62 62 62"
    #1 "size 8"
    #1 "down;line 222 53 231 46"
 
    while red$<>"end"
        read red$
        read green$
        read blue$
        read x
        read y
 
        if red$="end" then
            exit while
        else
            x=x+180
            y=y+100
            #1,"color ";red$;" ";green$;" ";blue$;";set ";x;" ";y
        end if
    wend
 
[done]
    #1 "flush"
    wait
 
[quit]
    close #1
    end
 
    data 44,6,7,14,0,119,2,8,15,0,255,30,11,16,0,255,49,9,17,0
 
    ' 2500 DATA lines removed, since they were not handled properly
    '
    ' please download the file above for the compete program
 
    data "end",0,0,0,0