Sorry your browser is not supported!

hi

with help from sven B i have put togather a RPG scroll box for items c/f final fantasy series style. but im not sure how the best way to select an item from it would be. any ideas or suggestions would be great

thanks

kR

sync on

`make an array with strings
items = 5

`read string 1,a$
   `read string 1,b$

dim string$(items)

a$="Potion"
b$="H-Potion"
c$="S-Potion"
d$="Pheonix Tear"
e$="Elixer"

for i = 1 to items
   string$(1) = a$
   string$(2) = b$
   string$(3) = c$
   string$(4) = d$
   string$(5) = e$
  ` string$(6) = f$
  ` string$(7) = g$
  ` string$(8) = h$
  ` string$(9) = i$
  ` string$(10) = j$
  ` string$(11) = k$
  ` string$(12) = l$

next i

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

`clear screen
   cls

`main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         text posx + 5, posy + texty, string$(data)
      endif
   next data

`make scroll buttons
   if buttonup(posx+sizex-10,posy+10,"^") > 0 then inc sy
   if buttondwn(posx+sizex-10,posy+sizey-10,"v")>0 then dec sy

sync
loop

function buttonup(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if upkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed =upkey()
   else
      pressed = 0
   endif
endfunction pressed

function buttondwn(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if downkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed = downkey()
   else
      pressed = 0
   endif
endfunction pressed

sync on

`make an array with strings
items = 5

   `read string 1,a$
   `read string 1,b$



dim string$(items)

a$="Potion"
b$="H-Potion"
c$="S-Potion"
d$="Pheonix Tear"
e$="Elixer"

for i = 1 to items
   string$(1) = a$
   string$(2) = b$
   string$(3) = c$
   string$(4) = d$
   string$(5) = e$
  ` string$(6) = f$
  ` string$(7) = g$
  ` string$(8) = h$
  ` string$(9) = i$
  ` string$(10) = j$
  ` string$(11) = k$
  ` string$(12) = l$

next i

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

   `clear screen
   cls

   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         text posx + 5, posy + texty, string$(data)
      endif
   next data

   `make scroll buttons
   if buttonup(posx+sizex-10,posy+10,"^") > 0 then inc sy
   if buttondwn(posx+sizex-10,posy+sizey-10,"v")>0 then dec sy

   sync
loop

function buttonup(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if upkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed =upkey()
   else
      pressed = 0
   endif
endfunction pressed

function buttondwn(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if downkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed = downkey()
   else
      pressed = 0
   endif
endfunction pressed

kR

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 20th Aug 2005 17:44

Instead of using
text posx + 5, posy + texty, string$(data)
use a function:

if select_button(posx + 5, posy + texty,string$(data) > 0
   select string$(data)
      case "potion"
         inc playerlife,20
      endcase
      case "antidote"
         blablaba
      endcase
      etc...
   endselect
endif

the function:

function select_button(x,y,text$)
   tx = text width(text$)
   ty = text height(text$)/2
   pressed = 0
   if mousex() > x and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 0 then ink rgb(255,255,255),0 else ink rgb(255,0,255),0
   text x,y - ty, text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

kRx

20

Years of Service

User Offline

Joined: 2nd Apr 2005

Location: Canterbury, Kent, UK

Posted: 20th Aug 2005 20:24

i cant get those commands to print the words onto the screen, just wipes everything apart from the box. here is how ive compiled it

sync on

`make an array with strings
items = 5

`read string 1,a$
   `read string 1,b$

DAHP = 100

dim string$(items)

a$="Potion"
b$="H-Potion"
c$="S-Potion"
d$="Pheonix Tear"
e$="Elixer"

for i = 1 to items
   string$(1) = a$
   string$(2) = b$
   string$(3) = c$
   string$(4) = d$
   string$(5) = e$
  ` string$(6) = f$
  ` string$(7) = g$
  ` string$(8) = h$
  ` string$(9) = i$
  ` string$(10) = j$
  ` string$(11) = k$
  ` string$(12) = l$

next i

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

`clear screen
   cls

