Computer Science Canada try out program please criticism is appreshited |
| Author: | reechard [ Mon May 02, 2011 1:22 pm ] |
| Post subject: | try out program please criticism is appreshited |
% hello comp sci . org!!!! % my name is cyril % its' actually really good program % i am just start tiring how do you guys think i going?? setscreen("nocursor") var name : string var stop : string color (5) put "Enter your name to feel good." get name : * cls put "hello ", name, ", you are amazing at life." locate (4, 1) put "Would you like to feel better? (Y/N)" proc feel_great loop var random : int := Rand.Int (32, 103) color (random) put "hello ", name, ", you are a sexy beast!!!" end loop end feel_great get stop if stop = "y" or stop = "Y" then feel_great elsif stop = "n" or stop = "N" then cls return else cls loop for x : 9..14 color(x) put "learn to follow instructions" end for end loop end if |
|
| Author: | Tony [ Mon May 02, 2011 1:33 pm ] |
| Post subject: | RE:try out program please criticism is appreshited |
I'm pretty sure that you are not the Cyril. |
|
| Author: | cyri1 [ Mon May 02, 2011 1:38 pm ] |
| Post subject: | Re: try out program please criticism is appreshited |
I AM THE CYRPL http://www.youtube.com/watch?v=QH2-TGUlwu4&safety_mode=true&persist_safety_mode=1&safe=active[/b] |
|
| Author: | Tony [ Mon May 02, 2011 1:51 pm ] |
| Post subject: | RE:try out program please criticism is appreshited |
|
|
| Author: | Raknarg [ Mon May 02, 2011 5:57 pm ] |
| Post subject: | RE:try out program please criticism is appreshited |
Strange, I did feel better after running it XD |
|
| Author: | reechard [ Wed May 04, 2011 12:39 pm ] |
| Post subject: | RE:try out program please criticism is appreshited |
bump |
|
| Author: | reechard [ Wed May 04, 2011 12:52 pm ] |
| Post subject: | RE:try out program please criticism is appreshited |
import GUI setscreen ("nocursor") var name : string var stop : string var font : int font := Font.New ("serif:125") var width : int := Font.Width ("FUCK YOU", font) var height, ascent, descent, internalLeading : int Font.Sizes (font, height, ascent, descent, internalLeading) color (5) put "Enter your name to feel good." get name : * cls put "hello ", name, ", you are amazing at life." locate (4, 1) put "Would you like to feel better? (Y/N)" proc feel_great loop colorback (7) var random : int := Rand.Int (32, 103) color (random) put "hello ", name, ", you are a sexy beast!!!" end loop end feel_great get stop if stop = "y" or stop = "Y" then feel_great elsif stop = "n" or stop = "N" then loop setscreen ("graphics:max;max") GUI.SetBackgroundColor (7) Draw.Text ("FUCK YOU", 75, 300, font, white) delay (25) GUI.SetBackgroundColor (0) Draw.Text ("FUCK YOU", 75, 300, font, black) delay (25) exit when hasch end loop cls return else cls loop for x : 9 .. 14 color (x) put "learn to follow instructions newbfag" end for end loop end if % i learn gui % feedbak pls |
|
| Author: | Tony [ Wed May 04, 2011 1:23 pm ] |
| Post subject: | RE:try out program please criticism is appreshited |
seems abusive. +1 warning. |
|