Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
 
  HOME    TRACKER    Visual Basic




Another Game? Spelling Bee


You all saw my Math Quiz?
Well I recycled the code and came up with a spelling bee game (14,600 words)...
I put it all together in an MDI and called it The Quiz Master

For the spelling I tested a few different controls (text to voice).
The VTEXT.DLL seems to be the clearest.(although sometimes he doesn't pronounce properly).

Dependancies (not required)
VTEXT.DLL (incl. w/ Win2K)
AGENTCTL.DLL (incl. w/ Win2K & XP)
BASSICMESSAGE.DLL (Attached in Zip)

I'm using 8 MS Agents / Characters (not required)
If you have any Agents, you can drop them in the root of this project. Come on...IT'S FUN!!!
(I did not include them in this download as they total 21 MB)

There is a database included which holds the dictionary and statistics.

Keep in mind that this is for kids.

Take it, use it, modify it, do whatever you want with it. (but don't forget where you got it)

HAVE FUN




View Complete Forum Thread with Replies

See Related Forum Messages: Follow the Links Below to View Complete Thread
Spelling Game Problems
heya.... im havin a few problems with my spellin game!!! it works fine for a couple n then before u r given the chance to write the word of the picture it tells u that ur wrong... it does this now n again... there is no pattern or ne particular words it happens on.! any help would b greatly appreciated..... thanks

here is the code

Option Explicit
Dim intShow As Integer

Private Sub cmbEnter_Click()
lblT = lblT + 1
Call CheckWin
cmbStart_Click
End Sub

Private Sub cmbExit_Click()
If MsgBox("Are you sure you want to exit?", vbYesNo) = vbYes Then
frmSpelling.Visible = False
FrmFront.Visible = True
Else
End If
End Sub

Private Sub cmbHelp_Click()
frmHelp.Visible = True
frmHelp.lbltitle = "The Spelling Game"
frmHelp.lblIns = "Click New Game to Begin a Picture will appear"
frmHelp.lblIns1 = "In the white box spell you answer"
frmHelp.lblIns2 = "Enter to see if the answer is correct"
frmHelp.lblIns3 = "If the answer is correct you will then plus one to the score if not you will move on"
frmHelp.cmbExit.Visible = False
End Sub

Private Sub cmbStart_Click()
cmbEnter.Enabled = False
cmbStart.Visible = False
cmbEnter.Visible = True
txtanswer.Visible = True
lblstart.Visible = False

picAnt.Visible = False
picBee.Visible = False
picGrass.Visible = False
picDog.Visible = False
picEgg.Visible = False
picKey.Visible = False
picPig.Visible = False
picStar.Visible = False
picTap.Visible = False
PicYoYo.Visible = False

txtanswer.Text = ""

Randomize
intShow = Int(10 * Rnd) + 1

If intShow = 1 Then
picAnt.Visible = True
End If

If intShow = 2 Then
picBee.Visible = True
End If

If intShow = 3 Then
picDog.Visible = True
End If

If intShow = 4 Then
picEgg.Visible = True
End If

If intShow = 5 Then
picGrass.Visible = True
End If

If intShow = 6 Then
picKey.Visible = True
End If

If intShow = 7 Then
picPig.Visible = True
End If

If intShow = 8 Then
picStar.Visible = True
End If

If intShow = 9 Then
picTap.Visible = True
End If

If intShow = 10 Then
PicYoYo.Visible = True
End If
End Sub

Private Sub Form_Load()
cmbStart.Visible = True
cmbEnter.Visible = False
txtanswer.Visible = False
lblstart.Visible = True
lblS = 0
lblT = 0

picAnt.Visible = False
picBee.Visible = False
picGrass.Visible = False
picDog.Visible = False
picEgg.Visible = False
picKey.Visible = False
picPig.Visible = False
picStar.Visible = False
picTap.Visible = False
PicYoYo.Visible = False
End Sub

Private Sub CheckWin()

If picAnt.Visible = True Then
If txtanswer = "ant" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'ant'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picBee.Visible = True Then
If txtanswer.Text = "bee" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'bee'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picGrass.Visible = True Then
If txtanswer.Text = "grass" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'grass'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picDog.Visible = True Then
If txtanswer.Text = "dog" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'dog'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picEgg.Visible = True Then
If txtanswer.Text = "egg" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'egg'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picKey.Visible = True Then
If txtanswer.Text = "key" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'key'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picPig.Visible = True Then
If txtanswer.Text = "pig" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'pig'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picStar.Visible = True Then
If txtanswer.Text = "star" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'star'", vbOKOnly
cmbStart_Click
End If
Else
End If

If picTap.Visible = True Then
If txtanswer.Text = "tap" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'tap'", vbOKOnly
cmbStart_Click
End If
Else
End If

If PicYoYo.Visible = True Then
If txtanswer.Text = "yoyo" Then
MsgBox "You are correct!", vbOKOnly
lblS = lblS + 1
cmbStart_Click
Else
MsgBox "This answer is Wrong the correct answer is 'yoyo'", vbOKOnly
cmbStart_Click
End If
Else
End If

If lblT = 10 Then
If lblS = 10 Then
MsgBox "You Have Compleated the Spelling Game. The Password to continue onto level 2 is 'sunshine'", vbOKOnly
cmbExit_Click
Else
If MsgBox("Sorry you have not got all the answers right. Would you like to start again", vbYesNo) = vbYes Then
Form_Load
Else
End If
End If
Else
End If

End Sub

Private Sub txtanswer_Change()
If txtanswer.DataChanged = True Then
cmbEnter.Enabled = True
Else
End If

End Sub

Spelling Macro
I am trying to write a spelling macro that conforms to my organisations spelling procedures

For instance, we have to spell online as on-line unless its starts a sentence (obvouisly), then it should be On-line. Here is the code that i have. Can anyone show me how to put in a condition that says if it starts a sentence then capitalise the word.

A few other example words that i have, and to help calrify the situation are as follows:

website should be Web site
case study should be Case Study throughout the document (this is the difficult one i think because both words need capitalisation whether they are in the document or at the beginning of a sentance.

Sorry maybe one thing at a time and just the capitalisation of the first word such as on-line

Here is my code:

Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "online"
.Replacement.Text = "on-line"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False

End With
Selection.Find.Execute Replace:=wdReplaceAll

Thanks for any help

Spelling And Grammer
I have found two ways for checking the spelling of a TextBox, one is for MSWord, the other is for Excel. If the program is on a machine that does not have either of these programs, how can I run a spellchecker on the Textbox? Am I limited to spell checking on machines that have one of these programs, or am I to be saved? I searched many web sites I frequently use, including this one, for the answer, to no avail.

Help With Spelling (its Atroshus!)
Anybody Got an idea to make a spell checker that doesn't use microsoft word? Puzzling...

Metronone (spelling)
What would be the best way to get beats/minute? I need to make a metronone for a bicycle test. I'm thinking setting a timer to different intervals, but how would I know what interval is say 50 beats/minute?
Any Ideas other than testing each interval?
Shawn

Auto Spelling In VB 6.0
Hi friends,
I need to check very large amount of text for spelling errors.
Do you have any idea how to process it automaticly with VB 6.0
i just need to mark wrong words in red.

Spelling Macro
i have written a spelling macro which works great untill it checks the first word in sentence.

i.e.

we have to write online as on-line unless its at the start of a sentence then we have to write it as On-line

any ideas, here is my code

Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "online"
.Replacement.Text = "on-line"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Thanks

Spelling && Grammar
Is there a possible way i can check for spelling errors in my textbox with a command button?

Checking For SPELLING With VB
How would I take a TEXTBOX and validate the spelling in it?

I'm looking to do this with the most ease and least "install" requirements.

Any help would be greatly appreciated.

Spelling Correct?
Hello,

I would like to incorporate a spell checker? If I reference Microsoft Word 8.0 Object Library and distribute the compliled program to others do they need Microsoft Word?

Are there any in-process spell checkers? I do not want the user to rely on a particular spell checker.

Code:

Dim MSWord As Word.Application

Private Sub Form_Load()

Set MSWord = New Word.Application

End Sub

Private Sub cmdCheck_Click()
Dim text As String
Dim suggestion As Word.SpellingSuggestion
Dim colSuggestions As Word.SpellingSuggestions

If MSWord.Documents.Count = 0 Then MSWord.Documents.Add
text = Trim(txtWord.text)
lstSuggestions.Clear
If MSWord.CheckSpelling(text) Then
lstSuggestions.AddItem "(correct)"
Else
Set colSuggestions = MSWord.GetSpellingSuggestions(text)
If colSuggestions.Count = 0 Then
lstSuggestions.AddItem "(no suggestions)"
Else
For Each suggestion In colSuggestions
lstSuggestions.AddItem suggestion.Name
Next
End If
End If

End Sub

Thanks,
deDogs

Spelling Checker
Hi,

I using MS Word automation in a VB6 application to perform spell-checking on certain words. If the word is spelt correctly everything works as I'd like, however if the word is not spelt correctly my application displays the suggestions dialog.

Is there any way of turning this dialog box off?

TIA,

Ed Metcalfe.

Please do not feed the trolls.....

Check Spelling
i have this VB application that allow the user to enter any words the user wants in a text box...i need to implement a spell checker and this spell checker would suggest other words to replace when the search failed to find any record...however..i dont want to use the spell check provided in MS Word...
is it possible to create my own dictionary using application such as notepad, word etc and used it as a checker.. if it is possible...how should i go about implementing it ....please help....thanks

Change Look Of Titelbar<--spelling?
Not sure if its called the titlebar but anywayz how can i change the look of the titlebar ( where the minimize/maximize button is and close button )

Spelling Mistake In Word
If we spell a word wrongly, Word will notice it and underline the word.

I want to write a code, such that when user rightclick a selected word, the program will detect has Word detected there is spelling mistake of this word. If yes, then the program will do some more things......

Is it possible to detect??? THX!!!!!!

Calculating Spelling Mistakes
Is it possible to get excel to search through a cell of text and give me a count of the amount of spelling mistakes that are in that text? I've tried to find out what I can and so far nothing has turned up about this problem...

Spelling Check In Outlook
Hi Everyone,

I am very new to VB. Maybe someone can help me :-)

I am trying to write a spell checking for outlook that checks two king of languages.

The story behind that is simple. I would like to have a kind of two buttons so when I write a email e.g. in English I could click on that button and the spelling assistant start with English language and another button for Spanish so if I click that the spelling assistant starts with Spanish language. Instead of always changing the language manually.

I tried to do that in Excel with recording a macro and that worked fine. I had a hot key so I could switch between these to language very easily.

But somehow I cannot accomplish that in outlook.

Since you cannot record macros in outlook, does anyone has a clue how to do that?

Thanks for the help.

Bob

New Plan For Spelling And Grammar
Id did search on the internet for help on a spelling and grammar check in check boxes Iíve got ní working program in vb.net but in need one in vb6. The program copy the text to msword check the grammar and spelling fixed it and copy it back to textbox how can I do that or use the .net program in vb6 donít know .net at all

Spelling Detection (Like In MS Word)
hi all gurus...

im trying to make a feature in my program that will detect incorrect spelling. the reason why im doing this is because, im making a simple word game and the program should able incorrect word typed by user. (juz like MS word). hope someone could guide me. thanx!!

p/s:the program is like scrable game where user will make a word from the alphabets given.



Edited by - AbbydonKrafts on 1/23/2007 8:23:11 PM

Word Default Spelling Language
I'm trying to use Word spelling functionality using Word Object Library. I open a hidden Word document and check spelling of the word and I get the suggestion list using the following code:

Set objMsWord = New Word.Application
objMsWord.WordBasic.FileNew 'open a doc
objMsWord.Visible = False 'hide the doc
booRet = objMsWord.CheckSpelling(strWord)
If booRet = False Then
Set SugList = objMsWord.GetSpellingSuggestions(strWord, SuggestionMode:=wdSpelling)

The problem is, I wan't to force Word to use a specific language dictionary to check spelling. I tried to use MainDictionary parameter but Word uses the UI language instead.

Do you know how I can force Word to use specific spelling dictionary (not custom)?

Thanks...

Uppercase/lowercase && Spelling Checks...
Hi im building this trivia game

1st) how can i make it so that the text entered into a text box and when a command button is clicked, it will look at the text and it will not matter if the letters stored in the varible is uppercase or lowercase and it will not prove it wrong...

2) How can i make it so that if the spelling is near correct of the answer that they put in, it will correct it and allow it and if its far off it will prove it wrong??

