Hangman 2 with 2 to 12 letter words!

[SierraKen]

Thanks you 2. I added some shrubs on the horizon and did what you asked Phil and made some white space around the Again and You Win and You Lose text. Click the picture to see the whole thing.

Code: (Select All)

'Hangman 2 by SierraKen - August 30, 2022.
'Thanks to B+ for some guidance and OldMoses for a better looking gallows.
'----------------------------------------------------------------------------------------------------
'Feel free to add or subtract any words from the DATA lines with letter amounts two to twelve.
'If you accidentally add a word larger than 12 letters or smaller than 2 letters, it will not use it.
'Also if you accidentally add a word with a capital letter or a symbol, it won't use that either.
'1000 common words comes with this on the DATA lines of different sizes.

_Title "Hangman 2 by Sierraken"
Randomize Timer ' <<< once up here is all that is needed

Do
    On Error GoTo readagain:
    Read words$
    w = w + 1
Loop
readagain:
Restore ManyWords:
Dim words$(w)
For a = 1 To w
    Read words$(a)
Next a

Dim letter$(30), letter2$(30)

start:
Cls
Screen _NewImage(800, 600, 32)

'Sky
For y = 0 To 400
    c = c + .5
    Line (0, y)-(800, y), _RGB32(0, 0, c)
Next y
c = 0
'Grass
For y = 401 To 600
    c = c + .5
    Line (0, y)-(800, y), _RGB32(0, c, 0)
Next y
c = 0
'Tumbleweeds
For weeds = 50 To 500 Step 100
    For seconds = 0 To 15 Step 4
        s = (60 - seconds) * 6 + 180
        x = Int(Sin(s / 180 * 3.141592) * 60) + weeds
        y = Int(Cos(s / 180 * 3.141592) * 60) + 401
        For b = .7 To -.7 Step -.1
            Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
            Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
        Next b
    Next seconds
    For seconds = 45 To 60 Step 4
        s = (60 - seconds) * 6 + 180
        x = Int(Sin(s / 180 * 3.141592) * 60) + weeds
        y = Int(Cos(s / 180 * 3.141592) * 60) + 401
        For b = .7 To -.7 Step -.1
            Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
            Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
        Next b
    Next seconds
Next weeds
For weeds = 50 To 500 Step 100
    For seconds = 0 To 15 Step 2
        s = (60 - seconds) * 6 + 180
        x = Int(Sin(s / 180 * 3.141592) * 30) + weeds
        y = Int(Cos(s / 180 * 3.141592) * 30) + 401
        For b = .5 To -.5 Step -.1
            Line (weeds + b, 401)-(x + b, y), _RGB32(0, 255, 0)
            Line (weeds + b, 401)-(x + b, y), _RGB32(0, 255, 0)
        Next b
    Next seconds
    For seconds = 45 To 60 Step 2
        s = (60 - seconds) * 6 + 180
        x = Int(Sin(s / 180 * 3.141592) * 30) + weeds
        y = Int(Cos(s / 180 * 3.141592) * 30) + 401
        For b = .5 To -.5 Step -.1
            Line (weeds + b, 401)-(x + b, y), _RGB32(0, 255, 0)
            Line (weeds + b, 401)-(x + b, y), _RGB32(61, 255, 0)
        Next b
    Next seconds
Next weeds

weeds = 725

For seconds = 0 To 15 Step 4
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 60) + weeds
    y = Int(Cos(s / 180 * 3.141592) * 60) + 401
    For b = .7 To -.7 Step -.1
        Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
        Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
    Next b
Next seconds
For seconds = 45 To 60 Step 4
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 60) + weeds
    y = Int(Cos(s / 180 * 3.141592) * 60) + 401
    For b = .7 To -.7 Step -.1
        Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
        Line (weeds + b, 401)-(x + b, y), _RGB32(61, 216, 127)
    Next b
Next seconds

