* WalrusIRC

You need to have 5 posts and not be part of restricted usergroups in order to use the WalrusIRC embedded shoutbox. However, you can also access our IRC channel called #CodeWalrus via EFnet.

Author Topic: The Game of Finding Free WIFI!  (Read 520 times)

0 Members and 1 Guest are viewing this topic.

Offline _iPhoenix_

  • Full User
  • Join Date: Mar 2017
  • Location:
  • Posts: 475
  • Post Rating Ratio: +9/-1
  • █████ ▼ ♪ Best music ♫
    • @dj_iPhoenix
    • @UCytgMNPxAMDsxjimvxHf01w
    • @the-legend-of-iphoenix
  • Gender: Male
The Game of Finding Free WIFI!
« on: May 09, 2017, 09:38:17 pm »

Help Johnny (the character) find free wifi so he can watch his funny cat videos!


Navigate the blue (color can be changed in "options") dot into the circles (range of the wifi), using the [4] and [6] keys. The darker the circle (more "bars"/better quality), the more points you get. If a circle is red (locked), then you lose points.


If you reach the end or travel into the shaded sides, your game ends and you are redirected to a highscores table. You can reset the table by going to the main menu (running the program again), going to the options menu, and typing in the number it shows you. I added the last part for several reasons:
1) it's fun to implement.
2) It's like a captcha!
3) Prevents accidental resets. Those are ANNOYING!


I think that's all.