Thanks

Convert Number To Text-Spelling
I'm trying to convert a currency value (i.e. $10.23) to it''s text spelling (i.e. "10 dollars and 23 cents"). Anyone know of a function that does this? Thanks in advance.

Spelling And Grammatical Errors In Word
hi

i want to find all grammatical and spelling errors and then insert word's suggestions next to error..

this code finds the errors and bold and underline it. message suggestions too.

wot i want is how to go to that error, so that i can insert suggestions next to it.

Dim spErr As Object

i = 1
For Each spErr In ActiveDocument.Range.SpellingErrors
spErr = ActiveDocument.Range.SpellingErrors.Item(i)
spErr.Font.Bold = True
spErr.Font.Underline = True
n = ActiveDocument.Range.SpellingErrors(i).GetSpellingSuggestions.Count
For j = 1 To n
MsgBox (ActiveDocument.Range.SpellingErrors(i).GetSpellingSuggestions.Item(j))
Next
i = i + 1
Next
i = 1
For Each gr In ActiveDocument.Range.GrammaticalErrors
n = ActiveDocument.Range.GrammaticalErrors(i).GetSpellingSuggestions.Count
gr.Font.Bold = True
gr.Font.Underline = True
For j = 1 To n
MsgBox (ActiveDocument.Range.SpellingErrors(i).GetSpellingSuggestions.Item(j).Name)
Next
i = i + 1
Next
End If

