Image does not exist..problem

Hello, I have an option in my game to change between full screen and windowed. When I make the change I redeclare all my graphics in a function. When the program reenters the main loop I get a image does not exist error.

Also, would you guys happen to know where can I find a free ide for blitz3d?

Whenever you change graphics mode, everything is flushed ... textures, meshes, etc. You need to reload them all whenever you use the "graphics" command.

It sounds like you are, but you apparently are not. :)

Maybe your loading the images into local variables in the function, and they are lost when they come to be used in the main program.

I have all of my images as globals. I have RedeclareImages() function and Freeimages(). It seems like sometimes it works and some times it dosent. starting to believe it may be a Blitz bug. What do you think??

Do you have any code, you could show?

I'm starting to believe your RedeclareImages function isn't right. Nothing personal, I've just never had any problem like this. As Ross asked, it would be really useful if you could post some code demonstrating your problem. You don't need to post the actual images; we can swap in our own image files. Just the minimum code which demonstrates the problem.

code:
a
code:

[code]
print hello
[\code]

.start : print "hello" : goto start

how do i post code

AppTitle("Prime Word")
SeedRnd(MilliSecs())
Global AppPath$ = CurrentDir$()
Global MasterList$ = AppPath$ + "wordlist\sevenless.txt"
Global SubsLoc$ = AppPath$ + "subs.txt"
Global TotalWords% = 0
Global SevenLetterWords% = 0
Global dll$ = "blitzcpu.dll"
GetWordSum()
.startover1
Color 0, 0, 0

Global test9 = 0

Global loo% = 0

Dim Letter1$(7)
Dim lines$(SevenLetterWords%)
Dim AllWords$(TotalWords%)
Dim SubWords$(53)
Dim TempLetter3$(7)
Dim FlagScrambled$(8)
Dim ScanRackLetters$(7)
Dim ScanRackLetters1$(7)
Dim SevenLetterWordSubs%(SevenLetterWords%)
Dim GivenWord$(7)
Dim Con$(26)
Dim Vow$(5)
;----------------------------------------------------------------------------------------------------
Con$(0) = "b"
Con$(1) = "c"
Con$(2) = "d"
Con$(3) = "f"
Con$(4) = "g"
Con$(5) = "h"
Con$(6) = "j"
Con$(7) = "k"
Con$(8) = "l"
Con$(9) = "m"
Con$(10) = "n"
Con$(11) = "p"
Con$(12) = "q"
Con$(13) = "r"
Con$(14) = "s"
Con$(15) = "t"
Con$(16) = "v"
Con$(17) = "w"
Con$(18) = "x"
Con$(19) = "y"
Con$(20) = "z"

Vow$(0) = "a"
Vow$(1) = "e"
Vow$(2) = "i"
Vow$(3) = "o"
Vow$(4) = "u"
;-----------------------------------------------------------------------------------------
Dim temp9$(7)
Dim ScratchPad$(7)
Dim ScrambleScratchOld$(7)
Dim ScrambleScratchNew$(7)

Global BackSpace$ = "backspace"
Global Delete1$ = "delete"
Global Enter$ = "enter"

Global SubmitImageX% = 87
Global SubmitImageY% = 34
Global RewordItImageX% = 87
Global RewordItImageY% = 34
Global QuitButtonImageX% = 87
Global QuitButtonImageY% = 34
Global TackBackButtonImageX% = 87
Global TackBackButtonImageY% = 34
Global IntroSingleImageX% = 248
Global IntroSingleImageY% = 56
;----------Begin Conversation---------------------------------------------------------------
Global ConvTimer% = 0
Global ConvUp$ = False

Global ThreeConvUsed$ = False
Global FourConvUsed$ = False
Global FiveConvUsed$ = False
Global SixConvUsed$ = False
Global SevenConvUsed$ = False

Global HowManyConvSent3% = 0
Global HowManyConvSent4% = 0
Global HowManyConvSent5% = 0
Global HowManyConvSent6% = 0
Global HowManyConvSent7% = 0

Global ThreeShowConv$ = False
Global FourShowConv$ = False
Global FiveShowConv$ = False
Global SixShowConv$ = False
Global SevenShowConv$ = False

Global ShowConvTimer3% = 0
Global ShowConvTimer4% = 0
Global ShowConvTimer5% = 0
Global ShowConvTimer6% = 0
Global ShowConvTimer7% = 0

Global ThreeConvSent$ = ""
Global FourConvSent$ = ""
Global FiveConvSent$ = ""
Global SixConvSent$ = ""
Global SevenConvSent$ = ""

Global CompIntroTimer% = 0
Global LastTalkedTimer% = 0
Global ANice$ = False
Global ChatTimer% = 0
Global HowManyChat% = 0
Global ChatKeepUp$ = False
Global CompSay$ = ""
Global KeepUpTimer% = 0
;----------------End Conversation------------------------------------------------------------

Global HowManyThree% = 0
Global HowManyFour% = 0
Global HowManyFive% = 0
Global HowManySix% = 0
Global HowManySeven% = 0

Global Score = 0
Global ScoreTwo = 0
Global ScoreThree = 35
Global ScoreFour = 125
Global ScoreFive = 400
Global ScoreSix = 820
Global ScoreSeven = 1500

Global CompScore = 0
Global CompScoreTwo = 0
Global CompScoreThree = 35
Global CompScoreFour = 125
Global CompScoreFive = 400
Global CompScoreSix = 820
Global CompScoreSeven = 1500

Global SubWord$ = ""
Global count# = 0
Global count1% = 0
Global temp2$
Global Match$ = True
Global Mx = 0
Global My =0
Global HowManyMatches% = 0
Global space% = 70
Global SubLetter$
Global Hit% = 0
Global Hit1% = 0
Global ClickedY% = 165
Global NotClickedY% = 265
Global LetterSizeX% = 65
Global LetterSizeY% = 65
Global MoveX% = 120
Global CompTurn$ = False
Global YourTurn = True
Global CompLetterCount% = 0
Global CompWord$ = ""
Global HowManyCompWords% = 0
Global Turn = False
Global Round% = 1
Global Play% = 1
Global level% = 1
Global GameWait = False
Global ReturnTimer% = 0
Global DelayTimer% = 2000
Global ReturnPressed = False
Global DisableRack$ = False
Global AnimateScore$ = False
Global AnimDY% = 2
Global RevealWords$ = False
Global FPSTimer% = 15
Global Animating1$ = False
Global InRound% = 0
Global BelowTimer% = 0
Global pause = False
Global DisplayAllReadyGuessedBox = False
Global DisplayNotInListBox = False
Global ScrambledOldMain$ = ""
Global DisplayCompIntroUp$ = True
Global MousePosX% = 0
Global MousePosY% = 0
Global PutUpConvAll = False
Global CompSayAll$ = ""
Global CPU% = 0
Global InRoundChange$ = False
Global ScreenOptionsChange$ = False

Global MainMusic$ = True
Global MainSound$ = True
Global MainScreen$ = True

Dim SentCoachRound$(10)
Dim SentOppRound$(10)

Global RoundDone$ = True

Global PlayerWins% = 0
Global CompWins% = 0

Global FirstR% = Rnd(255)
Global FirstG% = Rnd(255)
Global FirstB% = Rnd(255)
Global SecondR% = Rnd(255)
Global SecondG% = Rnd(255)
Global SecondB% = Rnd(255)
Global ThirdR% = Rnd(255)
Global ThirdG% = Rnd(255)
Global ThirdB% = Rnd(255)
Global FourthR% = Rnd(255)
Global FourthG% = Rnd(255)
Global FourthB% = Rnd(255)
Global FifthR% = Rnd(255)
Global FifthG% = Rnd(255)
Global FiftthB% = Rnd(255)
Global SixthR% = Rnd(255)
Global SixthG% = Rnd(255)
Global SixthB% = Rnd(255)
Global SeventhR% = Rnd(255)
Global SeventhG% = Rnd(255)
Global SeventhB% = Rnd(255)

Global FirstR1% = Rnd(255)
Global FirstG1% = Rnd(255)
Global FirstB1% = Rnd(255)
Global SecondR1% = Rnd(255)
Global SecondG1% = Rnd(255)
Global SecondB1% = Rnd(255)
Global ThirdR1% = Rnd(255)
Global ThirdG1% = Rnd(255)
Global ThirdB1% = Rnd(255)
Global FourthR1% = Rnd(255)
Global FourthG1% = Rnd(255)
Global FourthB1% = Rnd(255)
Global FifthR1% = Rnd(255)
Global FifthG1% = Rnd(255)
Global FiftthB1% = Rnd(255)
Global SixthR1% = Rnd(255)
Global SixthG1% = Rnd(255)
Global SixthB1% = Rnd(255)
Global SeventhR1% = Rnd(255)
Global SeventhG1% = Rnd(255)
Global SeventhB1% = Rnd(255)


Global GotAllThree$ = False
Global GotAllFour$ = False
Global GotAllFive$ = False
Global GotAllSix$ = False
Global GotAllSeven$ = False

Global CompGotAllThree$ = False
Global CompGotAllFour$ = False
Global CompGotAllFive$ = False
Global CompGotAllSix$ = False
Global CompGotAllSeven$ = False

Global AllThreeBonus% = 1200
Global AllFourBonus% = 3000
Global AllFiveBonus% = 5000
Global AllSixBonus% = 7500
Global AllSevenBonus% = 10000

Global CompAllThreeBonus% = 1200
Global CompAllFourBonus% = 3000
Global CompAllFiveBonus% = 5000
Global CompAllSixBonus% = 7500
Global CompAllSevenBonus% = 10000

