Jump to content
Search In
  • More options...
Find results that contain...
Find results in...

Jeff

Members
  • Posts

    2669
  • Joined

  • Last visited

    Never

Everything posted by Jeff

  1. Thats off topic, but if you change the places where it says "x" and "y" on the mapeditor, i think it should make it bigger. If your using EO, of course.
  2. sorry for the double post, but I really need help with this still… --Edit-- I closed vb6 and then openned it again and it worked fine. weird.
  3. looks good. I hope it turns out nicely and you don't get sued.
  4. this sounds awesome. Maybe endurance should increase armor instead of agility? I don't quite understand how agility would make you more armored.
  5. I like them, they're pretty good.
  6. Jeff

    Greek Building

    Looks very side scroller. Put a rectangle behind it of some sort, so it has lines coming out to make it look more 2-d. Look at the RMXP greek building and see the basics of how they did it to get some inspiration.
  7. Awesome yorty! what level are you?
  8. the first two our only stretched out a little bit… but the others are pretty ugly.
  9. Jeff

    Makerbot!

    Or carving something out of tacos… :drool:
  10. Fuppylggij snorlax
  11. Jeff

    Custom Sprites?

    using RMXP sprites and tiles is also illegal, so you might run into some problems there…
  12. Have you ever wanted a new life? Well with Erepublik, you can. Its a text based browser game Where every day you choose how much time you want to spend working, training for battle, Studying at the library, and resting at your neighbors house. No, you don't sleep. 24 hours of ACTION! Fight for your country! Become a citizen of eMalaysia, eCanada, eUsa, eBrazil, eSouth Africa, eSweden, and many many more! Get a job in engineering, a job as a technician, a job as a harvester, a job as an architect. Be a journalist and write your very own newspaper! Become a politician and make sure your country doesn't do anything stupid! Many options await you in Erepublik. 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!!!
  13. Jeff

    Robin's maps

    wow, Beautiful! If the autotiles can do this, mapping will be a lot better :D
  14. 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.
  15. Jeff

    Help in Saving

    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.
  16. Jeff

    Help in Saving

    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.
  17. Exactly what I was thinking. People have to show up at an office everyday if they work there, right?
  18. as in don't make it so they just get money for free, they should at least have to show up somewhere or something.
  19. 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.
  20. 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.
  21. Thanks! works like a charm. I can't believe i missed that second end if.
  22. 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…
×
×
  • Create New...