Algorithm For Making Spelling Suggestions
Hi, all

I would like to put a spell checking & thesaurus in my program.

I will be happy to receive opinions.

Algorithm For Making Spelling Suggestions
Hi all,

I welcome opinioms on writing a spell checker & Thesaurus with VB.



Mass

Turn Off MS Wors's Check Spelling And Grammar
How to turn off MS Wors's check spelling and grammar through Visual Basic 6.0 code?

Autocorrect: Automatically Use Suggestions From The Spelling Checker?
I have been trying to use this feature in a way that the first suggestion of the spelling checker in a misspelt word functions like an autocorrect entry automatically correcting the word when typing. (Word 2000 & 2002)

Although this option is checked (Tools/ Autocorrect Options / Automatically use suggestions from the spelling checker) as well as (Tools/ Options / Spelling & Grammar / Check spelling as you type) it does not work.

I am in doubt as whether it is meant to work this way, or whether a special macro could be easily created for this.

Thank you for reading this message! Any help would be appreciated.

Spiros

I Need A Form With A Text Box Checking The Spelling Of User's Input!
Hello everyone!

I need a form with a text box checking the spelling of user's input!

Does somebody have an idea, please!

Try To Bring My Game From Window Game To Internet Game
I am an VB newbie, picked up VB.net and redone an old fashion game with it, it works pretty well on my PC now. After done with Window forms and Web forms, I found myself lost in this new world of web jargons, such as ASP.NET, XML, SOAP or cookies. I wish to move my game from window level to web level, and could not figure out what's the right tool to use.

