Guess Word Game For Euphoric

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

Guess Word Game For Euphoric

Post by Brana » Wed Jun 03, 2015 10:32 pm

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 336 times

User avatar
iss
Flight Lieutenant
Posts: 495
Joined: Sat Apr 03, 2010 5:43 pm
Location: Bulgaria
Contact:

Re: Guess Word Game For Euphoric

Post by iss » Wed Jun 03, 2015 11:55 pm

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: 150
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re: Guess Word Game For Euphoric

Post by Brana » Sun Jun 07, 2015 5:27 pm

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: 351
Joined: Wed Jun 09, 2010 9:23 pm
Location: Turkey
Contact:

Re: Guess Word Game For Euphoric

Post by peacer » Sun Jun 07, 2015 7:54 pm

Regarding to lines 100 - 109 ;

WW = S*2+2

Might be simpler :)

User avatar
ibisum
Squad Leader
Posts: 872
Joined: Fri Apr 03, 2009 8:56 am

Re: Guess Word Game For Euphoric

Post by ibisum » Sun Jun 07, 2015 9:18 pm

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

Doesn't matter, you got more fans in us anyway! :)

Brana
Flying Officer
Posts: 150
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re: Guess Word Game For Euphoric

Post by Brana » Wed Jun 10, 2015 10:25 pm

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: 150
Joined: Fri Nov 30, 2007 8:30 pm
Contact:

Re: Guess Word Game For Euphoric

Post by Brana » Mon Nov 14, 2016 6:09 am

...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

Who is online

Users browsing this forum: No registered users and 2 guests