text 300,300,str$(DAHP)
   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   `for data = 1 to items
   `   texty = sy + data * 18
   `   if texty>5 and texty<sizey-12
   `      ink rgb(255,255,255),0
   `      text posx + 5, posy + texty, string$(data)
   `   endif
   `next data

if select_button(posx + 5, posy + texty,string$(data)) > 0
   select string$(data)
      case "potion"
         inc DAHP,20
      endcase
   endselect
endif

`make scroll buttons
  ` if buttonup(posx+sizex-10,posy+10,"^") > 0 then inc sy
  ` if buttondwn(posx+sizex-10,posy+sizey-10,"v")>0 then dec sy

sync
loop

function buttonup(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if upkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed =upkey()
   else
      pressed = 0
   endif
endfunction pressed

function buttondwn(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if downkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed = downkey()
   else
      pressed = 0
   endif
endfunction pressed

function select_button(x,y,text$)
   tx = text width(text$)
   ty = text height(text$)/2
   pressed = 0
   if mousex() > x and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 0 then ink rgb(255,255,255),0 else ink rgb(255,0,255),0
   text x,y - ty, text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

sync on

`make an array with strings
items = 5

   `read string 1,a$
   `read string 1,b$

DAHP = 100


dim string$(items)

a$="Potion"
b$="H-Potion"
c$="S-Potion"
d$="Pheonix Tear"
e$="Elixer"

for i = 1 to items
   string$(1) = a$
   string$(2) = b$
   string$(3) = c$
   string$(4) = d$
   string$(5) = e$
  ` string$(6) = f$
  ` string$(7) = g$
  ` string$(8) = h$
  ` string$(9) = i$
  ` string$(10) = j$
  ` string$(11) = k$
  ` string$(12) = l$

next i

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

   `clear screen
   cls

   text 300,300,str$(DAHP)
   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   `for data = 1 to items
   `   texty = sy + data * 18
   `   if texty>5 and texty<sizey-12
   `      ink rgb(255,255,255),0
   `      text posx + 5, posy + texty, string$(data)
   `   endif
   `next data

if select_button(posx + 5, posy + texty,string$(data)) > 0
   select string$(data)
      case "potion"
         inc DAHP,20
      endcase
   endselect
endif

   `make scroll buttons
  ` if buttonup(posx+sizex-10,posy+10,"^") > 0 then inc sy
  ` if buttondwn(posx+sizex-10,posy+sizey-10,"v")>0 then dec sy

   sync
loop

function buttonup(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if upkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed =upkey()
   else
      pressed = 0
   endif
endfunction pressed

function buttondwn(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if downkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed = downkey()
   else
      pressed = 0
   endif
endfunction pressed

function select_button(x,y,text$)
   tx = text width(text$)
   ty = text height(text$)/2
   pressed = 0
   if mousex() > x and mousex() < x + tx
      if mousey() > y - ty and mousey() < y + ty
         pressed = 1
      endif
   endif
   if pressed = 0 then ink rgb(255,255,255),0 else ink rgb(255,0,255),0
   text x,y - ty, text$
   if mouseclick() = 0 then pressed = 0
endfunction pressed

kR

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Aug 2005 21:54

You can't actually fill string arrays with a For..Next loop in the way that you are attempting. It doesn't work like that.

All you are doing is manually filling the array, but 5 times!

To actually use a For Next loop, you need to use the loop variable somewhere. Eg:

items = 5
For I = 1 to items
  string$(I) = a$
Next I

The problem is getting the correct thing into a$ - otherwise each element of the array would contain the same thing.

This is where Data statements come in. Using:

Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

you can read each item in for a$ ready to feed into the array as follows:

items = 5
For I = 1 to items
  Read a$
  string$(I) = a$
Next I

Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

When you increase the number of data items, you increase the variable items to match.

Your code needs a bit more study before suggesting a fix for your main problem, so I'll take a look and get back.

TDK_Man

Back to top

Profile PM Email Website

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Aug 2005 22:15

OK - here's what to do to solve your item select problem...

sync on

`make an array with strings
items = 5
DAHP = 100

dim string$(items)
For I = 1 to items
  Read a$
  string$(I) = a$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do
   Mx=MouseX(): My=MouseY(): Mc=MouseClick()
   `clear screen
   cls

text 300,300,str$(DAHP)
   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   for N = 0 to items-1
     texty = (N) * 18 + posy+1
     ink rgb(255,255,255),0
     text posx + 5, texty, string$(N+1)
   next N

Rem Select item mouse is over...
   If Mx>posx and My>posy and Mx<posx+sizex and My<posy+sizey
     If Mc=0
       Rem Mouse is over the box
       OverItem = (My-posy)/18+1
       If OverItem <= Items
         Text 0,0,string$(OverItem)
       Endif
     Else
         Text 20,300,"You Selected "+string$(OverItem)
     Endif
   Endif
   sync
loop

Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"


sync on

`make an array with strings
items = 5
DAHP = 100

dim string$(items)
For I = 1 to items
  Read a$
  string$(I) = a$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do
   Mx=MouseX(): My=MouseY(): Mc=MouseClick()
   `clear screen
   cls

   text 300,300,str$(DAHP)
   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   for N = 0 to items-1
     texty = (N) * 18 + posy+1
     ink rgb(255,255,255),0
     text posx + 5, texty, string$(N+1)
   next N

   Rem Select item mouse is over...
   If Mx>posx and My>posy and Mx<posx+sizex and My<posy+sizey
     If Mc=0
       Rem Mouse is over the box
       OverItem = (My-posy)/18+1
       If OverItem <= Items
         Text 0,0,string$(OverItem)
       Endif
     Else
         Text 20,300,"You Selected "+string$(OverItem)
     Endif
   Endif
   sync
loop

Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

When you move the mouse over the box, the item under the mouse is displayed top left corner of the screen.

Click and hold the mouse and the selected item is displayed just below the box.

TDK_Man

Back to top

Profile PM Email Website

kRx

20

Years of Service

User Offline

Joined: 2nd Apr 2005

Location: Canterbury, Kent, UK

Posted: 20th Aug 2005 22:16

this is what i have now, but i am clueless as to why nothing is being printed to the screen. the text command is calling the data but its not happening and i cannot work out y this is happening

sync on

items = 6
dim string$(items)

For I = 1 to items
  string$(I) = a$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

`clear screen
   cls

`main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         text posx + 5, posy + texty, string$(data)
      endif
   next data

`make scroll buttons
   if buttonup(posx+sizex-10,posy+10,"^") > 0 then inc sy
   if buttondwn(posx+sizex-10,posy+sizey-10,"v")>0 then dec sy

sync
loop

Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

function buttonup(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if upkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed =upkey()
   else
      pressed = 0
   endif
endfunction pressed

function buttondwn(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if downkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed = downkey()
   else
      pressed = 0
   endif
endfunction pressed

sync on

items = 6
dim string$(items)


For I = 1 to items
  string$(I) = a$
Next I


`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

   `clear screen
   cls

   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         text posx + 5, posy + texty, string$(data)
      endif
   next data

   `make scroll buttons
   if buttonup(posx+sizex-10,posy+10,"^") > 0 then inc sy
   if buttondwn(posx+sizex-10,posy+sizey-10,"v")>0 then dec sy

   sync
loop

Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"



function buttonup(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if upkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed =upkey()
   else
      pressed = 0
   endif
endfunction pressed

function buttondwn(x,y,text$)
   pressed = 0
   tx=text width(text$)
   ty=text height(text$)/2
   if downkey()=1
         pressed = 1
      endif
   `if pressed=1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
   text x,y-ty,text$
   if pressed = 1
      pressed = downkey()
   else
      pressed = 0
   endif
endfunction pressed

kR

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 20th Aug 2005 23:53

Doh!

I've given you the code to do that - why didn't you use it!??

And also, don't use reserved words for variables. Data is a reserved word - that's why I changed it in my code. You don't seem to have looked at what I posted at all.

I suggest that you look at the code I supplied and figure out what it's doing. If you don't follow anything just ask!

If you just copy and paste without understanding what you have been shown, then you aren't learning anything and you will be no better off.

TDK_Man

Back to top

Profile PM Email Website

kRx

20

Years of Service

User Offline

Joined: 2nd Apr 2005

Location: Canterbury, Kent, UK

Posted: 21st Aug 2005 00:37 Edited at: 21st Aug 2005 01:14

i thionk we posted at the same time as ur post wasnt originall ythere lol

sorry ill check ur code

edit:

OverItem = (My-posy)/18+1

if this line why is it dived by 18? i dont really understand how the overitem part works. if u could explain that that would be great

thanks a lot for helpin

kR

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 21st Aug 2005 01:39

NP!

When your mouse is over the box containing the items, you deduct the Y position of the top of the box, which results in the Y position *within* the box (rather than from the top left corner of the screen). This means that if you place the box somewhere else on the screen, the code will still work OK!

Each line of text takes up 18 vertical pixels, so if you divide the Y mouse position within the box by 18 it will return the number of text lines down the box you are. It's a zero-based result and as your array is 1-based we have to add 1 onto the result to compensate.

This is a quick and easy way to locate what item in a text list has been clicked on.

I guess it worked for you then?

TDK_Man

Back to top

Profile PM Email Website

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 21st Aug 2005 10:54 Edited at: 21st Aug 2005 10:57

Or this way:

sync on

items = 6
dim string$(items)

`store data
restore inventory
For I = 1 to items
	read item$
	string$(I) = item$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

`clear screen
   cls

`main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         if textbutton(posx + 5, posy + texty, string$(data)) > 0
				goto ending
			endif
      endif
   next data

`scroll buttons
	if textbutton(posx + sizex - 10, posy + 10, "^") > 0 or upkey() = 1
		sy = sy + 2
	endif
	if textbutton(posx + sizex - 10, posy + sizey - 10, "v") > 0 or downkey() = 1
		sy = sy - 2
	endif

sync
loop

ending:
ink rgb(255,255,255),0
text 0,0,"you pressed " + string$(data)
suspend for key
end

`************
`FUNCTIONS
`************

function textbutton(x,y,text$)
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

`************
`DATA
`************
inventory:
Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

sync on

items = 6
dim string$(items)

`store data
restore inventory
For I = 1 to items
	read item$
	string$(I) = item$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

   `clear screen
   cls

   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         if textbutton(posx + 5, posy + texty, string$(data)) > 0
				goto ending
			endif
      endif
   next data

	`scroll buttons
	if textbutton(posx + sizex - 10, posy + 10, "^") > 0 or upkey() = 1
		sy = sy + 2
	endif
	if textbutton(posx + sizex - 10, posy + sizey - 10, "v") > 0 or downkey() = 1
		sy = sy - 2
	endif

   sync
loop

ending:
ink rgb(255,255,255),0
text 0,0,"you pressed " + string$(data)
suspend for key
end

`************
`FUNCTIONS
`************

function textbutton(x,y,text$)
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(255,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

`************
`DATA
`************
inventory:
Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

Also a quick way to test what item is clicked on...

or this is just an idea I got. (Nothing special though)

sync on

items = 6
dim string$(items)

`store data
restore inventory
For I = 1 to items
	read item$
	string$(I) = item$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

`clear screen
   cls

`main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         if textbutton(posx + 5, posy + texty, string$(data)) > 0
				goto ending
			endif
      endif
   next data

`scroll buttons
	if textbutton(posx + sizex - 10, posy + 10, "^") > 0 or upkey() = 1
		sy = sy + 2
	endif
	if textbutton(posx + sizex - 10, posy + sizey - 10, "v") > 0 or downkey() = 1
		sy = sy - 2
	endif

sync
loop

ending:
ink rgb(255,255,255),0
text 0,0,"you pressed " + string$(data)
suspend for key
end

`************
`FUNCTIONS
`************

function textbutton(x,y,text$)
	if redi = 0 or redv <= 0 then redi = 1
	if redv >= 255 then redi = -1
	redv = redv + redi
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(redv,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

`************
`DATA
`************
inventory:
Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

sync on

items = 6
dim string$(items)

`store data
restore inventory
For I = 1 to items
	read item$
	string$(I) = item$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

   `clear screen
   cls

   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         if textbutton(posx + 5, posy + texty, string$(data)) > 0
				goto ending
			endif
      endif
   next data

	`scroll buttons
	if textbutton(posx + sizex - 10, posy + 10, "^") > 0 or upkey() = 1
		sy = sy + 2
	endif
	if textbutton(posx + sizex - 10, posy + sizey - 10, "v") > 0 or downkey() = 1
		sy = sy - 2
	endif

   sync
loop

ending:
ink rgb(255,255,255),0
text 0,0,"you pressed " + string$(data)
suspend for key
end

`************
`FUNCTIONS
`************

function textbutton(x,y,text$)
	if redi = 0 or redv <= 0 then redi = 1
	if redv >= 255 then redi = -1
	redv = redv + redi
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(redv,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

`************
`DATA
`************
inventory:
Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

kRx

20

Years of Service

User Offline

Joined: 2nd Apr 2005

Location: Canterbury, Kent, UK

Posted: 21st Aug 2005 17:15 Edited at: 21st Aug 2005 17:17

LOL very nice i like the flashing words, how did u get them to do that?? im rubbish and cant make it out. very nice bit fo code there

edit:

hoorah i know understand how that all works now exept the flashy part

thanks a lot guys

kR

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 21st Aug 2005 20:49 Edited at: 21st Aug 2005 20:50

My code:

sync on

items = 6
dim string$(items)

`store data
restore inventory
For I = 1 to items
	read item$
	string$(I) = item$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

`clear screen
   cls

`main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

`display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         if textbutton(posx + 5, posy + texty, string$(data)) > 0
				goto ending
			endif
      endif
   next data

`scroll buttons
	if textbutton(posx + sizex - 10, posy + 10, "^") > 0 or upkey() = 1
		sy = sy + 2
	endif
	if textbutton(posx + sizex - 10, posy + sizey - 10, "v") > 0 or downkey() = 1
		sy = sy - 2
	endif

sync
loop

ending:
ink rgb(255,255,255),0
text 0,0,"you pressed " + string$(data)
suspend for key
end

`************
`FUNCTIONS
`************

function textbutton(x,y,text$)
	if redi = 0 or redv <= 0 then redi = 1
	if redv >= 255 then redi = -1
	redv = redv + redi
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(redv,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

`************
`DATA
`************
inventory:
Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

sync on

items = 6
dim string$(items)

`store data
restore inventory
For I = 1 to items
	read item$
	string$(I) = item$
Next I

`set variables
posx = 20
posy = 50
sizex = 150
sizey = 200

`the scroll var
sy = -10

`the loop
do

   `clear screen
   cls

   `main window
   ink rgb(255,255,255),0
   box posx,posy,posx+sizex,posy+sizey
   ink rgb(0,0,255),0
   box posx+1,posy+1,posx+sizex-1,posy+sizey-1

   `display all data
   for data = 1 to items
      texty = sy + data * 18
      if texty>5 and texty<sizey-12
         ink rgb(255,255,255),0
         if textbutton(posx + 5, posy + texty, string$(data)) > 0
				goto ending
			endif
      endif
   next data

	`scroll buttons
	if textbutton(posx + sizex - 10, posy + 10, "^") > 0 or upkey() = 1
		sy = sy + 2
	endif
	if textbutton(posx + sizex - 10, posy + sizey - 10, "v") > 0 or downkey() = 1
		sy = sy - 2
	endif

   sync
loop

ending:
ink rgb(255,255,255),0
text 0,0,"you pressed " + string$(data)
suspend for key
end

`************
`FUNCTIONS
`************

function textbutton(x,y,text$)
	if redi = 0 or redv <= 0 then redi = 1
	if redv >= 255 then redi = -1
	redv = redv + redi
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(redv,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

`************
`DATA
`************
inventory:
Data "Potion", "H-Potion", "S-Potion", "Pheonix Tear", "Elixer"

ZOOM IN:

function textbutton(x,y,text$)
	if redi = 0 or redv <= 0 then redi = 1
	if redv >= 255 then redi = -1
	redv = redv + redi
	pressed = 0
	tx = text width(text$)
	ty = text height(text$)/2
	if mousex() > x and mousex() < x + tx
		if mousey() > y - ty and mousey() < y + ty
			pressed = 1
		endif
	endif
	if pressed = 1 then ink rgb(redv,0,0),0 else ink rgb(255,255,255),0
	text x, y - ty, text$
	if mouseclick() = 0 then pressed = 0
endfunction pressed

ZOOM IN:

	if redi = 0 or redv <= 0 then redi = 1
	if redv >= 255 then redi = -1
	redv = redv + redi

3 lines that make that flashy thingy

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

kRx

20

Years of Service

User Offline

Joined: 2nd Apr 2005

Location: Canterbury, Kent, UK

Posted: 21st Aug 2005 20:57

o right i understand it now thanks

kR

kR

Back to top

Profile PM Email

Sven B

20

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 21st Aug 2005 21:04