My game needs web server to provide "some" information, keep track scores, and being in the "background". The game itself mainly runs on client local PC, only needs to communicate with a server for help, record keeping and limited event handling, and I don't need to bring up a web page by IE.

This game is an old favorite of mine, it can be played just like any other online games. After reading three books (honestly not all 800 pages), I don't have a single clue where to go from here. Can anyone help to educate me what's the tool or which book should I study from here?

Would It Be Easy To Convert A Completely Top View 2d Game To An Isometric Style Game?
im making a top view 2D game but later on after completing it i want to convert it to isometic view, thirdperson

i couldnt be bothered learning how to right now, so i just want to create the game in 2d first

so would it be easy to convert from 2d to isometric?

also if someone could explain or post a link to a tutorial on how to do isometric games .......

this is a tile based game...

Speed-limit A Game, Game Running To Fast On P4 2.0
Iīm making a SuperMario-like game,
I develop it on my 1,1ghz, Geforce 256 32mb, 512mb ram, computer, it runs at a perfect speed.

When I tried it on my brothers 2.0ghz P4, Geforce4 Ti4600 128mb, 512mb ram, it ran so fast it was impossible to play it..

The thing I want to do is:
*Get as high FPS as possible (thoose drawing rutines should run as fast as possible)
*Get the GetInputs, MoveCharacter and CalculateEnemyAI functions to run each X ms (millisecond)

