Warconn
-
Posts
568 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by Warconn
-
-
lol nice job on the GUI, i want to make something like that with the log in on the mainmenu, but all i have is VB5…. all i want is VB6 lol
Nice Job though -
ook, thanks
-
hey i just got myself a VB 2k5 Express Edition, and i want to compile the code that i have changed.
Instead of compile, there is a button called "Build", so i clicked on that, and it says i have 107 errors, and the majority of them are
"Error 1 Name 'LenB' is not declared. "
and there is one of those in ever .vb in the project
I can compile my code unless i get this fixed, and i no LenB in variable, so how do i fix this
Thanks -
hmm maybe a better housing system, like a furniture system or something. Some of the scripts now are to hard to understand and implement.
and a better battle animation would be cool to, like a two sprite attack instead of a 1 -
hmm im still a novice at this stuff, but i think you have the wrong format…
i think this is what you want
```
Sub ScriptedItem(Index, Script)
Select Case Script
Case 0
*insert beer script here, don't want the maker to be mad it's in here*
Exit Sub
Case 1
Call SetPlayerHP(index, int(GetPlayerHP(index)+int(int(GetPlayerMaxHP(index)/100)*10)))
Call PlayerMsg(index, "You drink the potion and feel a bit better!", 7)
Call Take_Item(index, number, value)
Exit Sub
Case Else
Call PlayerMsg(Index, "No item script found. Please contact an admin to solve this problem.", WHITE)
Exit Sub
End Select
End Sub
```
All i did was rearrange your code, and add the take_item so that the potion will disappear after they drink it
Warconn
[EDIT]
I was looking around my main, and found this
Call Take_Item(index, number, value)
The number is the item number you want to take so if the potion item is number 3 then the number would be 3
This is the amount you want taken, so if you want to take 2 potions when they drink it, the value would be 2
**If you dont have the take_item sub in your main at all, add this at the end of your main
```
'********************************
Sub Take_Item(index, number, value)
'********************************
Dim slot
Dim taken
Dim initial
Dim final
slot=1
taken=0
Do While Int(slot) < 25
If Int(taken)=0 Then
If GetPlayerInvItemNum(index,Int(slot)) = Int(number) Then
If Int(GetPlayerInvItemValue(index, Int(slot))) >= Int(value) Then
initial = Int(GetPlayerInvItemValue(index, Int(slot) ) )
final = Int(initial) - Int(value)
If Int(final) <= 0 Then
Call SetPlayerInvItemNum(index, Int(slot), Int(0) )
Call SetPlayerInvItemValue(index, Int(slot), Int(0) )
Call SetPlayerInvItemDur(index, Int(slot), Int(0) )
Call SendInventoryUpdate(index, Int(slot))
taken=1
Else
Call SetPlayerInvItemValue(index, Int(slot), Int(final) )
Call SendInventoryUpdate(index, Int(slot) )
taken=1
End If
End If
End If
End If
slot = slot + 1
Loop
End Sub
```
Correct me if i am wrong about this stuff guys :)
Thanks -
yea, thats what i mean, it doesnt explain what the numbers and things are….
-
hey i was searching the commands list for 2.7, and i saw
```
Call SetTile
```
the example that was in it wasnt the most explanitory on how to use it. Can anyone else explain it to me i would really like to use it in my game
Thanks -
wtf, look who i got, i dont even no who it is, but it cant be good lol
![](http://www.tk421.net/character/quark.jpg) -
hey thanks a bunch, it finally works good now. ive been working on this for weeks
Thanks
btw FSshadowwulf was helping me out with some of it, so i give him alot of the credit
Thanks again -
```
'||||||||||||||||||||||||||||||||
Sub Warconn_PlayerDevSystem(index,"str")
'||||||||||||||||||||||||||||||||
Dim counter1
Dim x
Dim points
counter1=GetVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "PlayerDevSystem", "str")
counter1= counter1+1
Call PlayerMsg(index, "this should be working", 13)
Call PutVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "PlayerDevSystem", "str", Int(counter1) )
Select Case script
Case "str"
If counter1 < 20 Then
Call PutVar("scripts\charextras\" & GetPlayerName(index) & ".ini", "PlayerDevSystem", "str", Int(counter1) )
Else
Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 1)
Call BattleMsg(index, "Your strength has increased due to frequent practice.", 12, 1)
End If
End Select
End Sub
```
thanks -
hey i have a sub with a "str" case that i need to run
i am using```
Call Warconn_PlayerDevSystem(index,"str")
``` in my onattack sub
when i attack it is suppost to say "this is working" at the very beginning, but nothing comes up.
do i have the right commands, or what should i put
the name of the sub is Warconn_PlayerDevSystem
thanks -
alright, just wondering if anyone was interested…. sorry
-
lol you put "" Like that but with no quotes.
would anyone be interested in make space sprites, the like individual ships, for me. If you are, please PM me.
Thanks -
hey, i am using a onclick tile, but i want to check if the player is next ontop of the tile that he clicked. i was going to check if the players x and y were equal to the onclicks x and y, but i cannot find the script for the onclicks x and y.
does anyone have this piece of code, or have a better way to do this.
Thanks -
hey, i am making a space RPG, called New Colony, but i cannot find any like space sprites, like ships and planets, does anyone no were i can find some, or does anyone have any i can use. Thanks
-
hey, when ever i place a PH, i set the item to credits, then i set the amount to 0, and when i walk on the spot, all it does is say the house is not for sale, is there any tutorials or anything explaining how to make a PH, or can someone help me out and explain it. Thanks
-
No Editors
in Q & A
hey, i dont no what version of eclispe i have, but when ever i run the client, and type /mapeditor into the text box, it says invalid. when i open the server, and click the map editor button, nothing happens. should i just download a new one, or no. what is wrong
What do YOU want to see in 2.8?
in Discussion
Posted