VitinhooxD
-
Posts
1365 -
Joined
-
Last visited
Never
Content Type
Profiles
Forums
Calendar
Posts posted by VitinhooxD
-
-
hmm , should be to summon teh pet Call ScriptSpawnNpc(ByVal MapNpcNum As Long, ByVal MapNum As Long, ByVal spawn_X As Long, ByVal spawn_Y As Long, ByVal NPCnum As Long)
-
wowwww i think i found i way to the pet attack!!! VIA SADSCRIPT!!(don't know if will work!)
-
@Bloodmyst:
> BTW vitinhooxD if you want to help weve got a scripting part to this system too.
Ok =) , can the developers talk via msn to evite flood? -
EDIT: Ups sorry , i tought that was SadScript but is VB6 ,, sorry .
but else if you need sadscripting help pm me
PS:Good luck with the project guys! -
of this tread
but why?i'll try the website
EDIT: Failed too -
Sorry but i've downlaoded the client complied and tested , but adn type somethigng in teh custom txt box the server return the value 0 not the correct text =X
-
:) Thanks , i'll test it now!
-
Yes , but can you fix that (doesn't need to be today , fix when you can) because there's alot of people that doens't have VB6 …
Thanks , and congratulations for the EE 2.8!
PS : Check my entry of the scripting contest i putted you in the Ultra legends list lol! -
Lol it what epic giant storyline….
But your WIP need mroe info , the game class , some screens ... -
[….::::ResBak Online Scripting News::::.....]
Legend :
Not Started
Finishing
Done
Quest System
Custom Menus
The Core
Some Details to implement the core
Guild System
Custom Menus
Guild Status
Guild Leveling , with donation system
Inviting and deleting players
Guild Wars
See what guild members are on and off
Mail System
CustomMenu
The Script
Buddy List
Custom Menus
The list
Profession system
Custom Menus
The Script
EDIT : wow 100th post!
:cheesy: Soon all will be finished . -
Sorry AkselJ , but it seems that the custom menu bug fix isn't fixed =X
-
BugSICK , new uptades in the script system , you can put it into the first post
The Quest System with custom menus are done , and i'm finishing teh advanced guild system. -
I don't think so , the wings are realy important , a angel without wing? it seems to be strange
-
Ohh Really Thanks i thought that it wasn´t good =X
-
Hello ! Today I have made one signature . 5 months that i don't open my Photshop :renzo:
But today i decided to continue making sing and here it is:
Please rate it
Thanks for reading. -
BugSICK i'm back =D , please enter in the msn later i need to talk to you about some scripts i'll do .
Bye. -
hmm . there no command to chance the password.Ask someone that is a great scripter like MrMiguu , Admiral Refuge etc . They will help you . Bye
-
try to replace the line : Call PutVar("Accounts\" & GetPlayerName(Index) & "_Info.ini", "ACCESS", "Password", Trim(Value))
To : Call PutVar("Accounts\" & GetPlayerName(Index) & "_Info.ini", "ACCESS", "Password", ""&Value) -
i Think that MsgBox isn't a valid command. try this way.
' **Executes QueryBoxes.
Sub QueryBox(index, script)
Value = GetVar("responses.ini", "Responses", Cstr(index))
Select Case script
' Asks player to input new password.
Case 0
Select Case Value
Case GetVar("Accounts\" & GetPlayerName(Index) & "_Info.ini", "ACCESS", "Password")
Call PlayerQueryBox(Index, "Please enter your new password.", 1)
' Rejects password if it's incorrect.
Case Else
Call PlayerMsg(index , "I'm sorry, but that password is incorrect. Please visit me when you know your password and want to change it.", 0)
Call PlayerMsg(index , "Incorrect Password!" , 0 )
End Select
Case 1
Select Case Value
' Asks you to input a new password if the password you inputted is the same as the current one.
Case GetVar("Accounts\" & GetPlayerName(Index) & "_Info.ini", "ACCESS", "Password")
Call PlayerQueryBox(Index, "I'm sorry, but that's your current password. Please choose a different password.", 1)
Case Else
' Sets password length requirement; must be at least 3 characters long.
If Len(Value) < 3 Then
Call PlayerQueryBox(Index, "Your password must be at least 3 characters in length! Please choose another password.", 1)
Else
' Changes password.
Call PutVar("Accounts\" & GetPlayerName(Index) & "_Info.ini", "ACCESS", "Password", ""& Value)
Call PlayerMsg(index , "Your password has been changed to: " & Value & ". Please come back to me whenever you want to change your password again.", 0)
Call PlayerMsg(index , "Password Changed Successfully!" , 0 )
End If
End Select
End Select
End Sub
' Executes whenever a scripted NPC does an action.
Sub ScriptedNPC(Index, Script)
Select Case Script
' Allows players to change their password by talking to an NPC
Case 1
Call PlayerMsg(index , "Hey, I'm the password changer. I can change your password for you.", 0)
Call PlayerQueryBox(Index, "Please enter your password.", 0)
Case Else
Call PlayerMsg(Index, "No NPC script found. Please contact an admin to solve this problem.", WHITE)
Exit Sub
End Select
End Sub
I hope i could help. -
Yes i know i wrote Case "NotStarted" .
-
Using qoutes it makes the whole script doesn't work =(
-
Still doesn't working correctly , but thanks for helping =(
-
Hi everyone.I 'm making a quest script and i have one problem heres the script:
```
Sub Questing(index)
On Error Resume Next
Dim Status
Dim Name
Dim Questing_msg
Dim Complete_msg
Dim Needspace
Dim Exp
Dim Need
Dim Needvalue
Dim Give
Dim Givevalue
Dim Level_Msg
Dim Map
Dim ReqLevel
Map = GetPlayerMap(index)
ReqLevel = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "Level _Requeriment" , "LVL")
Name = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "MSG" , "Quest_Name")
Call PutVar("Scripts\charextras\" & GetPlayerName(index) & ".ini" , "Status" , ""& map , "NotStarted")
Status = GetVar("Scripts\charextras\" & GetPlayerName(index) & ".ini" , "Quest" , ""& map )
Select Case Status
Case NotStarted
Level_Msg = GetVar("Scripts\mapextras\" & GetPlayerMap(index) & ".ini" , "MSG" , " Lvl_Msg ")
If GetPlayerLevel(Index) >= ReqLevel Then
Call PlayerMsg(index , "test" , 4)
Else
Call CustomMenuClose(index)
Call CustomMenuShow(index, "ALERT", "\GUI\CUSTOM\Quest.gif", 1)
Call CustomMenuLabel(index, 20, ""& Level_Msg , 20, 80, 10, 0, 2, 400, 200)
End If
End Select
End Sub
```The script should give the message test if the player have more level than the required in the ini file. The required is 1 and i'm level 32.But the script made it contrary.
COuld someone help me?
Thanks. -
Lol , i'm at ResBak xD.
As i said , BugSICK , your game is great , you 're a VB6 God!
Bye
Pet System script (No Longer Beign Worked On)
in Source
Posted
Call ScriptSpawnNpc(1, GetPlayerMap(index) , ""& GetPlayerX(index) + 2 , ""& GetPlayerY(index) , (NPC NUM))
in npc num put the NPC num =X