For seconds = 0 To 15 Step 2
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 30) + weeds
    y = Int(Cos(s / 180 * 3.141592) * 30) + 401
    For b = .5 To -.5 Step -.1
        Line (weeds + b, 401)-(x + b, y), _RGB32(0, 255, 0)
        Line (weeds + b, 401)-(x + b, y), _RGB32(0, 255, 0)
    Next b
Next seconds
For seconds = 45 To 60 Step 2
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 30) + weeds
    y = Int(Cos(s / 180 * 3.141592) * 30) + 401
    For b = .5 To -.5 Step -.1
        Line (weeds + b, 401)-(x + b, y), _RGB32(0, 255, 0)
        Line (weeds + b, 401)-(x + b, y), _RGB32(61, 255, 0)
    Next b
Next seconds



Line (0, 400)-(800, 400), _RGB32(255, 255, 255)
Line (600, 400)-(600, 100), _RGB32(255, 255, 255)
Line (600, 100)-(400, 100), _RGB32(255, 255, 255)
Line (400, 100)-(400, 180), _RGB32(255, 255, 255)

'a little beefier carpentry - from OldMoses
For beam% = 0 To 19
    If beam% Mod 2 = 0 Then c~& = &HFF964B00 Else c~& = &HFF7F7F7F
    Line (600 - beam%, 400)-(600 - beam%, 100 + beam%), c~& 'vertical post
    Line (600 - beam%, 100 + beam%)-(400 + beam, 100 + beam%), c~& 'horizontal post
Next beam%
Line (550, 400)-(630, 375), _RGB32(255, 255, 255), BF

randword:
word$ = words$(Int(Rnd * w) + 1)
l = Len(word$)
If l > 12 Or l < 2 Then GoTo randword:

For lines = 203 To 203 + ((l - 1) * 50) Step 50
    Line (lines - 5, 505)-(lines + 15, 475), _RGB32(255, 255, 255), BF
    Line (lines, 500)-(lines + 10, 500), _RGB32(0, 0, 0)
Next lines

Line (40, 440)-(160, 505), _RGB32(255, 255, 255), BF

For ll = 1 To l
    letter$(ll) = Mid$(word$, ll, 1)
    If Asc(letter$(ll)) < 97 Or Asc(letter$(ll)) > 122 Then GoTo start:
    letter2$(ll) = letter$(ll)
Next ll
letter = 0: oldletter = 0
mistake = 0: t = 1
Color _RGB32(0, 0, 0), _RGB32(255, 255, 255)
go:

g = 0
Do
    _Limit 20
    a$ = InKey$
    If a$ <> "" Then GoTo continue:
Loop

continue:
a$ = LCase$(a$)
If a$ = Chr$(27) Then End
t = t + 1
oldletter = letter
For ll = 1 To l
    If a$ = letter$(ll) Then
        If g < 1 Then letter$(ll) = ""
        g = 1
        letter = letter + 1
        _PrintString (205 + (ll - 1) * 50, 480), a$
        For snd = 200 To 700 Step 100
            Sound snd, .5
        Next snd
        If letter = l Then GoTo won:
    End If
Next ll


If oldletter <> letter Then GoTo go:

mistake = mistake + 1

'Head
If mistake = 1 Then
    For sz = .25 To 20 Step .25
        Circle (400, 200), sz, _RGB32(194, 127, 127)
    Next sz
    _PrintString (50, 450), a$
    Sound 200, .5
    Sound 600, .5
End If

'Body
If mistake = 2 Then
    Line (395, 220)-(405, 240), _RGB32(194, 127, 127), BF
    For sz = .25 To 40 Step .25
        Circle (400, 270), sz, _RGB32(61, 216, 127), , , 1.85
    Next sz
    _PrintString (75, 450), a$
    Sound 200, .5
    Sound 600, .5
End If

