"Initial" commit. Move to tbuild build system.
Signed-off-by: Slendi <slendi@socopon.com>
This commit is contained in:
commit
7baec828c4
2
.gitignore
vendored
Normal file
2
.gitignore
vendored
Normal file
@ -0,0 +1,2 @@
|
||||
build
|
||||
output
|
||||
27
LICENSE.md
Normal file
27
LICENSE.md
Normal file
@ -0,0 +1,27 @@
|
||||
# DON'T BE A DICK PUBLIC LICENSE
|
||||
|
||||
> Version 1.1, December 2016
|
||||
|
||||
> Copyright (C) 2022 Slendi <slendi@socopon.com>
|
||||
|
||||
Everyone is permitted to copy and distribute verbatim or modified
|
||||
copies of this license document.
|
||||
|
||||
> DON'T BE A DICK PUBLIC LICENSE
|
||||
> TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
1. Do whatever you like with the original work, just don't be a dick.
|
||||
|
||||
Being a dick includes - but is not limited to - the following instances:
|
||||
|
||||
1a. Outright copyright infringement - Don't just copy this and change the name.
|
||||
1b. Selling the unmodified original with no work done what-so-ever, that's REALLY being a dick.
|
||||
1c. Modifying the original work to contain hidden harmful content. That would make you a PROPER dick.
|
||||
|
||||
2. If you become rich through modifications, related works/services, or supporting the original work,
|
||||
share the love. Only a dick would make loads off this work and not buy the original work's
|
||||
creator(s) a pint.
|
||||
|
||||
3. Code is provided with no warranty. Using somebody else's code and bitching when it goes wrong makes
|
||||
you a DONKEY dick. Fix the problem yourself. A non-dick would submit the fix back.
|
||||
|
||||
16
README.md
Normal file
16
README.md
Normal file
@ -0,0 +1,16 @@
|
||||
TempleOS Wordle
|
||||
===============
|
||||
|
||||
What's this?
|
||||
------------
|
||||
|
||||
This is a TempleOS and ZealOS exclusive guessing game.
|
||||
|
||||
Where do I get this from?
|
||||
-------------------------
|
||||
You can download one of the latest releases from (here)[https://git.templeos.me/slendi/wordletos/releases] or you can build it yourself using (tbuilld)[https://git.templeos.me/slendi/tbuild].
|
||||
|
||||
LICENSE
|
||||
-------
|
||||
|
||||
This software is licensed under the DBAD license. Click [here](LICENSE.md) for more details.
|
||||
39
src/HolyC.HC
Normal file
39
src/HolyC.HC
Normal file
@ -0,0 +1,39 @@
|
||||
// This file contains utility functions
|
||||
|
||||
U0 GrChar(CDC *dc=gr.dc, U8 ch, I64 x, I64 y, I64 scale=1)
|
||||
{
|
||||
I64 i,j,k=0;
|
||||
for (i=0; i<FONT_HEIGHT; i++) {
|
||||
for (j=0; j<FONT_WIDTH; j++) {
|
||||
if (Bt(&text.font[ch],k++)) {
|
||||
GrRect(dc, x+j*scale, y+i*scale, scale, scale);
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
U0 GrRndRect(CDC *dc=gr.dc, I64 x, I64 y, I64 w, I64 h, I64 rad)
|
||||
{ // Draw a rounded rectangle, rad is the radius
|
||||
GrFillCircle(dc, x, y, , rad*2);
|
||||
GrFillCircle(dc, x+w, y, , rad*2);
|
||||
GrFillCircle(dc, x, y+h,, rad*2);
|
||||
GrFillCircle(dc, x+w, y+h,, rad*2);
|
||||
GrRect(dc, x, y-rad, w, h+(rad*2));
|
||||
GrRect(dc, x-rad, y, w+(rad*2), h);
|
||||
}
|
||||
|
||||
I64 RandRng(I64 min=0, I64 max)
|
||||
{
|
||||
return min+(Rand() * (max-min-1));
|
||||
}
|
||||
|
||||
Bool U8InStr(U8 ch, U8 *str)
|
||||
{
|
||||
I64 i;
|
||||
for (i=0; i<StrLen(str); i++) {
|
||||
if (ch == str[i]) {
|
||||
return TRUE;
|
||||
}
|
||||
}
|
||||
return FALSE;
|
||||
}
|
||||
8
src/Install.HC
Normal file
8
src/Install.HC
Normal file
@ -0,0 +1,8 @@
|
||||
// TODO: Add support for multiple partitions, not just C:
|
||||
if (!FileFind("C:/Apps/Wordle",,FUF_JUST_DIRS)) {
|
||||
"Installing...\n";
|
||||
DirMk("C:/Apps/Wordle");
|
||||
} else "Updating...\n";
|
||||
CopyTree("T:/", "C:/Apps/Wordle");
|
||||
Del("C:/Apps/Wordle/RunCD.*");
|
||||
"Done!\n";
|
||||
6
src/Load.HC
Normal file
6
src/Load.HC
Normal file
@ -0,0 +1,6 @@
|
||||
#help_index "Games"
|
||||
|
||||
Cd(__DIR__);;
|
||||
#include "Wordle"
|
||||
|
||||
#help_index ""
|
||||
19
src/Palette.HC
Normal file
19
src/Palette.HC
Normal file
@ -0,0 +1,19 @@
|
||||
U0 WordleDark()
|
||||
{
|
||||
GrPaletteColorSet(WHITE, 0x222222222222);
|
||||
GrPaletteColorSet(BLACK, 0xffffffffffff);
|
||||
GrPaletteColorSet(LTGRAY, 0x3a3a3a3a3a3a);
|
||||
GrPaletteColorSet(BLUE, 0x0f0f0f0f0f0f);
|
||||
GrPaletteColorSet(GREEN, 0x000061610a0a);
|
||||
GrPaletteColorSet(YELLOW, 0x91916f6f0000);
|
||||
}
|
||||
|
||||
U0 WordleLight()
|
||||
{
|
||||
GrPaletteColorSet(WHITE, 0xffffffffffff);
|
||||
GrPaletteColorSet(BLACK, 0x222222222222);
|
||||
GrPaletteColorSet(LTGRAY, 0xc0c0c0c0c0c0);
|
||||
GrPaletteColorSet(BLUE, 0xe3e3e3e3e3e3);
|
||||
GrPaletteColorSet(GREEN, 0x8383ffff7d7d);
|
||||
GrPaletteColorSet(YELLOW, 0xfffff2f27d7d);
|
||||
}
|
||||
24
src/PaletteZeal.ZC
Normal file
24
src/PaletteZeal.ZC
Normal file
@ -0,0 +1,24 @@
|
||||
U0 GrPaletteColorSet(I32 idx, CBGR24 col)
|
||||
{
|
||||
gr_palette[idx] = col;
|
||||
}
|
||||
|
||||
U0 WordleDark()
|
||||
{
|
||||
GrPaletteColorSet(WHITE, 0x222222);
|
||||
GrPaletteColorSet(BLACK, 0xffffff);
|
||||
GrPaletteColorSet(LTGRAY, 0x3a3a3a);
|
||||
GrPaletteColorSet(BLUE, 0x0f0f0f);
|
||||
GrPaletteColorSet(GREEN, 0x00610a);
|
||||
GrPaletteColorSet(YELLOW, 0x916f00);
|
||||
}
|
||||
|
||||
U0 WordleLight()
|
||||
{
|
||||
GrPaletteColorSet(WHITE, 0xffffff);
|
||||
GrPaletteColorSet(BLACK, 0x222222);
|
||||
GrPaletteColorSet(LTGRAY, 0xc0c0c0);
|
||||
GrPaletteColorSet(BLUE, 0xe3e3e3);
|
||||
GrPaletteColorSet(GREEN, 0x83ff7d);
|
||||
GrPaletteColorSet(YELLOW, 0xfff27d);
|
||||
}
|
||||
4
src/Run.HC
Normal file
4
src/Run.HC
Normal file
@ -0,0 +1,4 @@
|
||||
Cd(__DIR__);;
|
||||
#include "Load"
|
||||
"Running...\n";
|
||||
Wordle;
|
||||
3
src/RunCD.HC
Normal file
3
src/RunCD.HC
Normal file
@ -0,0 +1,3 @@
|
||||
#include "Wordle"
|
||||
"Running from CD...\n";
|
||||
Wordle;
|
||||
875
src/Vocab.TXT
Normal file
875
src/Vocab.TXT
Normal file
@ -0,0 +1,875 @@
|
||||
abase
|
||||
abhor
|
||||
abide
|
||||
abler
|
||||
abode
|
||||
about
|
||||
above
|
||||
abuse
|
||||
abyss
|
||||
aches
|
||||
acted
|
||||
actor
|
||||
acute
|
||||
adapt
|
||||
added
|
||||
admit
|
||||
afric
|
||||
after
|
||||
again
|
||||
agito
|
||||
agony
|
||||
agree
|
||||
ahead
|
||||
aided
|
||||
alike
|
||||
alive
|
||||
allay
|
||||
allow
|
||||
alloy
|
||||
aloft
|
||||
alone
|
||||
along
|
||||
aloud
|
||||
altar
|
||||
alter
|
||||
amend
|
||||
amiss
|
||||
among
|
||||
ample
|
||||
angel
|
||||
anger
|
||||
angry
|
||||
apart
|
||||
apply
|
||||
aptly
|
||||
arise
|
||||
armed
|
||||
arose
|
||||
array
|
||||
ascii
|
||||
ashes
|
||||
aside
|
||||
asked
|
||||
aught
|
||||
avail
|
||||
avert
|
||||
avoid
|
||||
awake
|
||||
aware
|
||||
awful
|
||||
awoke
|
||||
babes
|
||||
backs
|
||||
badge
|
||||
balls
|
||||
bands
|
||||
bared
|
||||
based
|
||||
bathe
|
||||
baths
|
||||
beams
|
||||
bears
|
||||
beast
|
||||
began
|
||||
begat
|
||||
beget
|
||||
begin
|
||||
begun
|
||||
being
|
||||
belly
|
||||
below
|
||||
bends
|
||||
beset
|
||||
bible
|
||||
birds
|
||||
birth
|
||||
black
|
||||
blade
|
||||
blame
|
||||
bless
|
||||
blest
|
||||
blind
|
||||
blood
|
||||
bloom
|
||||
blunt
|
||||
blush
|
||||
boast
|
||||
boils
|
||||
bonds
|
||||
bones
|
||||
books
|
||||
borne
|
||||
bosom
|
||||
bound
|
||||
bowed
|
||||
brain
|
||||
bread
|
||||
break
|
||||
bribe
|
||||
bride
|
||||
bring
|
||||
broad
|
||||
broke
|
||||
brows
|
||||
brute
|
||||
built
|
||||
bulky
|
||||
burnt
|
||||
burst
|
||||
cakes
|
||||
calls
|
||||
canst
|
||||
cared
|
||||
cares
|
||||
carry
|
||||
cases
|
||||
casts
|
||||
catch
|
||||
cause
|
||||
caves
|
||||
cease
|
||||
chain
|
||||
chair
|
||||
chant
|
||||
cheap
|
||||
check
|
||||
cheer
|
||||
chest
|
||||
chief
|
||||
child
|
||||
chill
|
||||
chose
|
||||
claim
|
||||
clasp
|
||||
class
|
||||
clave
|
||||
clean
|
||||
clear
|
||||
climb
|
||||
cloak
|
||||
close
|
||||
cloud
|
||||
coals
|
||||
coats
|
||||
codes
|
||||
comes
|
||||
costs
|
||||
couch
|
||||
could
|
||||
count
|
||||
court
|
||||
cover
|
||||
cower
|
||||
creep
|
||||
crept
|
||||
cried
|
||||
cries
|
||||
crime
|
||||
cross
|
||||
crown
|
||||
cruel
|
||||
cubit
|
||||
cured
|
||||
daily
|
||||
danae
|
||||
dared
|
||||
dares
|
||||
dates
|
||||
david
|
||||
dealt
|
||||
death
|
||||
debts
|
||||
decay
|
||||
deeds
|
||||
deeps
|
||||
deity
|
||||
delay
|
||||
depth
|
||||
devil
|
||||
didst
|
||||
dieth
|
||||
doest
|
||||
doing
|
||||
doors
|
||||
doted
|
||||
doubt
|
||||
drank
|
||||
drawn
|
||||
draws
|
||||
dread
|
||||
dream
|
||||
dried
|
||||
drink
|
||||
drive
|
||||
drops
|
||||
drove
|
||||
drunk
|
||||
dully
|
||||
durst
|
||||
dwell
|
||||
dwelt
|
||||
dying
|
||||
eager
|
||||
eagle
|
||||
early
|
||||
earth
|
||||
eased
|
||||
eaten
|
||||
edged
|
||||
edify
|
||||
egypt
|
||||
eight
|
||||
elder
|
||||
elect
|
||||
email
|
||||
empty
|
||||
enact
|
||||
ended
|
||||
enemy
|
||||
enjoy
|
||||
enter
|
||||
equal
|
||||
erred
|
||||
error
|
||||
essay
|
||||
etext
|
||||
every
|
||||
evils
|
||||
exact
|
||||
excel
|
||||
exist
|
||||
extol
|
||||
exude
|
||||
exult
|
||||
fable
|
||||
faced
|
||||
faces
|
||||
facio
|
||||
facts
|
||||
faint
|
||||
faith
|
||||
falls
|
||||
false
|
||||
fancy
|
||||
fared
|
||||
fault
|
||||
fears
|
||||
feast
|
||||
feeds
|
||||
feels
|
||||
fence
|
||||
fever
|
||||
field
|
||||
fifth
|
||||
fifty
|
||||
fight
|
||||
files
|
||||
filth
|
||||
final
|
||||
finds
|
||||
fired
|
||||
fires
|
||||
first
|
||||
fixed
|
||||
flame
|
||||
flash
|
||||
flesh
|
||||
flies
|
||||
fling
|
||||
flock
|
||||
flood
|
||||
flour
|
||||
flown
|
||||
flows
|
||||
flung
|
||||
folks
|
||||
folly
|
||||
fools
|
||||
force
|
||||
forge
|
||||
forms
|
||||
forth
|
||||
forum
|
||||
fouls
|
||||
found
|
||||
fowls
|
||||
frame
|
||||
fraud
|
||||
freed
|
||||
fresh
|
||||
front
|
||||
fruit
|
||||
fully
|
||||
fumed
|
||||
fumes
|
||||
gains
|
||||
gales
|
||||
games
|
||||
gates
|
||||
ghost
|
||||
giant
|
||||
gifts
|
||||
girls
|
||||
given
|
||||
giver
|
||||
gives
|
||||
glass
|
||||
gleam
|
||||
glide
|
||||
glory
|
||||
glows
|
||||
goads
|
||||
godly
|
||||
goest
|
||||
goeth
|
||||
going
|
||||
goods
|
||||
grace
|
||||
grant
|
||||
grasp
|
||||
grass
|
||||
grave
|
||||
great
|
||||
greek
|
||||
green
|
||||
greet
|
||||
grief
|
||||
groan
|
||||
groat
|
||||
gross
|
||||
grown
|
||||
guess
|
||||
guide
|
||||
guilt
|
||||
habit
|
||||
hadst
|
||||
hairs
|
||||
haled
|
||||
hands
|
||||
haply
|
||||
happy
|
||||
harsh
|
||||
harts
|
||||
haste
|
||||
hated
|
||||
haunt
|
||||
heads
|
||||
heaps
|
||||
heard
|
||||
hears
|
||||
heart
|
||||
heavy
|
||||
hence
|
||||
herbs
|
||||
hills
|
||||
holds
|
||||
homer
|
||||
honey
|
||||
honor
|
||||
hooks
|
||||
hoped
|
||||
hopes
|
||||
horns
|
||||
horse
|
||||
hosts
|
||||
hotly
|
||||
hours
|
||||
house
|
||||
human
|
||||
husks
|
||||
hymns
|
||||
idaho
|
||||
ideas
|
||||
idols
|
||||
image
|
||||
imbue
|
||||
imply
|
||||
infer
|
||||
inner
|
||||
irons
|
||||
isaac
|
||||
issue
|
||||
italy
|
||||
items
|
||||
jacob
|
||||
jests
|
||||
jesus
|
||||
joint
|
||||
joyed
|
||||
judge
|
||||
keeps
|
||||
kinds
|
||||
kings
|
||||
knees
|
||||
knock
|
||||
knots
|
||||
known
|
||||
knows
|
||||
laden
|
||||
lands
|
||||
large
|
||||
later
|
||||
lathe
|
||||
latin
|
||||
laugh
|
||||
laxly
|
||||
leads
|
||||
leaps
|
||||
learn
|
||||
least
|
||||
leave
|
||||
legal
|
||||
lends
|
||||
lieth
|
||||
lifts
|
||||
light
|
||||
liked
|
||||
liker
|
||||
likes
|
||||
limbs
|
||||
limed
|
||||
lined
|
||||
lines
|
||||
links
|
||||
lists
|
||||
lived
|
||||
lives
|
||||
loads
|
||||
lofty
|
||||
logic
|
||||
login
|
||||
longs
|
||||
looks
|
||||
loose
|
||||
lords
|
||||
loses
|
||||
loved
|
||||
lover
|
||||
loves
|
||||
lower
|
||||
lowly
|
||||
lucid
|
||||
lucre
|
||||
lungs
|
||||
lures
|
||||
lusts
|
||||
lying
|
||||
madly
|
||||
maker
|
||||
makes
|
||||
manna
|
||||
marks
|
||||
marry
|
||||
marts
|
||||
mazes
|
||||
means
|
||||
meant
|
||||
meats
|
||||
medea
|
||||
meets
|
||||
mercy
|
||||
merry
|
||||
metre
|
||||
might
|
||||
milan
|
||||
milky
|
||||
mimic
|
||||
minds
|
||||
mirth
|
||||
mists
|
||||
modes
|
||||
moist
|
||||
monad
|
||||
money
|
||||
month
|
||||
moral
|
||||
moses
|
||||
mould
|
||||
mount
|
||||
mourn
|
||||
mouth
|
||||
moved
|
||||
muddy
|
||||
music
|
||||
nails
|
||||
naked
|
||||
named
|
||||
names
|
||||
needs
|
||||
needy
|
||||
nests
|
||||
never
|
||||
night
|
||||
ninth
|
||||
noble
|
||||
noise
|
||||
north
|
||||
noted
|
||||
notes
|
||||
nurse
|
||||
obeys
|
||||
occur
|
||||
ocean
|
||||
odour
|
||||
offer
|
||||
often
|
||||
ofthe
|
||||
opens
|
||||
order
|
||||
ostia
|
||||
other
|
||||
ought
|
||||
outer
|
||||
owing
|
||||
pages
|
||||
pains
|
||||
pairs
|
||||
pangs
|
||||
paper
|
||||
pared
|
||||
parts
|
||||
party
|
||||
paths
|
||||
pause
|
||||
peace
|
||||
pearl
|
||||
pears
|
||||
penal
|
||||
pence
|
||||
peril
|
||||
petty
|
||||
piece
|
||||
piety
|
||||
piled
|
||||
pines
|
||||
pious
|
||||
pitch
|
||||
place
|
||||
plain
|
||||
plans
|
||||
plant
|
||||
plays
|
||||
plead
|
||||
plots
|
||||
pluck
|
||||
poems
|
||||
poesy
|
||||
poets
|
||||
point
|
||||
poise
|
||||
power
|
||||
press
|
||||
price
|
||||
pride
|
||||
print
|
||||
prior
|
||||
prize
|
||||
promo
|
||||
proof
|
||||
prose
|
||||
proud
|
||||
prove
|
||||
psalm
|
||||
pulse
|
||||
purer
|
||||
pusey
|
||||
queen
|
||||
quest
|
||||
quick
|
||||
quiet
|
||||
quite
|
||||
quoth
|
||||
races
|
||||
racks
|
||||
raged
|
||||
raise
|
||||
range
|
||||
rates
|
||||
raven
|
||||
reach
|
||||
reads
|
||||
ready
|
||||
rebel
|
||||
recur
|
||||
refer
|
||||
reins
|
||||
renew
|
||||
repay
|
||||
repel
|
||||
reply
|
||||
right
|
||||
riper
|
||||
risen
|
||||
rites
|
||||
rocks
|
||||
roman
|
||||
rough
|
||||
round
|
||||
rouse
|
||||
ruled
|
||||
ruler
|
||||
rules
|
||||
safer
|
||||
sails
|
||||
saint
|
||||
saith
|
||||
sakes
|
||||
sated
|
||||
saved
|
||||
scorn
|
||||
seats
|
||||
seeks
|
||||
seems
|
||||
seest
|
||||
seeth
|
||||
seize
|
||||
sense
|
||||
serve
|
||||
seven
|
||||
sever
|
||||
shade
|
||||
shady
|
||||
shake
|
||||
shall
|
||||
shalt
|
||||
shame
|
||||
shape
|
||||
share
|
||||
sharp
|
||||
sheep
|
||||
shine
|
||||
ships
|
||||
shoes
|
||||
shone
|
||||
shook
|
||||
shoot
|
||||
shops
|
||||
shore
|
||||
short
|
||||
shown
|
||||
shows
|
||||
shuns
|
||||
sides
|
||||
siege
|
||||
sighs
|
||||
sight
|
||||
signs
|
||||
silly
|
||||
since
|
||||
sings
|
||||
sinks
|
||||
sites
|
||||
sixth
|
||||
skies
|
||||
skill
|
||||
skins
|
||||
slain
|
||||
slave
|
||||
sleep
|
||||
slept
|
||||
sloth
|
||||
small
|
||||
smell
|
||||
smile
|
||||
smoke
|
||||
snare
|
||||
sober
|
||||
sodom
|
||||
solid
|
||||
solve
|
||||
songs
|
||||
sores
|
||||
sorry
|
||||
sorts
|
||||
souls
|
||||
sound
|
||||
south
|
||||
space
|
||||
spake
|
||||
spare
|
||||
speak
|
||||
speed
|
||||
spend
|
||||
spent
|
||||
spoil
|
||||
spoke
|
||||
sport
|
||||
spots
|
||||
spurn
|
||||
staff
|
||||
stage
|
||||
stand
|
||||
stank
|
||||
stars
|
||||
start
|
||||
state
|
||||
stays
|
||||
stead
|
||||
steal
|
||||
steep
|
||||
steer
|
||||
steps
|
||||
stick
|
||||
stiff
|
||||
still
|
||||
stole
|
||||
stone
|
||||
stood
|
||||
stoop
|
||||
store
|
||||
storm
|
||||
story
|
||||
stuck
|
||||
study
|
||||
stuff
|
||||
stung
|
||||
style
|
||||
subdu
|
||||
sweat
|
||||
sweet
|
||||
swept
|
||||
swift
|
||||
swine
|
||||
swoon
|
||||
sword
|
||||
table
|
||||
taken
|
||||
takes
|
||||
tales
|
||||
tamed
|
||||
tamer
|
||||
tardy
|
||||
taste
|
||||
taunt
|
||||
taxes
|
||||
teach
|
||||
tears
|
||||
teeth
|
||||
tells
|
||||
tempt
|
||||
tends
|
||||
tenet
|
||||
tenor
|
||||
terms
|
||||
texas
|
||||
texts
|
||||
thank
|
||||
theft
|
||||
their
|
||||
there
|
||||
these
|
||||
thick
|
||||
thief
|
||||
thine
|
||||
thing
|
||||
think
|
||||
third
|
||||
those
|
||||
three
|
||||
tides
|
||||
tilde
|
||||
times
|
||||
tired
|
||||
title
|
||||
token
|
||||
tones
|
||||
total
|
||||
touch
|
||||
tower
|
||||
trace
|
||||
track
|
||||
trade
|
||||
tread
|
||||
treat
|
||||
trees
|
||||
trial
|
||||
tried
|
||||
trine
|
||||
troop
|
||||
truer
|
||||
truly
|
||||
trust
|
||||
truth
|
||||
tully
|
||||
turns
|
||||
tutor
|
||||
twice
|
||||
twins
|
||||
under
|
||||
undid
|
||||
union
|
||||
unity
|
||||
until
|
||||
upper
|
||||
urged
|
||||
usage
|
||||
users
|
||||
useth
|
||||
using
|
||||
usual
|
||||
usury
|
||||
utter
|
||||
value
|
||||
vaunt
|
||||
venus
|
||||
verse
|
||||
vexed
|
||||
vices
|
||||
villa
|
||||
viper
|
||||
virus
|
||||
vital
|
||||
vivid
|
||||
vocal
|
||||
voice
|
||||
vowed
|
||||
waged
|
||||
wages
|
||||
walks
|
||||
walls
|
||||
wants
|
||||
waste
|
||||
watch
|
||||
water
|
||||
waver
|
||||
waves
|
||||
weary
|
||||
weeps
|
||||
weigh
|
||||
wheat
|
||||
wheel
|
||||
where
|
||||
which
|
||||
while
|
||||
white
|
||||
whole
|
||||
whose
|
||||
whoso
|
||||
widow
|
||||
wills
|
||||
winds
|
||||
windy
|
||||
wings
|
||||
wiser
|
||||
wives
|
||||
woman
|
||||
women
|
||||
wooed
|
||||
words
|
||||
wordy
|
||||
works
|
||||
world
|
||||
worse
|
||||
would
|
||||
wound
|
||||
wrath
|
||||
wring
|
||||
write
|
||||
wrong
|
||||
wrote
|
||||
wroth
|
||||
years
|
||||
yield
|
||||
young
|
||||
youth
|
||||
330
src/Wordle.HC
Normal file
330
src/Wordle.HC
Normal file
@ -0,0 +1,330 @@
|
||||
// I use () for empty functions because I want syntax highlighting on GitHub and my code editor.
|
||||
// The Generate.ps1 script does a quick search and replace to remove those.
|
||||
|
||||
#include "HolyC"
|
||||
#include "Palette"
|
||||
|
||||
U8 *version = "v1.0.0";
|
||||
|
||||
"Wordle by xSlendiX - %s\n", version;
|
||||
|
||||
"Defines ";
|
||||
|
||||
#define LT_EMP 0
|
||||
#define LT_OK 1
|
||||
#define LT_POS 2
|
||||
#define LT_SEL 3
|
||||
|
||||
#define LT_SZ (20)
|
||||
#define LT_RAD (10)
|
||||
|
||||
#define LT_CX ((LT_SZ+(LT_RAD*2))/2)
|
||||
#define LT_CY ((LT_SZ+(LT_RAD*2))/2)
|
||||
|
||||
#define LT_FSCALE (3)
|
||||
#define LT_OFFX (-1)
|
||||
#define LT_OFFY (0)
|
||||
#define LT_FHALF (LT_FSCALE/2)
|
||||
|
||||
#define LT_SPACING (2)
|
||||
|
||||
#define WDEPTH 5
|
||||
#define WLEN 5
|
||||
|
||||
#define W_NONE 0
|
||||
#define W_WIN 1
|
||||
#define W_FAIL 2
|
||||
|
||||
#define DIALOGW (FONT_WIDTH*30)
|
||||
#define DIALOGH (FONT_HEIGHT*7)
|
||||
|
||||
"Vars ";
|
||||
U8 **wwords = NULL;
|
||||
I64 wcnt = 0;
|
||||
|
||||
U8 *gameTable = NULL;
|
||||
U8 *word;
|
||||
I64 win=W_NONE;
|
||||
I64 cdepth=0;
|
||||
I64 gcheats=OFF;
|
||||
|
||||
U8 wdark=ON;
|
||||
//#include "Settings"
|
||||
|
||||
"Funcs ";
|
||||
// Adapted from GodInit
|
||||
I64 WordInit(U8 *file="Vocab.TXT")
|
||||
{
|
||||
I64 i,ch,count;
|
||||
U8 *buf,*ptr,*ptr2;
|
||||
|
||||
i=0;
|
||||
if (buf=ptr=FileRead(file)) {
|
||||
while (*ptr) {
|
||||
while (*ptr && !Bt(char_bmp_word,*ptr))
|
||||
ptr++;
|
||||
|
||||
if (*ptr) {
|
||||
while (*ptr && Bt(char_bmp_word,*ptr))
|
||||
ptr++;
|
||||
|
||||
i++;
|
||||
}
|
||||
}
|
||||
Free(buf);
|
||||
}
|
||||
|
||||
count=i;
|
||||
wwords=MAlloc(count*sizeof(U8 *));
|
||||
|
||||
i=0;
|
||||
if (buf=ptr=FileRead(file)) {
|
||||
while (*ptr) {
|
||||
while (*ptr && !Bt(char_bmp_word,*ptr))
|
||||
ptr++;
|
||||
|
||||
if (*ptr) {
|
||||
ptr2=ptr;
|
||||
while (*ptr && Bt(char_bmp_word,*ptr))
|
||||
ptr++;
|
||||
ch=*ptr;
|
||||
*ptr=0;
|
||||
wwords[i]=StrNew(ptr2);
|
||||
i++;
|
||||
*ptr=ch;
|
||||
}
|
||||
}
|
||||
Free(buf);
|
||||
}
|
||||
|
||||
return count;
|
||||
}
|
||||
|
||||
U0 DrawLetter(CDC *dc=gr.dc, U8 ch, I64 type, I64 x, I64 y)
|
||||
{
|
||||
I64 pcol=dc->color;
|
||||
|
||||
switch(type) {
|
||||
case LT_OK: dc->color = GREEN; break;
|
||||
case LT_POS: dc->color = YELLOW; break;
|
||||
case LT_SEL: dc->color = BLUE; break;
|
||||
case LT_EMP:
|
||||
default: dc->color = LTGRAY;
|
||||
}
|
||||
|
||||
GrRndRect(dc, LT_RAD+x, LT_RAD+y, LT_SZ, LT_SZ, LT_RAD);
|
||||
|
||||
dc->color=BLACK;
|
||||
|
||||
// FIXME: Buggy, needs better math
|
||||
GrChar(dc, ch, x+LT_OFFX+(LT_CX-LT_FHALF)/2, y+LT_OFFY+(LT_CY-LT_FHALF)/2, LT_FSCALE);
|
||||
|
||||
dc->color=pcol;
|
||||
}
|
||||
|
||||
U0 DrawWin(CDC *dc)
|
||||
{
|
||||
if (win == W_NONE) return;
|
||||
|
||||
I64 pcol=dc->color;
|
||||
|
||||
dc->color=BLACK;
|
||||
GrRndRect(dc, dc->width/2-DIALOGW/2, dc->height/2-DIALOGH/2,
|
||||
DIALOGW, DIALOGH, FONT_WIDTH);
|
||||
dc->color=WHITE;
|
||||
GrRndRect(dc, dc->width/2-DIALOGW/2, dc->height/2-DIALOGH/2,
|
||||
DIALOGW, DIALOGH, FONT_WIDTH/2);
|
||||
|
||||
switch (win)
|
||||
{
|
||||
case W_WIN:
|
||||
dc->color=GREEN;
|
||||
GrPrint(dc, dc->width/2-4*FONT_WIDTH, dc->height/2-FONT_HEIGHT/2-FONT_HEIGHT, "You win!");
|
||||
break;
|
||||
case W_FAIL:
|
||||
dc->color=RED;
|
||||
GrPrint(dc, dc->width/2-4.5*FONT_WIDTH, dc->height/2-FONT_HEIGHT/2-FONT_HEIGHT, "You lose!");
|
||||
break;
|
||||
}
|
||||
|
||||
dc->color=BLACK;
|
||||
GrPrint(dc, dc->width/2-13*FONT_WIDTH, dc->height/2-FONT_HEIGHT/2+FONT_HEIGHT, "Press ENTER to play again!");
|
||||
|
||||
dc->color=pcol;
|
||||
}
|
||||
|
||||
U0 DrawTable(CDC *dc=gr.dc)
|
||||
{
|
||||
I64 i,j;
|
||||
I64 type;
|
||||
U8 ch;
|
||||
|
||||
I64 w=(LT_SZ+LT_RAD*2+LT_SPACING)*WLEN;
|
||||
I64 h=(LT_SZ+LT_RAD*2+LT_SPACING)*WDEPTH;
|
||||
I64 offx=dc->width/2-w/2;
|
||||
I64 offy=dc->height/2-h/2;
|
||||
|
||||
for (i=0; i<WDEPTH; i++) {
|
||||
for (j=0; j<WLEN; j++) {
|
||||
ch=gameTable[j+WLEN*i];
|
||||
type=LT_EMP;
|
||||
if (cdepth <= i) {
|
||||
type=LT_SEL;
|
||||
goto draw_table_next;
|
||||
}
|
||||
|
||||
if (ch == word[j]) {
|
||||
type=LT_OK;
|
||||
goto draw_table_next;
|
||||
}
|
||||
|
||||
if (U8InStr(ch, word)) {
|
||||
type=LT_POS;
|
||||
goto draw_table_next;
|
||||
}
|
||||
draw_table_next:
|
||||
DrawLetter(dc, ch, type, j*(LT_SZ+LT_SPACING+LT_RAD*2)+offx, i*(LT_SZ+LT_SPACING+LT_RAD*2)+offy);
|
||||
}
|
||||
|
||||
if (cdepth == i && win == W_NONE)
|
||||
GrArrow3(dc, w+LT_RAD*2+offx, LT_CY+(LT_SZ+LT_SPACING+LT_RAD*2)*i+offy, 0, w+LT_RAD+offx, LT_CY+(LT_SZ+LT_SPACING+LT_RAD*2)*i+offy, 0);
|
||||
}
|
||||
}
|
||||
|
||||
I64 CheckWin()
|
||||
{
|
||||
if (cdepth == 0) return W_NONE;
|
||||
if (StrCmp(gameTable+(cdepth-1)*WLEN, word) == 0) return W_WIN;
|
||||
if (cdepth == WDEPTH) return W_FAIL;
|
||||
return W_NONE;
|
||||
}
|
||||
|
||||
U0 WordleDrawIt(CTask *, CDC *dc)
|
||||
{
|
||||
DrawTable(dc);
|
||||
if (gcheats==ON) {
|
||||
GrPrint(dc, FONT_WIDTH, FONT_HEIGHT, "Cheats ON!\nWord: %s", word);
|
||||
}
|
||||
GrPrint(dc, dc->width-FONT_WIDTH*21, FONT_HEIGHT, "Toggle theme: CTRL-T\n Quit: CTRL-Q | ESC");
|
||||
GrPrint(dc, dc->width-FONT_WIDTH*(StrLen(version)+1), dc->height-(FONT_HEIGHT*3), version);
|
||||
DrawWin(dc);
|
||||
}
|
||||
|
||||
U0 ResetGame()
|
||||
{
|
||||
I64 i;
|
||||
I64 randomWord = RandRng(,wcnt);
|
||||
|
||||
word = wwords[randomWord];
|
||||
if (word == NULL)
|
||||
throw('WN');
|
||||
|
||||
cdepth=0;
|
||||
|
||||
for (i=0; i<WDEPTH*WLEN+1; i++) {
|
||||
gameTable[i] = '\0';
|
||||
}
|
||||
|
||||
win=W_NONE;
|
||||
}
|
||||
|
||||
U0 Wordle()
|
||||
{
|
||||
U64 sc;
|
||||
I64 i;
|
||||
|
||||
wcnt = WordInit();
|
||||
if (wwords == NULL)
|
||||
throw('WLN');
|
||||
|
||||
gameTable = MAlloc(sizeof(U8)*WDEPTH*WLEN+1);
|
||||
ResetGame();
|
||||
|
||||
SettingsPush();
|
||||
DocClear();
|
||||
AutoComplete();
|
||||
WinBorder();
|
||||
WinMax();
|
||||
DocCursor();
|
||||
|
||||
if (wdark)
|
||||
WordleDark();
|
||||
else
|
||||
WordleLight();
|
||||
|
||||
Fs->draw_it = &WordleDrawIt;
|
||||
|
||||
I64 wbase,len;
|
||||
U8 *cheatCode="elephants";
|
||||
I64 cheatIdx=0;
|
||||
try {
|
||||
while (TRUE) {
|
||||
wbase=cdepth*WLEN;
|
||||
len=StrLen(gameTable+wbase);
|
||||
|
||||
U8 key = GetKey(&sc);
|
||||
switch (key) { // FIXME: This can probably be optimized further
|
||||
case 'a'...'z':
|
||||
if (key == cheatCode[cheatIdx])
|
||||
cheatIdx++;
|
||||
else
|
||||
cheatIdx=0;
|
||||
|
||||
if (cheatIdx == StrLen(cheatCode))
|
||||
gcheats=!gcheats;
|
||||
|
||||
if (win != W_NONE) break;
|
||||
if (wbase+len >= (cdepth+1)*WLEN) break;
|
||||
if (cdepth != 0)
|
||||
if (wbase+len <= (cdepth-1)*WLEN) break;
|
||||
|
||||
if (len <= WLEN) {
|
||||
gameTable[wbase+len] = key;
|
||||
}
|
||||
break;
|
||||
case CH_BACKSPACE:
|
||||
if (win != W_NONE) break;
|
||||
if (wbase+len > (cdepth+1)*WLEN) break;
|
||||
if (cdepth != 0)
|
||||
if (wbase+len <= (cdepth-1)*WLEN) break;
|
||||
|
||||
if (len > 0) {
|
||||
gameTable[wbase+len-1] = '\0';
|
||||
}
|
||||
break;
|
||||
case '\n':
|
||||
if (win != W_NONE) {
|
||||
ResetGame();
|
||||
break;
|
||||
}
|
||||
if (len == 5)
|
||||
cdepth++;
|
||||
win = CheckWin();
|
||||
break;
|
||||
case CH_CTRLT:
|
||||
if (wdark)
|
||||
WordleLight();
|
||||
else
|
||||
WordleDark();
|
||||
wdark=!wdark;
|
||||
break;
|
||||
case CH_CTRLQ:
|
||||
case CH_SHIFT_ESC:
|
||||
case CH_ESC:
|
||||
goto wordle_done;
|
||||
}
|
||||
}
|
||||
} catch PutExcept;
|
||||
|
||||
wordle_done:
|
||||
Free(gameTable);
|
||||
|
||||
for (i=0; i<wcnt; i++)
|
||||
Free(wwords[i]);
|
||||
Free(wwords);
|
||||
|
||||
SettingsPop();
|
||||
MenuPop();
|
||||
}
|
||||
|
||||
"\n";
|
||||
6
tos_project.toml
Normal file
6
tos_project.toml
Normal file
@ -0,0 +1,6 @@
|
||||
[General]
|
||||
Name="wordletos"
|
||||
Author="Slendi"
|
||||
Version="0.1"
|
||||
|
||||
[Dependencies]
|
||||
Loading…
x
Reference in New Issue
Block a user