Jump to content
Program Theyseemerollin;Uses crt,Graph;Var    Driver, Mode: SmallInt;    g:real;procedure Hor(x1,x2,y1 : integer);var n,m,p : integer;atpk:boolean;beginatpk:=false;if x1>x2 then atpk:=true;p:=x2;n:=x1;while n <> p  do        begin             for m:= 1 to 1000 do begin g:=sin(m); g:=sin(m+1); end;             if (x2>x1) and (atpk=false) then inc(n,2);             if (x1>x2) and (atpk=true) then dec(n,2);             setcolor(white);             circle(n,y1,30);             ellipse(n,y1,0,360,30,10);             setcolor(black);             If (x2>x1) and (atpk=false) then             begin             circle(n-2,y1,30);             ellipse(n-2,y1,0,360,30,10);             end;             If (x1>x2) and (atpk=true) then             begin             circle(n+2,y1,30);             ellipse(n+2,y1,0,360,30,10);             end;    end;end;procedure Ver(y1,y2,x1 : integer);var n,m,p : integer;atpk:boolean;beginatpk:=false;if y1>y2 then atpk:=true;p:=y2;n:=y1;while n <> p  do        begin             for m:= 1 to 1000 do begin g:=sin(m); g:=sin(m+1); end;             if (y2>y1) and (atpk=false) then inc(n,2);             if (y1>y2) and (atpk=true) then dec(n,2);             setcolor(white);             circle(x1,n,30);             ellipse(x1,n,0,360,30,10);             setcolor(black);             If (y2>y1) and (atpk=false) then             begin             circle(x1,n-2,30);             ellipse(x1,n-2,0,360,30,10);             end;             If (y1>y2) and (atpk=true) then             begin             circle(x1,n+2,30);             ellipse(x1,n+2,0,360,30,10);             end;    end;end;Begin    DetectGraph(Driver, Mode);    InitGraph(Driver, Mode, '');    Hor(100,500,500);    Ver(500,200,500);end.

 

 

Some procedures i was making in pascal :D makes animations of a sphere moving, horizontal and vertical procedures so far.

atpk - inversed 

Link to comment
https://linustechtips.com/topic/2240-ctrl-v-game/page/7/#findComment-314707
Share on other sites

Link to post
Share on other sites

int i;
 
for (i = 0; i < (tabSporsmol.Length); i++)
{
if(tabSporsmol == tabSvar)
Tilbakemelding = "riktig!";
else
Tilbakemelding = "galt.";
 
txbOppsummering.Text += "På spørsmål " + i+1 + " svarte du " + Tilbakemelding + "\n"
 
}

 

 

(Helping a friend with C# exam :p )

Ryzen 7 5800X     Corsair H115i Platinum     ASUS ROG Crosshair VIII Hero (Wi-Fi)     G.Skill Trident Z 3600CL16 (@3800MHzCL16 and other tweaked timings)     

MSI RTX 3080 Gaming X Trio    Corsair HX850     WD Black SN850 1TB     Samsung 970 EVO Plus 1TB     Samsung 840 EVO 500GB     Acer XB271HU 27" 1440p 165hz G-Sync     ASUS ProArt PA278QV     LG C8 55"     Phanteks Enthoo Evolv X Glass     Logitech G915      Logitech MX Vertical      Steelseries Arctis 7 Wireless 2019      Windows 10 Pro x64

Link to comment
https://linustechtips.com/topic/2240-ctrl-v-game/page/7/#findComment-314739
Share on other sites

Link to post
Share on other sites

Was sent a link to this on skype, it's really old though.

http://cristgaming.com/pirate.swf

So this thing starts going off with my system volume at 100%. Needless to say I shat myself. Come check out this thread, Linus said. It will be fun, he said.

 

As for what's in my clipboard 

A line break, apparently

Link to comment
https://linustechtips.com/topic/2240-ctrl-v-game/page/7/#findComment-314756
Share on other sites

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now


×