I tried to use a timer at 1ms but the game becomes very slow, I guess it cannot run as fast as 1000 times a second,

Any suggestions, ideas to fix this problems?

Help With Music In Pong Game And Restat Of Game
Hey, I was wondering if anyone could help me with my game in making it when you click the restart button on the menu that it will restart the game and set the scores back to zero, and see if anyone can help me get my midid to play as soon as the form load and when the song plays that the paddle for player are still able to move.
Thanks,
Rampage<PS>

My Second Game! In VB! :D A Talking Weird Type Game.
I learned Alot about Integers and choose to give it a try in a weird talking game.

I could of used booleans too by seting differnt ones for each person.

But I used Integers which was much faster.

Well tell me what you think of the small game thingy. I'm very new to VB.

How Do I Program Save Game And Load Game?
Hi guys, (Once again)

Is there a decent tutorial that can explain how to program how to save/load a game in VBasic? Notice I'm creating an RPG and this is sort of crucial. Thank you guys!

Capture Game Screen (Game Uses DirectX)
I need to capture the screen when a game is running.
The problem is that when I make my app use keybd_event API to simulate the PrintScreen button, or when I use BitBlt to capture the screen, the window that the game is in is just black.

I need to capture the screen because I want to look for certain pixels within the game window, but atm the whole thing is just black.

Any way to capture the pixels in the window or somehow compare the pixels to a picture I have (sort of like an OCR but I want to find shapes, not text)

Different Game Loops In One Game
Is it common for games to have a seperate game loop for say...the title/options screen? Because the effects of the input and the graphical output will be totally different to in the actual game..

Game Programming Gems Or Windows Game Programming
ok..I have limitied it down to 2 books I can get....Game Programming Gems or Windows Game Programming Gurus..

Which one is the best for its money,and is for beginners?

RPG Game (Need Help)
For a school assignment, we have to design this game. The game is designed for grade 8 history classes (but that not important). The important thing is that each student has to have their own profile. The profile will have their name, stats, etc.

The problem that im have is creating the profiles. I sort of have an idea but i do need a little help.

I am going to create the profiles using a *.txt file.

I can create a *.txt file but i dont know how to make the file their name.
Eg. If their name is "Joe Bloggs" then the file name is "Joe Bloggs.txt"
Any help would be greatly appreciated.

Thanks

Game Box Help
I would like to know howi can make boxes appear moving on my forum without me having to make 40 picture boxes. please use the easiest way to explain and elaborate on how it works and use full prefexed variables.

