Guess Word Game For Euphoric

Want to talks about games you like, would like to see developed on the Oric, it's here.
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Guess Word Game For Euphoric

Post by Brana »

It's a guess word game in Basic :)
Run it.
Enter word(s)
Maximum 10 words.
Maximum 12 characters per a word.
Press Enter.
Then give it to (another) player or players to guess the words.
Program listing below:
________________________________________________


0 CLS:PAPER0:INK7:LORES0:GRAB
1 PRINT@0,0;CHR$(148);"Iskrina Vesala V1.1 C 01.06.2015"
2 PRINT@3,4;CHR$(148);" "
3 PRINT@0,1;"Max.10 reci, max.12 slova po svakoj reci
4 DIM VR$(50):W=1
5 INPUTA$
6 IFA$="EXIT"THEN CLOAD"MENU.TAP"
7 FORA=1TOLEN(A$):AA$=MID$(A$,A,1):IFAA$=" " ORAA$=""THENW=W+1
8 IFNOTAA$=" "THENVR$(W)=VR$(W)+AA$
9 NEXTA
10 IFW>10THENRUN
11 FORA=1TOW:IFLEN(VR$(A))>12THENRUN
12 NEXTA
13 FORS=1TOW
14 FORA=1TOLEN(VR$(S))
15 GOSUB100
16 'PRINT@(A*3)-1,WW;CHR$(148);MID$(VR$(S),A,1);CHR$(144)
17 PRINT@(A*3)-1,WW;CHR$(148);" ";CHR$(144)
18 NEXTA
19 NEXTS
20 PRINT@0,1;CHR$(14):PRINTCHR$(14):PRINTCHR$(14)
21 PRINT@0,2;" "
22 PRINT@2,24;CHR$(145);" ":F=0
23 PRINT@2,2;"Pritisni zeljeno slovo? (ESC=Exit)"
24 GETA$:IFA$=""THEN24
25 IFASC(A$)=27THENCLOAD"MENU.TAP"
26 FORS=1TOW
27 FORA=1TOLEN(VR$(S))
28 GOSUB100
29 IFMID$(VR$(S),A,1)=A$ THENPRINT@(A*3)-1,WW;CHR$(148);A$;CHR$(144):F=1
30 NEXT A
31 NEXT S:IFFF=37THENFF=0
32 IFF=0 THENFF=FF+1:PRINT@2+FF,24;A$:F=0:GOTO24
33 F=0:GOTO24
98 PRINT@2,20;" "
99 STOP:REM---------SUBRUTINA ZA WW
100 IFS=1THENWW=4
101 IFS=2THENWW=6
102 IFS=3THENWW=8
103 IFS=4THENWW=10
104 IFS=5THENWW=12
105 IFS=6THENWW=14
106 IFS=7THENWW=16
107 IFS=8THENWW=18
108 IFS=9THENWW=20
109 IFS=10THENWW=22
110 RETURN
63998 STOP
63999 CSAVE"VESALA.TAP",AUTO:WAIT99:CLOAD"VESALA.TAP",V
Attachments
Screen8 copy.jpg
VESALA.TAP
(1.11 KiB) Downloaded 680 times
User avatar
iss
Wing Commander
Posts: 1637
Joined: Sat Apr 03, 2010 5:43 pm
Location: Bulgaria
Contact:

Re: Guess Word Game For Euphoric

Post by iss »

Zdravo, Brana and welcome back.
Nice game and good implementation in Basic.
IMHO it's worth to add limit for entered letters and suitable messages when player wins or loses the game.
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re: Guess Word Game For Euphoric

Post by Brana »

Thank You :)
Well, it was developed "on the fly" - just to play "one-time-only" with a certain girl (in between her school classes), and it WAS developed OK, hoverer she... wasn't interested in it... :(
User avatar
peacer
Flight Lieutenant
Posts: 451
Joined: Wed Jun 09, 2010 9:23 pm
Location: Turkey
Contact:

Re: Guess Word Game For Euphoric

Post by peacer »

Regarding to lines 100 - 109 ;

WW = S*2+2

Might be simpler :)
User avatar
ibisum
Wing Commander
Posts: 1643
Joined: Fri Apr 03, 2009 8:56 am
Location: Vienna, Austria
Contact:

Re: Guess Word Game For Euphoric

Post by ibisum »

> she... wasn't interested in it..

Doesn't matter, you got more fans in us anyway! :)
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re: Guess Word Game For Euphoric

Post by Brana »

Well, this is how it looked like preliminary - on the paper - when I was figuring out the screen coordinates for every letter on the screen...
Yea, I figured out the horizontal axes quite simply..
I messed up the vertical coordinates, so I just simplified with "IF" statements - not to loose time with it...
Again - it WAS developed "on the fly".. :D
Well.. never mind now .. :(
Attachments
DSC01398.JPG
Brana
Flying Officer
Posts: 169
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re: Guess Word Game For Euphoric

Post by Brana »

...and it works great on a mobile phone too :D
P.S. Notice the keyboard?
Yes, it has ESC, Ctrl, arrows (and even an F10 key) :D
Just love it.
(It runs Euphoric emulating Atmos for up to 2,5Mhz of Atmos-CPU)
I'm used to higher speeds, like 12Mhz emulated Atmos CPU but, on a mobile phone...
FINALLY!!!
Absolutely not bad!
Attachments
vesala.png
Post Reply