Global FirstClickedPos% = 0
Global SecondClickedPos% = 0
Global ThirdClickedPos% = 0
Global FourthClickedPos% = 0
Global FifthClickedPos% = 0
Global SixthClickedPos% = 0
Global SeventhClickedPos% = 0

Global FirstImagePos% = 1
Global secondImagePos% = 1
Global ThirdImagePos% = 1
Global FourthImagePos% = 1
Global FifthImagePos% = 1
Global sixthImagePos% = 1
Global SeventhImagePos% = 1

Global FirstAvailable = True
Global SecondAvailable = True
Global ThirdAvailable = True
Global FourthAvailable = True
Global FifthAvailable = True
Global SixthAvailable = True
Global SeventhAvailable = True

Global FirstImageClicked = False
Global SecondImageClicked = False
Global ThirdImageClicked = False
Global FourthImageClicked = False
Global FifthImageClicked = False
Global SixthImageClicked = False
Global SeventhImageClicked = False

Type ThreeL
Field Word$
Field guessed$
End Type
Type FourL
Field Word$
Field guessed$
End Type
Type FiveL
Field Word$
Field guessed$
End Type
Type SixL
Field Word$
Field guessed$
End Type
Type SevenL
Field Word$
Field guessed$
End Type

Type CompThreeL
Field Word$
Field guessed$
End Type
Type CompFourL
Field Word$
Field guessed$
End Type
Type CompFiveL
Field Word$
Field guessed$
End Type
Type CompSixL
Field Word$
Field guessed$
End Type
Type CompSevenL
Field Word$
Field guessed$
End Type

;-----------------------------------------------------------------------------------------------
Type CompWordsThee
Field Word$
End Type
;------------------------------------------------------------------------------------------------

Type Con
Field Letter$
End Type
Type ConCombo
Field Letters$
End Type
Type ConComboEnd
Field Letters$
End Type
Type Vow
Field Letter$
End Type
Type VowCombo
Field Letters$
End Type
Type CompWords
Field Word$
End Type
Type adde
Field Letters$
End Type
Type adds
Field Letters$
End Type

Type Buffer
Field Word$
End Type

Type ThreeConv
Field Sent$
End Type
Type FourConv
Field Sent$
End Type
Type FiveConv
Field Sent$
End Type
Type SixConv
Field Sent$
End Type
Type SevenConv
Field Sent$
End Type



Type ThreeAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type FourAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type FiveAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type SixAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type SevenAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type
;--------------------------------------------------------------------------------------

Type CompThreeAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type CompFourAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type CompFiveAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type CompSixAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type CompSevenAnimScore
Field Score%
Field Xpos%
Field Ypos#
End Type

Type chat
Field Talk$
End Type


For gh = 1 To 7
GivenWord$(gh) = "0"
Next

For df = 1 To 7
FlagScrambled$(df) = "1"
Next

For cc = 1 To 7
ScanRackLetters$(cc) = "0"
Next

For cp = 1 To 7
ScanRackLetters1$(cp) = "0"
Next


intro()

Global bcon$ = AppPath$ + "Game\bcon.txt"
Global econ$ = AppPath$ + "game\econ.txt"
Global midvow$ = AppPath$ + "game\midvow.txt"
Global adde$ = AppPath$ + "game\adde.txt"
Global adds$ = AppPath$ + "game\adds.txt"

Global DicBackGround = LoadImage(AppPath$ + "data1\LoadingDic.png")
Global WordsBackGround = LoadImage(AppPath$ + "data1\LoadingWords.png")
Global SubsBackGround = LoadImage(AppPath$ + "data1\LoadingSubs.png")

Global WrongWord = LoadSound(AppPath$ + "sounds\WrongWord.wav")
Global GoodWord = LoadSound(AppPath$ + "sounds\GoodWord.mp3")
Global Ticks = LoadSound(AppPath$ + "sounds\ticks.wav")
Global TimeOut = LoadSound(AppPath$ + "sounds\timeout.wav")

Global Startbutton = LoadImage(AppPath$ + "data1\start.png")
Global StartButtonClick = LoadImage(AppPath$ + "data1\startclick.png")
Global Mouse3 = LoadImage(AppPath$ + "data1\mouse.bmp")

Global Arrow
Global BackGround

Global Submit_Click
Global SubmitDisable

Global RewordIt_Click
Global ReworditDisable

Global TackBackButtonClick
Global TackBackButtonDisable

Global TurnTransitionFont

Global A
Global B
Global C
Global D
Global E
Global F
Global G
Global H
Global I
Global J
Global K
Global L
Global M
Global N
Global O
Global P
Global Q
Global R
Global S
Global T
Global U
Global V
Global W
Global X
Global Y
Global Z

Global num0
Global num1
Global num2
Global num3
Global num4
Global num5
Global num6
Global num7
Global num8
Global num9

Global compnum0
Global compnum1
Global compnum2
Global compnum3
Global compnum4
Global compnum5
Global compnum6
Global compnum7
Global compnum8
Global compnum9

Global Clock0
Global Clock1
Global Clock2
Global Clock3
Global Clock4
Global Clock5
Global Clock6
Global Clock7
Global Clock8
Global Clock9
;------------------------------------------------------------------------------------------------
Global pop1 = LoadSound(AppPath + "Game\Conv\1\pop.wav")
Global AllSeven = LoadSound(AppPath + "Sounds\allseven.wav")
Global Scramble = LoadSound(AppPath + "sounds\scramble.mp3")
Global chan1

Global FirstLetter
Global SecondLetter
Global ThirdLetter
Global FourthLetter
Global FifthLetter
Global SixthLetter
Global SeventhLetter
;------------------------------------------------------------------------------------------------
start% = MilliSecs()
GameStart% = MilliSecs()
SimTimer% = 0
frames% = 0
lframes% = 0

fileIn = ReadFile(MasterList$)

Global DicHeight% = 70
Global DicBox_x% = 80
Global DicBox_y% = 500

ConvTimer% = MilliSecs()
Global AnimTimer% = 0

While Not Eof(filein)
Local value# = 1
temp2$ = ReadLine(filein)