New Game... TIC TAC TOE
I had nothing to do yesterday (Sunday), so I wrote a little Tic Tac Toe game.
Actually, it's for my nephew.


Each match is 20 games, see if you can score 80% or better.
As the player you have the advantage of first move.

Code is included....

Need Help!! Rpg Game!!!
How do you make the images blend with the background so that the white isnt showing around it.
Also, how do you make it so the character stops at a wall.

Tic Tac Toe Game
I was wondering if anyone could help me with a tic tac toe game that plays human against computer. It for a class and I just dont know where to start.
I would appreciate any help.

Tic Tac Toe Game
Im doing a tic tac toe game with a vs. computer mode which im currently working on. The only way i can think of to do it is to check manually for x's beside each other to fill in the third. I have a 2d array and 2 variables: Col and Row. So i thought of trying:

Code:
If AIArray(Row, Col) = "X" Then
If AIArray(Row, Col + 1) = "X" Then
If AIArray(Row, Col + 2) = "" Then
If rndMove = 4 Then
AIArray(Row, Col + 2) = "X"
cmdTTT(2).Caption = "X"
SetVal(2) = cmdTTT(2).Caption
End If
End If

Which manually checks every space for 2 x's. Now after this start i noticed it could possibly get very lengthy. My array is set up as follows:


Code:
Sub setArray()
Dim loop1 As Integer
Dim PV As Integer
Dim TE As Integer

PV = 0
TE = 0

For loop1 = 0 To 2
AIArray(PV, loop1) = cmdTTT(TE).caption
TE = TE + 1
If loop1 = 2 Then
If loop1 = 2 And PV = 2 Then
Exit For
Else
PV = PV + 1
loop1 = -1
End If
End If
Next loop1
'Array(0,0) through (2,2) is set up as a string and checks the captions of cmdTTT for the values
End Sub

Is there any ideas you all might have as to do the vs. computer as opposed to what i have going above this array setup?
Thanks

My Game
Hi - this is what i have currently for my game code;

Code:
Option Explicit
Dim ShuffleMe(1 To 3) As Integer
Private Sub Generate()
Dim MaxNum As Integer
'...set here
MaxNum = UBound(ShuffleMe)
Dim i As Integer
For i = 1 To MaxNum
'set the items to just be numbers 1 to Max
ShuffleMe(i) = i
Next
'shuffle
Dim j As Integer
Dim temp As Integer

'swap them in pairs (or not if i = j)
'this is the essential code
For i = 1 To MaxNum
j = Int(Rnd() * MaxNum) + 1
temp = ShuffleMe(j)
ShuffleMe(j) = ShuffleMe(i)
ShuffleMe(i) = temp
Next
'display results
For i = 1 To MaxNum
MsgBox ShuffleMe(i)
Next
End Sub
Private Sub RandomImage()
Dim r As Integer
Dim foo(1 To 3) As Integer
For i = 1 To 3
r = foo(i)

Next
r = Int(Rnd() * 3)

imgSequence.Picture = imgColour(r).Picture
End Sub

I am trying to get the images from three non visible image boxes, to appear in a random sequence in the image box called; imgSequence. I also know this will need a timer, but im not sure how to implement it either.

I also need the user to be able to try and copy the random sequence that has been generated by the random code. Please can anybody help!

I Need Help For My Game Plz...
I'm actually making a wrestling game but I have some problem.

First , I don't know how to do the grappling system and also the SmackDown! (Special) gauges... just like in every Smackdown! on the PS1 and PS2 ...

MUD For Rpg Game
ive done programming mainly for applications so i dont have much knowledge for game type softwares, im looking for something which looks like diablo (isometric view) games, ive seen some MUD that could be used for such but i dont know where to start (with VB), is it possible to create such with VB or should it be left with other PL (C maybe?), is there any sample that does the thing that im looking for? anyone?

Q About 3D For My Rpg Game
I'm getting the hang of 2D sprites using bitblt, i want to know if it is possible to create a decent RPG game in 3D using VB and directx, i mean if it is as "easy" as in C++ or if it is much harder to get the same quality?

