TheGameCreators - CodeBase - RPG style selection

Category: Basic 3D

Version: 1.0

Information

Uploaded: 20th Jun 2005 09:33

Modified: 20th Jun 2005 09:35

Author: sspike

Summary

A code that allows you to use an rpg style talking system, it also shows you how create a toggle style varible which is used to make the talking work

Full Description

make sure you grab the .x file to avoid errors<br /> based on Yellow's pick 3D object code check that out in order to see what has been changed to create the toggle style

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

`in this code we will learn how to create an rpg style talk system and also how to

` create a toggle style variable

sync on : sync rate 60       `Set the refresh rate to 60

set display mode 1280,1024,32 `We set our display mode up

set text size 22   `Since we'll be using text in a high resolution, we'll make it bigger.

make object sphere 1,2

position object 1,-1,0,0

load object "pot.x",2

position object 2,1,0,0

position camera 0,0,-8

talk# = 0

`We'll want to be able to control the camera, so we'll do that here.

control camera using arrowkeys 0,1,1

`The way the pick object command works, is you'll want to set something eqaul to it.

`In this case we use "p" (For pick if you didn't guess. ;)), so we can identify

`whatever object is picked with p.

`To find out which object we're picking, we'll use the mousex() and mousey() commands

`in the first two spaces for the pick object command.

x = mousex()

y = mousey()

p=pick object(mousex(),mousey(),0,5)

set cursor 0,0

`If p isn't picked, this is what we'll do. We'll say nothing is picked

`and color all the objects white.

if  p=0

print "No objects selected"

`we put a range of objects we'll be using. In this case we have five objects, so our range is 0-5.

`If you had 500 objects, it would be 0-500. Or maybe you only want to select the first

`100, then 0-100. In any case, the last two spaces for syntax are for the objects you

`want to pick.

for obj = 1 to 2

color object obj,rgb(255,255,255)

next obj

`If an object is picked, we'll print which one is picked, and color it yellow.

else

print "Object ";p;" is selected."

color object p,rgb(155,155,0)

endif

if p=1 and mouseclick()=2 then talk# = 1

GOSUB TALK

if p=2 and mouseclick()=2 then talk# = 2

gosub talkToPot

print "fps: ", screen fps()

print "polys: ", statistic(1)

print "talk#: ", talk#

print "time: ", get time$()

print "cursor keys move camera, select objects with right mouse button, deselct with E key"

print "based on code from Yellow's pick 3D object command"

sync

loop

`Now run the example and see what you find. :)

TALK:

if talk# = 1

text 380,380,"Hello..."

ENDIF

IF KEYSTATE(18) then TALK# = 0

return

talkToPot:

if talk# = 2

text 380,380,"I am a pot you can't talk to me"

endif

if keystate(18) then talk# = 0

return

Download

Please login to download

Comments

No comments yet.

Author Name:	sspike
CodeBase Entries:	1

CodeBase - RPG style selection