AllWords$(count#) = temp2$
count# = count# + 1.0

If count# Mod 1500 = 0 Then
Cls
value# = count#/51340.0
DrawImage DicBackGround, 0, 0
Color 105, 5, 5
Rect DicBox_x%, DicBox_y%, 647, DicHeight%, 1
Color 255, 255, 0
Rect DicBox_x%, DicBox_y%, (count#/51340) * 650, DicHeight%, 1
Flip
EndIf
If Len(temp2$) = 7 Then
lines$(count1%) = temp2$
count1% = count1% + 1
EndIf
Color 0, 0, 0

Wend
FreeImage DicBackGround
CloseFile(fileIn)

filein = ReadFile(SubsLoc$)
WordsValue# = 1

For hh# = 0 To SevenLetterWords% - 1
SevenLetterWordSubs%(hh) = ReadLine(filein)
If hh# Mod 1500 = 0 Then
Cls
DrawImage WordsBackGround, 0, 0
Color 105, 5, 5
Rect DicBox_x%, DicBox_y%, 647, DicHeight%, 1
Color 255, 255, 0
Rect DicBox_x%, DicBox_y%, (hh#/SevenLetterWords%) * 650, DicHeight%, 1
Flip
EndIf
Color 0, 0, 0
Next

FreeImage WordsBackGround

CloseFile(filein)

MaskImage mouse3, 255, 0, 0


Global wordToGuess$ = GetWord$()
Global TempWord$ = WordToGuess$
Global ScrambledWord$ = ScrambleLetters$()
GetSubWords()
BattleScreen(1)
LoadParts()
LoadWords()
LoadConv()
s()
Global GameTimer% = 10

ChatTimer% = MilliSecs()
CompIntroTimer% = MilliSecs()
LoadChat(1)
LoadLetters()
Global ChatTime% = GetChatTime%(level%)
Global Fast = CreateTimer(50)
Global med = CreateTimer(15)
Global Slow = CreateTimer(7)
Global millis% = 0


EraseLevelGraphics(1)
LoadLevelGraphics(1)
Repeat
Cls
CheckMouseCollisions()
If ScreenOptionsChange$ = True Then
EraseLevelGraphics(level%)
LoadLevelGraphics(level%)
ScreenOptionsChange$ = False
EndIf

DrawBlock BackGround, 0, 0
millis% = MilliSecs()
MousePosX% = MouseX()
MousePosY% = MouseY()

If (start% + 1000) <= Millis% Then
start% = millis%
lframes% = frames%
frames% = 0

Color 255, 255, 255
CPU% = CPUUsage()
Color 0, 0, 0

CalcTick()
EndIf

If ChatKeepUp$ = True Then Text 110, 5, CompSay$

If PutUpConvAll = True Then Text 110, 5, CompSayAll$

If CompTurn$ = True
If pause = False Then
If (SimTimer% + 200) <= millis% Then
CompMove()
SimTimer% = millis%
EndIf
EndIf
EndIf

CheckKeyStrokes()
PrintTimer()
DrawImages()
DrawCircles()
DrawLetters()
PrintResults()

PrintScore()
CompPrintScore()
CompPrintResults()
Color 0,0,0
Text 380, 476, GameTimer%
Text 650, 550, lframes%
Text 150, 550, WordToGuess$
Text 350, 550, CompWord$
Text 600, 380, MousePosX%
Text 600, 390, MousePosY%
Text 600, 410, ChatTime%
Text 430, 550, CPU%
Text 430, 570, AvailVidMem() / 1024.0 / 1024.0 + " MB"
Text 390, 5, "out"

frames% = frames% + 1

If Animating1$ = False Then
If MainScreen$ = True Then
WaitTimer(slow)
Else
WaitTimer(fast)
If CompTurn$ = False Then
CheckAnimateScore()
Else
CompCheckAnimateScore()
EndIf
EndIf
Else
WaitTimer(fast)
If CompTurn$ = False Then
CheckAnimateScore()
Else
CompCheckAnimateScore()
EndIf
EndIf

If KeyHit(1) Then
startover()
Goto startover1
EndIf

If MainScreen$ = True Then
Flip False
Else
DrawImage mouse3, MousePosX%, MousePosY%
Flip
EndIf
Forever

Function LoadLevelGraphics(value%)
BackGround = LoadImage(AppPath$ + "BackTemp.png")
Submit_Click = LoadImage(AppPath$ + "data1\submit_click.png")
SubmitDisable = LoadImage(AppPath$ + "data1\submitdisable.png")
RewordIt_Click = LoadImage(AppPath$ + "data1\Rewordit_Click.png")
ReworditDisable = LoadImage(AppPath$ + "data1\ReworditDisable.png")
TackBackButtonClick = LoadImage(AppPath$ + "data1\TakeBackButtonClick.png")
TackBackButtonDisable = LoadImage(AppPath$ + "data1\TakeBackButtonDisable.png")
Arrow = LoadImage(AppPath$ + "data1\arrow.png"):MaskImage arrow, 0, 0, 0
Startbutton = LoadImage(AppPath$ + "data1\start.png")
StartButtonClick = LoadImage(AppPath$ + "data1\startclick.png")

num0 = LoadImage(AppPath$ + "data1\num0.png")
num1 = LoadImage(AppPath$ + "data1\num1.png")
num2 = LoadImage(AppPath$ + "data1\num2.png")
num3 = LoadImage(AppPath$ + "data1\num3.png")
num4 = LoadImage(AppPath$ + "data1\num4.png")
num5 = LoadImage(AppPath$ + "data1\num5.png")
num6 = LoadImage(AppPath$ + "data1\num6.png")
num7 = LoadImage(AppPath$ + "data1\num7.png")
num8 = LoadImage(AppPath$ + "data1\num8.png")
num9 = LoadImage(AppPath$ + "data1\num9.png")

CompNum0 = LoadImage(AppPath$ + "data1\CompNum0.png"):MaskImage CompNum0, 0, 0, 0
CompNum1 = LoadImage(AppPath$ + "data1\CompNum1.png"):MaskImage CompNum1, 0, 0, 0
CompNum2 = LoadImage(AppPath$ + "data1\CompNum2.png"):MaskImage CompNum2, 0, 0, 0
CompNum3 = LoadImage(AppPath$ + "data1\CompNum3.png"):MaskImage CompNum3, 0, 0, 0
CompNum4 = LoadImage(AppPath$ + "data1\CompNum4.png"):MaskImage CompNum4, 0, 0, 0
CompNum5 = LoadImage(AppPath$ + "data1\CompNum5.png"):MaskImage CompNum5, 0, 0, 0
CompNum6 = LoadImage(AppPath$ + "data1\CompNum6.png"):MaskImage CompNum6, 0, 0, 0
CompNum7 = LoadImage(AppPath$ + "data1\CompNum7.png"):MaskImage CompNum7, 0, 0, 0
CompNum8 = LoadImage(AppPath$ + "data1\CompNum8.png"):MaskImage CompNum8, 0, 0, 0
CompNum9 = LoadImage(AppPath$ + "data1\CompNum9.png"):MaskImage CompNum9, 0, 0, 0

Clock0 = LoadImage(AppPath$ + "data1\Clock0.png"):MaskImage Clock0, 0, 0, 0
Clock1 = LoadImage(AppPath$ + "data1\Clock1.png"):MaskImage Clock1, 0, 0, 0
Clock2 = LoadImage(AppPath$ + "data1\Clock2.png"):MaskImage Clock2, 0, 0, 0
Clock3 = LoadImage(AppPath$ + "data1\Clock3.png"):MaskImage Clock3, 0, 0, 0
Clock4 = LoadImage(AppPath$ + "data1\Clock4.png"):MaskImage Clock4, 0, 0, 0
Clock5 = LoadImage(AppPath$ + "data1\Clock5.png"):MaskImage Clock5, 0, 0, 0
Clock6 = LoadImage(AppPath$ + "data1\Clock6.png"):MaskImage Clock6, 0, 0, 0
Clock7 = LoadImage(AppPath$ + "data1\Clock7.png"):MaskImage Clock7, 0, 0, 0
Clock8 = LoadImage(AppPath$ + "data1\Clock8.png"):MaskImage Clock8, 0, 0, 0
Clock9 = LoadImage(AppPath$ + "data1\Clock9.png"):MaskImage Clock9, 0, 0, 0

If mainscreen = False Then
Mouse3 = LoadImage(AppPath$ + "data1\mouse.bmp"):MaskImage mouse3, 255, 0, 0
Else
FreeImage Mouse3
EndIf
End Function

Function EraseLevelGraphics(value%)
FreeImage BackGround
FreeImage Submit_Click
FreeImage SubmitDisable
FreeImage RewordIt_Click
FreeImage ReworditDisable
FreeImage TackBackButtonClick
FreeImage TackBackButtonDisable
FreeImage Arrow
FreeImage mouse3
FreeImage Startbutton
FreeImage StartButtonClick

FreeImage num0
FreeImage num1
FreeImage num2
FreeImage num3
FreeImage num4
FreeImage num5
FreeImage num6
FreeImage num7
FreeImage num8
FreeImage num9

FreeImage CompNum0
FreeImage CompNum1
FreeImage CompNum2
FreeImage CompNum3
FreeImage CompNum4
FreeImage CompNum5
FreeImage CompNum6
FreeImage CompNum7
FreeImage CompNum8
FreeImage CompNum9

FreeImage Clock0
FreeImage Clock1
FreeImage Clock2
FreeImage Clock3
FreeImage Clock4
FreeImage Clock5
FreeImage Clock6
FreeImage Clock7
FreeImage Clock8
FreeImage Clock9

End Function

Function freeSoundandMusic(level%)
If value% = 1 Then
FreeSound WrongWord
FreeSound GoodWord
FreeSound Ticks
FreeSound TimeOut
FreeSound pop1
FreeImage AllSeven
FreeImage Scramble
EndIf
End Function

Function LoadSoundandMusic(level%)
If value% = 1 Then
WrongWord = LoadSound(AppPath$ + "sounds\WrongWord.wav")
GoodWord = LoadSound(AppPath$ + "sounds\GoodWord.mp3")
Ticks = LoadSound(AppPath$ + "sounds\ticks.wav")
TimeOut = LoadSound(AppPath$ + "sounds\timeout.wav")
pop1 = LoadSound(AppPath + "Game\Conv\1\pop.wav")
AllSeven = LoadSound(AppPath + "Sounds\allseven.wav")
Scramble = LoadSound(AppPath + "sounds\scramble.mp3")
EndIf
End Function

Function StartOver()
StopSound(level%)

FreeImage BackGround
FreeImage DicBackGround
FreeImage WordsBackGround
FreeImage SubsBackGround

FreeImage Opp1
FreeImage Opp2



FreeImage ScoreImage
FreeImage TimeImage
FreeImage RoundImage
FreeImage Person1
FreeImage TopBorder
FreeImage RightBorder
FreeImage BottomBorder
FreeImage LeftBorder
FreeImage PlayerBorder
FreeImage OtherBorder
FreeImage StartButton
FreeImage StartButtonClick

FreeImage Submit
FreeImage Submit_Click
FreeImage SubmitDisable
FreeImage RewordIt
FreeImage RewordIt_Click
FreeImage ReworditDisable
FreeImage QuitButton
FreeImage QuitButtonClick
FreeImage QuitButtonDisable
FreeImage TackBackButton
FreeImage TackBackButtonClick
FreeImage TackBackButtonDisable
FreeImage WordBox


FreeImage A
FreeImage B
FreeImage C
FreeImage D
FreeImage E
FreeImage F
FreeImage G
FreeImage H
FreeImage I
FreeImage J
FreeImage K
FreeImage L
FreeImage M
FreeImage N
FreeImage O
FreeImage P
FreeImage Q
FreeImage R
FreeImage S
FreeImage T
FreeImage U
FreeImage V
FreeImage W
FreeImage X
FreeImage Y
FreeImage Z

FreeImage FirstLetter
FreeImage SecondLetter
FreeImage ThirdLetter
FreeImage FourthLetter
FreeImage FifthLetter
FreeImage SixthLetter
FreeImage SeventhLetter

FreeImage Startbutton
FreeImage StartButtonClick
FreeImage Mouse3

FreeSound BackGround
FreeSound SubmitDisable
FreeSound pop1
FreeSound AllSeven
FreeSound GoodWord
FreeSound WrongWord
FreeSound Ticks
FreeSound TimeOut
FreeSound Scramble

;------------------------------------------------------------------------------------------------
FreeSound chan1

End Function

Function CalcTick()
If CompTurn$ = False Then
If GameWait = False And pause = False Then
If (GameStart% + 1000) <= millis% Then
GameTimer% = GameTimer% - 1
GameStart% = millis%
If GameTimer% <= 0 Then
TurnTransitionFont = LoadImage(AppPath$ + "data1\Compturn.png")
StopSound(level%)
If MainSound$ = True PlaySound TimeOut
freeSoundandMusic(level%)
Round% = Round% + 1
NextTurn()
GameWait = True
GameTimer% = 10
CompTurn = True
YourTurn = False
CompLetterCount% = 0
CompWord$ = ""
CompLetterCount% = 0
BelowTimer% = 0
ChatKeepUp$ = False
PutUpConvAll = False

EndIf
EndIf
EndIf

If (ChatTimer% + ChatTime%) <= millis% Then
If GameWait = False And ConvUp$ = False And CompTurn = False And pause = False Then
ChatKeepUp$ = True
ChatTimer% = millis% + 1
CompSay$ = GetRegularChat$()
KeepUpTimer% = millis%
ChatTime% = GetChatTime%(level%)
End If
EndIf

If ChatKeepUp$ = True Then
If GameWait = False And ConvUp$ = False And CompTurn = False And GameTimer >= 15 And pause = False Then
If (KeepUpTimer% + 15000) >= millis% Then
ChatKeepUp$ = True
Else
ChatKeepUp$ = False
EndIf
EndIf
Else
ChatKeepUp$ = False
EndIf

If (CompIntroTimer% + 9000) >= millis% Then
If ChatKeepUp$ = False And ConvUp$ = False And (pause = False And DisplayCompIntroUp$ = True) Then
DisplayCompIntroUp$ = True
Else
DisplayCompIntroUp$ = False
EndIf
Else
DisplayCompIntroUp$ = False
EndIf

If pause = False
CheckConv()
CheckConvAll()
Else
PutUpConvAll = False
EndIf

If ThreeShowConv$ = True Or FourShowConv$ = True Or FiveShowConv$ = True Or SixShowConv$ = True Or SevenShowConv$ = True Then
PutUpConvAll = True
DisplayCompIntroUp$ = False
Else
PutUpConvAll = False
EndIf
Else
If CompTurn$ = True Then
If GameWait = False And pause = False Then
If (GameStart% + 1000) <= millis% Then
GameTimer% = GameTimer% - 1
GameStart% = millis%
If GameTimer% <= 0 Then
StopSound(level%)
If MainSound$ = True PlaySound Timeout
freeSoundandMusic(level%)
turn = Not turn
NextTurn()
GameWait = True
YourTurn = True
CompLetterCount% = 0
ReturnPressed = False
Play% = Play% + 1
CalculateWins()
CompTurn = False
GameTimer% = 10
RevealWords$ = True
ChatTime% = GetChatTime%(level%)
If PlayerWins% < 2 And CompWins% < 2 Then
RoundChange(level%)
GotAllThree = False
GotAllFour = False
GotAllFive = False
GotAllSix = False
GotAllSeven = False
EndIf
BelowTimer% = 0
DisplayAllReadyGuessedBox = False
DisplayNotInListBox = False
ChatKeepUp$ = False
PutUpConvAll = False
millis% = MilliSecs()
EndIf
EndIf
EndIf
EndIf
EndIf

If GameTimer% < 11 Then
If GameWait = False And BelowTimer% > GameTimer% Then
BelowTimer% = GameTimer%
If MainSound$ = True PlaySound ticks
EndIf
EndIf

If BelowTimer% = 0 And GameTimer% < 11 Then BelowTimer% = GameTimer%

If MainMusic$ = True Then
If Not ChannelPlaying(chan1) Then
If pause = False And gamewait = False Then
If gamewait = False Then LoadMusicChannel(level%)
EndIf
EndIf
EndIf
End Function

Function PrintTimer()
Local temp$ = Str GameTimer

For jj% = 1 To Len(temp$)
TimerDrawNumber(Mid$(temp$, jj%, 1), jj%)
Next

End Function

Function TimerDrawNumber(value$, Pos%)
If Value$ = "0" Then
DrawImage Clock0, 165 + (Pos% * 22), 559
ElseIf Value$ = "1" Then
DrawImage Clock1, 165 + (Pos% * 22), 559
ElseIf Value$ = "2" Then
DrawImage Clock2, 165 + (Pos% * 22), 559
ElseIf Value$ = "3" Then
DrawImage Clock3, 165 + (Pos% * 22), 559
ElseIf Value$ = "4" Then
DrawImage Clock4, 165 + (Pos% * 22), 559
ElseIf Value$ = "5" Then
DrawImage Clock5, 165 + (Pos% * 22), 559
ElseIf Value$ = "6" Then
DrawImage Clock6, 165 + (Pos% * 22), 559
ElseIf Value$ = "7" Then
DrawImage Clock7, 165 + (Pos% * 22), 559
ElseIf Value$ = "8" Then
DrawImage Clock8, 165 + (Pos% * 22), 559
ElseIf Value$ = "9" Then
DrawImage Clock9, 165 + (Pos% * 22), 559
EndIf
End Function


Function CPUUsage()
Return CallDLL(dll$, "_CPUPercent")
End Function


Function OptionsScreen()
Local IntroScreen = LoadImage(AppPath$ + "smallbrick1.bmp")
Local SoundOn = LoadImage(AppPath$ + "data1\SoundOn.png")
Local SoundOff = LoadImage(AppPath$ + "data1\SoundOff.png")
Local MusicOn = LoadImage(AppPath$ + "data1\MusicOn.png")
Local MusicOff = LoadImage(AppPath$ + "data1\MusicOff.png")
Local FullScreen = LoadImage(AppPath$ + "data1\FullScreen.png")
Local Windowed = LoadImage(AppPath$ + "data1\windowed.png")
Local Continue = LoadImage(AppPath$ + "data1\continue.png")

Local Music = True
Local Sound = True
Local ScreenMode1 = True
Local Mouse2 = LoadImage(AppPath$ + "data1\mouse.bmp")
MaskImage mouse2, 255, 0, 0
Local filein = OpenFile(AppPath$ + "data1\op.txt")

Local MusicOnOff$ = ReadLine(filein)
Local SoundOnOff$ = ReadLine(filein)
Local ScreenMode$ = ReadLine(filein)

CloseFile(filein)

Local ButtonStartx = 278
Local ButtonStopx% = 275 + 245
Local ButtonStarty = 155
Local ButtonStopy = 150 + 53

Local Exit1$ = False

If MusicOnOff$ = "On" Or MusicOnOff$ = "on"
Music = True
Else
music = False
EndIf

If SoundOnOff$ = "On" Or SoundOnOff$ = "on"Then
Sound = True
Else
Sound = False
EndIf

If ScreenMode$ = "Windowed" Or ScreenMode$ = "windowed" Then
ScreenMode1 = True
Else
ScreenMode1 = False
EndIf

Local slow = CreateTimer(15)
Local fast = CreateTimer(50)

While Exit1 = False
Cls
If MainScreen$ = True Then
WaitTimer(slow)
Else
WaitTimer(fast)
EndIf

TileImage IntroScreen
If Sound = True Then
DrawBlock SoundOn, 275, 150
Else
DrawBlock SoundOff, 275, 150
EndIf

If Music = True Then
DrawBlock MusicOn, 275, 240
Else
DrawBlock MusicOff, 275, 240
EndIf

If ScreenMode1 = True Then
DrawBlock windowed, 275, 330
Else
DrawBlock FullScreen, 275, 330
EndIf

DrawBlock Continue, 200, 470

If MouseHit(1) Then
If (MouseX() >= ButtonStartx% And MouseX() <= ButtonStopx%) And (MouseY() >= 245 And MouseY() <= 288) Then
Music = Not Music
ElseIf (MouseX() >= ButtonStartx% And MouseX() <= ButtonStopx%) And (MouseY() >= ButtonStarty% And MouseY() <= ButtonStopy%) Then
Sound = Not Sound
ElseIf (MouseX() >= ButtonStartx% And MouseX() <= ButtonStopx%) And (MouseY() >= 330 And MouseY() <= 388) Then
ScreenMode1 = Not ScreenMode1
ElseIf (MouseX() >= 200 And MouseX() <= 445) And (MouseY() >= 470 And MouseY() <= 525) Then
Exit1 = True
EndIf
EndIf

If music = True Then
MusicOnOff$ = "On"
Else
MusicOnOff$ = "Off"
EndIf

If Sound = True Then
SoundOnOff$ = "On"
Else
SoundOnOff$ = "Off"
EndIf

If ScreenMode1 = True Then
ScreenMode$ = "Windowed"
Else
ScreenMode$ = "Full Screen"
EndIf
If MainScreen$ = False Then DrawImage mouse2, MouseX(), MouseY()
Flip
Wend

MainMusic$ = music
MainSound$ = sound
MainScreen$ = ScreenMode1

filein = WriteFile(AppPath$ + "data1\op.txt")

If music = True Then
WriteLine(filein,"On")
Else
WriteLine(filein,"Off")
EndIf

If sound = True Then
WriteLine(filein,"On")
Else
WriteLine(filein,"Off")
EndIf

If ScreenMode1 = True Then
WriteLine(filein,"Windowed")
Else
WriteLine(filein,"Full Screen")
EndIf
CloseFile(filein)

If ScreenMode$ = "Full Screen" Then MoveMouse 200, 300

FreeImage Mouse2
FreeImage IntroScreen
FreeImage SoundOn
FreeImage SoundOff
FreeImage MusicOn
FreeImage MusicOff
FreeImage FullScreen
FreeImage Windowed
FreeImage Continue
FreeTimer slow
FreeTimer fast
End Function

Function LoadOptionsInfo()
Local filein = OpenFile(AppPath$ + "data1\op.txt")

Local MainMusic1$ = ReadLine(filein)
Local MainSound1$ = ReadLine(filein)
Local MainScreen1$ = ReadLine(filein)

If MainMusic1$ = "On" Or MainMusic1$ = "on" Then
MainMusic$ = True
Else
MainMusic$ = False
EndIf

If MainSound1$ = "On" Or MainSound1$ = "on" Then
MainSound$ = True
Else
MainSound$ = False
EndIf

If MainScreen1$ = "Windowed" Or MainScreen1$ = "windowed" Then
MainScreen$ = True
Else
MainScreen$ = False
EndIf

CloseFile(filein)
End Function

Function StopSound(value%)
If value% = 1 Then
StopChannel chan1
EndIf
End Function

Function RoundChange(level%)
InRound% = 1


Local backgr = LoadImage(AppPath$ + "BackTempround.png")

Local HowManyLinesCoach% = 0
Local HowManyLinesOpp% = 0
Local NextLineOpp% = 0
Local StartImageX% = 92
Local StartClickImageX% = 39
Local StartImagePos% = 380
Local StartClickImagePos% = 500

InRoundChange$ = True
While InRound% = 1
Cls
DrawBlock backgr, 0, 0
CheckMouseCollisions()

CheckAnimateScore()

DrawLetters()
PrintResults()
PrintScore()
CompPrintScore()
CompPrintResults()

Color 0,0,0
Text 380, 476, GameTimer%
Text 650, 550, lframes%
Text 150, 550, WordToGuess$
Text 350, 550, CompWord$
Text 600, 380, MouseX()
Text 600, 390, MouseY()
Text 600, 410, ChatTime%
Text 300, 5, "in"
If MainScreen$ = False Then DrawImage mouse3, MouseX(), MouseY()

If MainScreen$ = True Then
WaitTimer(slow)
Flip False
Else
WaitTimer(fast)
VWait:Flip False
EndIf
Wend
FreeImage backgr
InRoundChange$ = False

InRound% = 0

filein = ReadFile(AppPath$ + "Rounds\" + level% + "\coach" + (Round% - 1) + ".txt")
HowManyLinesCoach% = ReadLine(filein)
For qq = 1 To HowManyLinesCoach%
SentCoachRound$(qq) = ReadLine(filein)
Next
CloseFile(filein)

filein = ReadFile(AppPath$ + "Rounds\" + level% + "\opp" + (Round% - 1) + ".txt")
HowManyLinesOpp% = ReadLine(filein)
For qq1 = 1 To HowManyLinesOpp%
SentOppRound$(qq1) = ReadLine(filein)
Next
CloseFile(filein)

If MainScreen = False Then
Local Mouse2 = LoadImage(AppPath$ + "data1\mouse.bmp")
EndIf

Local StartClick = LoadImage(AppPath$ + "data1\startclick.png")
Local CommentScreen1 = LoadImage(AppPath$ + "data1\comment1.png")

Local PassedOpp$ = False
Local PassedCoach$ = False
While Not KeyHit(1)
Cls
DrawBlock CommentScreen1, 0, 0

If (MouseX() >= StartImagePos% And MouseX() <= (StartImagePos% + SubmitImageX%)) And (MouseY() >= StartClickImagePos% And MouseY() <= (StartClickImagePos% + SubmitImageY%)) Then
DrawBlock StartClick, StartImagePos%, StartClickImagePos%
EndIf

If MouseHit(1) Then
If (MouseX() >= StartImagePos% And MouseX() <= (StartImagePos% + SubmitImageX%)) And (MouseY() >= StartClickImagePos% And MouseY() <= (StartClickImagePos% + SubmitImageY%)) Then
Exit
EndIf
EndIf

If PassedOpp$ = False Then
For qq2 = 1 To HowManyLinesOpp%
NextLineOpp% = NextLineOpp% + 15
type_text_Opp(30, 280 + NextLineOpp% , SentOppRound$(qq2), qq2)
Next
PassedOpp$ = True
EndIf

NextLineOpp% = 0

For ds = 1 To HowManyLinesOpp%
NextLineOpp% = NextLineOpp% + 15
Text 30, 280 + NextLineOpp%, SentOppRound$(ds)
Next
NextLineOpp% = 0

;-------------------------------------------------------------------------------------

If PassedCoach$ = False Then
For qq3 = 1 To HowManyLinesCoach%
NextLineCoach% = NextLineCoach% + 15
type_text_Coach(430, 280 + NextLineCoach% , SentCoachRound$(qq3), qq3, HowManyLinesOpp%)
Next
PassedCoach$ = True
EndIf

NextLineCoach% = 0

For ds = 1 To HowManyLinesCoach%
NextLineCoach% = NextLineCoach% + 15
Text 430, 280 + NextLineCoach%, SentCoachRound$(ds)
Next

NextLineCoach% = 0

If MainScreen$ = False Then DrawImage mouse2, MouseX(), MouseY()

If MainScreen$ = True Then
WaitTimer(slow)
Flip False
Else
WaitTimer(fast)
VWait:Flip False
EndIf

Wend
FreeImage StartClick
FreeImage CommentScreen1
If MainScreen = False Then FreeImage mouse2
FreeImage startclick
CompDeleteAnimateScore()
DeleteCheckAnimateScore()
End Function

Function type_text_Coach(x,y,t$, z, HowManyLinesOpp%)
Local CommentScreen1 = LoadImage(AppPath$ + "data1\commentscroll1.png")
Local NextLineCoach% = 0
Local NextLineOpp% = 0
Local TextLength% = Len(t$) + 1
Local buff$ = ""
Local wait = MilliSecs()
Local n = 1

Repeat
Cls
DrawBlock CommentScreen1, 0, 0

For ds = 1 To HowManyLinesOpp%
NextLineOpp% = NextLineOpp% + 15
Text 30, 280 + NextLineOpp%, SentOppRound$(ds)
Next

NextLineOpp% = 0

If z > 1 Then
For fg = 1 To z - 1
NextLineCoach% = NextLineCoach% + 15
Text 430, 280 + NextLineCoach%, SentCoachRound$(fg)
Next
NextLineCoach% = 0
EndIf

If MilliSecs() > wait + 40 Then
wait = MilliSecs()
Buff$ = Left(t, n)
n = n + 1
EndIf
Text x, y, Buff$

If MainScreen$ = True Then
WaitTimer(slow)
Flip False
Else
WaitTimer(fast)
VWait:Flip False
EndIf

Until n > TextLength%

FreeImage CommentScreen1
End Function

Function type_text_Opp(x,y,t$, z)
Local CommentScreen1 = LoadImage(AppPath$ + "data1\commentscroll1.png")
Local NextLineOpp% = 0
Local TextLength% = Len(t$) + 1
Local buff$ = ""
Local wait = MilliSecs()
Local n = 1

Repeat
Cls
DrawBlock CommentScreen1, 0, 0

If z > 1 Then
For fg = 1 To z - 1
NextLineOpp% = NextLineOpp% + 15
Text 30, 280 + NextLineOpp%, SentOppRound$(fg)
Next
NextLineOpp% = 0
EndIf

If MilliSecs() > wait + 40 Then
wait = MilliSecs()
Buff$ = Left(t, n)
n = n + 1
EndIf
WaitTimer(slow)
Text x, y, Buff$
Flip False
Until n > TextLength%

FreeImage CommentScreen1
End Function

Function GetChatTime%(value%)
SeedRnd(MilliSecs())
If value% = 1 Then
Return Rnd(50000, 75000)
ElseIf value% = 2 Then
Return Rnd(50000, 75000)
EndIf
End Function

Function CalculateWins()
If Score% > CompScore% Then
PlayerWins% = PlayerWins% + 1
Else
CompWins% = CompWins% + 1
EndIf
End Function

Function GetTime%()
Local time% = 7 * HowManyMatches%
If time% >= 150 Then
Return 150
ElseIf time% <= 60 Then
Return 60
Else
Return time%
EndIf
End Function

Function ScrambleMove()
DisplayAllReadyGuessedBox = False
DisplayNotInListBox = False
If FirstImageClicked = False And SecondImageClicked = False And ThirdImageClicked = False And FourthImageClicked = False And FifthImageClicked = False And SixthImageClicked = False And SeventhImageClicked = False And pause = False Then
Local temp1% = 0
Local Temp% = 0
Local AnimationDone$ = False
Local count = 0
Local ScrambledOld$ = ScrambledWord$
ScrambledOldMain$ = ScrambledOld$

Local FirstSpeed# = 0
Local SecondSpeed# = 0
Local ThirdSpeed# = 0
Local FourthSpeed# = 0
Local FifthSpeed# = 0
Local SixthSpeed# = 0
Local SeventhSpeed# = 0

Local FirstDone$ = False
Local SecondDone$ = False
Local ThirdDone$ = False
Local FourthDone$ = False
Local FifthDone$ = False
Local SixthDone$ = False
Local SeventhDone$ = False

Local OldFirstLetter% = space% + MoveX%
Local OldSecondLetter% = 2 * space% + MoveX%
Local OldThirdLetter% = 3 * space% + MoveX%
Local OldFourthLetter% = 4 * space% + MoveX%
Local OldFifthLetter% = 5 * space% + MoveX%
Local OldSixthLetter% = 6 * space% + MoveX%
Local OldSeventhLetter% = 7 * space% + MoveX%

For q1 = 1 To 7
ScrambleScratchOld$(q1) = Mid$(ScrambledOld$, q1, 1)
Next

Local FirstLetterOld = FirstLetter
Local SecondLetterOld = SecondLetter
Local ThirdLetterOld = ThirdLetter
Local FourthLetterOld = FourthLetter
Local FifthLetterOld = FifthLetter
Local SixthLetterOld = SixthLetter
Local SeventhLetterOld = SeventhLetter

ScrambledWord$ = ScrambleLetters$()
ReLoadLetters()
Local ScrambledNew$ = ScrambledWord$

For q2 = 1 To 7
ScrambleScratchNew$(q2) = Mid$(ScrambledNew$, q2, 1)
Next

Local NewFirstLetter% = 0
Local NewSecondLetter% = 0
Local NewThirdLetter% = 0
Local NewFourthLetter% = 0
Local NewFifthLetter% = 0
Local NewSixthLetter% = 0
Local NewSeventhLetter% = 0
If mainscreen = False Then
Local Mouse2 = LoadImage(AppPath$ + "data1\mouse.bmp"):MaskImage mouse2, 255, 0, 0
EndIf

Local Atemp% = 1

For w1 = 1 To 7
For w2 = 1 To 7
If ScrambleScratchOld$(w1) = ScrambleScratchNew$(w2) Then
If w1 = 1 Then
If w2 = 1 Then
NewFirstLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewFirstLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewFirstLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewFirstLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewFirstLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewFirstLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewFirstLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
ElseIf w1 = 2 Then
If w2 = 1 Then
NewSecondLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewSecondLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewSecondLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewSecondLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewSecondLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewSecondLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewSecondLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
ElseIf w1 = 3 Then
If w2 = 1 Then
NewThirdLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewThirdLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewThirdLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewThirdLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewThirdLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewThirdLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewThirdLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
ElseIf w1 = 4 Then
If w2 = 1 Then
NewFourthLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewFourthLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewFourthLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewFourthLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewFourthLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewFourthLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewFourthLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
ElseIf w1 = 5 Then
If w2 = 1 Then
NewFifthLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewFifthLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewFifthLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewFifthLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewFifthLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewFifthLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewFifthLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
ElseIf w1 = 6 Then
If w2 = 1 Then
NewSixthLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewSixthLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewSixthLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewSixthLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewSixthLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewSixthLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewSixthLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
ElseIf w1 = 7 Then
If w2 = 1 Then
NewSeventhLetter% = space% + MoveX%
ScrambleScratchNew$(1) = "0"
ElseIf w2 = 2 Then
NewSeventhLetter% = 2 * space% + MoveX%
ScrambleScratchNew$(2) = "0"
ElseIf w2 = 3 Then
NewSeventhLetter% = 3 * space% + MoveX%
ScrambleScratchNew$(3) = "0"
ElseIf w2 = 4 Then
NewSeventhLetter% = 4 * space% + MoveX%
ScrambleScratchNew$(4) = "0"
ElseIf w2 = 5 Then
NewSeventhLetter% = 5 * space% + MoveX%
ScrambleScratchNew$(5) = "0"
ElseIf w2 = 6 Then
NewSeventhLetter% = 6 * space% + MoveX%
ScrambleScratchNew$(6) = "0"
ElseIf w2 = 7 Then
NewSeventhLetter% = 7 * space% + MoveX%
ScrambleScratchNew$(7) = "0"
EndIf
Exit
EndIf
EndIf
Next
Next

FirstSpeed# = Abs(OldFirstLetter% - NewFirstLetter%) / 10
SecondSpeed# = Abs(OldSecondLetter% - NewSecondLetter%) / 10
ThirdSpeed# = Abs(OldThirdLetter% - NewThirdLetter%) / 10
FourthSpeed# = Abs(OldFourthLetter% - NewFourthLetter%) / 10
FifthSpeed# = Abs(OldFifthLetter% - NewFifthLetter%) / 10
SixthSpeed# = Abs(OldSixthLetter% - NewSixthLetter%) / 10
SeventhSpeed# = Abs(OldSeventhLetter% - NewSeventhLetter%) / 10

If MainSound$ = True PlaySound scramble

While AnimationDone$ = False
Cls
DrawBlock BackGround, 0, 0
Text 400, 500, space% + MoveX%
Text 400, 530, 2 * space% + MoveX%
Text 400, 560, ScrambleScratchNew$(5)
Text 380, 476, GameTimer%

CheckAnimateScore()
CheckConv()

If (CompIntroTimer% + 9000) >= MilliSecs() And ChatKeepUp$ = False And ConvUp$ = False Then
DisplayCompIntro()
EndIf

If (ChatTimer% + ChatTime%) <= MilliSecs() Then
If GameWait = False And ConvUp$ = False And CompTurn = False Then
ChatKeepUp$ = True
ChatTimer% = MilliSecs() + 1
CompSay$ = GetRegularChat$()
KeepUpTimer% = MilliSecs()
ChatTime% = GetChatTime%(level%)
End If
EndIf

If ChatKeepUp$ = True And GameWait = False And ConvUp$ = False And CompTurn = False And GameTimer >= 15 Then
If (KeepUpTimer% + 9000) >= MilliSecs() Then
Text 110, 5, CompSay$
Else
ChatKeepUp$ = False
EndIf
EndIf

DrawImages()
DrawCircles()
;---------------------------------------------------------------------------------

If FirstImageClicked = True Then
FirstDone$ = True
DrawImage FirstLetterOld, FirstImagePos% + MoveX%, ClickedY%
ElseIf OldFirstLetter% < NewFirstLetter% Then
OldFirstLetter% = OldFirstLetter% + FirstSpeed#
DrawImage FirstLetterOld, OldFirstLetter%, NotClickedY%
ElseIf OldFirstLetter% > NewFirstLetter% Then
OldFirstLetter% = OldFirstLetter% - FirstSpeed#
DrawImage FirstLetterOld, OldFirstLetter%, NotClickedY%
ElseIf OldFirstLetter% = NewFirstLetter% Then
OldFirstLetter% = NewFirstLetter%
FirstDone$ = True
DrawImage FirstLetterOld, NewFirstLetter%, NotClickedY%
EndIf

If SecondImageClicked = True Then
SecondDone$ = True
DrawImage SecondLetterOld, SecondimagePos% + MoveX%, ClickedY%
ElseIf OldSecondLetter% < NewSecondLetter% Then
OldSecondLetter% = OldSecondLetter% + SecondSpeed#
DrawImage SecondLetterOld, OldSecondLetter%, NotClickedY%
ElseIf OldSecondLetter% > NewSecondLetter% Then
OldSecondLetter% = OldSecondLetter% - SecondSpeed#
DrawImage SecondLetterOld, OldSecondLetter%, NotClickedY%
ElseIf OldSecondLetter% = NewSecondLetter% Then
OldSecondLetter% = NewSecondLetter%
SecondDone$ = True
DrawImage SecondLetterOld, NewSecondLetter%, NotClickedY%
EndIf

If ThirdImageClicked = True Then
ThirdDone$ = True
DrawImage ThirdLetterOld, ThirdimagePos% + MoveX%, ClickedY%
ElseIf OldThirdLetter% < NewThirdLetter% Then
OldThirdLetter% = OldThirdLetter% + ThirdSpeed#
DrawImage ThirdLetterOld, OldThirdLetter%, NotClickedY%
ElseIf OldThirdLetter% > NewThirdLetter% Then
OldThirdLetter% = OldThirdLetter% - ThirdSpeed#
DrawImage ThirdLetterOld, OldThirdLetter%, NotClickedY%
ElseIf OldThirdLetter% = NewThirdLetter% Then
OldThirdLetter% = NewThirdLetter%
ThirdDone$ = True
DrawImage ThirdLetterOld, NewThirdLetter%, NotClickedY%
EndIf

If FourthImageClicked = True Then
FourthDone$ = True
DrawImage FourthLetterOld, FourthImagePos% + MoveX%, ClickedY%
ElseIf OldFourthLetter% < NewFourthLetter% Then
OldFourthLetter% = OldFourthLetter% + FourthSpeed#
DrawImage FourthLetterOld, OldFourthLetter%, NotClickedY%
ElseIf OldFourthLetter% > NewFourthLetter% Then
OldFourthLetter% = OldFourthLetter% - FourthSpeed#
DrawImage FourthLetterOld, OldFourthLetter%, NotClickedY%
ElseIf OldFourthLetter% = NewFourthLetter% Then
OldFourthLetter% = NewFourthLetter%
FourthDone$ = True
DrawImage FourthLetterOld, NewFourthLetter%, NotClickedY%
EndIf

If FifthImageClicked = True Then
FifthDone$ = True
DrawImage FifthLetterOld, FifthImagePos% + MoveX%, ClickedY%
ElseIf OldFifthLetter% < NewFifthLetter% Then
OldFifthLetter% = OldFifthLetter% + FifthSpeed#
DrawImage FifthLetterOld, OldFifthLetter%, NotClickedY%
ElseIf OldFifthLetter% > NewFifthLetter% Then
OldFifthLetter% = OldFifthLetter% - FifthSpeed#
DrawImage FifthLetterOld, OldFifthLetter%, NotClickedY%
ElseIf OldFifthLetter% = NewFifthLetter% Then
OldFifthLetter% = NewFifthLetter%
FifthDone$ = True
DrawImage FifthLetterOld, NewFifthLetter%, NotClickedY%
EndIf

If SixthImageClicked = True Then
SixthDone$ = True
DrawImage SixthLetterOld, SixthImagePos% + MoveX%, ClickedY%
ElseIf OldSixthLetter% < NewSixthLetter% Then
OldSixthLetter% = OldSixthLetter% + SixthSpeed#
DrawImage SixthLetterOld, OldSixthLetter%, NotClickedY%
ElseIf OldSixthLetter% > NewSixthLetter% Then
OldSixthLetter% = OldSixthLetter% - SixthSpeed#
DrawImage SixthLetterOld, OldSixthLetter%, NotClickedY%
ElseIf OldSixthLetter% = NewSixthLetter% Then
OldSixthLetter% = NewSixthLetter%
SixthDone$ = True
DrawImage SixthLetterOld, NewSixthLetter%, NotClickedY%
EndIf

If SeventhImageClicked = True Then
SeventhDone$ = True
DrawImage SeventhLetterOld, SeventhImagePos% + MoveX%, ClickedY%
ElseIf OldSeventhLetter% < NewSeventhLetter% Then
OldSeventhLetter% = OldSeventhLetter% + SeventhSpeed#
DrawImage SeventhLetterOld, OldSeventhLetter%, NotClickedY%
ElseIf OldSeventhLetter% > NewSeventhLetter% Then
OldSeventhLetter% = OldSeventhLetter% - SeventhSpeed#
DrawImage SeventhLetterOld, OldSeventhLetter%, NotClickedY%
ElseIf OldSeventhLetter% = NewSeventhLetter% Then
OldSeventhLetter% = NewSeventhLetter%
SeventhDone$ = True
DrawImage SeventhLetterOld, NewSeventhLetter%, NotClickedY%
EndIf

If FirstDone$ And SecondDone And ThirdDone And FourthDone And FifthDone And SixthDone And SeventhDone Then
AnimationDone$ = True
EndIf

;---------------------------------------------------------------------------------
PrintResults()
PrintScore()
CompPrintScore()
CompPrintResults()
If MainScreen$ = False Then DrawImage mouse2, MouseX(), MouseY()

If MainScreen$ = True Then
Flip False
Else
VWait:Flip False
EndIf
Wend
EndIf

If MainScreen$ = False Then FreeImage mouse2
End Function

Function ResetCircleColors()
FirstR% = Rnd(255)
FirstG% = Rnd(255)
FirstB% = Rnd(255)
SecondR% = Rnd(255)
SecondG% = Rnd(255)
SecondB% = Rnd(255)
ThirdR% = Rnd(255)
ThirdG% = Rnd(255)
ThirdB% = Rnd(255)
FourthR% = Rnd(255)
FourthG% = Rnd(255)
FourthB% = Rnd(255)
FifthR% = Rnd(255)
FifthG% = Rnd(255)
FiftthB% = Rnd(255)
SixthR% = Rnd(255)
SixthG% = Rnd(255)
SixthB% = Rnd(255)
SeventhR% = Rnd(255)
SeventhG% = Rnd(255)
SeventhB% = Rnd(255)

FirstR1% = Rnd(255)
FirstG1% = Rnd(255)
FirstB1% = Rnd(255)
SecondR1% = Rnd(255)
SecondG1% = Rnd(255)
SecondB1% = Rnd(255)
ThirdR1% = Rnd(255)
ThirdG1% = Rnd(255)
ThirdB1% = Rnd(255)
FourthR1% = Rnd(255)
FourthG1% = Rnd(255)
FourthB1% = Rnd(255)
FifthR1% = Rnd(255)
FifthG1% = Rnd(255)
FiftthB1% = Rnd(255)
SixthR1% = Rnd(255)
SixthG1% = Rnd(255)
SixthB1% = Rnd(255)
SeventhR1% = Rnd(255)
SeventhG1% = Rnd(255)
SeventhB1% = Rnd(255)

End Function

Function DrawCircles()
Color FirstR%, FirstG%, FirstB%
Oval space% + MoveX% + 5, NotClickedY% + 7, 39, 39, 1
Color SecondR%, SecondG%, SecondB%
Oval (space% * 2) + MoveX% + 5, NotClickedY% + 7, 39, 39, 1
Color ThirdR%, ThirdG%, ThirdB%
Oval (space% * 3) + MoveX% + 5, NotClickedY% + 7, 39, 39, 1
Color FourthR%, FourthG%, FourthB%
Oval (space% * 4) + MoveX% + 5, NotClickedY% + 7, 39, 39, 1
Color FifthR%, FifthG%, FifthB%
Oval (space% * 5) + MoveX% + 5, NotClickedY% + 7, 39, 39, 1
Color SixthR%, SixthG%, SixthB%
Oval (space% * 6) + MoveX% + 5, NotClickedY% + 7, 39, 39, 1
Color SeventhR%, SeventhG%, SeventhB%
Oval (space% * 7) + MoveX% + 5, NotClickedY% + 7, 39, 39, 1

Color FirstR1%, FirstG1%, FirstB1%
Oval space% + MoveX% + 5, NotClickedY% + 7, 39, 39, 0
Color SecondR1%, SecondG1%, SecondB1%
Oval (space% * 2) + MoveX% + 5, NotClickedY% + 7, 39, 39, 0
Color ThirdR1%, ThirdG1%, ThirdB1%
Oval (space% * 3) + MoveX% + 5, NotClickedY% + 7, 39, 39, 0
Color FourthR1%, FourthG1%, FourthB1%
Oval (space% * 4) + MoveX% + 5, NotClickedY% + 7, 39, 39, 0
Color FifthR1%, FifthG1%, FifthB1%
Oval (space% * 5) + MoveX% + 5, NotClickedY% + 7, 39, 39, 0
Color SixthR1%, SixthG1%, SixthB1%
Oval (space% * 6) + MoveX% + 5, NotClickedY% + 7, 39, 39, 0
Color SeventhR1%, SeventhG1%, SeventhB1%
Oval (space% * 7) + MoveX% + 5, NotClickedY% + 7, 39, 39, 0

Color 0, 0, 0
End Function

Function CompDeleteAnimateScore()
For CompAnim3.CompThreeAnimScore = Each CompThreeAnimScore
Delete CompAnim3
Next

For CompAnim4.CompFourAnimScore = Each CompFourAnimScore
Delete CompAnim4
Next

For CompAnim5.CompFiveAnimScore = Each CompFiveAnimScore
Delete CompAnim5
Next

For CompAnim6.CompSixAnimScore = Each CompSixAnimScore
Delete CompAnim6
Next

For CompAnim7.CompSevenAnimScore = Each CompSevenAnimScore
Delete CompAnim7
Next
End Function

Function DeleteCheckAnimateScore()
For Anim3.ThreeAnimScore = Each ThreeAnimScore
Delete Anim3
Next

For Anim4.FourAnimScore = Each FourAnimScore
Delete Anim4
Next

For Anim5.FiveAnimScore = Each FiveAnimScore
Delete Anim5
Next

For Anim6.SixAnimScore = Each SixAnimScore
Delete Anim6
Next

For Anim7.SevenAnimScore = Each SevenAnimScore
Delete Anim7
Next
End Function

Function CheckAnimateScore()

If Animating1$ = True Then
Local count8% = 0
For Anim3.ThreeAnimScore = Each ThreeAnimScore
Text 400, Anim3\Ypos#, "+" + Anim3\Score%
Anim3\Ypos# = Anim3\Ypos# - AnimDY%
count8% = count8% + 1
Next

For Anim3.ThreeAnimScore = Each ThreeAnimScore
If Anim3\Ypos# <= 0 Then
Delete Anim3
count8% = count8% - 1
EndIf
Next
For Anim4.FourAnimScore = Each FourAnimScore
Text 400, Anim4\Ypos#, "+" + Anim4\Score%
Anim4\Ypos# = Anim4\Ypos# - AnimDY%
count8% = count8% + 1
Next
For Anim4.FourAnimScore = Each FourAnimScore
If Anim4\Ypos# <= 0 Then
Delete Anim4
count8% = count8% - 1
EndIf
Next

For Anim5.FiveAnimScore = Each FiveAnimScore
Text 400, Anim5\Ypos#, "+" + Anim5\Score%
Anim5\Ypos# = Anim5\Ypos# - AnimDY%
count8% = count8% + 1
Next
For Anim5.FiveAnimScore = Each FiveAnimScore
If Anim5\Ypos# <= 0 Then
Delete Anim5
count8% = count8% - 1
EndIf
Next

For Anim6.SixAnimScore = Each SixAnimScore
Text 400, Anim6\Ypos#, "+" + Anim6\Score%
Anim6\Ypos# = Anim6\Ypos# - AnimDY%
count8% = count8% + 1
Next
For Anim6.SixAnimScore = Each SixAnimScore
If Anim6\Ypos# <= 0 Then
Delete Anim6
count8% = count8% - 1
EndIf
Next

For Anim7.SevenAnimScore = Each SevenAnimScore
Text 400, Anim7\Ypos#, "+" + Anim7\Score%
Anim7\Ypos# = Anim7\Ypos# - AnimDY%
count8% = count8% + 1
Next
For Anim7.SevenAnimScore = Each SevenAnimScore
If Anim7\Ypos# <= 0 Then
Delete Anim7
count8% = count8% - 1
EndIf
Next
If count8% <= 0 Then Animating1$ = False
EndIf
End Function

Function CompCheckAnimateScore()
If Animating1$ = True Then
Local count% = 0
For CompAnim3.CompThreeAnimScore = Each CompThreeAnimScore
Text 400, CompAnim3\Ypos#, "+" + CompAnim3\Score%
CompAnim3\Ypos# = CompAnim3\Ypos# - AnimDY%
count% = count% + 1
Next

For CompAnim3.CompThreeAnimScore = Each CompThreeAnimScore
If CompAnim3\Ypos# <= 0 Then
Delete CompAnim3
count% = count% - 1
EndIf
Next

For CompAnim4.CompFourAnimScore = Each CompFourAnimScore
Text 400, CompAnim4\Ypos#, "+" + CompAnim4\Score%
CompAnim4\Ypos# = CompAnim4\Ypos# - AnimDY%
count% = count% + 1
Next
For CompAnim4.CompFourAnimScore = Each CompFourAnimScore
If CompAnim4\Ypos# <= 0 Then
Delete CompAnim4
count% = count% - 1
EndIf
Next

For CompAnim5.CompFiveAnimScore = Each CompFiveAnimScore
Text 400, CompAnim5\Ypos#, "+" + CompAnim5\Score%
CompAnim5\Ypos# = CompAnim5\Ypos# - AnimDY%
count% = count% + 1
Next
For CompAnim5.CompFiveAnimScore = Each CompFiveAnimScore
If CompAnim5\Ypos# <= 0 Then
Delete CompAnim5
count% = count% - 1
EndIf
Next

For CompAnim6.CompSixAnimScore = Each CompSixAnimScore
Text 400, CompAnim6\Ypos#, "+" + CompAnim6\Score%
CompAnim6\Ypos# = CompAnim6\Ypos# - AnimDY%
count% = count% + 1
Next
For CompAnim6.CompSixAnimScore = Each CompSixAnimScore
If CompAnim6\Ypos# <= 0 Then
Delete CompAnim6
count% = count% - 1
EndIf
Next

For CompAnim7.CompSevenAnimScore = Each CompSevenAnimScore
Text 400, CompAnim7\Ypos#, "+" + CompAnim7\Score%
CompAnim7\Ypos# = CompAnim7\Ypos# - AnimDY%
count% = count% + 1
Next
For CompAnim7.CompSevenAnimScore = Each CompSevenAnimScore
If CompAnim7\Ypos# <= 0 Then
Delete CompAnim7
count% = count% - 1
EndIf
Next
Color 0, 0, 0
If count% <= 0 Then Animating1$ = False
EndIf
End Function

Function GameReset()
score% = 0
CompScore% = 0
DisableRack$ = False

GotAllThree$ = False
GotAllFour$ = False
GotAllFive$ = False
GotAllSix$ = False
GotAllSeven$ = False

ThreeConvUsed$ = False
SevenConvUsed$ = False

HowManyConvSent3% = 0

ConvTimer% = 0

ThreeShowConv$ = False
ShowConvTimer3% = 0

ThreeConvSent$ = ""
End Function

Function DisplayTurnTransition()
If CompTurn Then DrawImage TurnTransitionFont, 255, 345

If YourTurn Then
If PlayerWins% >= 2 Then
Text 255, 345, "You win"
ElseIf CompWins% >= 2 Then
Text 255, 345, "You Lose"
Else
Text 255, 345, "Round " + Round% + "...Press start"
EndIf
EndIf
End Function

Function SubmitClicked()
Local PassedWord$ = ""
For ee = 1 To 7
If GivenWord$(ee) = "0" Then Exit
PassedWord$ = PassedWord$ + GivenWord$(ee)
Next

If IsCompleteWord$() Then
ResetCircleColors()
If Len(PassedWord$) > 2 Then
If IsWord$(PassedWord$) Then
ClearRack()
If Not AllReadyGuessed$(PassedWord$) Then
FindTypePos(PassedWord$)
UpdateScore(Len(PassedWord$))
EndIf
Else
ClearRack()
EndIf
EndIf
EndIf

End Function

Function OthersHigher3$()
If FourConvUsed$ = True Then Return True
If FiveConvUsed$ = True Then Return True
If SixConvUsed$ = True Then Return True
If SevenConvUsed$ = True Then Return True
Return False
End Function

Function OthersHigher4$()
If FiveConvUsed$ = True Then Return True
If SixConvUsed$ = True Then Return True
If SevenConvUsed$ = True Then Return True
Return False
End Function

Function OthersHigher5$()
If SixConvUsed$ = True Then Return True
If SevenConvUsed$ = True Then Return True
Return False
End Function

Function OthersHigher6$()
If SevenConvUsed$ = True Then Return True
Return False
End Function

Function LoadChat(value%)
For chat1.chat = Each chat
Delete chat1
Next
HowManyChat% = 0

filein = ReadFile(AppPath$ + "Game\Conv\" + level% + "\Chat.txt")

While Not Eof(filein)
chat1.chat = New chat
chat1\Talk$ = ReadLine(filein)
HowManyChat% = HowManyChat% + 1
Wend

CloseFile(filein)
End Function

Function RegularChat()
Text 250, 7, GetRegularChat$()
End Function

Function CheckConvAll()
If ThreeShowConv$ = True Then
DisplayThreeConv()
ElseIf FourShowConv$ = True Then
DisplayFourConv()
ElseIf FiveShowConv$ = True Then
DisplayFiveConv()
ElseIf SixShowConv$ = True Then
DisplaySixConv()
ElseIf SevenShowConv$ = True Then
DisplaySevenConv()
EndIf

If ShowConvTimer3% <> 0 Then
If (ShowConvTimer3% + 7000) <= millis%
ThreeShowConv$ = False
ShowConvTimer3% = 0
ConvUp$ = False
LastTalkedTimer% = millis%
EndIf
ElseIf ShowConvTimer4% <> 0 Then
If (ShowConvTimer4% + 7000) <= millis%
FourShowConv$ = False
ShowConvTimer4% = 0
ConvUp$ = False
LastTalkedTimer% = millis%
EndIf
ElseIf ShowConvTimer5% <> 0 Then
If (ShowConvTimer5% + 7000) <= millis%
FiveShowConv$ = False
ShowConvTimer5% = 0
ConvUp$ = False
LastTalkedTimer% = millis%
EndIf
ElseIf ShowConvTimer6% <> 0 Then
If (ShowConvTimer6% + 7000) <= millis%
SixShowConv$ = False
ShowConvTimer6% = 0
ConvUp$ = False
LastTalkedTimer% = millis%
EndIf
ElseIf ShowConvTimer7% <> 0 Then
If (ShowConvTimer7% + 7000) <= millis%
SevenShowConv$ = False
ShowConvTimer7% = 0
ConvUp$ = False
LastTalkedTimer% = millis%
EndIf
EndIf
End Function


Function CheckConv()
If GotAllThreeWords$() = True And HowManyThree% > 1 And OthersHigher3$() = False And ChatKeepUp = False Then
If ThreeConvUsed$ = False Then
ConvTimer% = millis%
ThreeShowConv$ = True
ShowConvTimer3% = millis%
ThreeConvSent$ = GetConvAllThree$()
ConvUp$ = True
EndIf
EndIf
If GotAllFourWords$() = True And HowManyFour% > 1 And OthersHigher4$() = False And ChatKeepUp = False Then
If FourConvUsed$ = False Then
ConvTimer% = millis%
FourShowConv$ = True
ShowConvTimer4% = millis%
FourConvSent$ = GetConvAllFour$()
ConvUp$ = True

ThreeShowConv$ = False
EndIf
EndIf
If GotAllFiveWords$() = True And HowManyFive% > 1 And OthersHigher5$() = False And ChatKeepUp = False Then
If FiveConvUsed$ = False Then
ConvTimer% = millis%
FiveShowConv$ = True
ShowConvTimer5% = millis%
FiveConvSent$ = GetConvAllFive$()
ConvUp$ = True

ThreeShowConv$ = False
FourShowConv$ = False
EndIf
EndIf
If GotAllSixWords$() = True And HowManySix% > 1 And OthersHigher6$() = False And ChatKeepUp = False Then
If SixConvUsed$ = False Then
ConvTimer% = millis%
SixShowConv$ = True
ShowConvTimer6% = millis%
SixConvSent$ = GetConvAllSix$()
ConvUp$ = True
ANice$ = True

ThreeShowConv$ = False
FourShowConv$ = False
FiveShowConv$ = False
EndIf
EndIf
If GotAllSevenWords$() = True And HowManySeven% > 0 And ChatKeepUp = False Then
If SevenConvUsed$ = False Then
ConvTimer% = millis%
SevenShowConv$ = True
ShowConvTimer7% = millis%
SevenConvSent$ = GetConvAllSeven$()
ConvUp$ = True
ANice$ = True

ThreeShowConv$ = False
FourShowConv$ = False
FiveShowConv$ = False
SixShowConv$ = False
EndIf
EndIf
End Function

Function LoadConv()
filein = ReadFile(AppPath$ + "Game\Conv\1\allthree.txt")

While Not Eof(filein)
Sent.ThreeConv = New ThreeConv
Sent\Sent$ = ReadLine(filein)
HowManyConvSent3% = HowManyConvSent3% + 1
Wend
CloseFile(filein)


filein = ReadFile(AppPath$ + "Game\Conv\1\allfour.txt")

While Not Eof(filein)
Sent1.FourConv = New FourConv
Sent1\Sent$ = ReadLine(filein)
HowManyConvSent4% = HowManyConvSent4% + 1
Wend
CloseFile(filein)


filein = ReadFile(AppPath$ + "Game\Conv\1\allfive.txt")

While Not Eof(filein)
Sent2.FiveConv = New FiveConv
Sent2\Sent$ = ReadLine(filein)
HowManyConvSent5% = HowManyConvSent5% + 1
Wend
CloseFile(filein)

filein = ReadFile(AppPath$ + "Game\Conv\1\allSix.txt")

While Not Eof(filein)
Sent3.SixConv = New SixConv
Sent3\Sent$ = R

i know this is alot of code here

Cor, I said the just the minimum which demonstrates your problem. Oh well, I got nothing better to do right now, I'll have a look.

ADDITION: This is just an early guess since I haven't really sifted through all your code, but it looks like you are calling EraseLevelGraphics (and thus, FreeImage) after changing the screen mode. Changing the screen mode will clear all the graphics out of your scene, so calling FreeImage on an image which is already gone will result in an error. Try removing EraseLevelGraphics after the screen change.

wow..i'll try that

You should maybe look into using arrays too, to reduce the amount of typing. Becasue you have things like.

compvar1
compvar2
compvar3
...
compvar10

:)

It's hard to tell what's going on since I can't seem to find any call to the Graphics command. How are you initializing graphics and changing the screenmode?

Hm, is this a BlitzPlus app? Because I know little about the GUI functions. If you're using that stuff, I probably won't be much help.

i have it in the Intro() function
and the CheckMouseCollisions() function

Hooray...I think I fixed it..
I tolk jhockings advice and avoided clearing images that did not have to be cleared. Now I dont have an image does not exist error any more!!!!!

thx

Regarding your question on how to post a code block, the code below was basically correct except that you need to use a forward slash instead of a backward one.

[code]
print hello
[\code]

this slash /

print hello

Ohhhh it was a "hello world" app ;)

bit long for just that :)