Help with Ai - GameCreators Forum

Author

Message

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 16th Aug 2005 03:08

Link

Guys i need help with ai i suck at it and i dont really under stand it can any body give me tutorials/litle peices of explained code of Ai i really need to know how to make a object wonder in a perimiter can yall show me/help me with it

Back to top

Profile PM Email Website

Immense

19

Years of Service

User Offline

Joined: 9th Aug 2005

Location: Groningen, The Netherlands

Posted: 16th Aug 2005 03:27

Link

Yea yea me 2

i have an tic tac toe game

but i want that the computer thinks by itself ^^ anybody?

Stupid Factory...
Where boys are made

Back to top

Profile PM Email

Blazer

21

Years of Service

User Offline

Joined: 22nd Oct 2002

Location: United States

Posted: 16th Aug 2005 03:58

Link

crzy, I had this one stored away. I didnt make it, but here ya go:

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

set display mode 800,600,32

sync on
sync rate 30
autocam off
randomize timer()
hide mouse

Backdrop On
Color Backdrop 0
`load sound "rifle.wav", 1

Global CrosshairImage = 1
Global CrosshairSprite = 1
Global YourPlayer = 1
Global NumberOfAIs = 10
`=============================================================================================Feel Free To Remove These Lines.
Global MatrixNumber = 1
Global MatrixImage = 2
Dim RandomObjects(NumberOfAIs)
`============================================================================================================================
Dim AIBaseX#(NumberOfAIs)
Dim AIBaseY#(NumberOfAIs)
Dim AIBaseZ#(NumberOfAIs)
Dim AIAlive(NumberOfAIs)
Dim AiDoSomthing#(NumberOfAIs)
Dim AIYAngle(NumberOfAIs)
Dim AIYAngle#(NumberOfAIs)
Dim AIDistanceFromHome#(NumberOfAIs)
Dim AIDistanceFromYou#(NumberOfAIs)

ink rgb(255, 0, 0), 0

line 15, 0, 15, 10
line 15, 20, 15, 32
line 0, 15, 10, 15
line 20, 15, 32, 15
Get Image CrosshairImage, 0, 0, 32, 32, 1

Sprite CrosshairSprite, MouseX(), MouseY(), CrosshairImage
Offset Sprite CrosshairSprite, 16, 16

Make Object Cube YourPlayer, 5
`hide object 1
Position Object YourPlayer, 0, 3, 0

`=============================================================================================Feel Free To Remove These Lines.

Create Bitmap 1, 64, 64
Set Current Bitmap 1
Ink Rgb(64, 255, 64), Rgb(64, 255, 64)
Box 0, 0, 64, 64
For A = 1 to 1000
   Dot Rnd(64), Rnd(64), Rgb(Int(Rnd(192)), Int(Rnd(192)), Int(Rnd(192)))
Next A
Blur Bitmap 1, 10
Get Image MatrixImage, 0, 0, 64, 64
Delete Bitmap 1

Make Matrix MatrixNumber, 2000, 2000, 60, 60
Position Matrix MatrixNumber, -1000, 0, -1000

Prepare Matrix Texture MatrixNumber, MatrixImage, 1, 1

Randomize Timer()
For Id = 1 To NumberOfAIs
   RandomObjects(Id) = Id + 1
`   Load Object "pong.x" ,RandomObjects(Id)
make object cube RandomObjects(Id),10
`   Scale Object RandomObjects(Id),1000,1000,1000
   YRotate Object RandomObjects(Id), 180
   Fix Object Pivot RandomObjects(Id)
   AIBaseX#(Id) = Int(Rnd(200) - 100)
   AIBaseY#(Id) = 5
   AIBaseZ#(Id) = Int(Rnd(200) - 100)
   Position Object RandomObjects(Id), AIBaseX#(Id), AIBaseY#(Id), AIBaseZ#(Id)

AIYAngle(Id) = Int(Rnd(359))
   AIYAngle#(Id) = AIYAngle(Id)
   YRotate Object RandomObjects(Id), AIYAngle(Id)
   AIAlive(Id) = 1
Next Id

ShotFlag = 0

Do
   P# = Pick Object(MouseX(), MouseY(), 2, NumberOfAIs + 1)

`---------------------------------------------------------------------------------------------------------------------------
`------------------------------------------------------------------------------------------------ Start Of The Enemy AI Code
`---------------------------------------------------------------------------------------------------------------------------
   For Object = 1 To NumberOfAIs
      AI_X# = Object Position X(RandomObjects(Object)):` Gets The Ememys X Position
      AI_Y# = Object Position Y(RandomObjects(Object)):` Gets The Ememys Y Position
      AI_Z# = Object Position Z(RandomObjects(Object)):` Gets The Ememys Z Position
      Dist_X# = AIBaseX#(Object) - AI_X#:` Gets The X Distance From The Enemys Start Position To Its Current Position
      Dist_Y# = AIBaseY#(Object) - AI_Y#:` Gets The Y Distance From The Enemys Start Position To Its Current Position
      Dist_Z# = AIBaseZ#(Object) - AI_Z#:` Gets The Z Distance From The Enemys Start Position To Its Current Position
      `Gets The Actual Distance From The Enemys Start Position To Its Current Position
      AIDistanceFromHome#(Object) = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)

Your_X# = Object Position X(1):` Gets Your X Position
      Your_Y# = Object Position Y(1):` Gets Your Y Position
      Your_Z# = Object Position Z(1):` Gets Your Z Position
      Dist_X# = Your_X# - AI_X#:` Gets The X Distance From The Enemys Current Position To Your Current Position
      Dist_Y# = Your_Y# - AI_Y#:` Gets The Y Distance From The Enemys Current Position To Your Current Position
      Dist_Z# = Your_Z# - AI_Z#:` Gets The Z Distance From The Enemys Current Position To Your Current Position
      `Gets The Actual Distance From The Enemys Start Position To Your Current Position
      AIDistanceFromYou#(Object) = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)

If AIDistanceFromYou#(Object) >= 10
         If AIAlive(Object) = 1
            Move Object RandomObjects(Object), 0.5
            Loop Object RandomObjects(Object),2,18
         EndIf
      Else
         Move Object RandomObjects(Object), 0
         If AIAlive(Object) = 1 Then Stop Object RandomObjects(Object)
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where The Enemy Is
         Point Object 1000, Object Position X(1), Object Position Y(1), Object Position Z(1):` Point The Enemy At You

AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards You Slowly
         Delete Object 1000:` Deletes The Dummy Object
      EndIf

If AIDistanceFromHome#(Object) >= 100:`If That Distance Is Too Big, Then Make The Enemy Look At The Start Position.
                             `                  (Stops The Enemy Wandering Too Far Away!)
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where he Enemy Is
         Point Object 1000, AIBaseX#(Object), AIBaseY#(Object), AIBaseZ#(Object):` Point It At The Start Position

AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly
         Delete Object 1000:` Deletes The Dummy Object
      EndIf

If AIDistanceFromHome#(Object) >= 150:`If That Distance Is Too Big, Then Make The Enemy Look At The Start Position.
                             `                  (Stops The Enemy Wandering Too Far Away!)
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where he Enemy Is
         Point Object 1000, AIBaseX#(Object), AIBaseY#(Object), AIBaseZ#(Object):` Point It At The Start Position

AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly
         AIYAngle#(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly
         Delete Object 1000:` Deletes The Dummy Object
      EndIf

If AiDoSomthing#(Object) <= Timer():` If A Certain Time Has Elapsed, Then Tell The Enemy To Do Somthing.
         Randomize Timer():` Makes The Randum Number More Random
         AIYAngle(Object)=WrapValue(Object Angle Y(RandomObjects(Object)) + (Rnd(180)-90)):` Picks A Random Direction For The Enemy
         AiDoSomthing#(Object)=(Timer() + 2500):` Resets The Timer
      EndIf

AIYAngle#(Object)=CurveValue(AIYAngle(Object), AIYAngle#(Object), 40)
      If AIAlive(Object)=1 Then YRotate Object RandomObjects(Object), AIYAngle#(Object)