Here's some messy code:
Code: [Select]
SetUpEditor
SetUpEditor |LWIFIS
1->dim(|LWIFIS
If not(|LWIFIS(1
Blue->|LWIFIS(1
ClrHome
Lbl M0
Menu("WIFI |v1.5","PLAY!",M1,"OPTIONS...",M2
Lbl M2
Menu("OPTIONS...","PLAYER COLOR",PC,"CLEAR HIGHSCORES",CH,"BACK",M0
Lbl PC
Input "PLAYER COLOR: ",P
If P<=DarkGray and P>=Blue
Then
Disp "INVALID COLOR
Else
P->|LWIFIS(1
Pause "PLAYER COLOR SET.
End
Goto M0
Lbl CH
randInt(1,256->G
Disp "CLEAR HIGHSCORES...","--------------------------","TYPE "+toString(G)+" IF YOU ARE SURE."
Input ":",P
If P=G:Then
SetUpEditor |LWIFI
Fill(0,|LWIFI
Archive |LWIFI
End
Goto M0
Lbl M1
ZStandard:ZSquare:AxesOff
0.25->|N
{Red,White,LtGray,Gray,DarkGray,Black->L5
7->dim(L6
Line(Xmin,15,~10,15,1,Black,4
Line(10,20,Xmax,20,1,Black,4
randIntNoRep(~8,8,7->L1
randIntNoRep(~8,8,7->L2
randIntNoRep(1,4,4->L4
augment(L4,{randInt(1,4),~1,~1->L4
L4+2->|LC
1->|LC(6
Ans->|LC(7
For(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))
End
DelVar PDelVar AYmin->B
Pt-Change(A,B,|LWIFIS(1
Repeat (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
End
End


SetUpEditor |LWIFI
10->dim(|LWIFI
augment(|LWIFI,{P->|LWIFI
SortD(|LWIFI
10->dim(|LWIFI
|LWIFI->L1
Archive |LWIFI
ClrDraw
Text(1,1,"HIGH SCORES:
1->H
For(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,": ",Str0
End
Thanks to Pieman for helping me test and make some improvements!


If there is anything I missed, please let me know!


I will probably update this somewhat frequently. Tell me what you think!


  • Calculators owned: A sentient TI-84+ CE, TI-85
  • Consoles, mobile devices and vintage computers owned: TI-99/4a home computer
Help me with a project by voting here! Thanks!

"walruses are better than tuxedo chickens, all hail the great :walrii:" ~ me

Offline xlibman

  • Omni founder & CW co-founder
  • Super User
  • Original 5
  • CodeWalrus Supporter
  • *
  • Join Date: Nov 2014
  • Location: Quebec, Canada
  • Posts: 18782
  • Post Rating Ratio: +96/-4
    • dj_omnimaga
    • DJOmnimaga.music
    • @DJOmnimaga
    • dj_omnimaga
    • @DJOmnimaga
    • /u/DJ_Omnimaga
    • DJOmnimaga
    • 112/11286
    • @djomnimaga
    • @DJOmnimaga
    • DJ Omnimaga music store
  • Gender: Male
Re: The Game of Finding Free WIFI!
« Reply #1 on: June 02, 2017, 04:22:27 pm »
You should post a screenshot. :3 . This seems pretty interesting. As for the code you have to enter,  this reminds me Zelda DLQ and Metroid II 84+ where you were forced to read the readme in order to find the code to play :p
  • Calculators owned: TI-57, 73, TI-80 (broken), TI-81, TI-82, TI-83, TI-83+ (broken), TI-83+ (broken), TI-83+SE (broken), TI-84+, TI-84+CSE, TI-84+CE, TI-85, TI-86, TI-89T, TI-92, TI-Nspire, TI-Nspire CX (semi-broken), HP 39gII, HP Prime, Casio fx-7000G, fx-7400G+, fx-7700GE, fx-9750G+, fx-9750GII, fx-9860G, cfx-9850G, FX-1.0+, fx-CG10, fx-CP400
  • Consoles, mobile devices and vintage computers owned: Samsung i5510, Nexus 5, Atari 2600, Lynx, SMS, Game Gear, Genesis, Dreamcast, NES, SNES, N64, GCN, Wii, Wii U, GBA, DS, 3DS, PS2, PS3, PS4, PSP, PSVita, XBox 360, XBOne

Bandcamp|Reverbnation|Facebook|Youtube|Twitter
Retired Omnimaga admin (2001-11) and editor (2012-14)

Offline _iPhoenix_

  • Full User
  • Join Date: Mar 2017
  • Location:
  • Posts: 475
  • Post Rating Ratio: +9/-1
  • █████ ▼ ♪ Best music ♫
    • @dj_iPhoenix
    • @UCytgMNPxAMDsxjimvxHf01w
    • @the-legend-of-iphoenix
  • Gender: Male
Re: The Game of Finding Free WIFI!
« Reply #2 on: June 02, 2017, 06:37:56 pm »
Haha yeah.

But instead of getting to code to play, it's getting to code to reset your playing...
  • Calculators owned: A sentient TI-84+ CE, TI-85
  • Consoles, mobile devices and vintage computers owned: TI-99/4a home computer
Help me with a project by voting here! Thanks!

"walruses are better than tuxedo chickens, all hail the great :walrii:" ~ me

Offline xlibman

  • Omni founder & CW co-founder
  • Super User
  • Original 5
  • CodeWalrus Supporter
  • *
  • Join Date: Nov 2014
  • Location: Quebec, Canada
  • Posts: 18782
  • Post Rating Ratio: +96/-4
    • dj_omnimaga
    • DJOmnimaga.music
    • @DJOmnimaga
    • dj_omnimaga
    • @DJOmnimaga
    • /u/DJ_Omnimaga
    • DJOmnimaga
    • 112/11286
    • @djomnimaga
    • @DJOmnimaga
    • DJ Omnimaga music store
  • Gender: Male
Re: The Game of Finding Free WIFI!
« Reply #3 on: August 14, 2017, 04:14:54 pm »
As long as it's not like that one game they are releasing that erases your progress if you die <.<
  • Calculators owned: TI-57, 73, TI-80 (broken), TI-81, TI-82, TI-83, TI-83+ (broken), TI-83+ (broken), TI-83+SE (broken), TI-84+, TI-84+CSE, TI-84+CE, TI-85, TI-86, TI-89T, TI-92, TI-Nspire, TI-Nspire CX (semi-broken), HP 39gII, HP Prime, Casio fx-7000G, fx-7400G+, fx-7700GE, fx-9750G+, fx-9750GII, fx-9860G, cfx-9850G, FX-1.0+, fx-CG10, fx-CP400
  • Consoles, mobile devices and vintage computers owned: Samsung i5510, Nexus 5, Atari 2600, Lynx, SMS, Game Gear, Genesis, Dreamcast, NES, SNES, N64, GCN, Wii, Wii U, GBA, DS, 3DS, PS2, PS3, PS4, PSP, PSVita, XBox 360, XBOne

Bandcamp|Reverbnation|Facebook|Youtube|Twitter
Retired Omnimaga admin (2001-11) and editor (2012-14)

Offline _iPhoenix_

  • Full User
  • Join Date: Mar 2017
  • Location:
  • Posts: 475
  • Post Rating Ratio: +9/-1
  • █████ ▼ ♪ Best music ♫
    • @dj_iPhoenix
    • @UCytgMNPxAMDsxjimvxHf01w
    • @the-legend-of-iphoenix
  • Gender: Male
Re: The Game of Finding Free WIFI!
« Reply #4 on: August 14, 2017, 05:15:46 pm »
As long as it's not like that one game they are releasing that erases your progress if you die <.<

Ooh good idea!

I could probably type random crap and call it an assembly program (to make the calc crash) and then when they lose, run the code!

Edit: I actually completely forgot how much I love playing this game.
  • Calculators owned: A sentient TI-84+ CE, TI-85
  • Consoles, mobile devices and vintage computers owned: TI-99/4a home computer
Help me with a project by voting here! Thanks!

"walruses are better than tuxedo chickens, all hail the great :walrii:" ~ me

 


You can also use the following HTML or bulletin board code to share it on your page or forum signature!


Also do not forget to check our affiliates below.
Planet Casio TI-Planet Calc.news BroniesQC BosaikNet Velocity Games