Qbasicnews.com › QbasicNews.Com › Challenges v
Challenge....

Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Linear Mode
Challenge....
Antoni Gual Offline
Posting Freak
*****
Posts: 1,407
Threads: 117
Joined: Dec 2002
#71
02-02-2003, 08:47 PM
Code:
'balls by Antoni Gual    agual@eic.ictnet.es
1  IF p% >= 16 THEN 3 ELSE IF p% = 0 THEN SCREEN 12 ELSE PALETTE p% - 1, b&
2  READ p%, b&
3  IF p% < 16 THEN GOTO 9 ELSE a$ = MKI$(RND * 640 + 1) + MKI$(RND * 480) + MKS$((RND * 60) + 20) + MKI$(INT(RND * 4) * 4) + MKS$(RND * 3.141592) + MKS$(RND * 3.141592 / 1.5)
4 FOR i% = -INT(CVS(MID$(a$, 5))) TO INT(CVS(MID$(a$, 5)))
5  FOR j% = -INT(SQR(CVS(MID$(a$, 5)) ^ 2 - i% ^ 2)) TO INT(SQR(CVS(MID$(a$, 5)) ^ 2 - i% ^ 2))
6   c! = 3 * (COS(CVS(MID$(a$, 11))) * SIN(CVS(MID$(a$, 15))) * i% / CVS(MID$(a$, 5)) + SIN(CVS(MID$(a$, 11))) * SIN(CVS(MID$(a$, 15))) * j% / CVS(MID$(a$, 5)) + COS(CVS(MID$(a$, 15))) * SQR(1.11 - (i% / CVS(MID$(a$, 5))) ^ 2 - (j% / CVS(MID$(a$, 5) _
)) ^ 2))
7   PSET (CVI(MID$(a$, 1)) + i%, CVI(MID$(a$, 3)) + j%), 1 + CVI(MID$(a$, 9)) + INT(c!) + (RND > (c! - INT(c!)))
8 NEXT j%, i%
9 IF LEN(INKEY$) = 0 THEN GOTO 1 ELSE DATA 1,&h5,2,&h10,3,&h20,4,&h30,5,&h500,6,&h1000,7,&h2000,8,&h3000,9,&h50000,10,&h100000,11,&h200000,12,&h300000,13,&h50505,14,&h101010,15,&h202020,16,&h303030,17,0
Antoni
Website Find
Reply


