try out program please criticism is appreshited

[reechard]

% 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

[Tony]

I'm pretty sure that you are not the Cyril.

[cyri1]

I AM THE CYRPL

http://www.youtube.com/watch?v=QH2-TGUlwu4&safety_mode=true&persist_safety_mode=1&safe=active[/b]

[Tony]

[Raknarg]

Strange, I did feel better after running it XD

[reechard]

bump

[reechard]

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

[Tony]

seems abusive. +1 warning.