I heard many people say that games are created in C and C++, especially the 3D ones.

If it is possible to make with VB, which version of directx should i use?

TIA

My First Game Plz Help
i really need some help this is annoying the hell out of me im making pong and i cant get the ball to hit the paddle its one player top to bottem plz help. and if you help speak english plz im not real fermiler with all the vb mumbo jumbo quite yet thanks

Game
i have a game that is sorta like grand theft auto, and i have it so when u hit W the weapon changes. however, sometimes it doesnt. when u have the first weapon selected, u can switch to the next one, according to whether u have it or not, but when the current weapon is the second one, the switch doesnt work. code below:
'---------------------------------------------------------------------

Code:
Case vbKeyW
'''''Knife Current
If weapon = 1 Then
If deagle = True Then
frmstats.lblDeagle.ForeColor = vbRed
frmstats.lblKnife.ForeColor = &HFFFF00
weapon = 2
End If
If deagle = False And handgrenade = True Then
frmstats.lblGrenade.ForeColor = vbRed
frmstats.lblKnife.ForeColor = &HFFFF00
weapon = 3
End If
If handgrenade = False And uzi = True Then
frmstats.lblUzi.ForeColor = vbRed
frmstats.lblKnife.ForeColor = &HFFFF00
weapon = 4
End If
If handgrenade = False And uzi = False And assaultrifle = True Then
frmstats.lblAssaultRifle.ForeColor = vbRed
frmstats.lblKnife.ForeColor = &HFFFF00
weapon = 5
End If
If handgrenade = False And uzi = False And assaultrifle = False And bazooka = True Then
frmstats.lblBazooka.ForeColor = vbRed
frmstats.lblKnife.ForeColor = &HFFFF00
weapon = 6
End If
If handgrenade = False And uzi = False And assaultrifle = False And bazooka = False And landmine = True Then
frmstats.lblLandMine.ForeColor = vbRed
frmstats.lblKnife.ForeColor = &HFFFF00
weapon = 7
End If
'''Deagle Current
ElseIf weapon = 2 Then
If handgrenade = True Then
frmstats.lblGrenade.ForeColor = vbRed
frmstats.lblDeagle.ForeColor = &HFFFF00
weapon = 3
End If
If handgrenade = False And uzi = True Then
frmstats.lblUzi.ForeColor = vbRed
frmstats.lblDeagle.ForeColor = &HFFFF00
weapon = 4
End If
If uzi = False And assaultrifle = True Then
frmstats.lblAssaultRifle.ForeColor = vbRed
frmstats.lblDeagle.ForeColor = &HFFFF00
weapon = 5
End If
If uzi = False And assaultrifle = False And bazooka = True Then
frmstats.lblBazooka.ForeColor = vbRed
frmstats.lblDeagle.ForeColor = &HFFFF00
weapon = 6
End If
If uzi = False And assaultrifle = False And bazooka = False And landmine = True Then
frmstats.lblLandMine.ForeColor = vbRed
frmstats.lblDeagle.ForeColor = &HFFFF00
weapon = 7
End If
If uzi = False And assaultrifle = False And bazooka = False And landmine = False And knife = True Then
frmstats.lblKnife.ForeColor = vbRed
frmstats.lblDeagle.ForeColor = &HFFFF00
weapon = 1
End If
End If

My Game
I have attached the game file in .zip format

- This is just a quick demo I whipped up just to see how everyone reacts to it. I just learned BitBlt last week so go easy on me

- The code is sloppy for the map creation, but it seems to work.
- You may need to change the map location in the code to wherever the map is in the files you download. Other than that, the code should work perfectly

- There are two maps right now. If you go down on the first map, you'll enter the second map !
- The objects on the second map do not have any interaction yet, becuase I'm tired of coding right now

- Give constructive Feedback please !

Copyright © 2005-08 www.BigResource.com, All rights reserved