'Left Arm
If mistake = 3 Then
    seconds = 55
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 60) + 390
    y = Int(Cos(s / 180 * 3.141592) * 60) + 240
    For b = 5 To -5 Step -.1
        Line (390 + b, 240)-(x + b, y), _RGB32(61, 216, 127)
        Line (390 + b, 240)-(x + b, y), _RGB32(61, 216, 127)
    Next b
    For sz = .25 To 6.5 Step .25
        Circle (x + 1, y), sz, _RGB32(194, 127, 127), 2 * _Pi, _Pi
    Next sz
    _PrintString (100, 450), a$
    Sound 200, .5
    Sound 600, .5
End If

'Right Arm
If mistake = 4 Then
    seconds = 5
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 60) + 410
    y = Int(Cos(s / 180 * 3.141592) * 60) + 240
    For b = 5 To -5 Step -.1
        Line (410 + b, 240)-(x + b, y), _RGB32(61, 216, 127)
        Line (410 + b, 240)-(x + b, y), _RGB32(61, 216, 127)
    Next b
    For sz = .25 To 6.5 Step .25
        Circle (x - 1, y), sz, _RGB32(194, 127, 127), 2 * _Pi, _Pi
    Next sz
    _PrintString (125, 450), a$
    Sound 200, .5
    Sound 600, .5
End If

'Left Leg
If mistake = 5 Then
    seconds = 35
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 60) + 390
    y = Int(Cos(s / 180 * 3.141592) * 60) + 290
    For b = 5 To -5 Step -.1
        Line (390 + b, 290)-(x + b, y), _RGB32(61, 216, 127)
        Line (390 + b, 290)-(x + b, y), _RGB32(61, 216, 127)
    Next b
    For sz = .25 To 6.5 Step .25
        Circle (x + 1, y), sz, _RGB32(194, 127, 127), _Pi, 2 * _Pi
    Next sz
    _PrintString (150, 450), a$
    Sound 200, .5
    Sound 600, .5
End If

'Right Leg
If mistake = 6 Then
    seconds = 25
    s = (60 - seconds) * 6 + 180
    x = Int(Sin(s / 180 * 3.141592) * 60) + 410
    y = Int(Cos(s / 180 * 3.141592) * 60) + 290
    For b = 5 To -5 Step -.1
        Line (410 + b, 290)-(x + b, y), _RGB32(61, 216, 127)
        Line (410 + b, 290)-(x + b, y), _RGB32(61, 216, 127)
    Next b
    For sz = .25 To 6.5 Step .25
        Circle (x, y), sz, _RGB32(194, 127, 127), _Pi, 2 * _Pi
    Next sz
    _PrintString (50, 475), a$
    Sound 200, .5
    Sound 600, .5
End If

'Eyes
If mistake = 7 Then
    For sz = .25 To 3 Step .25
        Circle (390, 190), sz, _RGB32(255, 255, 255)
        Circle (410, 190), sz, _RGB32(255, 255, 255)
    Next sz
    For sz = .25 To 1.75 Step .25
        Circle (390, 190), sz, _RGB32(0, 161, 255)
        Circle (410, 190), sz, _RGB32(0, 161, 255)
    Next sz
    For sz = .25 To 1 Step .25
        Circle (390, 190), sz, _RGB32(0, 0, 0)
        Circle (410, 190), sz, _RGB32(0, 0, 0)
    Next sz
    _PrintString (75, 475), a$
    Sound 200, .5
    Sound 600, .5
End If

'Nose
If mistake = 8 Then
    For sz = .25 To 3 Step .25
        Circle (400, 200), sz, _RGB32(78)
    Next sz
    _PrintString (100, 475), a$
    Sound 200, .5
    Sound 600, .5
End If

'Mouth
If mistake = 9 Then
    For sz = .25 To 8 Step .25
        Circle (400, 212), sz, _RGB32(0, 0, 0), , , .5
    Next sz
    _PrintString (125, 475), a$
    For snd = 700 To 100 Step -50
        Sound snd, .5
    Next snd
    For ll = 1 To l
        _PrintString (205 + (ll - 1) * 50, 480), letter2$(ll)
    Next ll
    _PrintString (305, 415), " You Lose "
    Locate 29, 38: Input " Again (Y/N) "; ag$
    If Mid$(ag$, 1, 1) = "y" Or Mid$(ag$, 1, 1) = "Y" Then
        GoTo start:
    End If
    End
