REM code still running - GameCreators Forum

Author

Message

Barry Pythagoras

10

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 25th Jun 2021 15:53

Link

I have an old program that flickers, so I used REM to get rid of code to find out where the flicker was coming from. Then I noticed that the REM code was still running, so as an experiment I REMed out all the code apart from the Do Loop. The game was still running as if it had no REMs in the code.

The code was green, but had a strange fade in the green to grey???

Back to top

Profile PM

Bored of the Rings

User Banned

Posted: 26th Jun 2021 07:04

Link

Do you have code to share?

Professional Programmer, languages: SAS, C++, SQL, PL-SQL, DBPro, Purebasic, JavaScript, others

Back to top

Profile

Barry Pythagoras

10

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 1st Jul 2021 22:20

Link

Sure... what about media?...

`********************************** MAP REFERENCE *********************************
`0 = Empty Slot
`1-7 = Property Number
`8 = Hotel
`9-12 = Player Cross
`14 = Hidden Bonus
`35 = Visible Bonus
`21 = Surrounding Hotel Area

set display mode 1024,768,32
sync on
sync rate 0
hide mouse
Dim Map(15,11)
Dim Player$(4)
Dim Hotels(30,2)
Dim Crosses(3,6,2)
Dim Available(7)
Dim Properties(4,7)
Player$(1) = "tony"
Player$(2) = "cassie"
Player$(3) = "brent"
Player$(4) = "pincho"

ink 0,255
backdrop off
autocam off
Gosub setup
show mouse
Randomize timer()
Gosub Startup
Gosub MapDrawer

Do

If mouseclick() = 1 and p = 4 then gosub zonecheck
   If p = 4 and action = 0 then gosub PlayerTurn
   If p < 4 then gosub CPU

sync
Loop
PlayerTurn:
paste image 1,0,0
gosub mapdrawer
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
action = 1
Return

CPU:
   if action = 0
paste image 1,0,0
gosub mapdrawer
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()
for n = 1 to 7
if available(n) = 1 then inc count
next n

r = rnd(5)+1
hx = crosses(p,r,1)
hy = crosses(p,r,2)

if map(hx,hy)= 21+9+p
repeat
r2 = rnd(6) + 1
until available(r2) = 1
available(r2)=0
map(hx,hy)= r2

if map(hx-1,hy)= 8
map(hx-1,hy) = r2
hx2 = hx-1
hy2 = hy
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
endif

if map(hx+1,hy)= 8
map(hx+1,hy) = r2
hx2 = hx+1
hy2 = hy
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
Endif

if map(hx,hy-1)= 8
map(hx,hy-1) = r2
hx2 = hx
hy2 = hy-1
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
Endif

if map(hx,hy+1)= 8
map(hx,hy+1) = r2
hx2 = hx
hy2 = hy+1
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
Endif

if map(hx-1,hy)= 0 then map(hx-1,hy) = 50
if map(hx+1,hy)= 0 then map(hx+1,hy) = 50
if map(hx,hy-1)= 0 then map(hx,hy-1) = 50
if map(hx,hy+1)= 0 then map(hx,hy+1) = 50

if map(hx-1,hy)= 21 then map(hx-1,hy) = 50
if map(hx+1,hy)= 21 then map(hx+1,hy) = 50
if map(hx,hy-1)= 21 then map(hx,hy-1) = 50
if map(hx,hy+1)= 21 then map(hx,hy+1) = 50

if map(hx-1,hy)> 29 and map(hx-1,hy) < 34 then map(hx-1,hy) = map(hx-1,hy)+50
if map(hx+1,hy)> 29 and map(hx+1,hy) < 34 then map(hx+1,hy) = map(hx+1,hy)+50
if map(hx,hy-1)> 29 and map(hx,hy-1) < 34 then map(hx,hy-1) = map(hx,hy-1)+50
if map(hx,hy+1)> 29 and map(hx,hy+1) < 34 then map(hx,hy+1) = map(hx,hy+1)+50

if map(hx-1,hy)> 8 and map(hx-1,hy) < 13 then map(hx-1,hy) = map(hx-1,hy)+50
if map(hx+1,hy)> 8 and map(hx+1,hy) < 13 then map(hx+1,hy) = map(hx+1,hy)+50
if map(hx,hy-1)> 8 and map(hx,hy-1) < 13 then map(hx,hy-1) = map(hx,hy-1)+50
if map(hx,hy+1)> 8 and map(hx,hy+1) < 13 then map(hx,hy+1) = map(hx,hy+1)+50

paste image 1,0,0
gosub mapdrawer

