0 Members and 1 Guest are viewing this topic.

SetUpEditor SetUpEditor |LWIFIS1->dim(|LWIFISIf not(|LWIFIS(1Blue->|LWIFIS(1ClrHomeLbl M0Menu("WIFI |v1.5","PLAY!",M1,"OPTIONS...",M2Lbl M2Menu("OPTIONS...","PLAYER COLOR",PC,"CLEAR HIGHSCORES",CH,"BACK",M0Lbl PCInput "PLAYER COLOR: ",PIf P<=DarkGray and P>=BlueThen Disp "INVALID COLORElse P->|LWIFIS(1 Pause "PLAYER COLOR SET.EndGoto M0Lbl CHrandInt(1,256->GDisp "CLEAR HIGHSCORES...","--------------------------","TYPE "+toString(G)+" IF YOU ARE SURE."Input ":",PIf P=G:Then SetUpEditor |LWIFI Fill(0,|LWIFI Archive |LWIFIEndGoto M0Lbl M1ZStandard:ZSquare:AxesOff0.25->|N{Red,White,LtGray,Gray,DarkGray,Black->L57->dim(L6Line(Xmin,15,~10,15,1,Black,4Line(10,20,Xmax,20,1,Black,4randIntNoRep(~8,8,7->L1randIntNoRep(~8,8,7->L2randIntNoRep(1,4,4->L4augment(L4,{randInt(1,4),~1,~1->L4L4+2->|LC1->|LC(6Ans->|LC(7For(A,1,7 Pt-On(L1(A),L2(A),3,Black If 0<L4(A Then int((randInt(2,4)*(6-L4(A)))/4)->L3(A Else randInt(1,4->L3(A End Circle(L1(A),L2(A),L3(A),L5(|LC(A))EndDelVar PDelVar AYmin->BPt-Change(A,B,|LWIFIS(1Repeat (B>Ymax) or (A>10) or (A<~10) Repeat Ans getKey End Ans->K Pt-Change(A,B,|LWIFIS(1 A+2|N*(~(K=82)+(K=84)->A B+|N->B Pt-On(A,B,1,|LWIFIS(1 For(N,1,7 (A-L1(N))^^2+(B-L2(N))^^2->D If D<=(L3(N)^^2+1) Then P+L4(N->P 1->L6(N Else If L6(N:Then Circle(L1(N),L2(N),L3(N),L5(|LC(N)) Pt-On(L1(N),L2(N),3,Black End 0->L6(N End Text(1,1,P EndEndSetUpEditor |LWIFI10->dim(|LWIFIaugment(|LWIFI,{P->|LWIFISortD(|LWIFI10->dim(|LWIFI|LWIFI->L1Archive |LWIFIClrDrawText(1,1,"HIGH SCORES:1->HFor(A,1,10 TextColor(Black-(H*(L1(A)=P) H-(L1(A)=P)->H toString(L1(A->Str0 If not(L1(A "--->Str0 10*fPart(A/10 Text(15A,1,A=10,Ans,": ",Str0End

FacebookandTwitterFollow @Codewalr_us