Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Day 2 - You must break at least 2 NetHack conducts, in real life.
Day 3 - All code must rhyme. For example, If { ItemUsed = "Health Packs" } PlayerHealth = MAX
Day 4 - You must find a use for the word XYZZY in your code.
Day 5 - In addition to writing your 7DRL, you must win a 7DRL roguelike of your choice.
Day 6 - You must keep at least one unofficial NetHack conduct, in real life. For example: Celibacy, Nudism or Zen (you wear a blindfold all day).
Day 7 - All code must be hurriedly rushed. Nearly all bugs are created on this day. Testing is left until the last hour.
'MAPPING SYSTEM
dim x,y,z,tiles(29)(29)
dim rooms,rx,ry,rmx,rmy,rtestx,rtesty,rcheck,door
x=0:y=int(-3):z=0
rooms=rnd()%10+1
while rooms>0
rx=rnd()%20:ry=rnd()%20
rmx=rnd()%6+5:rmy=rnd()%6+5:rcheck=0
for rtesty=ry to ry+rmy
for rtesty=ry to ry+rmy
if tiles(rtestx)(rtesty)=2 then:rcheck=1:endif
next:next
if rcheck=0 then
for rtesty=ry to ry+rmy:for rtestx=rx to rx+rmx
tiles(rtestx)(rtesty)=1:next:next
for rtesty=ry to ry+rmy:tiles(rx)(rtesty)=2:next
for rtesty=ry to ry+rmy:tiles(rx+rmx)(rtesty)=2:next
for rtestx=rx to rx+rmx:tiles(rtestx)(ry)=2:next
for rtestx=rx to rx+rmx:tiles(rtestx)(ry+rmy)=2:next
endif:rooms=rooms-1:wend
'for y=0 to 29:for x=0 to 29
'if tiles(x)(y)=2 then:door=rnd()%25+1
'if door=25 then:tiles(x)(y)=rnd()%2+3:endif:endif
'next:next
px#=rnd()%30:py#=rnd()%30
while not tiles(px#)(py#)=1
px#=rnd()%30:py#=rnd()%30:wend
tiles(px#)(py#)=5
'PATHGEN... PART OF MAPGEN v1.0
paths=rnd()%15+5:while paths>0
while tiles(mx)(my)<>0:mx=rnd()%28+1:my=rnd()%28+1:wend
if tiles(mx+1)(my)=0 then:pathdir=0:mx=mx+1:endif
if tiles(mx)(my+1)=0 then:pathdir=1:my=my+1:endif
if tiles(mx-1)(my)=0 then:pathdir=2:mx=mx-1:endif
if tiles(mx)(my-1)=0 then:pathdir=3:my=my-1:endif
pathlength=20:while pathlength>0
pathdir=rnd()%4:pathseg=rnd()%10:while pathseg>pathlength
pathseg=pathseg-1:wend:while pathdir=0 and mx+pathseg>28
pathseg=pathseg-1:wend:while pathdir=1 and my+pathseg>28
pathseg=pathseg-1:wend:while pathdir=2 and mx-pathseg<1
pathseg=pathseg-1:wend:while pathdir=3 and my-pathseg<1
pathseg=pathseg-1:wend
while pathdir=0 and pathseg>0
pathlength=pathlength-1:tiles(mx)(my)=1:pathseg=pathseg-1:mx=mx+1
if tiles(mx+1)(my)=2 then:tiles(mx+1)(my)=3:pathseg=0:endif:wend
while pathdir=1 and pathseg>0
pathlength=pathlength-1:tiles(mx)(my)=1:pathseg=pathseg-1:my=my+1
if tiles(mx)(my+1)=2 then:tiles(mx)(my+1)=3:pathseg=0:endif:wend
while pathdir=2 and pathseg>0
pathlength=pathlength-1:tiles(mx)(my)=1:pathseg=pathseg-1:mx=mx-1
if tiles(mx-1)(my)=2 then:tiles(mx-1)(my)=3:pathseg=0:endif:wend
while pathdir=3 and pathseg>0
pathlength=pathlength-1:tiles(mx)(my)=1:pathseg=pathseg-1:my=my-1
if tiles(mx)(my-1)=2 then:tiles(mx)(my-1)=3:pathseg=0:endif:wend:wend
paths=paths-1:wend
'PATHGEN OVER
'END OF MAPPING SYSTEM