Text 0, 10 * Object, Str$(AIDistanceFromHome#(Object))
   Next Object

`---------------------------------------------------------------------------------------------------------------------------
`-------------------------------------------------------------------------------------------------- End Of The Enemy AI Code
`---------------------------------------------------------------------------------------------------------------------------

` Hit the fricken dudet code
````````````````````````````````````````````````````````````````````
   If P# <> 0
      P = Int(P#) - 1
      If MouseClick()= 0 And AIAlive(P) = 1
         play object P#, 59,75: AIAlive(P) = 0
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(P#), Object Position Y(P#), Object Position Z(P#):` Place It Where The Enemy Is
         Point Object 1000, Camera Position X(), Camera Position Y(), Camera Position Z():` Point The Enemy At You

P = int(P#)
         AIYAngle(P - 1) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards You Slowly
         YRotate Object P#, AIYAngle(P - 1)
         Delete Object 1000:` Deletes The Dummy Object
      EndIf
   EndIf
   If MouseClick()= 0 And ShotFlag = 0
  `    Play Sound 1
      ShotFlag = 2
   EndIf
   If MouseClick() = 0 And ShotFlag = 2 Then ShotFlag = 0

````````````````````````````````````````````````````````````````````

If P# = 0
      Text 0, 0, "No Object Pointed At"
   Else
      Text 0, 0, "Object " + Str$(P#) + " Pointed At"
   EndIf

If UpKey() = 1 Then Move Object YourPlayer, 1
   If DownKey() = 1 Then Move Object YourPlayer, -1

If MouseX() < 20 Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) - .75)
   If MouseX()> (Screen Width() - 20) Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) + .75)
   If MouseX() < 10 Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) - 1.5)
   If MouseX()> (Screen Width() - 10) Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) + 1.5)

Set Camera To Follow Object Position X(YourPlayer), Object Position Y(YourPlayer), Object Position Z(YourPlayer), Object Angle Y(YourPlayer), 30, 10, 1, 0
   Point Camera Object Position X(YourPlayer), Object Position Y(YourPlayer), Object Position Z(YourPlayer)

Sprite CrosshairSprite, MouseX(), MouseY(), CrosshairImage
   Sync
Loop

+ Code Snippet

` This code was downloaded from The Game Creators
` It is reproduced here with full permission
` http://www.thegamecreators.com

set display mode 800,600,32

sync on
sync rate 30
autocam off
randomize timer()
hide mouse

Backdrop On
Color Backdrop 0
`load sound "rifle.wav", 1

Global CrosshairImage = 1
Global CrosshairSprite = 1
Global YourPlayer = 1
Global NumberOfAIs = 10
`=============================================================================================Feel Free To Remove These Lines.
Global MatrixNumber = 1
Global MatrixImage = 2
Dim RandomObjects(NumberOfAIs)
`============================================================================================================================
Dim AIBaseX#(NumberOfAIs)
Dim AIBaseY#(NumberOfAIs)
Dim AIBaseZ#(NumberOfAIs)
Dim AIAlive(NumberOfAIs)
Dim AiDoSomthing#(NumberOfAIs)
Dim AIYAngle(NumberOfAIs)
Dim AIYAngle#(NumberOfAIs)
Dim AIDistanceFromHome#(NumberOfAIs)
Dim AIDistanceFromYou#(NumberOfAIs)

ink rgb(255, 0, 0), 0

line 15, 0, 15, 10
line 15, 20, 15, 32
line 0, 15, 10, 15
line 20, 15, 32, 15
Get Image CrosshairImage, 0, 0, 32, 32, 1


Sprite CrosshairSprite, MouseX(), MouseY(), CrosshairImage
Offset Sprite CrosshairSprite, 16, 16


Make Object Cube YourPlayer, 5
`hide object 1
Position Object YourPlayer, 0, 3, 0

`=============================================================================================Feel Free To Remove These Lines.

Create Bitmap 1, 64, 64
Set Current Bitmap 1
Ink Rgb(64, 255, 64), Rgb(64, 255, 64)
Box 0, 0, 64, 64
For A = 1 to 1000
   Dot Rnd(64), Rnd(64), Rgb(Int(Rnd(192)), Int(Rnd(192)), Int(Rnd(192)))
Next A
Blur Bitmap 1, 10
Get Image MatrixImage, 0, 0, 64, 64
Delete Bitmap 1

Make Matrix MatrixNumber, 2000, 2000, 60, 60
Position Matrix MatrixNumber, -1000, 0, -1000

Prepare Matrix Texture MatrixNumber, MatrixImage, 1, 1




Randomize Timer()
For Id = 1 To NumberOfAIs
   RandomObjects(Id) = Id + 1
`   Load Object "pong.x" ,RandomObjects(Id)
make object cube RandomObjects(Id),10
`   Scale Object RandomObjects(Id),1000,1000,1000
   YRotate Object RandomObjects(Id), 180
   Fix Object Pivot RandomObjects(Id)
   AIBaseX#(Id) = Int(Rnd(200) - 100)
   AIBaseY#(Id) = 5
   AIBaseZ#(Id) = Int(Rnd(200) - 100)
   Position Object RandomObjects(Id), AIBaseX#(Id), AIBaseY#(Id), AIBaseZ#(Id)

   AIYAngle(Id) = Int(Rnd(359))
   AIYAngle#(Id) = AIYAngle(Id)
   YRotate Object RandomObjects(Id), AIYAngle(Id)
   AIAlive(Id) = 1
Next Id

ShotFlag = 0

Do
   P# = Pick Object(MouseX(), MouseY(), 2, NumberOfAIs + 1)

`---------------------------------------------------------------------------------------------------------------------------
`------------------------------------------------------------------------------------------------ Start Of The Enemy AI Code
`---------------------------------------------------------------------------------------------------------------------------
   For Object = 1 To NumberOfAIs
      AI_X# = Object Position X(RandomObjects(Object)):` Gets The Ememys X Position
      AI_Y# = Object Position Y(RandomObjects(Object)):` Gets The Ememys Y Position
      AI_Z# = Object Position Z(RandomObjects(Object)):` Gets The Ememys Z Position
      Dist_X# = AIBaseX#(Object) - AI_X#:` Gets The X Distance From The Enemys Start Position To Its Current Position
      Dist_Y# = AIBaseY#(Object) - AI_Y#:` Gets The Y Distance From The Enemys Start Position To Its Current Position
      Dist_Z# = AIBaseZ#(Object) - AI_Z#:` Gets The Z Distance From The Enemys Start Position To Its Current Position
      `Gets The Actual Distance From The Enemys Start Position To Its Current Position
      AIDistanceFromHome#(Object) = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)

      Your_X# = Object Position X(1):` Gets Your X Position
      Your_Y# = Object Position Y(1):` Gets Your Y Position
      Your_Z# = Object Position Z(1):` Gets Your Z Position
      Dist_X# = Your_X# - AI_X#:` Gets The X Distance From The Enemys Current Position To Your Current Position
      Dist_Y# = Your_Y# - AI_Y#:` Gets The Y Distance From The Enemys Current Position To Your Current Position
      Dist_Z# = Your_Z# - AI_Z#:` Gets The Z Distance From The Enemys Current Position To Your Current Position
      `Gets The Actual Distance From The Enemys Start Position To Your Current Position
      AIDistanceFromYou#(Object) = Sqrt(Dist_X# * Dist_X# + Dist_Y# * Dist_Y# + Dist_Z# * Dist_Z#)

      If AIDistanceFromYou#(Object) >= 10
         If AIAlive(Object) = 1
            Move Object RandomObjects(Object), 0.5
            Loop Object RandomObjects(Object),2,18
         EndIf
      Else
         Move Object RandomObjects(Object), 0
         If AIAlive(Object) = 1 Then Stop Object RandomObjects(Object)
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where The Enemy Is
         Point Object 1000, Object Position X(1), Object Position Y(1), Object Position Z(1):` Point The Enemy At You

         AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards You Slowly
         Delete Object 1000:` Deletes The Dummy Object
      EndIf


      If AIDistanceFromHome#(Object) >= 100:`If That Distance Is Too Big, Then Make The Enemy Look At The Start Position.
                             `                  (Stops The Enemy Wandering Too Far Away!)
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where he Enemy Is
         Point Object 1000, AIBaseX#(Object), AIBaseY#(Object), AIBaseZ#(Object):` Point It At The Start Position

         AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly
         Delete Object 1000:` Deletes The Dummy Object
      EndIf


      If AIDistanceFromHome#(Object) >= 150:`If That Distance Is Too Big, Then Make The Enemy Look At The Start Position.
                             `                  (Stops The Enemy Wandering Too Far Away!)
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(RandomObjects(Object)), Object Position Y(RandomObjects(Object)), Object Position Z(RandomObjects(Object)):` Place It Where he Enemy Is
         Point Object 1000, AIBaseX#(Object), AIBaseY#(Object), AIBaseZ#(Object):` Point It At The Start Position

         AIYAngle(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly
         AIYAngle#(Object) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards The Start Position Slowly
         Delete Object 1000:` Deletes The Dummy Object
      EndIf


      If AiDoSomthing#(Object) <= Timer():` If A Certain Time Has Elapsed, Then Tell The Enemy To Do Somthing.
         Randomize Timer():` Makes The Randum Number More Random
         AIYAngle(Object)=WrapValue(Object Angle Y(RandomObjects(Object)) + (Rnd(180)-90)):` Picks A Random Direction For The Enemy
         AiDoSomthing#(Object)=(Timer() + 2500):` Resets The Timer
      EndIf


      AIYAngle#(Object)=CurveValue(AIYAngle(Object), AIYAngle#(Object), 40)
      If AIAlive(Object)=1 Then YRotate Object RandomObjects(Object), AIYAngle#(Object)

      Text 0, 10 * Object, Str$(AIDistanceFromHome#(Object))
   Next Object

`---------------------------------------------------------------------------------------------------------------------------
`-------------------------------------------------------------------------------------------------- End Of The Enemy AI Code
`---------------------------------------------------------------------------------------------------------------------------

` Hit the fricken dudet code
````````````````````````````````````````````````````````````````````
   If P# <> 0
      P = Int(P#) - 1
      If MouseClick()= 0 And AIAlive(P) = 1
         play object P#, 59,75: AIAlive(P) = 0
         Make Object Plain 1000, 1, 1:` Make A Dummy Object
         Position Object 1000, Object Position X(P#), Object Position Y(P#), Object Position Z(P#):` Place It Where The Enemy Is
         Point Object 1000, Camera Position X(), Camera Position Y(), Camera Position Z():` Point The Enemy At You

         P = int(P#)
         AIYAngle(P - 1) = WrapValue(Object Angle Y(1000)):` Make The Enemy Turn Towards You Slowly
         YRotate Object P#, AIYAngle(P - 1)
         Delete Object 1000:` Deletes The Dummy Object
      EndIf
   EndIf
   If MouseClick()= 0 And ShotFlag = 0
  `    Play Sound 1
      ShotFlag = 2
   EndIf
   If MouseClick() = 0 And ShotFlag = 2 Then ShotFlag = 0

````````````````````````````````````````````````````````````````````


   If P# = 0
      Text 0, 0, "No Object Pointed At"
   Else
      Text 0, 0, "Object " + Str$(P#) + " Pointed At"
   EndIf

   If UpKey() = 1 Then Move Object YourPlayer, 1
   If DownKey() = 1 Then Move Object YourPlayer, -1

   If MouseX() < 20 Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) - .75)
   If MouseX()> (Screen Width() - 20) Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) + .75)
   If MouseX() < 10 Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) - 1.5)
   If MouseX()> (Screen Width() - 10) Then YRotate Object YourPlayer, WrapValue(Object Angle Y(YourPlayer) + 1.5)

   Set Camera To Follow Object Position X(YourPlayer), Object Position Y(YourPlayer), Object Position Z(YourPlayer), Object Angle Y(YourPlayer), 30, 10, 1, 0
   Point Camera Object Position X(YourPlayer), Object Position Y(YourPlayer), Object Position Z(YourPlayer)

   Sprite CrosshairSprite, MouseX(), MouseY(), CrosshairImage
   Sync
Loop

Immense, you could just start by randomizing which square he chooses. The make it a little smarter: if you have 2 in a row make him put a mark in the third. Then if he has 2 in a row he puts a mark. I've heard there is a meathod of tic-tac-toe were you can never lose if you go first, you dont want your AI this smart.

I discriminate against discriminating people....

Back to top

Profile PM

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 16th Aug 2005 04:01 Edited at: 16th Aug 2005 04:10

Link

TY BLAZER! but that didnt help......Im just needing to know how to make 100 radom cubes wonder around a matrix dose any body have code or can tell me how to do that.

Back to top

Profile PM Email Website

Kim Possible

19

Years of Service

User Offline

Joined: 13th Aug 2005

Location: Where ever there\'s trouble.

Posted: 16th Aug 2005 04:23

Link

What you want is called "Waypoint AI"

A search of the forum and codebase for waypoint should net you a ton.

Yeah, first thread turned up: http://forum.thegamecreators.com/?m=forum_view&t=56535&b=7 has snippets for waypoint creation and following.

Start with one cube - the go for a hundred.

DBP + VC Ent.Studio | Maya, MAX, Soft3D, MilkShape, Character FX | 3.0Ghz P4, IC7G, GF 6800GT (primary) / 3200XP, A7N8x, GF 6600GT (secondary) / 6x dual 2.8Ghz Xeon SuperMicro (renderfarm)

Back to top

Profile PM Email

Immense

19

Years of Service

User Offline

Joined: 9th Aug 2005

Location: Groningen, The Netherlands

Posted: 16th Aug 2005 04:46 Edited at: 16th Aug 2005 04:48

Link

Well you can make:

for c=0 to 100
make object cube c,50
w$=screen width()
h$=screen height()
position object c,rnd(w$),rnd(h$),0
next c

something like that

And thnx blazer for the very useful ideas

i had something already with that, ( a part of it )
but didn't know how to go further,
and yes there is an trick to win always
but there is also an disabler to stop that trick

Stupid Factory...
Where boys are made

Back to top

Profile PM Email

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 16th Aug 2005 05:17

Link

Immense all that dose is positions 100 cubes randomly i know how to do that i need to do that and make the cubes walk around the map

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 16th Aug 2005 05:18

Link

Rem Setup sync
Sync On
Sync Rate 30

Rem Make sphere
load object "player.x",10
scale object 10,300,300,300
color object 10,rgb(198,113,113)
Position object 10,200,0,1

rem load village
for a = 201 to 205
load object "cottage.x",a
color object a,rgb(123,63,0)
scale object a,700,700,700
position object a,rnd(1500),20,rnd(1500)
set object collision to boxes a
next a

Rem load trees
For x = 100 to 200
  load object "tree.x",x
  scale object x,1000,1000,1000
   Position object x,rnd(5000),0,rnd(5000)
Next x

rem make matrix
make matrix 1,5000,5000,250,250
load image "grass09.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

rem load npc
make object cube 1,50
color object 1,180
position object 1,400,20,400

For c = 206 to 307
  load object "Cow.x",c
  load image "Cow_texture.bmp",2
  texture object c,2
  scale object c,500,500,500
   Position object C,rnd(5000),20,rnd(5000)
Next c

Rem Main loop
Do

rem Store Object angle Y in aY#
   aY# = Object angle Y(10)

Rem Control input for camera
   If Upkey()=1 then Move object 10,10
   If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)

