Chain

Hello, I use Eclipse Origins and like to put in my item descriptions the damage of the Weapons and some other stats. is there any Variables I can use for my item desciptions? And if there any how I can use them? I used the Search function in the board but dont find anythin :(. or need I to type all in? something like: Sword Its a rusty sword Damage: $VarDMG thank you

Hello, i like to change the complete gui. things like: put the HP-Bar on a other place, change the button size… how can i do this? greetz Chain

hi, here is my main.txt. thx > ' Eclipse Evolution 2.7 Scripting File > > #include ' Global Variables > Public GameName > Public MAX_MAPS > Public MOTD > > ' Color Constants > Public Const BLACK = 0 > Public Const BLUE = 1 > Public Const GREEN = 2 > Public Const CYAN = 3 > Public Const RED = 4 > Public Const MAGENTA = 5 > Public Const BROWN = 6 > Public Const GREY = 7 > Public Const DARKGREY = 8 > Public Const BRIGHTBLUE = 9 > Public Const BRIGHTGREEN = 10 > Public Const BRIGHTCYAN = 11 > Public Const BRIGHTRED = 12 > Public Const PINK = 13 > Public Const YELLOW = 14 > Public Const WHITE = 15 > > ' Admin Constants > Public Const ADMIN_MONITER = 1 > Public Const ADMIN_MAPPER = 2 > Public Const ADMIN_DEVELOPER = 3 > Public Const ADMIN_CREATOR = 4 > > ' Executes when the server initially loads. > Sub OnServerLoad() > GameName = GetVar("Data.ini", "CONFIG", "GameName") > MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS") > MOTD = GetVar("MOTD.ini", "MOTD", "Msg") > End Sub > > ' Executes when the scripts are reloaded. > Sub OnScriptReload() > GameName = GetVar("Data.ini", "CONFIG", "GameName") > MAX_MAPS = GetVar("Data.ini", "MAX", "MAX_MAPS") > MOTD = GetVar("MOTD.ini", "MOTD", "Msg") > End Sub > > ' Executes the MOTD is changed by the client. > Sub ChangeMOTD() > MOTD = GetVar("MOTD.ini", "MOTD", "Msg") > End Sub > > ' Executes when a new character is created. > Sub OnNewChar(Index, CharNum) > > End Sub > > ' Executes every second, based on the server time. > Sub TimedEvent(Hours, Minutes, Seconds) > If Minutes = 0 Then > If Seconds = 0 Then > Call AdminMsg("Don't forget to vote for Eclipse.", YELLOW) > End If > End If > End Sub > > ' Executes when a player presses the CONTROL key. > Sub OnAttack(Index, Damage) > Dim Target > > If Int(Damage) > 0 Then > If Int(GetPlayerTarget(Index)) > 0 Then > Target = GetPlayerTarget(Index) > Call DamagePlayer(Index, Target, Damage) > Else > Target = GetPlayerTargetNPC(Index) > Call DamageNPC(Index, Target, Damage) > End If > End If > End Sub > > Sub OnArrowHit(Index, Damage) > Dim Target > > If Int(Damage) > 0 Then > If Int(GetPlayerTarget(Index)) > 0 Then > Target = GetPlayerTarget(Index) > Call DamagePlayer(Index, Target, Damage) > Else > Target = GetPlayerTargetNPC(Index) > Call DamageNPC(Index, Target, Damage) > End If > End If > End Sub > > Sub PlayerHit(Index, NPCNum, Damage) > If Damage > 0 then > Call NPCAttack(NPCNum, Index, Damage) > End If > End Sub > > ' Executes when a hotkey is pressed client-side. > Sub HotScript(Index, KeyID) > Select Case KeyID > ' Executes when any player presses the PageUp key. > Case 1 > > ' Executes when any player presses the Delete key. > Case 2 > > ' Executes when players press the End key. > Case 3 > > ' Executes when players press the PageDown key. > Case 4 > End Select > End Sub > > ' Executes when something on a custom menu is clicked. > Sub MenuScripts(Index, Clicked_Index, Menu_Type) > Dim MenuTitle > Dim FieldMessage > > MenuTitle = getplayermenuclicktitle(Index) > FieldMessage = getplayermenuclickmsg(Index) > > Select Case Menu_Type > Case 1 > Call PlayerMsg(Index, "Clicked picture number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) > Case 2 > Call PlayerMsg(Index, "Clicked field number " & Clicked_Index & " on the menu named " & MenuTitle & ". The field text was " & FieldMessage, YELLOW) > Case 3 > Call PlayerMsg(Index, "Clicked label number " & Clicked_Index & " on the menu named " & MenuTitle, YELLOW) > End Select > End Sub > > ' Executes when a player logs into the game. > Sub JoinGame(Index) > If GetPlayerAccess(Index) = 0 Then > Call GlobalMsg(GetPlayerName(Index) & " has joined " & GameName & "!", GREY) > Else > Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has joined " & GameName & "!", YELLOW) > End If > > Call PlayerMsg(Index, "Welcome to " & GameName & "!", WHITE) > > If LenB(MOTD) 0 Then > Call PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN) > End If > > Call SendWhosOnline(Index) > > If GetVar("var.ini", GetPlayerName(index), "startup") = "" Then > > weapon = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Weapon")) > armor = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Armor")) > shield = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Shield")) > helmet = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Helmet")) > wepdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Wepdur")) > armdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Armdur")) > shldur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Shldur")) > hlmdur = Int(GetVar("classes\class" & GetPlayerClass(index) & ".ini", "StartUp", "Hlmdur")) > > If weapon 0 Then > Call Give_Item(index, weapon, wepdur) > End If > If armor 0 Then > Call Give_Item(index, armor, armdur) > End If > If shield 0 Then > Call Give_Item(index, shield, shldur) > End If > If helmet 0 Then > Call Give_Item(index, helmet, hlmdur) > End If > > Call PutVar("var.ini", GetPlayerName(index), "startup", "yes") > End If > > End Sub > > ' Executes when a player logs out of the game. > Sub LeftGame(Index) > If GetPlayerAccess(Index) = 0 Then > Call GlobalMsg(GetPlayerName(Index) & " has left " & GameName & "!", GREY) > Else > Call GlobalMsg("Administrator " & GetPlayerName(Index) & " has left " & GameName & "!", YELLOW) > End If > End Sub > > ' Executes when a players experience exceeds the next level requirement. > Sub PlayerLevelUp(Index) > Dim TotalExp > > Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index) > TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index) > Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1) > > Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1) > Call SetPlayerExp(Index, TotalExp) > Loop > > Call BattleMsg(Index, "You have " & GetPlayerPOINTS(Index) & " stat points.", BRIGHTBLUE, 0) > End Sub > > ' Executes when a player uses one of the points given on an attribute to level up. > Sub UsingStatPoints(Index, PointType) > Select Case PointType > Case 0 > If GetPlayerSTR(Index) + 1 > 1000 Then > Call BattleMsg(Index, "You have maxed your strength!", BRIGHTRED, 0) > Exit Sub > End If > Call SetPlayerSTR(Index, GetPlayerSTR(Index) + 1) > Call BattleMsg(Index, "You have gained more strength!", WHITE, 0) > > Case 1 > If GetPlayerDEF(Index) + 1 > 1000 Then > Call BattleMsg(Index, "You have maxed your defence!", BRIGHTRED, 0) > Exit Sub > End If > Call SetPlayerDEF(Index, GetPlayerDEF(Index) + 1) > Call BattleMsg(Index, "You have gained more defense!", WHITE, 0) > > Case 2 > If GetPlayerMAGI(Index) + 1 > 1000 Then > Call BattleMsg(Index, "You have maxed your magic!", BRIGHTRED, 0) > Exit Sub > End If > Call SetPlayerMAGI(Index, GetPlayerMAGI(Index) + 1) > Call BattleMsg(Index, "You have gained more magic!", WHITE, 0) > > Case 3 > If GetPlayerSPEED(Index) + 1 > 1000 Then > Call BattleMsg(Index, "You have maxed your speed!", BRIGHTRED, 0) > Exit Sub > End If > Call SetPlayerSPEED(Index, GetPlayerSPEED(Index) + 1) > Call BattleMsg(Index, "You have gained more speed!", WHITE, 0) > End Select > > ' Remove one point after the sub in question is done > Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) - 1) > End Sub > > ' Executes when a player steps onto a scripted tile. > Sub ScriptedTile(Index, Script) > Select Case Script > Case 0 > Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) > 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 > > ' Executes when a player clicks on an OnClick tile. > Sub OnClick(Index, Script) > > Select Case Script > Case 0 > Call PlayerMsg(Index, "This scripted tile has no apparent use.", WHITE) > 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 > > ' Out-dated: Executes when a player chooses yes or no on a player prompt. > Sub PlayerPrompt(Index, Prompt, Value) > If Prompt = 6 Then > Select Case Value > Case 0 > Call GlobalMsg("Hi This is a Yes answer!", CYAN) > Case 1 > Call GlobalMsg("This is case 1?", CYAN) > End Select > Else > Select Case Value > Case 0 > Call GlobalMsg("Hi This is a No answer!", RED) > Case 1 > Call GlobalMsg("This is no case 1?", RED) > End Select > End If > End Sub > > ' Out-dated: Executes query box responses. > Sub QueryBox(Index, Prompt) > Value = GetVar("responses.ini", "Responses", CStr(Index)) > End Sub > > ' Executes every time a player drops an item. > Sub OnItemDrop(Index, Map, ItemNum, ItemVal, ItemDur, ItemIndex, InvSlot) > > End Sub > > ' Executes each time a player changes map. > Sub OnMapLoad(Index, OldMap, NewMap) > > End Sub > > ' Executes whenever an NPC is killed. > ' Note: Death occurs as normal externally to this script. > Sub OnNPCDeath(Index, Map, NPCNum, NPCIndex) > Call BattleMsg(Index, "You killed a " & getnpcname(NPCNum) & ".", BRIGHTRED, 0) > End Sub > > ' Executes when a player is killed by another. > ' Note: Death occurs as normal externally to this script. > Sub OnPVPDeath(Attacker, Victim) > Call GlobalMsg(GetPlayerName(Victim) & " has been killed by " & GetPlayerName(Attacker), BRIGHTRED) > End Sub > > ' Executes when a player dies in an arena by another player. > Sub OnArenaDeath(Attacker, Victim) > Dim Map > Dim X > Dim Y > Dim Data1 > Dim Data2 > Dim Data3 > > Map = GetPlayerMap(Victim) > X = GetPlayerX(Victim) > Y = GetPlayerY(Victim) > > Call GlobalMsg(GetPlayerName(Victim) & " has been defeated in the arena by " & GetPlayerName(Attacker), BRIGHTRED) > > Call SetPlayerHP(Victim, GetPlayerMaXHP(Victim)) > Call SetPlayerMP(Victim, GetPlayerMaXMP(Victim)) > > Call sendHp(Victim) > Call sendMP(Victim) > > Data1 = GetTileData1(Map, X, Y) > Data2 = GetTileData2(Map, X, Y) > Data3 = GetTileData3(Map, X, Y) > > Call PlayerWarp(Victim, Data1, Data2, Data3) > End Sub > > ' Executes whenever a player casts a scripted spell. > Sub ScriptedSpell(Index, Script) > Select Case Script > Case 0 > Call PlayerMsg(Index, "This scripted spell has no apparent use.", WHITE) > Exit Sub > > > Case 1 > If GetPlayerMP(index) >= 5 Then > Call PlayerWarp(index, 3, 13, 11) > Call SetPlayerMP(index, int(GetPlayerMP - 5)) > End If > Exit Sub > > Case Else > Call PlayerMsg(Index, "No spell script found. Please contact an admin to solve this problem.", WHITE) > Exit Sub > End Select > End Sub > > ' Executes whenever a scripted NPC does an action. > Sub ScriptedNPC(index, Script) > Dim reqitem > Dim rewitem > Dim reqval > Dim rewval > Dim pm > > pm = CStr(GetPlayerMap(index)) > reqitem = Int(GetVar("Quests\Basic.ini", pm, "reqitemnum")) > reqval = Int(GetVar("Quests\Basic.ini", pm, "reqitemval")) > rewitem = Int(GetVar("Quests\Basic.ini", pm, "rewitemnum")) > rewval = Int(GetVar("Quests\Basic.ini", pm, "rewitemval")) > > Select Case Script > > Case 0 > If CanTake(index, reqitem, reqval) = True Then > Call TakeItem(index, reqitem, reqval) > If rewval > 0 Then > Call GiveCurrency(index, rewitem, rewval) > Else > Call GiveItem(index, rewitem, 1) > End If > Call PlayerMsg(index, "Congrats quest complete.", 4) > Else > Call PlayerMsg(index, "You don't have item 2", 4) > End If > End Select > End Sub > > End Select > End Sub > > ' Executed whenever a slash command is sent to the server. > Sub Commands(Index) > Dim TextSay > Dim PlayerID > Dim MapNum > > ' Get the command and arguments from the cache. > TextSay = Trim(GetVar("Scripts\Command.ini", "TEMP", "Text" & Index)) > > ' Split the command into an array. All arguments are seperated by spaces. > TextSay = Split(TextSay) > > Select Case TextSay(0) > > Case "/testscripts" > Call TestMain(Index) > Exit Sub > > Case "/help" > Call PlayerMsg(Index, "Social Commands:", WHITE) > Call PlayerMsg(Index, "'msghere = Broadcast Message", WHITE) > Call PlayerMsg(Index, "-msghere = Emote Message", WHITE) > Call PlayerMsg(Index, "!namehere msghere = Player Message", WHITE) > Call PlayerMsg(Index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", WHITE) > Exit Sub > > Case "/calladmins" > If GetPlayerAccess(Index) = 0 Then > Call AdminMsg(GetPlayerName(Index) & " needs your help!", BRIGHTGREEN) > Else > Call PlayerMsg(Index, "You are an admin! You cannot call for help!", BRIGHTGREEN) > End If > Exit Sub > > Case "/admin" > If GetPlayerAccess(Index) > 0 Then > Call PlayerMsg(Index, "Social Commands:", WHITE) > Call PlayerMsg(Index, """msghere = Global Admin Message", WHITE) > Call PlayerMsg(Index, "=msghere = Private Admin Message", WHITE) > Call PlayerMsg(Index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", WHITE) > End If > Exit Sub > > Case "/warpmeto" > If GetPlayerAccess(Index) > 0 Then > PlayerID = FindPlayer(TextSay(1)) > > If PlayerID > 0 Then > Call PlayerWarp(Index, GetPlayerMap(PlayerID), GetPlayerX(PlayerID), GetPlayerY(PlayerID)) > Call PlayerMsg(Index, "You have been warped to " & GetPlayerName(PlayerID) & ".", BROWN) > Else > Call PlayerMsg(Index, "Player is not online.", WHITE) > End If > End If > Exit Sub > > Case "/warptome" > If GetPlayerAccess(Index) > 0 Then > PlayerID = FindPlayer(TextSay(1)) > > If PlayerID > 0 Then > Call PlayerWarp(PlayerID, GetPlayerMap(Index), GetPlayerX(Index), GetPlayerY(Index)) > Call PlayerMsg(PlayerID, "You have been warped to " & GetPlayerName(Index) & ".", BROWN) > Else > Call PlayerMsg(Index, "Player is not online.", WHITE) > End If > End If > Exit Sub > > Case "/warpto" > If GetPlayerAccess(Index) > 0 Then > MapNum = TextSay(1) > > If MapNum > 0 And MapNum Call PlayerWarp(Index, MapNum, GetPlayerX(Index), GetPlayerY(Index)) > Call PlayerMsg(Index, "You have been warped to map #" & MapNum & ".", BRIGHTBLUE) > Else > Call PlayerMsg(Index, "Invalid map number.", BRIGHTRED) > End If > End If > Exit Sub > End Select > > Call PlayerMsg(Index, "That is not a valid command.", BRIGHTRED) > End Sub > > ' Executes on death, dropping all of the players items. > Sub DropItems(Index) > ' Remove this to enable. > Exit Sub > > If GetPlayerWeaponSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerWeaponSlot(Index), 0) > End If > > If GetPlayerArmorSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerArmorSlot(Index), 0) > End If > > If GetPlayerHelmetSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerHelmetSlot(Index), 0) > End If > > If GetPlayerShieldSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerShieldSlot(Index), 0) > End If > > If GetPlayerLegsSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerLegsSlot(Index), 0) > End If > > If GetPlayerRingSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerRingSlot(Index), 0) > End If > > If GetPlayerNecklaceSlot(Index) > 0 Then > Call PlayerMapDropItem(Index, GetPlayerNecklaceSlot(Index), 0) > End If > End Sub > > ' Executes whenever somebody dies outside of an arena. > Sub OnDeath(Index) > Dim MapNum > Dim ClassID > Dim X > Dim Y > > If GetMapBootMap(Index) > 0 Then > Call PlayerWarp(Index, GetMapBootMap(Index), GetMapBootX(Index), GetMapBootY(Index)) > Else > ClassID = GetPlayerClass(Index) > > MapNum = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "Map") > > X = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "x") > Y = GetVar("Classes\Class" & ClassID & ".ini", "CLASS", "y") > > Call PlayerWarp(Index, MapNum, X, Y) > End If > End Sub > > ' Executes whenever a scripted item is used or double clicked. > Sub ScriptedItem(Index, Script) > Select Case Script > Case 0 > Call PlayerMsg(Index, "This scripted item has no apparent use.", WHITE) > 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 > > ' Map Attributes > > Sub SetBlank(Map, X, Y) > Call SetAttribute(Map, X, Y, 0, 0, 0, 0, "", "", "") > End Sub > > Sub SetBlock(Map, X, Y) > Call SetAttribute(Map, X, Y, 1, 0, 0, 0, "", "", "") > End Sub > > Sub SetWarp(Map, X, Y, WarpMap, WarpX, WarpY) > Call SetAttribute(Map, X, Y, 2, WarpMap, WarpX, WarpY, "", "", "") > End Sub > > Sub SetItem(Map, X, Y, ItemID, ItemValue) > Call SetAttribute(Map, X, Y, 3, ItemID, ItemValue, 0, "", "", "") > End Sub > > Sub SetNPCAvoid(Map, X, Y) > Call SetAttribute(Map, X, Y, 4, 0, 0, 0, "", "", "") > End Sub > > Sub SetKeY(Map, X, Y, KeyID, KeyTake) > Call SetAttribute(Map, X, Y, 5, KeyID, KeyTake, 0, "", "", "") > End Sub > > Sub SetKeYOpen(Map, X, Y, KeyX, KeyY, Message) > Call SetAttribute(Map, X, Y, 6, KeyX, KeyY, 0, Message, "", "") > End Sub > > Sub SetHeal(Map, X, Y) > Call SetAttribute(Map, X, Y, 7, 0, 0, 0, "", "", "") > End Sub > > Sub SetKill(Map, X, Y) > Call SetAttribute(Map, X, Y, 8, 0, 0, 0, "", "", "") > End Sub > > Sub SetShop(Map, X, Y, ShopID) > Call SetAttribute(Map, X, Y, 9, ShopID, 0, 0, "", "", "") > End Sub > > Sub SetClassBlock(Map, X, Y, Allow1, Allow2, Allow3) > Call SetAttribute(Map, X, Y, 10, Allow, Allow2, Allow3, "", "", "") > End Sub > > Sub SetArena(Map, X, Y, MapID, NewX, NewY) > Call SetAttribute(Map, X, Y, 11, MapID, NewX, NewY, "", "", "") > End Sub > > Sub SetSound(Map, X, Y, FileName) > Call SetAttribute(Map, X, Y, 12, 0, 0, 0, FileName, "", "") > End Sub > > Sub SetSpriteChange(Map, X, Y, SpriteID, ItemID, Cost) > Call SetAttribute(Map, X, Y, 13, SpriteID, ItemID, Cost, "", "", "") > End Sub > > Sub SetSign(Map, X, Y, Line1, Line2, Line3) > Call SetAttribute(Map, X, Y, 14, 0, 0, 0, Line1, Line2, Line3) > End Sub > > Sub SetDoor(Map, X, Y) > Call SetAttribute(Map, X, Y, 15, 0, 0, 0, "", "", "") > End Sub > > Sub SetNotice(Map, X, Y, Title, Text, FileName) > Call SetAttribute(Map, X, Y, 16, 0, 0, 0, Title, Text, FileName) > End Sub > > Sub SetScripted(Map, X, Y, Script) > Call SetAttribute(Map, X, Y, 18, Script, 0, 0, "", "", "") > End Sub > > Sub SetBank(Map, X, Y) > Call SetAttribute(Map, X, Y, 23, 0, 0, 0, "", "", "") > End Sub > > ' Tests scripts up to the location of Sub TestMain(Index). > ' Leave this sub at the bottom to test the entire script file. > Sub TestMain(Index) > Call PlayerMsg(Index, "Scripts are working properly.", BRIGHTGREEN) > End Sub my check.txt > Function GetFreeSlots(Index) > Dim Slot > Dim Slots > > Slot = 1 > Slots = 0 > > Index = Int(Index) > > Do While Slot < 25 > If GetPlayerInvItemNum(Index, Slot) = 0 Then > Slots = Slots + 1 > End If > > Slot = Slot + 1 > Loop > > GetFreeSlots = Slots > End Function > > Sub GiveItem(Index, Number, Durability) > Dim Slot > > Slot = 1 > > Index = Int(Index) > Number = Int(Number) > Durability = Int(Durability) > > Do While Slot < 25 > If GetPlayerInvItemNum(Index, Slot) = 0 Then > Call SetPlayerInvItemNum(Index, Slot, Number) > Call SetPlayerInvItemDur(Index, Slot, 0) > Call SendInventoryUpdate(Index, Slot) > Exit Sub > End If > > Slot = Slot + 1 > Loop > End Sub > > Sub GiveCurrency(Index, Number, Amount) > Dim Slot > Dim CurrentAmount > > Slot = 1 > > Index = Int(Index) > Number = Int(Number) > Amount = Int(Amount) > > Do While Slot < 25 > If GetPlayerInvItemNum(Index, Slot) = Number Then > CurrentAmount = GetPlayerInvItemValue(Index, Slot) > Call SetPlayerInvItemValue(Index, Slot, CurrentAmount + Amount) > Call SendInventoryUpdate(Index, Slot) > Exit Sub > End If > > Slot = Slot + 1 > Loop > > Slot = 1 > > Do While Slot < 25 > If GetPlayerInvItemNum(Index, Slot) = 0 Then > CurrentAmount = GetPlayerInvItemValue(Index, Slot) > Call SetPlayerInvItemNum(Index, Slot, Number) > Call SetPlayerInvItemValue(Index, Slot, Amount) > Call SetPlayerInvItemDur(Index, Slot, 0) > Call SendInventoryUpdate(Index, Slot) > Exit Sub > End If > > Slot = Slot + 1 > Loop > End Sub > > Function CanTake(Index, Number, Amount) > Dim Slot > > Slot = 1 > > Index = Int(Index) > Number = Int(Number) > Amount = Int(Amount) > > Do While Slot < 25 > If GetPlayerInvItemNum(Index, Slot) = Number Then > If GetPlayerInvItemValue(Index, Slot) >= Amount Then > CanTake = True > Exit Function > End If > End If > > Slot = Slot + 1 > Loop > > CanTake = False > End Function > > Sub TakeItem(Index, Number, Amount) > Dim Slot > Dim CurrentAmount > > Index = Int(Index) > Number = Int(Number) > Amount = Int(Amount) > > Slot = 1 > > Do While Slot < 25 > If GetPlayerInvItemNum(Index, Slot) = Number Then > If GetPlayerInvItemValue(Index, Slot) >= Amount Then > CurrentAmount = GetPlayerInvItemValue(Index, Slot) > > If CurrentAmount Call SetPlayerInvItemNum(Index, Slot, 0) > Call SetPlayerInvItemValue(Index, Slot, 0) > Call SetPlayerInvItemDur(Index, Slot, 0) > Call SendInventoryUpdate(Index, Slot) > Else > Call SetPlayerInvItemValue(Index, Slot, CurrentAmount - Amount) > Call SendInventoryUpdate(Index, Slot) > End If > > Exit Sub > End If > End If > > Slot = Slot + 1 > Loop > End Sub my quest.ini > [1] > reqitemnum = 9 > reqitemval = 5 > rewitemnum = 10 > rewitemval = 0 Thanks for debugging :D

Hi, i made a simple Scroll looking like GUI, PSD files included free to change and use :cheesy:. **Uploaded @:** Rapidshare.com **Size:** 26MB (with PSD) **GUI-Language:** German (no problem to translate with Google) **Used Font:** Kalenderblatt Grotesk **Screeny:** [Click](http://img3.imagebanana.com/img/j8ev6lyi/uiscreen.JPG) **Download:** [Click](http://rapidshare.com/files/124934063/GUI.rar.html)

Hello, my question is: Can i change the font of the GUI (Colors, Thick…)? And can i Change the Clock?. Thx

hi guys, i set up in class.ini weapons and armor for the classes when u create them but when i create a new character i dont get them. I show u the class.ini. Plz Help ``` [CLASS] Name= Krieger MaleSprite= 4 FemaleSprite= 12 STR= 12 DEF= 5 SPEED= 3 MAGI= 0 MAP= 1 X= 10 Y= 7 Locked= 0 [CLASSCHANGE] AddStr= 0 AddDef= 0 AddSpeed= 0 AddMagi= 0 [STARTUP] Weapon= 1 Shield= 2 Armor= 3 Helmet= 4 [SKILLS] Skill1= 0 Skill2= 0 Skill3= 0 Skill4= 0 Skill5= 0 Skill6= 0 Skill7= 0 Skill8= 0 Skill9= 0 Skill10= 0 Skill11= 0 Skill12= 0 Skill13= 0 Skill14= 0 Skill15= 0 Skill16= 0 Skill18= 0 Skill19= 0 Skill20= 0 Skill21= 0 Skill22= 0 Skill23= 0 Skill24= 0 Skill25= 0 Skill26= 0 Skill27= 0 Skill28= 0 Skill29= 0 Skill30= 0 ```