t$ = p$ + "creates " + str$(r2)
writebitmap2(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9+p
crosses(p,r,1) = hx
crosses(p,r,2) = hy
Action = 5
else
map(crosses(p,r,1),crosses(p,r,2))= 8
if map(hx-1,hy)= 0 or map(hx-1,hy)= 14 then map(hx-1,hy) = map(hx-1,hy) + 21
if map(hx-1,hy)> 8 and map(hx-1,hy) < 13
map(hx-1,hy) = map(hx-1,hy) + 21
endif

if map(hx+1,hy)= 0 or map(hx+1,hy)= 14 then map(hx+1,hy) = map(hx+1,hy) + 21
if map(hx+1,hy)> 8 and map(hx+1,hy) < 13
map(hx+1,hy) = map(hx+1,hy) + 21

endif

if map(hx,hy-1)= 0 or map(hx,hy-1)= 14 then map(hx,hy-1) = map(hx,hy-1) + 21
if map(hx,hy-1) > 8 and map(hx,hy-1) < 13
map(hx,hy-1)= map(hx,hy-1) + 21

endif

if map(hx,hy+1)= 0 or map(hx,hy+1)= 14 then map(hx,hy+1) = map(hx,hy+1) + 21
if map(hx,hy+1) > 8 and map(hx,hy+1) < 13
map(hx,hy+1)= map(hx,hy+1) + 21

endif

paste image 1,0,0
gosub mapdrawer
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9+p
crosses(p,r,1) = hx
crosses(p,r,2) = hy

t$ = p$ + "sets a single hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()
action = 5
Endif
Endif

if action = 5
inc p
if p = 5 then p = 1
Action = 0
endif
Return

Startup:
screen = 1
Action = 0
for n = 1 to 7
   Available(n) = 1
next n

for n = 1 to 4
   for n1 = 1 to 7
      properties(n,n1)=0
   next n1
next n

for x = 1 to 14
for y = 1 to 10
map(x,y) = 0
next y
next x

`Place Hotels
count = 0
Repeat
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+1
Hy = Rnd(3)+2
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21

endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+6
Hy = Rnd(3)+2
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+11
Hy = Rnd(3)+2
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+1
Hy = Rnd(3)+6
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+6
Hy = Rnd(3)+6
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+11
Hy = Rnd(3)+6
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
Until Count >= 3

`Place Bonuses
for n = 1 to 5
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21
map(hx,hy)= map(hx,hy) + 14
next n

`Place Crosses
for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9
next n

for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+10
crosses(1,n,1)=hx
crosses(1,n,2)=hy
next n

for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+11
crosses(2,n,1)=hx
crosses(2,n,2)=hy
next n

for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+12
crosses(3,n,1)=hx
crosses(3,n,2)=hy
next n
Return

MapDrawer:
for Gridx = 1 to 14
For GridY = 2 to 10
GridResult = Map(Gridx,GridY)
If GridResult = 8 then Paste Image 10,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 9 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`If GridResult = 30 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64

`Test
remstart
If GridResult > 9 and GridResult < 13 then Paste Image 300 + (Gridresult-9),((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 20 and GridResult < 44 then Paste Image 20,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 30 and GridResult < 34 then Paste Image 300 + (Gridresult-30),((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 47 then Paste Image 20,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult =14 then Paste Image 21,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`End Test
remend
If GridResult >= 1 and GridResult <= 7 then Paste Image 300 + Gridresult,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64

If GridResult = 30 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 13 then Paste Image 12,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`If GridResult = 14
`If Map(Gridx-1,GridY) = 8 or Map(Gridx,GridY-1) = 8 or Map(Gridx+1,GridY) = 8 or Map(Gridx,GridY+1) = 8
If GridResult = 35 then Paste Image 13,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 44 and GridResult < 48 then Paste Image 22,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 44 then Paste Image 14,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult >= 50 then Paste Image 21,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 80 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
Text ((gridx-1) * 64) + 64,((gridY-1) * 64) + 64,Str$(Gridresult)
`endif

`Endif

next GridY
Next GridX

Return

Zonecheck:
REM area 0
if zoneclicked(68,24,255,62)=1
paste image 1,0,0
screen = 1
gosub mapdrawer
endif

REM area 1
if zoneclicked(261,24,446,62)=1
paste image 2,0,0
screen = 2
endif

REM area 2
if zoneclicked(453,24,638,62)=1
paste image 3,0,0
screen = 3

endif

REM area 3
if zoneclicked(644,24,829,62)=1
paste image 4,0,0
screen = 4
endif

REM area 4
if zoneclicked(95,607,289,674)=1 and screen = 3
paste image 6,96,608
repeat
sync
until mouseclick() = 0
paste image 5,96,608
sync
endif

if action = 1
for ClickX = 1 to 14
For ClickY = 1 to 10
If map(clickx,clicky) = 30
If zoneclicked(((clickx-1) * 64) + 64, ((clickY-1) *64) + 64,((clickx-1) * 64) + 128, ((clickY-1) *64) + 128)= 1 and screen = 1
map(clickx,clicky) = 13
Paste Image 12,((clickx-1) * 64) + 64 ,((clickY-1) * 64) + 64
action = 2
t$ = "buy 1st share of 3"

writebitmap(t$,screen width()/2-(len(t$)*9),65)
paste image 3,0,0
screen = 3
inc hotel
sync
endif
endif
next ClickY
Next ClickX
endif

if action = 1
for ClickX = 1 to 14
For ClickY = 1 to 10
If map(clickx,clicky) = 9
If zoneclicked(((clickx-1) * 64) + 64, ((clickY-1) *64) + 64,((clickx-1) * 64) + 128, ((clickY-1) *64) + 128)= 1 and screen = 1
map(clickx,clicky) = 8
Paste Image 10,((clickx-1) * 64) + 64 ,((clickY-1) * 64) + 64
hx = clickx
hy = clicky
if map(hx-1,hy)= 0 or map(hx-1,hy) = 9 or map(hx-1,hy) = 14 then map(hx-1,hy) = map(hx-1,hy) + 21
if map(hx+1,hy)= 0 or map(hx+1,hy) = 9 or map(hx+1,hy) = 14 then map(hx+1,hy) = map(hx+1,hy) + 21
if map(hx,hy-1)= 0 or map(hx,hy-1) = 9 or map(hx,hy-1) = 14 then map(hx,hy-1) = map(hx,hy-1) + 21
if map(hx,hy+1)= 0 or map(hx,hy+1) = 9 or map(hx,hy+1) = 14 then map(hx,hy+1) = map(hx,hy+1) + 21
if map(hx-1,hy)> 9 and map(hx-1,hy) < 13 then map(hx-1,hy) = map(hx-1,hy) + 21
if map(hx+1,hy)> 9 and map(hx+1,hy) < 13 then map(hx+1,hy) = map(hx+1,hy) + 21
if map(hx,hy-1)> 9 and map(hx,hy-1) < 13 then map(hx,hy-1) = map(hx,hy-1) + 21
if map(hx,hy+1) > 9 and map(hx,hy+1)< 13 then map(hx,hy+1) = map(hx,hy+1) + 21
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9
action = 2
If hotel > 0
paste image 3,0,0
screen = 3
sync
endif
endif
endif
next ClickY
Next ClickX
If hotel = 0 and action = 2

paste image 1,0,0
gosub mapdrawer
sync
screen = 1
t$ = "you cannot buy any shares"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()

inc p
if p = 5 then p = 1
action = 0
paste image 1,0,0
gosub mapdrawer
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)