End If
GoTo go:

won:
_PrintString (305, 415), " You Win! "
For s = 1 To 2
    For snd = 100 To 800 Step 100
        Sound snd, .5
    Next snd
Next s
Locate 29, 38: Input " Again (Y/N) "; ag$
If Mid$(ag$, 1, 1) = "y" Or Mid$(ag$, 1, 1) = "Y" Then
    GoTo start:
End If
End

'Almost all of the following words were found here: https://www.ef.edu/english-resources/english-vocabulary/top-1000-words/
ManyWords:
Data ability,able,about,above,accept,according,account,across,act,action
Data activity,actually,add,address,administration,admit,adult,affect,after,again
Data against,age,agency,agent,ago,agree,agreement,ahead,air,all
Data allow,almost,alone,along,already,also,although,always,among,amount
Data analysis,and,animal,another,answer,any,anyone,anything,appear,apply
Data approach,area,argue,arm,around,arrive,art,article,artist,as
Data ask,assume,at,attack,attention,attorney,audience,author,authority,available
Data avoid,away,baby,back,bad,bag,ball,bank,bar,base
Data be,bear,beat,beautiful,because,become,bed,before,begin,behavior
Data behind,believe,benefit,best,better,between,beyond,big,bill,billion
Data bit,black,blood,blue,board,body,book,born,both,box
Data boy,break,bring,brother,budget,build,building,business,but,buy
Data by,call,camera,campaign,can,cancer,candidate,capital,car,card
Data care,career,carry,case,cat,catch,cause,cell,center,central
Data century,certain,certainly,chair,challenge,chance,change,character,charge,check
Data child,choice,choose,church,citizen,city,civil,claim,class,clear
Data clearly,close,coach,cold,collection,college,color,come,commercial,common
Data community,company,compare,computer,concern,condition,conference,consider,consumer,contain
Data continue,control,cost,could,country,couple,course,court,cover,cow
Data create,crime,cultural,culture,cup,current,customer,cut,dark,data
Data daughter,day,dead,deal,death,debate,decade,decide,decision,deep
Data defense,degree,democratic,describe,design,despite,detail,determine,develop,development
Data die,difference,different,difficult,dinner,dinosaur,direction,director,discover,discuss
Data discussion,disease,do,doctor,dog,door,down,draw,dream,drive
Data drop,drug,during,each,early,east,easy,eat,economic,economy
Data edge,education,effect,effort,eight,either,election,elephant,else,employee
Data end,energy,enjoy,enough,enter,entire,environment,especially,establish,even
Data evening,event,ever,every,everybody,everyone,everything,evidence,exactly,example
Data executive,exist,expect,experience,expert,explain,eye,face,fact,factor
Data fail,fall,family,far,fast,father,fear,federal,feel,feeling
Data few,field,fight,figure,fill,film,final,finally,financial,find
Data fine,finger,finish,fire,firm,first,fish,five,floor,fly
Data focus,follow,food,foot,for,force,foreign,forget,form,former
Data forward,four,free,friend,from,front,full,fund,future,game
Data garden,gas,general,generation,get,girl,give,glass,go,goal
Data good,government,great,green,ground,group,grow,growth,guess,gun
Data guy,hair,half,hand,hang,happen,happy,hard,have,he
Data head,health,hear,heart,heat,heavy,help,her,here,herself
Data high,him,himself,his,history,hit,hold,home,hope,horse
Data hospital,hot,hotel,hour,house,how,however,huge,human,hundred
Data husband,idea,identify,if,image,imagine,impact,important,improve,in
Data include,including,increase,indeed,indicate,individual,industry,information,inside,instead
Data institution,interest,interesting,interview,into,investment,involve,issue,it,item
Data its,itself,job,join,just,keep,key,kid,kill,kind
Data kitchen,know,knowledge,land,language,large,last,late,later,laugh
Data law,lawyer,lay,lead,leader,learn,least,leave,left,leg
Data legal,less,let,letter,level,lie,life,light,like,likely
Data line,list,listen,little,live,local,long,look,lose,loss
Data lot,love,low,machine,magazine,main,maintain,major,majority,make
Data man,manage,management,manager,many,market,marriage,material,matter,may
Data maybe,me,mean,measure,meat,media,medical,meet,meeting,member
Data memory,mention,message,method,middle,might,military,million,mind,minute
Data miss,mission,model,modern,moment,money,month,more,morning,most
Data mother,mouth,move,movement,movie,much,music,must,my,myself
Data name,nation,national,natural,nature,near,nearly,necessary,need,network
Data never,new,news,newspaper,next,nice,night,no,none,nor
Data north,not,note,nothing,notice,now,number,occur,of,off
Data offer,office,officer,official,often,oh,oil,ok,old,on
Data once,one,only,onto,open,operation,opportunity,option,or,order
Data organization,other,others,our,out,outside,over,own,owner,page
Data pain,painting,paper,parent,part,participant,particular,particularly,partner,party
Data pass,past,patient,pattern,pay,peace,people,per,perform,performance
Data perhaps,period,person,personal,phone,physical,pick,picture,piece,pig
Data place,plan,plant,play,player,plot,point,police,policy,political
Data politics,poor,popular,population,position,positive,possible,power,practice,prepare
Data present,president,pressure,pretty,prevent,price,private,probably,problem,process
Data produce,product,production,professional,professor,program,project,property,protect,prove
Data provide,public,pull,purpose,push,put,quality,question,quickly,quite
Data race,radio,raise,range,rate,rather,reach,read,ready,real
Data reality,realize,really,reason,receive,recent,recently,recognize,record,red
Data reduce,reflect,region,relate,relationship,religious,remain,remember,remove,report
Data represent,require,research,resource,respond,response,rest,result,return,reveal
Data rich,right,rise,risk,road,rock,role,room,rule,run
Data safe,same,save,say,scene,school,science,scientist,score,sea
Data season,seat,second,section,security,see,seek,seem,sell,send
Data senior,sense,series,serious,serve,service,set,seven,several,sex
Data sexual,shake,share,she,shoot,short,shot,should,shoulder,show
Data side,sign,significant,similar,simple,simply,since,sing,single,sister
Data sit,site,situation,six,size,skill,skin,small,smile,so
Data social,society,soldier,some,somebody,someone,something,sometimes,son,song
Data soon,sort,sound,source,south,southern,space,speak,special,specific
Data speech,spend,sport,spring,staff,stage,stand,standard,star,start
Data state,statement,station,stay,step,still,stock,stop,store,story
Data strategy,street,strong,structure,student,study,stuff,style,subject,success
Data successful,such,suddenly,suffer,suggest,summer,support,sure,surface,system
Data table,take,talk,task,tax,teach,teacher,team,technology,telephone
Data television,tell,ten,tend,term,test,than,thank,that,the
Data their,them,themselves,then,theory,there,these,they,thing,think
Data third,this,those,though,thought,thousand,threat,three,through,throughout
Data throw,thus,time,to,today,together,tonight,too,top,total
Data tough,toward,town,trade,traditional,training,travel,treat,treatment,tree
Data trial,trip,trouble,truck,true,truth,try,turn,two,type
Data under,understand,unit,until,up,upon,us,use,usually,value
Data various,very,victim,view,violence,visit,voice,vote,wait,walk
Data wall,want,war,watch,water,way,we,weapon,wear,week
Data weight,well,west,western,what,whatever,when,where,whether,which
Data while,white,who,whole,whom,whose,why,wide,wife,will
Data win,wind,window,wish,with,within,without,woman,wonder,word
Data work,worker,world,worry,would,write,writer,wrong,xylophone,yard
Data yeah,year,yes,yet,you,young,your,yourself,zebra,zoo,monotonous