Messages In This Thread
Challenge.... - by relsoft - 01-27-2003, 08:47 AM
. - by Agamemnus - 01-28-2003, 08:32 AM
Four lines ... - by Glenn - 01-28-2003, 08:35 AM
Re: Four lines ... - by relsoft - 01-28-2003, 08:52 AM
You forgot to pull the trigger. - by Glenn - 01-28-2003, 11:50 AM
Challenge.... - by Anonymous - 01-28-2003, 07:20 PM
agamemnus - by Agamemnus - 01-28-2003, 08:38 PM
Challenge.... - by BlueKeyboard - 01-29-2003, 02:22 AM
Challenge.... - by Dav - 01-29-2003, 03:20 AM
Challenge.... - by Hexadecimal Disaster - 01-29-2003, 07:28 AM
Challenge.... - by relsoft - 01-29-2003, 09:16 AM
Challenge.... - by LooseCaboose - 01-29-2003, 04:36 PM
Challenge.... - by relsoft - 01-29-2003, 04:46 PM
Challenge.... - by Dav - 01-29-2003, 07:50 PM
Challenge.... - by Neo - 01-30-2003, 04:15 PM
Challenge.... - by Antoni Gual - 01-31-2003, 04:14 AM
! - by Agamemnus - 01-31-2003, 04:53 AM
A more eye-friendly one... - by Antoni Gual - 01-31-2003, 05:07 AM
Challenge.... - by wizardlife - 01-31-2003, 06:25 AM
Challenge.... - by wizardlife - 01-31-2003, 07:40 AM
Challenge.... - by toonski84 - 01-31-2003, 08:07 AM
Challenge.... - by Agamemnus - 01-31-2003, 08:35 AM
Challenge.... - by relsoft - 01-31-2003, 09:46 AM
The Matrix revisited - by Antoni Gual - 01-31-2003, 08:52 PM
Challenge.... - by BlueKeyboard - 01-31-2003, 09:19 PM
Challenge.... - by wizardlife - 01-31-2003, 10:44 PM
Do you want another one? - by Antoni Gual - 01-31-2003, 10:51 PM
Re: Do you want another one? - by wizardlife - 01-31-2003, 11:24 PM
Challenge.... - by wizardlife - 01-31-2003, 11:55 PM
Challenge.... - by wizardlife - 02-01-2003, 12:06 AM
A huge program... - by Antoni Gual - 02-01-2003, 01:29 AM
Challenge.... - by Antoni Gual - 02-01-2003, 01:48 AM
Challenge.... - by BlueKeyboard - 02-01-2003, 01:51 AM
Challenge.... - by toonski84 - 02-01-2003, 03:19 AM
No palette rotators? - by Antoni Gual - 02-01-2003, 03:31 AM
Challenge.... - by wizardlife - 02-01-2003, 04:58 AM
Challenge.... - by Dav - 02-01-2003, 05:41 AM
Challenge.... - by Agamemnus - 02-01-2003, 06:51 AM
Challenge.... - by wizardlife - 02-01-2003, 07:23 AM
Challenge.... - by relsoft - 02-01-2003, 09:02 AM
Challenge.... - by relsoft - 02-01-2003, 09:12 AM
Challenge.... - by Antoni Gual - 02-01-2003, 03:40 PM
Challenge.... - by Antoni Gual - 02-01-2003, 04:49 PM
Challenge.... - by toonski84 - 02-01-2003, 07:24 PM
Challenge.... - by wizardlife - 02-01-2003, 09:47 PM
Challenge.... - by wizardlife - 02-01-2003, 09:56 PM
Challenge.... - by toonski84 - 02-01-2003, 10:15 PM
Challenge.... - by Antoni Gual - 02-01-2003, 11:24 PM
Challenge.... - by toonski84 - 02-01-2003, 11:26 PM
A sloooooow floormapper .. - by Antoni Gual - 02-02-2003, 01:56 AM
Challenge.... - by wildcard - 02-02-2003, 03:04 AM
Re: A sloooooow floormapper .. - by wizardlife - 02-02-2003, 03:07 AM
Challenge.... - by relsoft - 02-02-2003, 08:04 AM
my entry - by Lithium - 02-02-2003, 09:34 AM
Challenge.... - by Antoni Gual - 02-02-2003, 10:30 AM
Here's "fire" - by Lithium - 02-02-2003, 11:09 AM
the never ending hello - by Lithium - 02-02-2003, 01:48 PM
Challenge.... - by relsoft - 02-02-2003, 02:13 PM
Challenge.... - by Lithium - 02-02-2003, 03:01 PM
Challenge.... - by ak00ma - 02-02-2003, 03:34 PM
Challenge.... - by Antoni Gual - 02-02-2003, 05:01 PM
Challenge.... - by Dav - 02-02-2003, 06:22 PM
Challenge.... - by toonski84 - 02-02-2003, 07:22 PM
Challenge.... - by toonski84 - 02-02-2003, 07:30 PM
We need Balls to keep the pace of this challenge! - by Antoni Gual - 02-02-2003, 08:47 PM
Challenge.... - by toonski84 - 02-02-2003, 09:14 PM
Bouncing balls! - by Lithium - 02-02-2003, 11:57 PM
Challenge.... - by Dav - 02-03-2003, 12:28 AM
Challenge.... - by toonski84 - 02-03-2003, 03:07 AM
rotozoomer - by Generic - 02-03-2003, 05:49 AM
Challenge.... - by toonski84 - 02-03-2003, 06:12 AM
Challenge.... - by Dav - 02-03-2003, 08:58 AM
Heh - by Nexinarus - 02-03-2003, 10:18 AM
Challenge.... - by relsoft - 02-03-2003, 11:35 AM
Pixel Scrolling Pattern - by BinarySHOCK - 02-03-2003, 04:23 PM
Another 1 - by BinarySHOCK - 02-03-2003, 05:01 PM
Challenge.... - by toonski84 - 02-03-2003, 05:04 PM
Challenge.... - by Agamemnus - 02-03-2003, 05:51 PM
Fire, 8 lines - by BinarySHOCK - 02-03-2003, 06:10 PM
Challenge.... - by Dav - 02-03-2003, 10:37 PM
Challenge.... - by Nexinarus - 02-03-2003, 11:34 PM
Challenge.... - by Antoni Gual - 02-04-2003, 01:47 AM
Am I becoming blind? - by Antoni Gual - 02-04-2003, 02:09 AM
Challenge.... - by Dav - 02-04-2003, 03:49 AM
Challenge.... - by toonski84 - 02-04-2003, 06:12 AM
Challenge.... - by BinarySHOCK - 02-04-2003, 08:18 AM
Challenge.... - by toonski84 - 02-04-2003, 08:21 AM
Challenge.... - by BinarySHOCK - 02-04-2003, 08:45 AM
Challenge.... - by westie - 02-04-2003, 09:15 AM
Challenge.... - by BinarySHOCK - 02-04-2003, 10:46 AM
Challenge.... - by toonski84 - 02-04-2003, 11:49 AM
Re: Am I becoming blind? - by relsoft - 02-04-2003, 12:00 PM
Challenge.... - by relsoft - 02-04-2003, 12:02 PM
James Bond style - by Ichiban_Addict - 02-04-2003, 12:31 PM
Challenge.... - by relsoft - 02-04-2003, 12:41 PM
weird pinwheel - by Ichiban_Addict - 02-04-2003, 01:16 PM
Challenge.... - by Dav - 02-04-2003, 10:04 PM
Challenge.... - by mofu - 02-05-2003, 03:27 AM
Challenge.... - by mofu - 02-05-2003, 03:57 AM
Challenge.... - by na_th_an - 02-05-2003, 05:45 AM
Challenge.... - by Nexinarus - 02-05-2003, 08:29 AM
Challenge.... - by BinarySHOCK - 02-05-2003, 09:20 AM
Challenge.... - by BinarySHOCK - 02-05-2003, 10:03 AM
Challenge.... - by relsoft - 02-05-2003, 10:03 AM
Challenge.... - by BinarySHOCK - 02-05-2003, 10:18 AM
Challenge.... - by red_Marvin - 02-05-2003, 02:43 PM
Challenge.... - by Agamemnus - 02-05-2003, 07:49 PM
Challenge.... - by relsoft - 02-06-2003, 09:38 AM
Challenge.... - by BinarySHOCK - 02-06-2003, 10:09 AM
Challenge.... - by toonski84 - 02-06-2003, 02:31 PM
Challenge.... - by BinarySHOCK - 02-06-2003, 04:43 PM
Challenge.... - by relsoft - 02-07-2003, 11:07 AM
Challenge.... - by toonski84 - 02-08-2003, 02:41 AM
Challenge.... - by Antoni Gual - 02-08-2003, 03:25 AM
Challenge.... - by toonski84 - 02-08-2003, 09:17 AM
Challenge.... - by relsoft - 02-08-2003, 11:49 AM
Challenge.... - by Antoni Gual - 02-08-2003, 04:29 PM
Challenge.... - by toonski84 - 02-08-2003, 09:44 PM
Challenge.... - by Antoni Gual - 02-08-2003, 10:14 PM
Easy saver - by qbasicmaster - 02-08-2003, 11:37 PM
Challenge.... - by ak00ma - 02-09-2003, 12:47 AM
Challenge.... - by na_th_an - 02-09-2003, 12:50 AM
Challenge.... - by toonski84 - 02-09-2003, 09:18 AM
Challenge.... - by relsoft - 02-09-2003, 12:21 PM
Challenge.... - by red_Marvin - 02-09-2003, 05:15 PM
Challenge.... - by Antoni Gual - 02-09-2003, 09:18 PM
Challenge.... - by na_th_an - 02-09-2003, 09:27 PM
Challenge.... - by Antoni Gual - 02-09-2003, 09:36 PM
Challenge.... - by toonski84 - 02-10-2003, 12:19 AM
Challenge.... - by toonski84 - 02-10-2003, 12:26 AM
Challenge.... - by Antoni Gual - 02-10-2003, 04:56 AM
Menos mal! - by phobeous - 02-10-2003, 05:06 AM
Challenge.... - by westie - 02-10-2003, 10:33 AM
Challenge.... - by Rokkuman - 02-10-2003, 11:04 AM
Challenge.... - by relsoft - 02-10-2003, 11:20 AM
Challenge.... - by Agamemnus - 02-10-2003, 09:33 PM
Challenge.... - by relsoft - 02-11-2003, 07:56 AM
Challenge.... - by toonski84 - 02-11-2003, 08:00 AM
Challenge.... - by relsoft - 02-11-2003, 08:06 AM
Challenge.... - by toonski84 - 02-11-2003, 08:13 AM
Challenge.... - by relsoft - 02-11-2003, 08:21 AM
Challenge.... - by toonski84 - 02-11-2003, 08:34 AM
Challenge.... - by relsoft - 02-11-2003, 12:26 PM
A compil - by biskbart - 02-13-2003, 12:09 PM
Challenge.... - by Antoni Gual - 02-14-2003, 02:07 AM
Challenge.... - by relsoft - 02-14-2003, 10:21 AM
Challenge.... - by Neo - 02-14-2003, 04:33 PM
Challenge.... - by BlueKeyboard - 02-14-2003, 05:38 PM
That's ok - by biskbart - 02-14-2003, 05:40 PM
Challenge.... - by Agamemnus - 02-15-2003, 06:51 AM
Challenge.... - by someone42 - 02-15-2003, 01:05 PM
Challenge.... - by toonski84 - 02-15-2003, 08:59 PM
Challenge.... - by Lanzaa - 02-15-2003, 09:31 PM
Challenge.... - by someone42 - 02-16-2003, 09:59 AM
Challenge.... - by BlueKeyboard - 02-16-2003, 08:46 PM
Challenge.... - by toonski84 - 02-16-2003, 09:40 PM
Wirlpool - by Antoni Gual - 02-17-2003, 05:00 AM
Challenge.... - by relsoft - 02-17-2003, 10:02 AM
Challenge.... - by someone42 - 02-17-2003, 12:54 PM
Challenge.... - by toonski84 - 02-17-2003, 01:32 PM
Challenge.... - by Neo - 02-17-2003, 02:38 PM
Challenge.... - by relsoft - 02-18-2003, 09:38 AM
Challenge.... - by BlueKeyboard - 02-19-2003, 12:02 AM
Challenge.... - by toonski84 - 02-19-2003, 03:40 AM
Challenge.... - by BlueKeyboard - 02-20-2003, 01:37 AM
Challenge.... - by toonski84 - 02-20-2003, 04:14 AM
Text mode rotozoomer - by BinarySHOCK - 02-22-2003, 09:41 AM
Challenge.... - by R@dioman - 02-22-2003, 09:44 AM
Challenge.... - by red_Marvin - 02-23-2003, 09:51 PM
Challenge.... - by toonski84 - 02-23-2003, 10:53 PM
Challenge.... - by red_Marvin - 02-23-2003, 11:11 PM
Challenge.... - by na_th_an - 02-23-2003, 11:15 PM
Challenge.... - by red_Marvin - 02-23-2003, 11:21 PM
Challenge.... - by oracle - 04-18-2003, 07:11 AM
Challenge.... - by na_th_an - 04-18-2003, 07:40 AM
Challenge.... - by oracle - 04-18-2003, 08:00 AM
Challenge.... - by TerraGoetia - 04-18-2003, 08:22 AM
Challenge.... - by na_th_an - 04-18-2003, 08:30 AM
Challenge.... - by oracle - 04-18-2003, 08:54 AM
Challenge.... - by na_th_an - 04-18-2003, 02:56 PM
Challenge.... - by red_Marvin - 04-19-2003, 01:47 AM
Challenge.... - by oracle - 04-19-2003, 09:25 AM
Challenge.... - by na_th_an - 04-19-2003, 05:34 PM
Challenge.... - by red_Marvin - 04-19-2003, 10:18 PM
Challenge.... - by oracle - 04-20-2003, 09:37 AM
Challenge.... - by relsoft - 04-21-2003, 10:00 AM
Challenge.... - by oracle - 04-22-2003, 02:20 AM
Challenge.... - by seph - 05-23-2003, 05:53 AM
Challenge.... - by seph - 05-23-2003, 06:18 AM
Challenge.... - by relsoft - 05-23-2003, 08:28 AM
Challenge.... - by oracle - 05-23-2003, 10:36 AM
Challenge.... - by BinarySHOCK - 05-23-2003, 11:34 AM
Challenge.... - by oracle - 05-24-2003, 04:07 AM
Challenge.... - by seph - 05-24-2003, 10:06 PM
here's one...7 lines, 187 bytes - by Mango - 05-25-2003, 01:03 AM
Screen Saver - by Dantheman10110 - 05-25-2003, 04:58 AM
Challenge.... - by red_Marvin - 05-25-2003, 07:23 PM
Challenge.... - by Agamemnus - 05-25-2003, 11:32 PM
Challenge.... - by oracle - 05-26-2003, 05:18 AM
Challenge.... - by relsoft - 05-26-2003, 08:39 AM
Challenge.... - by Hexadecimal Disaster - 05-26-2003, 11:48 AM
Challenge.... - by toonski84 - 05-26-2003, 06:43 PM
Challenge.... - by toonski84 - 05-26-2003, 08:47 PM
Challenge.... - by Mango - 05-27-2003, 05:07 AM
Challenge.... - by toonski84 - 05-27-2003, 05:44 AM
Challenge.... - by Mango - 05-27-2003, 07:55 AM
Challenge.... - by toonski84 - 05-27-2003, 08:19 AM
Challenge.... - by oracle - 05-27-2003, 09:09 AM
Challenge.... - by toonski84 - 05-27-2003, 09:11 AM
Challenge.... - by relsoft - 05-27-2003, 10:36 AM
Challenge.... - by relsoft - 01-30-2003, 10:31 AM

Forum Jump:


Users browsing this thread: 2 Guest(s)