Endif
Endif

Return

Setup:
Load Image "GFX/Map Screen.bmp",1
Load Image "GFX/Numbers Screen.bmp",2
Load Image "GFX/Purchase Screen.bmp",3
Load Image "GFX/Log Screen.bmp",4
Load Image "GFX/Buy.bmp",5
Load Image "GFX/BuyPressed.bmp",6

Load Image "GFX/Hotel.bmp",10
Load Image "GFX/Cross.bmp",11
Load Image "GFX/Question.bmp",12
Load Image "GFX/3Bonus1.bmp",13
Load Image "GFX/BonusClick.jpg",14
Load Image "GFX/test.jpg",20
Load Image "GFX/test2.jpg",21
Load Image "GFX/test3.jpg",22

for n = 1 to 7
a$ = "GFX/" + str$(n) + ".jpg"
Load Image a$,300 + n
next n

paste image 1,0,0
for n = 97 to 97+25
a$ = "small font/" + chr$(n)+ ".png"

load image a$,n+3,1,1

next n
for n = 1 to 9
a$ = "small font/" + STR$(n)+ ".png"
load image a$,n+200,1,1
next n

For n = 1 to 7
a$ = "GFX/" + "Sm" + STR$(n)+ ".png"
load image a$,n+250,1,1
next n

p = rnd(3)+1
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"

writebitmap(t$,screen width()/2-(len(t$)*9),65)
Return
function WriteBitmap(a$,xposition,yposition)
num = 0
Skip = 0
length = len(a$)
for n = 1 to 40
if sprite exist(n)
delete sprite n
endif
next n
for n = 1 to length
if n > 1 and skip = 0
width = Width + sprite width(n-1)
else
skip = 0
endif
num = asc(mid$(a$,n))
if num > 32
if num = 96+2 or num = 96+4 or num = 96+8 or num = 96+9 or num = 96+11 or num = 96+12 or num = 96+20
height = 4
else height = 0
endif
if num >= asc("1") and num <= asc("9") then num = ((num + 200) - asc("1")) - 2
if num >= asc("!") and num <= asc("&") then num = ((num + 250) - asc("!")) - 2
if num = 96+20 then height = 3
SET SPRITE n, 0, 1
SET SPRITE ALPHA n, 2
SET SPRITE DIFFUSE n,170, 170, 255

sprite n,width+xposition,20-height+yposition,num+3
else
skip = 1
width = width + 10
endif
next n
Endfunction

