0 Members and 3 Guests are viewing this topic.
It'd be cool if the bullets hit each other and deflected each other sort've like in Devil May Cry
.HOMING MISSLETEST[7C82828282827C00]→Pic1[F8888888F8000000]→Pic2[E0E0E00000000000]→Pic30→V→theta256→Z10240→X→Y→N→ORepeat getKey(15)getKey(3)-getKey(2)*128+N→NgetKey(1)-getKey(4)*128+O→ON>>24320?N-24576→NN<<~256?N+24576→NO>>16128?O-16384→OO<<~256?O+16384→OPt-On(N/256-1,O/256-1,Pic3)....getKey(4)-getKey(1)*3+Z->ZZ>>0?Z--Z<<0?Z++Z>>256?256->ZZ<<~256?256->Z....getKey(3)-getKey(2)*2+V->V...V>>0?V--V<<0?V++V>>64?V--V<<~64?V++V//16+theta->theta....theta>255?theta^256->thetacos(theta)*2→A**Z→S+X→XA**~2048→Asin(theta)*2→B**Z→T+Y→YB**~2048→B...X/256+16->IY/256+16->JN/256+16->KO/256+16->L....TURN TOWARD THING(X-N*^S-(Y-O*^T)>>0)*~2+theta→theta(X-N*^S-(Y-O*^T)<<0)*2+theta→theta...XY PROJECTILEST PROJ VELOCITYNO TARGET...Line(X/256,Y/256,A+X/256,B+Y/256).26624 18432X<<~1024?X+26368→XX>>25344?X-26368→XY<<~1024?Y+18176→YY>>17152?Y-18176→YPt-On(X/256-3,Y/256-3,Pic1)Pt-On(~4*S+X/256-2,~4*T+Y/256-2,Pic2)Pt-On(~8*S+X/256-1,~8*T+Y/256-1,Pic3)If getKey(56)ClrHomeDisp "X ",X/256>Dec," Y ",Y/256>Dec,i,"S ",S>Dec," T ",T>Dec,i,"Z ",Z>Dec," theta ",theta>Dec,i,"N ",N/256>Dec," O ",O/256>DecWhile getKey(56)Pause 10EndEndDispGraphClrDrawEndGenerated by the BBify'r (http://clrhome.org/resources/bbify/)
X>>[Right] ?64-Θ→ΘX<<[Left] ?64-Θ→ΘY>>[bottom]?-Θ→ΘY<<[top] ?-Θ→Θ
.AMOVETST THE GAME[7C82828282827C00]→Pic1[F8888888F8000000]→Pic2[E0E0E00000000000]→Pic30→Z→theta→V10240→X→YRepeat getKey(15)getKey(4)-getKey(1)*3+Z→ZZ>>0?Z--Z<<0?Z++...*Z>>256?256->ZZ<<~256?256->Z*...getKey(3)-getKey(2)*2+theta→theta...*getKey(3)-getKey(2)*2+V->VV>>0?V--V<<0?V++V>>64?V--V<<~64?V++V//16+theta->theta*...theta>255?theta^256→thetacos(theta)*2→N**Z→S+X→XN**~2048→Nsin(theta)*2→O**Z→T+Y→YO**~2048→OLine(X/256,Y/256,N+X/256,O+Y/256)...*2662418432*...X→IY→JIf X<<~1024 or (X>>25344)64-theta→thetaI→XJ→YEnd.X+26368->X.X>>25344?theta-128*~1+128->theta.X-26368->XIf Y<<~1024 or (Y>>17152)~theta→thetaI→XJ→YEnd.Y+18176->Y.Y>>17152?theta-64*~1+64->theta.Y-18176->Ytheta>255?theta^256→thetaPt-On(X/256-3,Y/256-3,Pic1)Pt-On(~4*S+X/256-2,~4*T+Y/256-2,Pic2)Pt-On(~8*S+X/256-1,~8*T+Y/256-1,Pic3)If getKey(56)ClrHomeDisp "X ",X/256>Dec," Y ",Y/256>Dec,i,"S ",S>Dec," T ",T>Dec,i,"Z ",Z>Dec," theta ",theta>Dec,i,"N ",N>Dec," O ",O>DecWhile getKey(56)Pause 10EndEndDispGraphClrDrawEndGenerated by the BBify'r (http://clrhome.org/resources/bbify/)