Anyone can edit my work!
Posted: Sun May 17, 2009 9:57 am
I need someone who can edit and animate my work. Just make my work look good. thx in advanced.
Diamond needs to be center and animated.
CLS
SCREEN 12
LINE (200, 20)-(400, 20), 14
LINE (400, 20)-(450, 100), 14
LINE (200, 20)-(150, 100), 14
LINE (150, 100)-(450, 100), 14
LINE (150, 100)-(300, 250), 14
LINE (300, 250)-(450, 100), 14
LINE (250, 20)-(200, 100), 14
LINE (400, 20)-(375, 100), 14
My Name needs to be center and it animated
CLS
SCREEN 13
LINE (1, 1)-(25, 40), 12
LINE (25, 40)-(45, 1), 12
COLOR 12
LINE (60, 1)-(100, 1), 12
LINE (80, 1)-(80, 40), 12
LINE (60, 40)-(100, 40), 12
LINE (120, 1)-(120, 40), 12
CIRCLE (120, 12), 15, 12, 270 * 3.14 / 180, 90 * 3.14 / 180
Lottery make it look nice and it animated
CLS
RANDOMIZE TIMER
PRINT TAB(25); "$$$$$$$$$$$$$$$$$$$$$$$"
PRINT TAB(25); "$"; "WINNING TICKETS STORE"; "$"
PRINT TAB(25); "$$$$$$$$$$$$$$$$$$$$$$$"
PRINT
20 INPUT "PICK3 OR PICK4:", A
IF NOT A = 3 AND NOT A = 4 THEN
PRINT "Press 3 for Pick 3 OR Press 4 for Pick 4"
END IF
PRINT
INPUT "How many times you want to play?", n
FOR b = 1 TO n
PRINT
PRINT "Your winning number is:";
FOR X = 1 TO A
PRINT INT(RND * 10);
NEXT X
NEXT b
PRINT
INPUT "Do you want to play agian?", X$
IF X$ = "y" THEN GOTO 20
PRINT
PRINT TAB(25); "Good Luck!"
END
Screen Saver Edit anything that u don't like
CLS
SCREEN 12
RANDOMIZE TIMER
DO
CLS
LET X = 15
LET Y = 10
LET DX = 2
LET DY = 2
C = INT(RND * 14) + 1
FOR L = 1 TO 100
210 LET XN = X + DX
LET YN = Y + DY
IF XN = 0 OR XN = 640 THEN LET DX = -DX: C = INT(RND * 15) + 1
IF YN = 0 OR YN = 480 THEN LET DY = -DY: C = INT(RND * 15) + 1
REM CIRCLE (X, Y), 100, 0
CIRCLE (XN, YN), 1, C
REM PSET (XN, YN), 3
LET X = XN: LET Y = YN
REM FOR I = 1 TO 600: NEXT I
IF INKEY$ <> "" THEN END
GOTO 210
NEXT L
LOOP
Tennis Field animate it and look like if it is a real tennis filed.
CLS
SCREEN 12
PAINT (500, 220), 2
LINE (50, 50)-(600, 50), 15
LINE (50, 50)-(50, 400), 15
LINE (600, 50)-(600, 400), 15
LINE (50, 400)-(600, 400), 15
LINE (50, 85)-(600, 85), 15
LINE (50, 370)-(600, 370), 15
LINE (500, 370)-(500, 85), 15
LINE (360, 370)-(360, 85), 15
LINE (300, 370)-(300, 85), 15
LINE (150, 370)-(150, 85), 15
LINE (150, 220)-(300, 220), 15
LINE (500, 220)-(360, 220), 15
PLZ. THX in advanced.
Diamond needs to be center and animated.
CLS
SCREEN 12
LINE (200, 20)-(400, 20), 14
LINE (400, 20)-(450, 100), 14
LINE (200, 20)-(150, 100), 14
LINE (150, 100)-(450, 100), 14
LINE (150, 100)-(300, 250), 14
LINE (300, 250)-(450, 100), 14
LINE (250, 20)-(200, 100), 14
LINE (400, 20)-(375, 100), 14
My Name needs to be center and it animated
CLS
SCREEN 13
LINE (1, 1)-(25, 40), 12
LINE (25, 40)-(45, 1), 12
COLOR 12
LINE (60, 1)-(100, 1), 12
LINE (80, 1)-(80, 40), 12
LINE (60, 40)-(100, 40), 12
LINE (120, 1)-(120, 40), 12
CIRCLE (120, 12), 15, 12, 270 * 3.14 / 180, 90 * 3.14 / 180
Lottery make it look nice and it animated
CLS
RANDOMIZE TIMER
PRINT TAB(25); "$$$$$$$$$$$$$$$$$$$$$$$"
PRINT TAB(25); "$"; "WINNING TICKETS STORE"; "$"
PRINT TAB(25); "$$$$$$$$$$$$$$$$$$$$$$$"
20 INPUT "PICK3 OR PICK4:", A
IF NOT A = 3 AND NOT A = 4 THEN
PRINT "Press 3 for Pick 3 OR Press 4 for Pick 4"
END IF
INPUT "How many times you want to play?", n
FOR b = 1 TO n
PRINT "Your winning number is:";
FOR X = 1 TO A
PRINT INT(RND * 10);
NEXT X
NEXT b
INPUT "Do you want to play agian?", X$
IF X$ = "y" THEN GOTO 20
PRINT TAB(25); "Good Luck!"
END
Screen Saver Edit anything that u don't like
CLS
SCREEN 12
RANDOMIZE TIMER
DO
CLS
LET X = 15
LET Y = 10
LET DX = 2
LET DY = 2
C = INT(RND * 14) + 1
FOR L = 1 TO 100
210 LET XN = X + DX
LET YN = Y + DY
IF XN = 0 OR XN = 640 THEN LET DX = -DX: C = INT(RND * 15) + 1
IF YN = 0 OR YN = 480 THEN LET DY = -DY: C = INT(RND * 15) + 1
REM CIRCLE (X, Y), 100, 0
CIRCLE (XN, YN), 1, C
REM PSET (XN, YN), 3
LET X = XN: LET Y = YN
REM FOR I = 1 TO 600: NEXT I
IF INKEY$ <> "" THEN END
GOTO 210
NEXT L
LOOP
Tennis Field animate it and look like if it is a real tennis filed.
CLS
SCREEN 12
PAINT (500, 220), 2
LINE (50, 50)-(600, 50), 15
LINE (50, 50)-(50, 400), 15
LINE (600, 50)-(600, 400), 15
LINE (50, 400)-(600, 400), 15
LINE (50, 85)-(600, 85), 15
LINE (50, 370)-(600, 370), 15
LINE (500, 370)-(500, 85), 15
LINE (360, 370)-(360, 85), 15
LINE (300, 370)-(300, 85), 15
LINE (150, 370)-(150, 85), 15
LINE (150, 220)-(300, 220), 15
LINE (500, 220)-(360, 220), 15
PLZ. THX in advanced.