Rem get player object position and store in X# and Z#
   X# = Object position x(10)
   Z# = Object position z(10)

Rem get new camera position and store in cZ# and cX#
   cZ# = Newzvalue(Z#,aY#-180,100)
   cX# = Newxvalue(X#,aY#-180,100)

Rem position camera
   Position Camera cX#,75,cZ#

Rem point the camera at the player object
   Point camera X#,25,Z#

Rem Refresh Screen
   Sync
Loop

+ Code Snippet

Rem Setup sync
Sync On
Sync Rate 30

Rem Make sphere
load object "player.x",10
scale object 10,300,300,300
color object 10,rgb(198,113,113)
Position object 10,200,0,1

rem load village
for a = 201 to 205
load object "cottage.x",a
color object a,rgb(123,63,0)
scale object a,700,700,700
position object a,rnd(1500),20,rnd(1500)
set object collision to boxes a
next a


Rem load trees
For x = 100 to 200
  load object "tree.x",x
  scale object x,1000,1000,1000
   Position object x,rnd(5000),0,rnd(5000)
Next x

rem make matrix
make matrix 1,5000,5000,250,250
load image "grass09.bmp",1
prepare matrix texture 1,1,1,1
fill matrix 1,0,1

rem load npc
make object cube 1,50
color object 1,180
position object 1,400,20,400

