Dastyruck

Wow… crazy typo there... But, thanks it works now! XD

So, I was putting in some scripted spells and when I finally got it working, scripted items dont work at all… Here is the scripted item sub. ``` '******************************** Sub ScriptedItem(Index, Script) '******************************** Dim level Dim needs Dim number Dim numbers Dim slot Dim has Dim value Dim mun Dim need Select Case Script Case 0 needs = 6 number = 14 numbers = 2 value = 1 slot=1 has = 0 need = 1 level = GetPlayerMAGI(Index) If level < needs Then Call PlayerMsg(Index, "Your magic is too low to use this.", WHITE) Else Do While slot. 0 < 25 If Int(getplayerinvitemnum(index,slot))=Int(number) Then If Int(value)

FIXED! Right after posting… realized if im setting bad variables it makes a script error.

Alright, I made this skill script for woodcutting which is being called by a scripted tile. I have it so if the player doesnt have any data it creates data but this isnt working at all. If someone has data it works, but if they dont… it doesnt work... sooooo... Here is the code. ``` '******************************** Sub WoodCut(index) '******************************** Dim success Dim slot Dim number Dim level Dim times number = 8 slot = 1 level = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level") success = Rand(Int(level), 5) times = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times") If Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level") "" Then Call PlayerMsg(index, "If", GREEN) If success = 1 Then Do While slot < 25 If Getplayerinvitemnum( index, Int( slot ) ) = Int( number ) Then Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) ) Call SetPlayerInvItemValue(index, Int( slot ), Int(1) ) Call SendInventoryUpdate(index, Int(slot) ) slot = 25 End If slot = slot + 1 Loop Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",Int( times ) + 1) If times = 50 Then If level < 4 Then Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level",Int( level) + 1) Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",0) End If End If Call PlayerMsg(index, "You successfully harvested 1 wood!", GREEN) Else Call PlayerMsg(index, "You did not harvest any wood.", GREEN) End If Else Call PlayerMsg(index, "Else", GREEN) times = 0 level = 1 Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level",Int(level)+0) Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",Int(times)+0) number = 8 slot = 1 level = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level") success = Rand(Int(level), 5) times = Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times") If success = 1 Then Do While slot < 25 If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) ) Call SetPlayerInvItemValue(index, Int( slot ), Int(1) ) Call SendInventoryUpdate(index, Int(slot) ) slot = 25 End If slot = slot + 1 Loop Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",Int( times ) + 1) If times = 50 Then If level < 4 Then Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","level",Int( level) + 1) Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","woodcut","times",0) End If End If Call PlayerMsg(index, "You successfully harvested 1 wood!", GREEN) Else Call PlayerMsg(index, "You did not harvest any wood.", GREEN) End If End If Call PlayerMsg(index, "End", GREEN) End Sub ```

Ah, Ill look into this…

Hey all, I made this quest script and its not working at all… So, can you give it a looksee? Also, does putvar make a new ini if one doesnt exist already? Here is what calls it... > '******************************** > Sub ScriptedNPC(Index, Script) > '******************************** > Select Case Script > Case 0 > If getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Start_Msg") "" Then > Call Quests(Index) > Else > Call New_Quest(Index) > End If > > Exit Sub > > Case Else > Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE) > Exit Sub > End Select > End Sub Here is one of the subs… > '******************************** > Sub Quest(index) > '******************************** > Dim status > Dim start_msg > Dim questing_msg > Dim end_msg > Dim completed_msg > Dim space_msg > Dim has_needed > Dim need_count > Dim give_count > Dim need_num > Dim give_num > Dim slot > Dim count > Dim found > Dim durability > Dim experience > > status = getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index)) > start_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Start_Msg) > questing_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Questing_Msg) > end_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", End_Msg) > completed_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Completed_Msg) > space_msg = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Space_Msg) > need_count = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_count) > give_count = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_count) > need_num = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_num) > give_num = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_num) > experience = getvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Experience) > > If status = 0 Then > Call PlayerMsg(index, start_msg, WHITE) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 1 ) > Else If status = 1 Then > slot = 0 > Do While slot < 25 > If Getplayerinvitemnum(index, Int(slot)) = need_num Then > If Gatplayerinvitemvalue(index, Int(slot)) = need_count Then > Call SetPlayerInvItemNum(index, Int(slot), 0) > Call SetPlayerInvItemValue(index, Int(slot), Int(0)) > Call SendInventoryUpdate(index, Int(slot)) > Else > Call PlayerMsg(index, questing_msg, WHITE) > Exit Sub > End If > slot = 25 > Else > Call PlayerMsg(index, questing_msg, WHITE) > Exit Sub > End If > slot = slot + 1 > Loop > slot = 0 > Do While slot < 25 > If Getplayerinvitemnum(index, Int(slot)) = 0 Then > Call SetPlayerInvItemNum(index, Int(slot), Int(give_num) > Call SetPlayerInvItemValue(index, Int(slot), Int(give_value)) > Call SendInventoryUpdate(index, Int(slot)) > slot = 25 > End If > slot = slot + 1 > Loop > Call PlayerMsg(index, end_msg, WHITE) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 2 ) > Else If status = 2 Then > Call PlayerMsg(index, completed_msg, WHITE) > End If > > Call PlayerWarp( index, Map, X, Y) > > End Sub Here is the Last Sub… > '******************************** > Sub New_Quest(index) > '******************************** > > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Start_Msg, Bring me a silver key!) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Questing_Msg, Have you got a silver key yet!?) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", End_Msg, Thank you kind sir, here is your reward!) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Completed_Msg, Thanks for your help earlier!) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Space_Msg, Looks like you got your hands full… come back later) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", Experience, 200) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_count, 1) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", need_num, 5) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_count, 1) > Call putvar("scripts\charextras\" & GetPlayerMap(index) & ".ini", "QUEST", give_num, 1) > > End Sub

