-----------------------------------

reechard

Mon May 02, 2011 1:22 pm


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


-----------------------------------

Tony

Mon May 02, 2011 1:33 pm


RE:try out program please criticism is appreshited

-----------------------------------

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


-----------------------------------

cyri1

Mon May 02, 2011 1:38 pm


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


-----------------------------------

Tony

Mon May 02, 2011 1:51 pm


RE:try out program please criticism is appreshited

-----------------------------------

http://i.imgur.com/Jk6gQ.png


-----------------------------------

Raknarg

Mon May 02, 2011 5:57 pm


RE:try out program please criticism is appreshited

-----------------------------------

Strange, I did feel better after running it XD


-----------------------------------

reechard

Wed May 04, 2011 12:39 pm


RE:try out program please criticism is appreshited

-----------------------------------

bump


-----------------------------------

reechard

Wed May 04, 2011 12:52 pm


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


-----------------------------------

Tony

Wed May 04, 2011 1:23 pm


RE:try out program please criticism is appreshited

-----------------------------------

seems abusive. +1 warning.