function WriteBitmap2(a$,xposition,yposition)
num = 0
Skip = 0
length = len(a$)
for n = 1 to 40
if sprite exist(n)
delete sprite n
endif
next n
for n = 1 to length
if n > 1 and skip = 0
width = Width + sprite width(n-1)
else
skip = 0
endif
num = asc(mid$(a$,n))
if num > 32
if num = 96+2 or num = 96+4 or num = 96+8 or num = 96+9 or num = 96+11 or num = 96+12 or num = 96+20
height = 4
else height = 0
endif
if num >= asc("1") and num <= asc("9") then num = ((num + 250) - asc("1")) - 2 : height = 5
if num = 96+20 then height = 3
SET SPRITE n, 0, 1
SET SPRITE ALPHA n, 2
SET SPRITE DIFFUSE n,170, 170, 255

sprite n,width+xposition,20-height+yposition,num+3
else
skip = 1
width = width + 10
endif
next n
Endfunction

function ZoneClicked(X1,Y1,X2,Y2)
J=0:X=mousex():Y=mousey()
if X>=X1 and X<=X2 and Y>=Y1 and Y<=Y2 then J=1
endfunction J

+ Code Snippet

`********************************** MAP REFERENCE *********************************
`0 = Empty Slot
`1-7 = Property Number
`8 = Hotel
`9-12 = Player Cross
`14 = Hidden Bonus
`35 = Visible Bonus
`21 = Surrounding Hotel Area

set display mode 1024,768,32
sync on
sync rate 0
hide mouse
Dim Map(15,11)
Dim Player$(4)
Dim Hotels(30,2)
Dim Crosses(3,6,2)
Dim Available(7)
Dim Properties(4,7)
Player$(1) = "tony"
Player$(2) = "cassie"
Player$(3) = "brent"
Player$(4) = "pincho"

ink 0,255
backdrop off
autocam off
Gosub setup
show mouse
Randomize timer()
Gosub Startup
Gosub MapDrawer

Do

   If mouseclick() = 1 and p = 4 then gosub zonecheck
   If p = 4 and action = 0 then gosub PlayerTurn
   If p < 4 then gosub CPU

sync
Loop
PlayerTurn:
paste image 1,0,0
gosub mapdrawer
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
action = 1
Return

CPU:
   if action = 0
paste image 1,0,0
gosub mapdrawer
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()
for n = 1 to 7
if available(n) = 1 then inc count
next n

r = rnd(5)+1
hx = crosses(p,r,1)
hy = crosses(p,r,2)

if map(hx,hy)= 21+9+p
repeat
r2 = rnd(6) + 1
until available(r2) = 1
available(r2)=0
map(hx,hy)= r2

if map(hx-1,hy)= 8
map(hx-1,hy) = r2
hx2 = hx-1
hy2 = hy
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
endif

if map(hx+1,hy)= 8
map(hx+1,hy) = r2
hx2 = hx+1
hy2 = hy
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
Endif

if map(hx,hy-1)= 8
map(hx,hy-1) = r2
hx2 = hx
hy2 = hy-1
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
Endif

if map(hx,hy+1)= 8
map(hx,hy+1) = r2
hx2 = hx
hy2 = hy+1
if map(hx2-1,hy2)= 0 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 0 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 0 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 0 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)= 21 then map(hx2-1,hy2) = 50
if map(hx2+1,hy2)= 21 then map(hx2+1,hy2) = 50
if map(hx2,hy2-1)= 21 then map(hx2,hy2-1) = 50
if map(hx2,hy2+1)= 21 then map(hx2,hy2+1) = 50

if map(hx2-1,hy2)> 29 and map(hx2-1,hy2) < 34 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 29 and map(hx2+1,hy2) < 34 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 29 and map(hx2,hy2-1) < 34 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 29 and map(hx2,hy2+1) < 34 then map(hx2,hy2+1) = map(hx2,hy2+1)+50

if map(hx2-1,hy2)> 8 and map(hx2-1,hy2) < 13 then map(hx2-1,hy2) = map(hx2-1,hy2)+50
if map(hx2+1,hy2)> 8 and map(hx2+1,hy2) < 13 then map(hx2+1,hy2) = map(hx2+1,hy2)+50
if map(hx2,hy2-1)> 8 and map(hx2,hy2-1) < 13 then map(hx2,hy2-1) = map(hx2,hy2-1)+50
if map(hx2,hy2+1)> 8 and map(hx2,hy2+1) < 13 then map(hx2,hy2+1) = map(hx2,hy2+1)+50
Endif

if map(hx-1,hy)= 0 then map(hx-1,hy) = 50
if map(hx+1,hy)= 0 then map(hx+1,hy) = 50
if map(hx,hy-1)= 0 then map(hx,hy-1) = 50
if map(hx,hy+1)= 0 then map(hx,hy+1) = 50

if map(hx-1,hy)= 21 then map(hx-1,hy) = 50
if map(hx+1,hy)= 21 then map(hx+1,hy) = 50
if map(hx,hy-1)= 21 then map(hx,hy-1) = 50
if map(hx,hy+1)= 21 then map(hx,hy+1) = 50

