Game: Recreate Commands - GameCreators Forum

Author

Message

Oneka

20

Years of Service

User Offline

Joined: 24th Apr 2004

Location: Hampton,VA

Posted: 21st Nov 2004 17:30

Link

In this game all you do is just recreate a DB/DBpro command without using the original command at all Ill start it with the sprite command

+ Code Snippet

X = 50
Dim OPSprite(X)
Dim OPSpriteImage(X)
Dim OPSpriteposX(X)
Dim OPSpriteposY(X)
OPSprite(1, 500, 200, 1)
do
   gosub Drawsprite
   sync
loop

Drawsprite:
   for I = 1 to X
      if OPSprite(X) = 1
         Paste image OPSpriteImage(X), OPSpriteposX(X), OPSpriteposY(X)
      endif
   next I
return

function OPSprite(SpriteNum as integer, Xpos as integer, Ypos as integer, Imagenum as integer)
   OPSprite(SpriteNum) = 1
   OPSpriteImage(SpriteNum) = Imagenum
   OPSpriteposX(SpriteNum) = Xpos
   OPSpriteposY(SpriteNum) = Ypos
endfunction

Making better games everday!
Oh yeah and just so you know its Oh-nek-a not One-ka!

Back to top

Profile PM Email Website

PiratSS

22

Years of Service

User Offline

Joined: 18th Oct 2002

Location:

Posted: 21st Nov 2004 18:46

Link

Quote: "function comment(Strin as string)

endfunction"

So now you can comment: comment("hehehe this is a comment")

Back to top

Profile PM

BearCDPOLD

21

Years of Service

User Offline

Joined: 16th Oct 2003

Location: AZ,USA

Posted: 21st Nov 2004 22:20 Edited at: 21st Nov 2004 22:20

Link

hmmmmmmmmm

edited

Crazy Donut Productions, Current Project: Project Starbuks
Sony stole our name!

Back to top

Profile PM Email Website

Manticore Night

21

Years of Service

User Offline

Joined: 23rd Oct 2003

Location: Ouinnipeg

Posted: 23rd Nov 2004 00:36 Edited at: 23rd Nov 2004 00:37

Link

For Loop(a real easy one)

+ Code Snippet

MaxInt#=100
interval#=0
do
interval#=interval#+1
if interval# > MaxInt# then exit
loop

It's amazing how much TV has raised us. (Bart Simpson)

Back to top

Profile PM Email Website

MikeyP

21

Years of Service

User Offline

Joined: 21st Aug 2003

Location: Manchester, UK

Posted: 23rd Nov 2004 00:46 Edited at: 23rd Nov 2004 00:46

Link

+ Code Snippet

Function newText(x As Integer, y As Integer, str As String) 
Set Cursor x, y
Print str
EndFunction

Quite simple

Back to top

Profile PM Email

BadMonkey91

20

Years of Service

User Offline

Joined: 13th Jan 2004

Location:

Posted: 23rd Nov 2004 02:27

Link

Badmonkey91@hotmail.com

Back to top

Profile PM Email

dark coder

22

Years of Service

User Offline

Joined: 6th Oct 2002

Location: Japan

Posted: 23rd Nov 2004 03:11 Edited at: 23rd Nov 2004 03:12

Link

of course ill do the hardest one ever

, ps this is all off the top of my head so hey it may not work.

+ Code Snippet

 function text2(x,y,st as string)
  set cursor x,y
  print st
 endfunction

ok sure it not perfect as id have to set fonts and all that but hey the other way would take hundreds of lines

ok len code

+ Code Snippet

 function len2(st as string)
  repeat
    inc ln
  until mid$(st,ln)=""
  ln=ln-1
 endfunction ln

and my personal favourite replacement for the rem command

+ Code Snippet

i know its really taxing to code :o,

Back to top

Profile PM Email

MikeyP

21

Years of Service

User Offline

Joined: 21st Aug 2003

Location: Manchester, UK

Posted: 23rd Nov 2004 16:11

Link

Dark Coder You stole the one I already posted

Just change var names and the Function name and it's a match, suppose there's not many different ways to do it, heh.

Back to top

Profile PM Email

Dodo

20

Years of Service

User Offline

Joined: 8th Aug 2004

Location: eating lunch

Posted: 24th Nov 2004 03:24

Link

Hopefully some idiot will come up with a replacement make game() comand

+ Code Snippet

function MakeObjectCube(ObjNo,Size)

   `make original object
   make object plain ObjNo,Size,Size

   `make the mesh for the limbs
   make mesh from object 1,ObjNo

   `add and adjust the limbs to form a cube with different sides
   add limb 1,1,1
   rotate limb 1,1,0,90,0
   offset limb 1,1,5,0,5

   add limb 1,2,1
   rotate limb 1,2,0,270,0
   offset limb 1,2,-5,0,5

   add limb 1,3,1
   offset limb 1,3,0,0,10

   add limb 1,4,1
   rotate limb 1,4,270,0,0
   offset limb 1,4,0,5,5

   add limb 1,5,1
   rotate limb 1,5,90,0,0
   offset limb 1,5,0,-5,5

endfunction

lol.

Part of solving the problem is actually noticing that the problem is there in the first place

Back to top

Profile PM Email Website

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 24th Nov 2004 03:42

Link

+ Code Snippet

function make_game(style as string, hero as string, enemy as string, plot as string)
  load dll "user32.dll",1
  call dll 1,"MessageBoxA",0,"Your name is "+hero+" from the planet Zob. You have come to earth"+chr$(10)+" to rid it from the evil "+enemy+" in order to "+plot+".",style,0
  call dll 1,"MessageBoxA",0,"...but got squashed by a big foot from the sky.","",0
  delete dll 1
endfunction

Quote: "this is not a quote"

Back to top

Profile PM Website

Sorry your browser is not supported!

Geek Culture / Game: Recreate Commands