I do normally use it… this time I didnt... that may have been my downfall....

BUmp…. this is for a school project... need help quick

Hey everyoine, I am making a script for a game and its not working… at all... I cant see anything wrong with it but w/e take a look... This is the sub... > '******************************** > Sub Bind(Index) > '******************************** > > Dim Map > Dim X > Dim Y > Call PlayerMsg(Index, "… More trying...") > Map = GetPlayerMap(Index) > X = GetPlayerX(Index) > Y = GetPlayerY(Index) > Call PlayerMsg(Index, "...almost done...") > Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","bind","map", Map) > Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","bind","x", X) > Call Putvar("scripts\charextras\" & GetPlayerName(index) & ".ini","bind","y", Y) > > Call PlayerMsg(Index, "...You are now bound here!", WHITE) > > End Sub And.. here is what im using to call it… > '******************************** > Sub ScriptedTile(Index, Script) > '******************************** > > Select Case Script > Case 0 > If GetPlayerWeaponSlot(Index) = 1 Then > Call WoodCut(Index) > Else > Call WoodCut(Index) > Call PlayerMsg(Index, "Please equip a proper item.", RED) > End If > Exit Sub > Case 1 > Call Bind(Index) > Call PlayerMsg(Index, "Trying to bind…") > Exit Sub > Case Else > Call PlayerMsg(Index, "No tile script found. Please contact an admin to solve this problem.", WHITE) > Exit Sub > End Select > End Sub Thanks for the help…

Try the library files on his comp.

How big should I make the template for my site? I want to make a sight template, but have never done it, any help?

Dark, like I said, most of it is converted, but about 5% is not converted, so you would have to fix the last 5% yourself.

This isnt totally true, I have one of the newer full versions and it can swap over about 95% of the VB6 to VB.net, so if you had the know-how, you could make it vb.net yourself.

Kingdom of loathing is fun, used to play it alot, lots more people there now though.

I think Ill wait till EE3 comes out before I start converting, if I started now I would finish right after EE3 came out and then I would just have EE2.7 in another language and people wouldn't use it…

VB barley has a syntax compared to some other languages…

I wish I could see the vb6 code so I can see what my VS 2008 is leaving out, if someone could help me see what is missing, I might be able to replace it… Anyone wanna help?

I wish I knew vb.net better so I could switch it myself…

So why is all of eclipse mainly programmed in VB6? I have VS 2008 and when I tried to open up the source it just converted everything as best it could to vb.net, and there were only like 100-300 lines of code that it couldn't find a replacement for… I think that it would be fairly easy to manually replace those lines of code and just switch it to vb.net where you can get express source editors for free...

Well, its the third one… AND it does have a point in every stat but it still wont take damage...

It might be your loop, I am not too familiar with them, so I dont know exactly but loops tend to give the most problems.

None of my NPCs are doing anything they are supposed to do except walk around… They dont listen to behavoir and dont take any damage... Whats wrong??? This has probably been asked before, but the search is broken and 300 pages of question pages to root through just doesnt sound at all productive...

Thats not true… I am currently using 1.5 for walk and 5 for run and it works fine... I just cant tell any difference between 1.5 and 1...

Thats very odd… so it just rounds up any other numbers?

@Gwen: > daystruck what part of cali are you from? > > Im in the antelope valley…. we missed yesterday's rain... its supposed to rain for christmas eve tho. Im from carmel valley, just north of San Diego I wish it would snow more. I love the cold and gloominess of winter.