For c = 206 to 307
  load object "Cow.x",c
  load image "Cow_texture.bmp",2
  texture object c,2
  scale object c,500,500,500
   Position object C,rnd(5000),20,rnd(5000)
Next c



Rem Main loop
Do

 rem Store Object angle Y in aY#
   aY# = Object angle Y(10)

   Rem Control input for camera
   If Upkey()=1 then Move object 10,10
   If Leftkey()=1 then Yrotate object 10,Wrapvalue(aY#-5)
   If Rightkey()=1 then Yrotate object 10,Wrapvalue(aY#+5)


   Rem get player object position and store in X# and Z#
   X# = Object position x(10)
   Z# = Object position z(10)

   Rem get new camera position and store in cZ# and cX#
   cZ# = Newzvalue(Z#,aY#-180,100)
   cX# = Newxvalue(X#,aY#-180,100)

   Rem position camera
   Position Camera cX#,75,cZ#

   Rem point the camera at the player object
   Point camera X#,25,Z#

   Rem Refresh Screen
   Sync
Loop

I need those random cows to be able to walk can any body help me make them walk i thought it might be easyer if u saw my code

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 16th Aug 2005 06:26

Link

Just knocked this together for you!

Rem Dark Basic Classic Project: Wander
Rem Created: 16/08/2005 03:21:01
Rem Author: TDK_Man
Rem E-Mail: barrie@computechtenerife.com
Rem Web Site: http://computechtenerife.com

Rem ***** Main Source File *****

Gosub Setup

Rem Main Loop
Do
  CX#=CAMERA ANGLE X(): CY#=CAMERA ANGLE Y(): CZ#=CAMERA ANGLE Z()
  CX#=Wrapvalue(CX#+mousemovey())
  CY#=Wrapvalue(CY#+mousemovex())
  Rotate Camera CX#,CY#,CZ#
  Gosub MoveCubes
  If Inkey$() <> "" Then Exit
  Sync
Loop
End

MoveCubes:
  Rem Move the cubes
  For N = 1 To 100
    Move Object N,NPC(N,1)
  Next N

Rem Alter path to 'wander'
  For N = 1 To 100
    NPC(N,0) = WrapValue(NPC(N,0)+(Rnd(8)-4))
    YRotate Object N, NPC(N,0): Rem Rotate cube
  Next N

Rem Check they don't leave the map
  For N = 1 To 100
    If Object Position X(N) < 20
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
    If Object Position X(N) > 3980
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
    If Object Position Z(N) < 20
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
    If Object Position Z(N) > 3980
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
  Next N
Return

Setup:
  Randomize Timer()
  Rem Variables
  Dim NPC(100,1)

Rem Screen Mode
  Set Display Mode 800,600,16
  Sync On
  Sync Rate 60
  AutoCam Off
  Hide Mouse

Rem Make Ground
  Make Matrix 1,4000,4000,50,50

Rem Create Texture For Matrix
  CREATE BITMAP 1,128,128
  CLS RGB(0,100,0)
  For N=1 To 300
    Ink RGB(0,Rnd(200)+55,0),0
    Dot Rnd(128),Rnd(128)
  Next N
  Get Image 1,0,0,128,128
  PREPARE MATRIX TEXTURE 1,1,1,1
  Delete Bitmap 1

Rem Make 100 Cubes
  For N = 1 To 100
    Make Object Cube N,20
    Scale Object N,100,200,100
    Color Object N, RGB(Rnd(255),Rnd(255),Rnd(255))
    NPC(N,0) = Rnd(360): Rem Initial pointing direction
    NPC(N,1) = Rnd(2)+1: Rem Travelling speed
    Position Object N, Rnd(2000)+1000,40,Rnd(2000)+1000: Rem Place cube
    YRotate Object N, NPC(N,0): Rem Rotate cube
  Next N

Rem Camera
  Position Camera 2000,300,0
  Point Camera 2000,0,2000
  Set Camera Range 1.0,4000
Return

+ Code Snippet

Rem Dark Basic Classic Project: Wander
Rem Created: 16/08/2005 03:21:01
Rem Author: TDK_Man
Rem E-Mail: barrie@computechtenerife.com
Rem Web Site: http://computechtenerife.com

Rem ***** Main Source File *****

Gosub Setup

Rem Main Loop
Do
  CX#=CAMERA ANGLE X(): CY#=CAMERA ANGLE Y(): CZ#=CAMERA ANGLE Z()
  CX#=Wrapvalue(CX#+mousemovey())
  CY#=Wrapvalue(CY#+mousemovex())
  Rotate Camera CX#,CY#,CZ#
  Gosub MoveCubes
  If Inkey$() <> "" Then Exit
  Sync
Loop
End

MoveCubes:
  Rem Move the cubes
  For N = 1 To 100
    Move Object N,NPC(N,1)
  Next N

  Rem Alter path to 'wander'
  For N = 1 To 100
    NPC(N,0) = WrapValue(NPC(N,0)+(Rnd(8)-4))
    YRotate Object N, NPC(N,0): Rem Rotate cube
  Next N

  Rem Check they don't leave the map
  For N = 1 To 100
    If Object Position X(N) < 20
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
    If Object Position X(N) > 3980
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
    If Object Position Z(N) < 20
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
    If Object Position Z(N) > 3980
      NPC(N,0) = WrapValue(Object Angle Y(N)+180)
      YRotate Object N,NPC(N,0)
      Move Object N,NPC(N,1)
    Endif
  Next N
Return

Setup:
  Randomize Timer()
  Rem Variables
  Dim NPC(100,1)

  Rem Screen Mode
  Set Display Mode 800,600,16
  Sync On
  Sync Rate 60
  AutoCam Off
  Hide Mouse

  Rem Make Ground
  Make Matrix 1,4000,4000,50,50

  Rem Create Texture For Matrix
  CREATE BITMAP 1,128,128
  CLS RGB(0,100,0)
  For N=1 To 300
    Ink RGB(0,Rnd(200)+55,0),0
    Dot Rnd(128),Rnd(128)
  Next N
  Get Image 1,0,0,128,128
  PREPARE MATRIX TEXTURE 1,1,1,1
  Delete Bitmap 1

  Rem Make 100 Cubes
  For N = 1 To 100
    Make Object Cube N,20
    Scale Object N,100,200,100
    Color Object N, RGB(Rnd(255),Rnd(255),Rnd(255))
    NPC(N,0) = Rnd(360): Rem Initial pointing direction
    NPC(N,1) = Rnd(2)+1: Rem Travelling speed
    Position Object N, Rnd(2000)+1000,40,Rnd(2000)+1000: Rem Place cube
    YRotate Object N, NPC(N,0): Rem Rotate cube
  Next N

  Rem Camera
  Position Camera 2000,300,0
  Point Camera 2000,0,2000
  Set Camera Range 1.0,4000
Return

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Louiz ofRohr

19

Years of Service

User Offline

Joined: 11th Nov 2004

Location:

Posted: 16th Aug 2005 07:49 Edited at: 16th Aug 2005 07:55

Link

+ Code Snippet

if Monster.DistanceFromPlayer =< Monster.VisionRange
   while Monster.State = Thinking
      Monster->DecideIfAttackPlayer;
      if Monster.Decision = Attack
         Monster.State = Attacking;
         else if Monster.Decision = RunAway
            Monster.State = Running;
            else
            Monster.State = Thinking;
         endif
      endif
   endwhile

   if Monster.State = Attacking
      Monster->AttackPlayer;
      else if Monster.State = Running
         Monster->Run;
      endif
   endif

endif

Looks like a trick, I know

But it is the only example I could give you..
And my friend foud it really clear..

I have a nice hint to you:
Learn how to use arrays to apply a different speed to each
cow.. a different state (running, walking, etc)..
Learn how to use rnd() and timebased or loopsBased counters..

Study hard these 4 items..
If you get those programming logics plus maths, you can make
brilliant AI's

Comparisons+Maths+Logic+CoolIdea

Each AI is another AI..
There is no AI example if you don't know
how to use comparisions.. An example for
this would be: we just make the work for you.. Like TDK did >=|
>=[ TDK!!!

I want the people learn HOW TO DO

It would be soooo good

There is no an AI Book (even from the best AI Books ever)
that teaches you how to make cows move by themselves..

Any doubt about that?
Get the monster tutorial and try to associate that to your cows..
You'll see that it is impossible for you now, 'cause the moster
acts much different of a cow..

Anyway.. good luck

The worst foe lies within the self..

Back to top

Profile PM

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 17th Aug 2005 01:58

Link

Guys i am wanting to make points then have my cube go to that point and make another point then have it go there and just have it walk back and forth between those 2 points can any body help me with that

Back to top

Profile PM Email Website

Kim Possible

19

Years of Service

User Offline

Joined: 13th Aug 2005

Location: Where ever there\'s trouble.

Posted: 17th Aug 2005 02:14

Link

http://forum.thegamecreators.com/?m=forum_view&t=56535&b=7

DBP + VC Ent.Studio | Maya, MAX, Soft3D, MilkShape, Character FX | 3.0Ghz P4, IC7G, GF 6800GT (primary) / 3200XP, A7N8x, GF 6600GT (secondary) / 6x dual 2.8Ghz Xeon SuperMicro (renderfarm)

Back to top

Profile PM Email

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 17th Aug 2005 02:30

Link

+ Code Snippet

if posX = pointX and posY = pointY
pointX = rnd(200)
pointy = rnd(200)
endif
point object 1,pointX,20,pointy
move object 1,1

thats what i got so far and yes it dose find a random position and gos there but how can i make it do it again

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 17th Aug 2005 03:15

Link

crzy programmer:

Stop moving the goalposts for goodness sake!!!

Quote: "Im just needing to know how to make 100 radom cubes wonder around a matrix"

So that's what I did.

Now you are saying:

Quote: " Guys i am wanting to make points then have my cube go to that point and make another point then have it go there"

Which isn't the same thing as you originally asked for. Please try to be a bit more specific in your requests for help so we don't waste time writing code you don't actually want.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Crazy Programmer

AGK Developer

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 17th Aug 2005 03:37

Link

Tdk i need the first one too and it works ty for helping
but now i need help with somthing else

Back to top

Profile PM Email Website

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 17th Aug 2005 16:46

Link

OK, no problem.

Once you have the answer to your question, the courteous thing to do is thank whoever helped you (which you have done) and if you have another question, start a new thread for it.

The chances are, most users who might want to know how to solve your second problem won't be able to find it if it's tucked away in a thread about something else.

TDK_Man

A New Alternative IDE For DB Classic!

Back to top

Profile PM Email Website

Sorry your browser is not supported!

Newcomers DBPro Corner / Help with Ai