if map(hx-1,hy)> 29 and map(hx-1,hy) < 34 then map(hx-1,hy) = map(hx-1,hy)+50
if map(hx+1,hy)> 29 and map(hx+1,hy) < 34 then map(hx+1,hy) = map(hx+1,hy)+50
if map(hx,hy-1)> 29 and map(hx,hy-1) < 34 then map(hx,hy-1) = map(hx,hy-1)+50
if map(hx,hy+1)> 29 and map(hx,hy+1) < 34 then map(hx,hy+1) = map(hx,hy+1)+50

if map(hx-1,hy)> 8 and map(hx-1,hy) < 13 then map(hx-1,hy) = map(hx-1,hy)+50
if map(hx+1,hy)> 8 and map(hx+1,hy) < 13 then map(hx+1,hy) = map(hx+1,hy)+50
if map(hx,hy-1)> 8 and map(hx,hy-1) < 13 then map(hx,hy-1) = map(hx,hy-1)+50
if map(hx,hy+1)> 8 and map(hx,hy+1) < 13 then map(hx,hy+1) = map(hx,hy+1)+50



paste image 1,0,0
gosub mapdrawer



t$ = p$ + "creates " + str$(r2)
writebitmap2(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9+p
crosses(p,r,1) = hx
crosses(p,r,2) = hy
Action = 5
else
map(crosses(p,r,1),crosses(p,r,2))= 8
if map(hx-1,hy)= 0 or map(hx-1,hy)= 14 then map(hx-1,hy) = map(hx-1,hy) + 21
if map(hx-1,hy)> 8 and map(hx-1,hy) < 13
map(hx-1,hy) = map(hx-1,hy) + 21
endif

if map(hx+1,hy)= 0 or map(hx+1,hy)= 14 then map(hx+1,hy) = map(hx+1,hy) + 21
if map(hx+1,hy)> 8 and map(hx+1,hy) < 13
map(hx+1,hy) = map(hx+1,hy) + 21

endif

if map(hx,hy-1)= 0 or map(hx,hy-1)= 14 then map(hx,hy-1) = map(hx,hy-1) + 21
if map(hx,hy-1) > 8 and map(hx,hy-1) < 13
map(hx,hy-1)= map(hx,hy-1) + 21

endif

if map(hx,hy+1)= 0 or map(hx,hy+1)= 14 then map(hx,hy+1) = map(hx,hy+1) + 21
if map(hx,hy+1) > 8 and map(hx,hy+1) < 13
map(hx,hy+1)= map(hx,hy+1) + 21

endif


paste image 1,0,0
gosub mapdrawer
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9+p
crosses(p,r,1) = hx
crosses(p,r,2) = hy

t$ = p$ + "sets a single hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()
action = 5
Endif
Endif

if action = 5
inc p
if p = 5 then p = 1
Action = 0
endif
Return

Startup:
screen = 1
Action = 0
for n = 1 to 7
   Available(n) = 1
next n

for n = 1 to 4
   for n1 = 1 to 7
      properties(n,n1)=0
   next n1
next n

for x = 1 to 14
for y = 1 to 10
map(x,y) = 0
next y
next x

`Place Hotels
count = 0
Repeat
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+1
Hy = Rnd(3)+2
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21

endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+6
Hy = Rnd(3)+2
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+11
Hy = Rnd(3)+2
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+1
Hy = Rnd(3)+6
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+6
Hy = Rnd(3)+6
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
r = rnd(2) + 1
if r = 1
inc count
Hx = Rnd(3)+11
Hy = Rnd(3)+6
map(hx,hy)=8
hotels(Count,1) = hx
hotels(Count,2) = hy
if map(hx-1,hy)= 0 then map(hx-1,hy) = 21
if map(hx+1,hy)= 0 then map(hx+1,hy) = 21
if map(hx,hy-1)= 0 then map(hx,hy-1) = 21
if map(hx,hy+1)= 0 then map(hx,hy+1) = 21
Endif
Until Count >= 3

`Place Bonuses
for n = 1 to 5
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21
map(hx,hy)= map(hx,hy) + 14
next n

`Place Crosses
for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9
next n

for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+10
crosses(1,n,1)=hx
crosses(1,n,2)=hy
next n


for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+11
crosses(2,n,1)=hx
crosses(2,n,2)=hy
next n


for n = 1 to 6
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+12
crosses(3,n,1)=hx
crosses(3,n,2)=hy
next n
Return

MapDrawer:
for Gridx = 1 to 14
For GridY = 2 to 10
GridResult = Map(Gridx,GridY)
If GridResult = 8 then Paste Image 10,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 9 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`If GridResult = 30 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64

`Test
remstart
If GridResult > 9 and GridResult < 13 then Paste Image 300 + (Gridresult-9),((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 20 and GridResult < 44 then Paste Image 20,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 30 and GridResult < 34 then Paste Image 300 + (Gridresult-30),((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 47 then Paste Image 20,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult =14 then Paste Image 21,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`End Test
remend
If GridResult >= 1 and GridResult <= 7 then Paste Image 300 + Gridresult,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64

If GridResult = 30 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 13 then Paste Image 12,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`If GridResult = 14
`If Map(Gridx-1,GridY) = 8 or Map(Gridx,GridY-1) = 8 or Map(Gridx+1,GridY) = 8 or Map(Gridx,GridY+1) = 8
If GridResult = 35 then Paste Image 13,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 44 and GridResult < 48 then Paste Image 22,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 44 then Paste Image 14,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult >= 50 then Paste Image 21,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult = 80 then Paste Image 11,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
Text ((gridx-1) * 64) + 64,((gridY-1) * 64) + 64,Str$(Gridresult)
`endif

`Endif

next GridY
Next GridX

Return

Zonecheck:
REM area 0
if zoneclicked(68,24,255,62)=1
paste image 1,0,0
screen = 1
gosub mapdrawer
endif

REM area 1
if zoneclicked(261,24,446,62)=1
paste image 2,0,0
screen = 2
endif

REM area 2
if zoneclicked(453,24,638,62)=1
paste image 3,0,0
screen = 3

endif

REM area 3
if zoneclicked(644,24,829,62)=1
paste image 4,0,0
screen = 4
endif

REM area 4
if zoneclicked(95,607,289,674)=1 and screen = 3
paste image 6,96,608
repeat
sync
until mouseclick() = 0
paste image 5,96,608
sync
endif

if action = 1
for ClickX = 1 to 14
For ClickY = 1 to 10
If map(clickx,clicky) = 30
If zoneclicked(((clickx-1) * 64) + 64, ((clickY-1) *64) + 64,((clickx-1) * 64) + 128, ((clickY-1) *64) + 128)= 1 and screen = 1
map(clickx,clicky) = 13
Paste Image 12,((clickx-1) * 64) + 64 ,((clickY-1) * 64) + 64
action = 2
t$ = "buy 1st share of 3"


writebitmap(t$,screen width()/2-(len(t$)*9),65)
paste image 3,0,0
screen = 3
inc hotel
sync
endif
endif
next ClickY
Next ClickX
endif

if action = 1
for ClickX = 1 to 14
For ClickY = 1 to 10
If map(clickx,clicky) = 9
If zoneclicked(((clickx-1) * 64) + 64, ((clickY-1) *64) + 64,((clickx-1) * 64) + 128, ((clickY-1) *64) + 128)= 1 and screen = 1
map(clickx,clicky) = 8
Paste Image 10,((clickx-1) * 64) + 64 ,((clickY-1) * 64) + 64
hx = clickx
hy = clicky
if map(hx-1,hy)= 0 or map(hx-1,hy) = 9 or map(hx-1,hy) = 14 then map(hx-1,hy) = map(hx-1,hy) + 21
if map(hx+1,hy)= 0 or map(hx+1,hy) = 9 or map(hx+1,hy) = 14 then map(hx+1,hy) = map(hx+1,hy) + 21
if map(hx,hy-1)= 0 or map(hx,hy-1) = 9 or map(hx,hy-1) = 14 then map(hx,hy-1) = map(hx,hy-1) + 21
if map(hx,hy+1)= 0 or map(hx,hy+1) = 9 or map(hx,hy+1) = 14 then map(hx,hy+1) = map(hx,hy+1) + 21
if map(hx-1,hy)> 9 and map(hx-1,hy) < 13 then map(hx-1,hy) = map(hx-1,hy) + 21
if map(hx+1,hy)> 9 and map(hx+1,hy) < 13 then map(hx+1,hy) = map(hx+1,hy) + 21
if map(hx,hy-1)> 9 and map(hx,hy-1) < 13 then map(hx,hy-1) = map(hx,hy-1) + 21
if map(hx,hy+1) > 9 and map(hx,hy+1)< 13 then map(hx,hy+1) = map(hx,hy+1) + 21
Repeat
Hx = Rnd(13)+1
Hy = Rnd(8)+2
Until map(hx,hy) = 0 or map(hx,hy) = 21 or map(hx,hy) = 35
map(hx,hy)= map(hx,hy)+9
action = 2
If hotel > 0
paste image 3,0,0
screen = 3
sync
endif
endif
endif
next ClickY
Next ClickX
If hotel = 0 and action = 2

paste image 1,0,0
gosub mapdrawer
sync
screen = 1
t$ = "you cannot buy any shares"
writebitmap(t$,screen width()/2-(len(t$)*9),65)
t = timer() + 3000
repeat
sync
until t <= timer()

inc p
if p = 5 then p = 1
action = 0
paste image 1,0,0
gosub mapdrawer
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"
writebitmap(t$,screen width()/2-(len(t$)*9),65)

Endif
Endif





Return

Setup:
Load Image "GFX/Map Screen.bmp",1
Load Image "GFX/Numbers Screen.bmp",2
Load Image "GFX/Purchase Screen.bmp",3
Load Image "GFX/Log Screen.bmp",4
Load Image "GFX/Buy.bmp",5
Load Image "GFX/BuyPressed.bmp",6

Load Image "GFX/Hotel.bmp",10
Load Image "GFX/Cross.bmp",11
Load Image "GFX/Question.bmp",12
Load Image "GFX/3Bonus1.bmp",13
Load Image "GFX/BonusClick.jpg",14
Load Image "GFX/test.jpg",20
Load Image "GFX/test2.jpg",21
Load Image "GFX/test3.jpg",22

for n = 1 to 7
a$ = "GFX/" + str$(n) + ".jpg"
Load Image a$,300 + n
next n

paste image 1,0,0
for n = 97 to 97+25
a$ = "small font/" + chr$(n)+ ".png"

load image a$,n+3,1,1

next n
for n = 1 to 9
a$ = "small font/" + STR$(n)+ ".png"
load image a$,n+200,1,1
next n

For n = 1 to 7
a$ = "GFX/" + "Sm" + STR$(n)+ ".png"
load image a$,n+250,1,1
next n

p = rnd(3)+1
p$ = Player$(p) + ": "
t$ = p$ + "your turn to set a hotel"


writebitmap(t$,screen width()/2-(len(t$)*9),65)
Return
function WriteBitmap(a$,xposition,yposition)
num = 0
Skip = 0
length = len(a$)
for n = 1 to 40
if sprite exist(n)
delete sprite n
endif
next n
for n = 1 to length
if n > 1 and skip = 0
width = Width + sprite width(n-1)
else
skip = 0
endif
num = asc(mid$(a$,n))
if num > 32
if num = 96+2 or num = 96+4 or num = 96+8 or num = 96+9 or num = 96+11 or num = 96+12 or num = 96+20
height = 4
else height = 0
endif
if num >= asc("1") and num <= asc("9") then num = ((num + 200) - asc("1")) - 2
if num >= asc("!") and num <= asc("&") then num = ((num + 250) - asc("!")) - 2
if num = 96+20 then height = 3
SET SPRITE n, 0, 1
SET SPRITE ALPHA n, 2
SET SPRITE DIFFUSE n,170, 170, 255

sprite n,width+xposition,20-height+yposition,num+3
else
skip = 1
width = width + 10
endif
next n
Endfunction

function WriteBitmap2(a$,xposition,yposition)
num = 0
Skip = 0
length = len(a$)
for n = 1 to 40
if sprite exist(n)
delete sprite n
endif
next n
for n = 1 to length
if n > 1 and skip = 0
width = Width + sprite width(n-1)
else
skip = 0
endif
num = asc(mid$(a$,n))
if num > 32
if num = 96+2 or num = 96+4 or num = 96+8 or num = 96+9 or num = 96+11 or num = 96+12 or num = 96+20
height = 4
else height = 0
endif
if num >= asc("1") and num <= asc("9") then num = ((num + 250) - asc("1")) - 2 : height = 5
if num = 96+20 then height = 3
SET SPRITE n, 0, 1
SET SPRITE ALPHA n, 2
SET SPRITE DIFFUSE n,170, 170, 255

sprite n,width+xposition,20-height+yposition,num+3
else
skip = 1
width = width + 10
endif
next n
Endfunction

function ZoneClicked(X1,Y1,X2,Y2)
J=0:X=mousex():Y=mousey()
if X>=X1 and X<=X2 and Y>=Y1 and Y<=Y2 then J=1
endfunction J

Back to top

Profile PM

Bored of the Rings

User Banned

Posted: 2nd Jul 2021 10:36

Link

yes please if you don't mind just so I can get it running my side and see what's going on.

Professional Programmer, languages: SAS, C++, SQL, PL-SQL, DBPro, Purebasic, JavaScript, others

Back to top

Profile

James H

16

Years of Service

User Offline

Joined: 21st Apr 2007

Location: St Helens

Posted: 2nd Jul 2021 11:56

Link

Sounds like it is re running the previous build regardless, has happened to me because of permissions - ie no admin rights for the editor so it cannot delete the original executable...just check if the executable still has the old date or if it is indeed being rebuilt and showing the current date

Win 7 Pro 64 bit SP1, AMD A4-5300 APU 3.4GHz, 8GB DDR3, NVidia GeForce GTX 750 1GB GDDR5, ASUS A55BM-E

Back to top

Profile PM

Barry Pythagoras

10

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 3rd Jul 2021 00:35

Link

So I ran it as administrator, and still the REM does nothing. I remmed the Do Loop, and it still worked. Here's the media...

Back to top

Profile PM

James H

16

Years of Service

User Offline

Joined: 21st Apr 2007

Location: St Helens

Posted: 3rd Jul 2021 19:24

Link

Er what media? There was an issue with uploads in the past so maybe retry it.

Can you confirm the date of the old exe is different to the new exe?

What happens if you manually delete the old exe and then compile again?

Win 7 Pro 64 bit SP1, AMD A4-5300 APU 3.4GHz, 8GB DDR3, NVidia GeForce GTX 750 1GB GDDR5, ASUS A55BM-E

Back to top

Profile PM

Virtual Nomad

Moderator

18

Years of Service

User Offline

Joined: 14th Dec 2005

Location: SF Bay Area, USA

Posted: 5th Jul 2021 20:10 Edited at: 5th Jul 2021 20:13

Link

this is a relatively wild guess and i haven't used DBPro in years but this reminded me of an issue i had/have with geany/the AppGameKit IDE since it appears that you're using the same ` for commenting in some cases.

from your code above, can you tell us which code is still running despite being rem'd out?

ie, for testing:

+ Code Snippet

`Test
remstart
If GridResult > 9 and GridResult < 13 then Paste Image 300 + (Gridresult-9),((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 20 and GridResult < 44 then Paste Image 20,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 30 and GridResult < 34 then Paste Image 300 + (Gridresult-30),((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult > 47 then Paste Image 20,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
If GridResult =14 then Paste Image 21,((gridx-1) * 64) + 64 ,((gridY-1) * 64) + 64
`End Test
remend

i wonder if there is issue with ` being in between remstart/remend, for example, or some other pattern/mix of usage that might be causing conflict?

[My Itch.io Home] [Community Apps on Itch.io]
[AGK Resource Directory] [TGC @ GitHub]
[CODE lang=agk] YOUR CODE HERE [/CODE]
[VIDEO=youtube] VIDEO ID [/VIDEO]
[AGK Showcase][Google Forum Search]

Back to top

Profile PM Website

James H

16

Years of Service

User Offline

Joined: 21st Apr 2007

Location: St Helens

Posted: 5th Jul 2021 23:06

Link

@Virtual Nomad - just some thoughts I felt I should put out there;

I don't seem to have any issues like that...not that this means that Barry might not, I tested the extract you highlight in Indigo, Codesurge, original Editor and Editor New, what is striking me as extremely odd is Barry's description of colour fading in the editor - I seem to recall that happening to me once in Vista but I don't recall how I got past it for certain, I think it was either admin rights or DEP related or even both, basically I have had to switch DEP off for a number of apps all written in DBP anyway. If you take a look at the image attached the duplicates are because I kept backups but plant life, tree magik and TT(total terrain) are all from the "all seeing i" products I think. The NVD.exe is something I wrote to aid in the creation of Newton vehicles and after changing something related to the exe(I forget what exactly but it meant it was no longer viewed by my current system as a DBPro application), the DBO converter comes with DB classic disk for 3ds files iirc. All of these including DBP fail without the DEP exceptions. I am also pretty sure access to DEP options was further complicated by either having UAC on or off - I forget which, it may have been affected by the fact I installed DBP with either UAC on or off and then later switched UAC on - I have a somewhat hazy memory of this.

I believe the reason I mainly had to do it was because I use file associations to open project files directly, if you add admin rights to some IDE's but not the Launch.exe then one or more gets a failed to load dba error, but if you added it to both the Launch exe and I think the original editor you would get infinite error messages popping up! I forget exactly which order I set the admin rights up, but all in all it was the only way I could get my projects all working directly from dbpro & dba files - mainly prompted by Evolveds use of #includes in his advanced lighting projects ie so I could alter the dba files not loaded into the main editor I was using, so I could open them alongside and save without reopening the whole thing between what where normally minor edits, the down side I think was that i could no longer compile projects from the original DBP install paths project folder but I use the desktop and a second HDD for all my stuff anyway.

I also had xp, vista, win7 and win10 for boot options and so this was my overall solution to work on any project from the same files, however that was on my other machine which packed in - xfx mobo with q6600. These days I just have win7 installed to make life a little easier - not that I use DBP all that much anymore! It may be the case that I can open the editor then load the projects from the DBP install path and it works that way - but I could be wrong, again hazy memory!(my machine is down atm)

From what I recall it may have been slightly different behaviour dependant on which upgrade was being used - 7.7 acted different but that may have been just for win10.

I frequently use ` Rem and Remstart/end and don't have any issues, well as frequent as you might expect given I did just say I don't use DBP a lot these days lol. All that said watch this be something as simple as you suggest and I just typed all this up and look a right pleb haha! I do recall there was an issue adding ` to the end of a line without spaces and also ... screws things up iirc is pointer related? In any case I don't see any usage of this in the code provided.

I am glad you posted that about agk as that was something I was not aware of. As I said though these are more just thoughts as clearly I don't really know what I am talking about exactly - but DEP and admin rights certainly played a big role in things. I can remove those rules and everything breaks until I set them back again. I *think* this was similar for Texture Maker, but I never backed up my licence sadly so don't have it installed.

Win 7 Pro 64 bit SP1, AMD A4-5300 APU 3.4GHz, 8GB DDR3, NVidia GeForce GTX 750 1GB GDDR5, ASUS A55BM-E

Attachments

Login to view attachments

Back to top

Profile PM

Barry Pythagoras

10

Years of Service

User Offline

Joined: 14th Mar 2014

Location:

Posted: 18th Jul 2021 13:08 Edited at: 18th Jul 2021 13:09

Link

Thanks for help... Here's the media again...

Do zips work OK, because they upload, but don't seem to show.

Attachments

Login to view attachments

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / REM code still running

Attachments

Attachments