Jeff
-
Posts
2669 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Jeff
-
-
wow, Beautiful! If the autotiles can do this, mapping will be a lot better :D
-
Stone
-
I don't know if house editors actually work, but I do know that if your in screenshot mode you can't see attributes, so make sure your not in screenshot mode.
-
Well actually last time I closed the server a giant earthquake hit haiti. If you have to restart your computer, i predict the universe will implode.
Lol, im jk. Just dont close your server while your client is running otherwise you'll run into small issues and lose some data. Always run client when the server is on, otherwise you can't log in. -
Never close teh server. Ever. That is rule of life. Oh, and remember to click save map on the top left of the map editor.
-
Well, I have tried with my SUPER DUPER small team of me and you… and have found that I need a tileset artist and a music composer most definitely.
-
Its pretty ugly. Thats not a very good color, and if you use it have your text colored. I would suggest that for all the labels and big headlines that you used images instead that say that word. Good luck :)
-
Most likely cancelled. I have tried many times to get a team together, but no one notices or cares… When i try to do to much myself, I just end up working and working and not getting anywhere. Definitely postponed until I learn basic VB6 Coding
-
I love the graphic style!
-
Exactly what I was thinking. People have to show up at an office everyday if they work there, right?
-
as in don't make it so they just get money for free, they should at least have to show up somewhere or something.
-
thats a good idea, but you should make it so he has to go to a certain place or somehting, I would suggestjust give them a freebie.
-
Janitor example to do work: Kill an NPC called "grime" or "dirt" or something.
It works pretty well for a janitor. If Janitor is a class, make them use something that could "kill"(clean) the NPC. If it is seperate from your class, then maybe make a script so you can only use a certain weapon(that would be a broom or mop or something) to damage it.
Possible example for Waiter, etc.: You could make it so you picked up an item (like food) and give it to a scripted NPC and then get tipped different amounts depending on the NPC.
For Dishwasher, etc.: You could make a hybrid between the two; The dishwasher picks up an item and uses it to 'attack' the sink and soon the item dies.
This is just my ideas, but I think that they are actually probably boring unless you have it executed correctly in a fun game. -
Thanks! works like a charm. I can't believe i missed that second end if.
-
Here is the script I put in:
```
Private Sub Purchasbutton_Click()
Dim Buying As String
Buying = SelectAnItem.Text
Select Case Buying
Case "Sugar"
If inv1.Caption = "Empty" And Money >= 1 Then
inv1.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of sugar."
ElseIf inv2.Caption = "Empty" And Money >= 1 Then
inv1.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of sugar."
Else
If Money < 1 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
Case Else
inv1.Caption = "fail"
End Select
End Sub
```
And when I run it, I get
> Compile error: Case else outside Select Case
If I take out the case else, I still run into problems. Anyone have any suggestions on how to fix it? Or why it is breaking?
–-------Edit-----------------
Now I just go to the debugging screen whenever I put this code in:
```
Private Sub Purchasbutton_Click()
Dim Buying As String
Buying = SelectAnItem.Text
Select Case Buying
Case "Sugar"
If inv1.Caption = "Empty" And Money >= 1 Then
inv1.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv2.Caption = "Empty" And Money >= 1 Then
inv2.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv3.Caption = "Empty" And Money >= 1 Then
inv3.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv4.Caption = "Empty" And Money >= 1 Then
inv4.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv5.Caption = "Empty" And Money >= 1 Then
inv5.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv6.Caption = "Empty" And Money >= 1 Then
inv6.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv7.Caption = "Empty" And Money >= 1 Then
inv7.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv8.Caption = "Empty" And Money >= 1 Then
inv8.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv9.Caption = "Empty" And Money >= 1 Then
inv9.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv10.Caption = "Empty" And Money >= 1 Then
inv10.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv11.Caption = "Empty" And Money >= 1 Then
inv11.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv12.Caption = "Empty" And Money >= 1 Then
inv12.Caption = Buying
Money = Money - 1
Else
If Money < 1 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
End If
Case "Coffee"
If inv1.Caption = "Empty" And Money >= 1 Then
inv1.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv2.Caption = "Empty" And Money >= 1 Then
inv2.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv3.Caption = "Empty" And Money >= 1 Then
inv3.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv4.Caption = "Empty" And Money >= 1 Then
inv4.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv5.Caption = "Empty" And Money >= 1 Then
inv5.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv6.Caption = "Empty" And Money >= 1 Then
inv6.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv7.Caption = "Empty" And Money >= 1 Then
inv7.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv8.Caption = "Empty" And Money >= 1 Then
inv8.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv9.Caption = "Empty" And Money >= 1 Then
inv9.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv10.Caption = "Empty" And Money >= 1 Then
inv10.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv11.Caption = "Empty" And Money >= 1 Then
inv11.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv12.Caption = "Empty" And Money >= 1 Then
inv12.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
Else
If Money < 1 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
End If
Case "Tobbacco"
If inv1.Caption = "Empty" And Money >= 1 Then
inv1.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv2.Caption = "Empty" And Money >= 1 Then
inv2.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv3.Caption = "Empty" And Money >= 1 Then
inv3.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv4.Caption = "Empty" And Money >= 1 Then
inv4.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv5.Caption = "Empty" And Money >= 1 Then
inv5.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv6.Caption = "Empty" And Money >= 1 Then
inv6.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv7.Caption = "Empty" And Money >= 1 Then
inv7.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv8.Caption = "Empty" And Money >= 1 Then
inv8.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv9.Caption = "Empty" And Money >= 1 Then
inv9.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv10.Caption = "Empty" And Money >= 1 Then
inv10.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv11.Caption = "Empty" And Money >= 1 Then
inv11.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv12.Caption = "Empty" And Money >= 1 Then
inv12.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
Else
If Money < 1 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
End If
Case "Cacao"
If inv1.Caption = "Empty" And Money >= 1 Then
inv1.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv2.Caption = "Empty" And Money >= 1 Then
inv2.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv3.Caption = "Empty" And Money >= 1 Then
inv3.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv4.Caption = "Empty" And Money >= 1 Then
inv4.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv5.Caption = "Empty" And Money >= 1 Then
inv5.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv6.Caption = "Empty" And Money >= 1 Then
inv6.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv7.Caption = "Empty" And Money >= 1 Then
inv7.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv8.Caption = "Empty" And Money >= 1 Then
inv8.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv9.Caption = "Empty" And Money >= 1 Then
inv9.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv10.Caption = "Empty" And Money >= 1 Then
inv10.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv11.Caption = "Empty" And Money >= 1 Then
inv11.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv12.Caption = "Empty" And Money >= 1 Then
inv12.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
Else
If Money < 1 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
End If
Case "Gold"
If inv1.Caption = "Empty" And Money >= 2 Then
inv1.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv2.Caption = "Empty" And Money >= 2 Then
inv2.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv3.Caption = "Empty" And Money >= 2 Then
inv3.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv4.Caption = "Empty" And Money >= 1 Then
inv4.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv5.Caption = "Empty" And Money >= 2 Then
inv5.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv6.Caption = "Empty" And Money >= 2 Then
inv6.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv7.Caption = "Empty" And Money >= 2 Then
inv7.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv8.Caption = "Empty" And Money >= 2 Then
inv8.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv9.Caption = "Empty" And Money >= 2 Then
inv9.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv10.Caption = "Empty" And Money >= 2 Then
inv10.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv11.Caption = "Empty" And Money >= 2 Then
inv11.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv12.Caption = "Empty" And Money >= 2 Then
inv12.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
Else
If Money < 2 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
End If
Case "Silver"
If inv1.Caption = "Empty" And Money >= 2 Then
inv1.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv2.Caption = "Empty" And Money >= 2 Then
inv2.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv3.Caption = "Empty" And Money >= 2 Then
inv3.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv4.Caption = "Empty" And Money >= 1 Then
inv4.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv5.Caption = "Empty" And Money >= 2 Then
inv5.Caption = Buying
Money = Money - 1
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv6.Caption = "Empty" And Money >= 2 Then
inv6.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv7.Caption = "Empty" And Money >= 2 Then
inv7.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv8.Caption = "Empty" And Money >= 2 Then
inv8.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv9.Caption = "Empty" And Money >= 2 Then
inv9.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv10.Caption = "Empty" And Money >= 2 Then
inv10.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv11.Caption = "Empty" And Money >= 2 Then
inv11.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
ElseIf inv12.Caption = "Empty" And Money >= 2 Then
inv12.Caption = Buying
Money = Money - 2
Newsfeed.AddItem "You have succesfully bought a crate of " & Buying
Else
If Money < 2 Then
Newsfeed.AddItem "You don't have enough doubloons to buy that!"
Else
Newsfeed.AddItem "You need more cargospace to buy that!"
End If
End If
Case Else
Newsfeed.AddItem "Error: Purchasing insuccessful."
End Select
End Sub
```
I've gone over it a couple times, but can't seem to see whats wrong… -
OH! the and statement. I'm a beggining coder, and i haven't really used that guy ever. The and statement will be perfect for my application! Thanks so much!
-
Can you make it so you can have two if loops going on at once in the same script? I mean, something like this:
```
If x = a Then
If y = b Then
z = c
End If
Elseif x = b then
If y = c Then
z = a
End If
End If
```
Or something of that sort -
I would TOTALLY be down to be a researcher. I have a book on norse mythology already, although it is short. I also have access to many other books in a local bookstore that is based on norse culture. I can also read up on norse mythology on the internet.
-
Ya definitely don't worry. It took me like 30 minutes to realize my mistake was that I didn't put quotes around something xD
-
-
> I've never seen them in the states
Neither Have I. -
The armor is really good, but I think the rock could use more highlights… Thats just my opinion.
-
I'm a 6 year old genius. I may be 6 years old, but I am in 5th grade. I am taking calculous at my local college.
-
U ARE AWESOME!! thanks so much! I now understand why cases are important =D
Erepublik
in Non-Eclipse projects
Posted
Heres the link: http://www.erepublik.com/en/referrer/Jeff+Shiiste
My character's name is Jeff Shiiste, I'm level 23 and live in eMalaysia.
Now some screenies:
>! The home page
![](http://img204.imageshack.us/img204/7208/erepublikscrrenshot1.png)
I am going to upper mainstreet
![](http://img401.imageshack.us/img401/6660/erepublikscrrenshot2.png)
My company is getting angry because I already worked today
![](http://img175.imageshack.us/img175/323/erepublikscrrenshot3.png)
This is what i did when i was working
![](http://img338.imageshack.us/img338/409/erepublikscrrenshot4.png)
I am at the military training camp
![](http://img228.imageshack.us/img228/7074/erepublikscrrenshot5.png)
The map of the new world
![](http://img193.imageshack.us/img193/9819/erepublikscrrenshot6.png)
I am buying some yummies :D
![](http://img180.imageshack.us/img180/1199/erepublikscrrenshot7.png)
Come to eMalaysia today!!!