0 Members and 1 Guest are viewing this topic.
For example they are there with Time units but not with Volume or DistanceSmall bug but annoying all the same.
10) (Cosmetic issues) There's no key to access semicolons, which is a big problem considering almost every line of code ends with a semicolon. Having to go to the Charmap everytime is annoying.
EXPORT Tunnel()BEGINDIMGROB(G1,320,240);BLIT_P(G1,0,0,320,240,G0);FOR Z FROM 2 TO 239 STEP 3 DOBLIT_P(G0,0,0,320,240,G1,0,0,320,240-Z);WAIT(0.01);END;1▶C;0▶P;100▶Y;20▶T;128▶L;0▶L1(512); FOR Z FROM 0 TO 16 DOINT(RANDOM(100))▶L1(2*Z+1);60-INT(RANDOM(4))▶L1(2*Z+2);END;RECT_P(0,0,319,219,RGB(30,100,255),RGB(30,100,255));RECT_P(0,35,319,219,RGB(0,100,0),RGB(0,100,0));TEXTOUT_P("2013 DJ Omnimaga (www.omnimaga.org)",122,25,1,RGB(255,255,255));FOR Z FROM 0 TO 10 DOTEXTOUT_P("Score:",Z,0,7,RGB(25*Z,255-(25*Z),0),250);TEXTOUT_P("τ υ η η ε ι ρ ɾ ί м ɛ",122+Z,0,7,RGB(0,25*Z,0),250);END;FOR Z FROM 0 TO 4 DOLINE_P(0,Z+35,319,Z+35,RGB(0,20*Z,0));END;WHILE Y>0 DOFOR Z FROM 0 TO 15 DOC+1▶C;IF C>16 THEN1▶C;END;L1(2*C+2)▶O;L1(2*C+1)▶Q;RECT_P(20*Z,40,20*Z+19,O,RGB(0,50+Q,0),RGB(0,50+Q,0));RECT_P(20*Z,O,20*Z+19,O+L,RGB(100+Q,130,50),RGB(100+Q,130,50));RECT_P(20*Z,O+L,20*Z+19,246,RGB(0,50+Q,0),RGB(0,50+Q,0));IF Z=0 THENRECT_P(0,Y,8,Y+12,RGB(0,0,0),RGB(150,150,255));RECT_P(2,Y+4,14,Y+8,RGB(0,0,0),RGB(255,0,0));IF Y<O OR Y+12>O+L THEN−9▶Y;END;END;END;TEXTOUT_P(P,70,2,6,RGB(0,0,0),200,RGB(30,100,255));TEXTOUT_P(P,72,2,6,RGB(5,255,255));P+1▶P;L1(2*C+2)▶S;INT(RANDOM(100))▶U;S+INT(RANDOM(30)-15)▶Ans;IF Ans<45 THEN45▶Ans;ELSEIF Ans>213-L THEN213-L▶Ans;END;END;C+1▶C;IF C>16 THEN1▶C;L-1▶L;END;Ans▶L1(2*C+2);U▶L1(2*C+1);Y-(5*ISKEYDOWN(2))+(5*ISKEYDOWN(12))▶Y;WAIT(.01666);END;FOR Z FROM 0 TO 7 DOINVERT_P();WAIT(0.05);END;DIMGROB_P(G1,122,30);BLIT_P(G1,0,0,122,30,G0,0,0,122,30);RECT_P(RGB(30,100,255));REPEAT GETKEY▶Z;BLIT_P(G0,INT(RANDOM(10)),INT(RANDOM(10)),320-INT(RANDOM(10)),240-INT(RANDOM(10)),G1,0,0,122,30);WAIT(.02);UNTIL ISKEYDOWN(4)=1 OR ISKEYDOWN(30)=1;END;END;
TI is known to perform weeks of beta-testing
KEY K_Sin()BEGIN IF Entry==2 THEN Entry:=0; ELSE Entry:=2; END; STARTVIEW(-8,0); STARTVIEW(-1,1); RETURN 5;END;KEY K_Cos()BEGIN Base:=(Base+1) MOD 4; STARTVIEW(-8,0); STARTVIEW(-1,1); RETURN 5;END;KEY K_Tan()BEGIN HFormat:=(HFormat+1) MOD 4; STARTVIEW(-8,0); STARTVIEW(-1,1); RETURN 5;END;