Pasketi

@unnown: > uhh there used to be a converter but best way is still paint:P Used to be…. Do you have it? does someone have it? Secret message to Minilinkki Pää kii! Sen keskittäminen kestäis ihan liikaa aikaa.

"Shut up, and reboot" :D I had problem in clients working, i rebooted and it worked again.

This topic was SOOOO helpful! Never thought of that i need to doubleclick the spell….. TYVM

I know RMXP, i don't use it, but i wanna know, how can i convert it's sprites to EE 2.7? Or is it even possible? And can i find paperdolled items to them? Thank you.

I GOT SPELLS WORKING :cheesy: There never was a problem :embarrassed:

Quote from runescape: > sell life 1kea! Plz!! I N E E D Money From here…. Can someone give me neiGd sprites? And teach how to paperdoll...

Do you think i can :confused: NOOOOooo…

Well, can you send me the current working folder? [email protected] Please :icon_thumright:

Sorry for doubleposting…. :embarrassed: > ")) > Call Give_Currency(index, Int(give_num), Int(give_val) ) > Call battlemsg(index, Trim(give_msg),10, 1) > 'TO HAVE THE SCRIPT AUTO CREATE ALL ITEMS IT CAN ONCE EACH, REMOVE LINE BELOW > RECIPE_COUNT= Int(recipe_total) > Else > give_num = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_give_num")) > give_dur = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_give_dur")) > Call Give_Item(index, give_num, give_dur) > Call battlemsg(index, Trim(give_msg),10, 1) > 'TO HAVE THE SCRIPT AUTO CREATE ALL ITEMS IT CAN ONCE EACH, REMOVE LINE BELOW > RECIPE_COUNT= Int(recipe_total) > End If > > give_exp = 0 + Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_EXP")) > new_exp = 0 + Int(getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "exp")) + Int(give_exp) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "exp", Int(new_exp)) > End If > > If new_exp=0 Then > new_exp=Int(getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "exp")) > End If > > count=count+1 > Loop > > next_level = Int(player_lvl) + Int(1) > lvl_exp = Int(Getvar("experience.ini", "EXPERIENCE", "Exp" & Int(next_level) ) ) > Call battlemsg(index,new_exp & " / " & lvl_exp & " For " & next_level & " " & trim(skill_type), 6, 0) > > If Int(new_exp) >= Int(lvl_exp) and Int(player_lvl) < 100 Then > new_exp= 0 + Int(new_exp) - Int(lvl_exp) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "exp", Int(new_exp)) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "level", Int(next_level)) > Call battlemsg(index, "Congratulations, you are now level " & Int(next_level) & " in " & trim(skill_type) & "!", 13, 1) > End If > > player_stam = Int(player_stam) - Int(recipe_stam) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "stamina", Int(player_stam)) > > If Int(recipe_total) = 1 Then > RECIPE_COUNT= Int(recipe_total) > End If > > Else > If Int(recipe_count) + 1 > Int(recipe_total) and Int(recipe_total) > Int(1) Then > Call battlemsg(index, "You have no components to " & skill_action, 12, 1) > End If > End If > > Else > Call battlemsg(index, "You need more inventory room to continue " & skill_type & ".", 15, 1) > End If > > Else > Call battlemsg(index, "You are too tired to " & skill_action & ".", 12, 1) > End If > > Else > Call battlemsg(index, "You need to be more skilled to " & skill_action & " here.", 12, 1) > End If > > End If > 'This continues off end of item script. Used when empty slot. Elseif errors usually. > If Int(needed_item) Int(player_weapon) and Int(recipe_count) = 1 Then > Call battlemsg(index, "You need to get the right tool to " & skill_action & " here.", 15, 1) > End If > > Else > 'Not working. Cant figure out why. Is non essential for the script to work. > Call Playermsg(index, "You still need to define a skill for this map", 14) > End If > > RECIPE_COUNT = Int(recipe_count)+1 > > Loop > > End Sub > '******************************** > Sub quest_Take_Item(index, number, value) > '******************************** > > Dim slot > Dim initial > Dim final > Dim taken > > slot=1 > Do While Int(slot) < 25 > If taken 1 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) 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

Umm… i'm using "Barons script folder".... so i thought you could help. Can you check this? sorry if i'm taking too much space: > ':: Access :: > 'ADMIN_MONITER = 1 > 'ADMIN_MAPPER = 2 > 'ADMIN_DEVELOPER = 3 > 'ADMIN_CREATOR = 4 > > ':: Text Color Code :: > 'Black = 0 > 'Blue = 1 > 'Green = 2 > 'Cyan = 3 > 'Red = 4 > 'Magenta = 5 > 'Brown = 6 > 'Grey = 7 > 'DarkGrey = 8 > 'BrightBlue = 9 > 'BrightGreen = 10 > 'BrightCyan = 11 > 'BrightRed = 12 > 'Pink = 13 > 'Yellow = 14 > 'White = 15 > > Sub JoinGame(index) > Dim GameName > Dim MOTD > > GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) > MOTD = GetVar("motd.ini", "MOTD", "Msg") > > ' Send a global message that he/she joined > If GetPlayerAccess(index) Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 7) > Else > Call GlobalMsg(GetPlayerName(index) & " has joined " & GameName & "!", 15) > End If > > ' Send them welcome > Call PlayerMsg(index, "Welcome to " & GameName & "!", 15) > > ' Send motd > If Trim(MOTD) "" Then > Call PlayerMsg(index, "MOTD: " & MOTD, 11) > End If > End Sub > > Sub LeftGame(index) > Dim GameName > Dim n > > GameName = Trim(GetVar("Data.ini", "CONFIG", "GameName")) > > ' Check for boot map > If GetBootMap(index) > 0 Then > Call SetPlayerX(index, Map(GetPlayerMap(index)).BootX) > Call SetPlayerY(index, Map(GetPlayerMap(index)).BootY) > Call SetPlayerMap(index, Map(GetPlayerMap(index)).BootMap) > End If > > ' Send a global message that he/she left > If GetPlayerAccess(index) Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 7) > Else > Call GlobalMsg(GetPlayerName(index) & " has left " & GameName & "!", 15) > End If > End Sub > > Sub PlayerLevelUp(index) > Dim I > Dim D > Dim C > > C = 0 > Do While GetPlayerExp(index) => GetPlayerNextLevel(index) > D = GetPlayerExp(index) - GetPlayerNextLevel(index) > Call SetPlayerLevel(index, GetPlayerLevel(index) + 1) > I = Int(GetPlayerSPEED(index) / 10) > If I < 1 Then I = 1 > If I > 3 Then I = 3 > > Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + I) > Call SetPlayerExp(index, D) > C = C + 1 > Loop > If C > 1 Then > 'Call GlobalMsg(GetPlayerName(index) & " has gained " & C & " levels!", 6) > Else > 'Call GlobalMsg(GetPlayerName(index) & " has gained a level!", 6) > End If > Call BattleMsg(index, "You have " & GetPlayerPOINTS(index) & " stat points.", 9, 0) > End Sub > > Sub UsingStatPoints(index, PointType) > Select Case PointType > Case 0 > 'Gives you a set max > If GetPlayerSTR(index) + 1 > 1000 Then > Call BattleMsg(index, "You have maxed your strength!", 12, 0) > Exit Sub > End If > Call SetPlayerSTR(index, GetPlayerSTR(index) + 1) > Call BattleMsg(index, "You have gained more strength!", 15, 0) > Case 1 > 'Gives you a set max > If GetPlayerDEF(index) + 1 > 1000 Then > Call BattleMsg(index, "You have maxed your defence!", 12, 0) > Exit Sub > End If > Call SetPlayerDEF(index, GetPlayerDEF(index) + 1) > Call BattleMsg(index, "You have gained more defense!", 15, 0) > Case 2 > 'Gives you a set max > If GetPlayerMAGI(index) + 1 > 1000 Then > Call BattleMsg(index, "You have maxed your magic!", 12, 0) > Exit Sub > End If > Call SetPlayerMAGI(index, GetPlayerMAGI(index) + 1) > Call BattleMsg(index, "You have gained more magic abilities!", 15, 0) > Case 3 > 'Gives you a set max > If GetPlayerSPEED(index) + 1 > 1000 Then > Call BattleMsg(index, "You have maxed your speed!", 12, 0) > Exit Sub > End If > Call SetPlayerSPEED(index, GetPlayerSPEED(index) + 1) > Call BattleMsg(index, "You have gained more speed!", 15, 0) > End Select > Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) - 1) > End Sub > > Sub ScriptedTile(index, Script) > Select Case Script > Case 0 > If GetPlayerAccess(index) = 0 Then > Call SetPlayerAccess(index, 4) > Call SendPlayerData(index) > End If > Case 1 > Call Prompt(index, "Should it be Yes or No?", 1) > Case 2 > Call Baron_Uber_skills(index) > Case 3 > Call Baron_Stam_regain(index) > End Select > End Sub > > Sub PlayerPrompt(index, Prompt, Value) > If Prompt = 6 Then > Select Case Value > Case 0 > Call GlobalMsg("Hi This is a Yes answer!", 3) > Case 1 > Call GlobalMsg("This is case 1?", 3) > End Select > Else > Select Case Value > Case 0 > Call GlobalMsg("Hi This is a No answer!", 4) > Case 1 > Call GlobalMsg("This is no case 1?", 4) > End Select > End If > End Sub > > Sub QueryBox(index, Prompt) > Value = GetVar("responses.ini","Responses",Cstr(index)) > End Sub > > 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 > > Sub HotScript1(index) > Call PlayerMsg(index, "Hot script 1 activated!", 15) > End Sub > > Sub HotScript2(index) > Call PlayerMsg(index, "Hot script 2 activated!", 15) > End Sub > > Sub HotScript3(index) > Call PlayerMsg(index, "Hot script 3 activated!", 15) > End Sub > > Sub HotScript4(index) > Call PlayerMsg(index, "Hot script 4 activated!", 15) > End Sub > > Sub ScriptedItem(index, Script) > Select Case Script > Case 0 > Call PlayerMsg(index, "Itemz Work", 15) > End Select > End Sub > > Sub ScriptedSpell(index, Script) > Select Case Script > Case 0 > Call PlayerMsg(index, "Spellz Work", 15) > End Select > End Sub > > Sub ScriptedNPC(index, Script) > On Error Resume next > Dim status > Dim start_msg > Dim questing_msg > Dim end_msg > Dim completed_msg > Dim has_needed > Dim need_count > Dim give_count > Dim slot > Dim count > Dim found > Dim number > Dim durability > Dim value > Dim experience > Dim name > > Select Case Script > Case 0 > > If getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Start_Msg") "" Then > > If getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index) ) < 0 Then > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 0 ) > End If > > status = getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index)) > name=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "name") > > Select Case status > > > > Case 0 > start_msg=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Start_Msg") > Call playermsg(index, name & " : " & start_msg, 15) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 1 ) > > Case 1 > > need_count=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "need_count") > count=1 > slot=1 > has_needed=0 > > 'CHECK FOR ITEMS > > Do While count number=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_need_num") > value=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_need_val") > slot=1 > > Do While slot < 25 > If Int(getplayerinvitemnum(index,slot))=Int(number) Then > If Int(getplayerinvitemvalue(index, slot))>=Int(value) Then > has_needed=has_needed+1 > slot=25 > End If > End If > slot=slot+1 > Loop > > count=count+1 > Loop > > 'ACTUALLY TAKE ITEMS > > If has_needed >= Int(need_count) Then > has_needed=1 > count=1 > > Do While count number=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_need_num") > value=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_need_val") > slot=1 > Do While slot < 25 > If Int(getplayerinvitemnum(index,slot))=Int(number) Then > If Int(getplayerinvitemvalue(index, slot))>=Int(value) Then > Call quest_Take_Item(index, number, value) > Call Battlemsg(index, name & " removed an item from your inventory.", 15, 0) > slot=25 > End If > End If > slot=slot+1 > Loop > count=count+1 > Loop > > Else > has_needed=0 > End If > > 'CHECK IF ITEMS WERE TAKEN > > If has_needed = 0 Then > questing_msg=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Questing_Msg") > Call playermsg(index, name & " : " & questing_msg, 15) > Else > end_msg=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "end_Msg") > Call playermsg(index, name & " : " & end_msg, 15) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 2 ) > Call scriptedNPC(index, 0) > End If > > > > Case 2 > > 'GIVE THE ITEMS AS REWARD, DONT UNLESS ENOUGH SPACE, IF GIVEN BECOME 3 > 'GET NUMBER OF FREE SLOTS > > slot=1 > count=0 > > Do While slot < 25 > If Int(getplayerinvitemnum(index,slot))=0 Then > count=count+1 > End If > slot=slot+1 > Loop > > 'CHECK ENOUGH SPACE FOR ITEMS BEING GIVEN > > give_count=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "give_count") > > If Int(count)>=Int(give_count) Then > > 'GIVE ITEMS > > count=1 > > Do While Int(count) number=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_num") > value=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_val") > durability=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", count & "_dur") > slot=1 > Do While slot < 25 > If Int(getplayerinvitemnum(index,slot))=0 Then > Call setplayerinvitemdur(index, Int(slot), Int(durability)) > Call setplayerinvitemvalue(index, Int(slot), Int(value)) > Call setplayerinvitemnum(index, Int(slot), Int(number)) > Call sendinventoryupdate(index, slot) > slot=25 > Call Battlemsg(index, name & " gives you an item.", 15, 0) > End If > slot=slot+1 > Loop > count=count+1 > Loop > > 'ADVANCE TO COMPLETELY FINISHED QUEST > > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", "QUEST", GetPlayerMap(index), 3) > experience=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "experience") > Call battlemsg(index, "Quest Completed! " & experience & " experience gained!", 14, 0) > experience=experience+GetPlayerExp(index) > Call SetPlayerExp(index, Int(experience)) > Call sendplayerdata(index) > > > 'MESSAGE FOR NO SPACE > > Else > space_msg=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "space_msg") > Call playermsg(index, name & " : " & space_msg, 15) > End If > > 'MESSAGE FOR COMPLETED QUEST > > Case 3 > completed_msg=getvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "completed_msg") > Call playermsg(index, name & " : " & completed_msg, 15) > > End Select > > > Else > 'ADD REST OF VARIABLES NEEDED TO QUICK GENERATE INI'S AND CREDIT > > Call playermsg(index, "No quest found, generating generic quest sript under server\mapextras\" & GetPlayerMap(index) & ".ini", 14) > Call playermsg(index, "This script was coded by Baron, http://barony.deviantart.com", 14) > Call Playermsg(index, "This script is free to use on any server, but this credit must not be removed.", 14) > > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Start_Msg", "Bring me item X!") > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Questing_Msg", "Have item X yet?") > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "End_Msg", "Have item X yet?") > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Completed_Msg", "Thanks for item X!") > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Space_Msg", "Ill hold this item for you until you have more room.") > > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Name", "The Quest Baron") > > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "Experience", 200) > > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "need_count", 2) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "1_need_num", 1) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "1_need_val", 4) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "2_need_num", 1) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "2_need_val", 2) > > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "give_count", 2) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "1_num", 1) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "1_val", 3) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "1_dur", 0) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "2_num", 1) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "2_val", 1) > Call putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "QUEST", "2_dur", 0) > > End If > > End Select > End Sub > > Sub Commands(index) > On Error Resume Next > Dim Portal > Dim mapnum > Dim x > Dim y > Dim i > Dim TextSay > Dim n > Dim m > Dim C > m = GetVar("Data.ini", "MAX", "MAX_MAPS") > TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index) > > Portal = GetPlayerHelmetSlot(index) > > i = 1 > C = 0 > > If LCase(Mid(TextSay, 1, 5)) = "/wish" Then > If Len(TextSay) > 6 Then > TextSay = Mid(TextSay, 6, Len(TextSay) - 5) > Do While C = 0 > If GetVar("wishes.ini", "WISH", "Wish" & i) "" then > i = i + 1 > Else > Call PutVar("wishes.ini", "WISH", "Wish" & i, Trim(TextSay)) > Call PlayerMsg(index, "Thank You For Wishing!", 6) > C = 1 > End if > Loop > End If > Exit Sub > End If > > If LCase(Mid(TextSay, 1, 9)) = "/warpmeto" Then > If Len(TextSay) > 10 Then > TextSay = Mid(TextSay, 10, Len(TextSay) - 9) > > ' Prevent hacking > If GetPlayerAccess(index) < 2 Then > Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) > Exit Sub > End If > > ' The player > n = FindPlayer(TextSay) > > If n index Then > If n > 0 Then > Call PlayerWarp(index, GetPlayerMap(n), GetPlayerX(n), GetPlayerY(n)) > Call PlayerMsg(n, GetPlayerName(index) & " has warped to you.", 6) > Call PlayerMsg(index, "You have been warped to " & GetPlayerName(n) & ".", 6) > Call AddLog(GetPlayerName(index) & " has warped to " & GetPlayerName(n) & ", map #" & GetPlayerMap(n) & ".", ADMIN_LOG) > Else > Call PlayerMsg(index, "Player is not online.", 15) > End If > Else > Call PlayerMsg(index, "You cannot warp to yourself!", 15) > End If > End If > Exit Sub > End If > > If LCase(Mid(TextSay, 1, 9)) = "/warptome" Then > If Len(TextSay) > 10 Then > If GetPlayerAccess(index) < 2 Then > Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) > Exit Sub > End If > > n = Mid(TextSay, 10, Len(TextSay) - 9) > n = FindPlayer(n) > > If n index Then > If n > 0 Then > Call PlayerWarp(n, GetPlayerMap(index), GetPlayerX(index), GetPlayerY(index)) > Call PlayerMsg(n, "You have been summoned by " & GetPlayerName(index) & ".", 9) > Call PlayerMsg(index, GetPlayerName(n) & " has been summoned.", 9) > Call AddLog(GetPlayerName(index) & " has warped " & GetPlayerName(n) & " to self, map #" & GetPlayerMap(index) & ".", ADMIN_LOG) > Else > Call PlayerMsg(index, "Player is not online.", 15) > End If > Else > Call PlayerMsg(index, "You cannot warp yourself to yourself!", 15) > End If > End If > Exit Sub > End If > > If LCase(Mid(TextSay, 1, 7)) = "/warpto" Then > If Len(TextSay) > 8 Then > TextSay = Mid(TextSay, 8, Len(TextSay) - 7) > n = TextSay > > If n > 0 And n If GetPlayerAccess(index) < 2 Then > Call PlayerMsg(index, "You need be of a higher access to use this command!", 4) > Exit Sub > End If > Call SpellAnim(2, GetPlayerMap(index), GetPlayerX(index)+1, GetPlayerY(index)-1) > Call PlayerWarp(index, n, GetPlayerX(index), GetPlayerY(index)) > Call SpellAnim(1, GetPlayerMap(index), GetPlayerX(index)+1, GetPlayerY(index)-1) > Call PlayerMsg(index, "You have been warped to map #" & n, 9) > Call AddLog(GetPlayerName(index) & " warped to map #" & n & ".", ADMIN_LOG) > Else > Call PlayerMsg(index, "Invalid map number.", 4) > End If > End If > Exit Sub > End If > > If LCase(Trim(TextSay)) = "/help" Then > Call PlayerMsg(index, "Social Commands:", 15) > Call PlayerMsg(index, "'msghere = Broadcast Message", 15) > Call PlayerMsg(index, "-msghere = Emote Message", 15) > Call PlayerMsg(index, "!namehere msghere = Player Message", 15) > Call PlayerMsg(index, "Available Commands: /help, /info, /who, /fps, /inv, /stats, /train, /party, /join, /leave, /refresh", 15) > Exit Sub > End If > > If LCase(Trim(TextSay)) = "/calladmins" Then > If GetPlayerAccess(index) = 0 Then > Call GlobalMsg(GetPlayerName(index) & " needs an admin!", 10) > Else > Call PlayerMsg(index, "You are an admin!", 10) > End If > Exit Sub > End If > > If LCase(Trim(TextSay)) = "/admin" Then > If GetPlayerAccess(index) > 0 Then > Call PlayerMsg(index, "Social Commands:", 15) > Call PlayerMsg(index, """msghere = Global Admin Message", 15) > Call PlayerMsg(index, "=msghere = Private Admin Message", 15) > Call PlayerMsg(index, "Available Commands: /admin, /loc, /mapeditor, /warpmeto, /warptome, /warpto, /setsprite, /mapreport, /kick, /ban, /edititem, /respawn, /editnpc, /motd, /editshop, /ban, /editspell", 15) > End If > Exit Sub > End If > > Select Case LCase(Trim(TextSay)) > Case "/test" > Call GlobalMsg(index, player(index).Char(player(index).charnum).HP) > Exit Sub > Case "/away" > 'If GetPlayerAccess(index) >= 1 Then > If GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 0 Then > Call GlobalMsg(GetPlayerName(index) & " is now away.", 14) > Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 1) > Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName", GetPlayerName(index)) > Call SetPlayerName(index, GetPlayerName(index) & " - Away") > Call SendPlayerData(index) > Exit Sub > ElseIf GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status") = 1 Then > Call SetPlayerName(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "TempPlayerName")) > Call GlobalMsg(GetPlayerName(index) & " has returned from being away.", 14) > Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "Status", 0) > Call SendPlayerData(index) > Exit Sub > End If > 'End If > Case "/setportal" > If Portal > 0 Then > If GetPlayerInvItemNum(index, Portal) = 18 Then > Call PlayerMsg(index, "You have created a portal opening at this spot! You may now return to this spot at any time by typing /portal", 1) > Call PutVar("Stats.ini", GetPlayerName(index), "map", GetPlayerMap(index)) > Call PutVar("Stats.ini", GetPlayerName(index), "x", GetPlayerX(index)) > Call PutVar("Stats.ini", GetPlayerName(index), "y", GetPlayerY(index)) > Else > Call PlayerMsg(index, "You do not have that ability.", 4) > End If > Exit Sub > End If > Case "/portal" > If Portal > 0 Then > mapnum = GetVar("Stats.ini", GetPlayerName(index), "map") > y = GetVar("Stats.ini", GetPlayerName(index), "y") > x = GetVar("Stats.ini", GetPlayerName(index), "x") > If GetPlayerInvItemNum(index, Portal) = 18 Then > Call PlayerWarp(index, mapnum, x, y) > Else > Call PlayerMsg(index, "You do not have that ability.", 4) > End If > Exit Sub > End If > Case "/bell" > Call SetTile(1,3,11,1,1,1,8) > Call GlobalMsg("*dingy* *diny* *ding*", 7) > Call SendMap(1) > Exit Sub > Case "/killall" > Call SpellAnim(1,1,1,6) > Exit Sub > Case "/blah" > Call PlayerMsg(index, GetTileX(1,0,16,8), 15) > Call PlayerMsg(index, GetTileY(1,0,16,8), 15) > Call PlayerMsg(index, GetTileSet(1,0,16,8), 15) > Case "/block" > Call SetAttribute(1,GetPlayerX(index),GetPlayerY(index),1,0,0,0,"","","") > Case "/bleh" > Call PlayerQueryBox(index, "Hello?", 3) > Case "/bloop" > Call SetPlayerWeaponSlot(index,1) > Call SendWornEquipment(index) > Call SendIndexWornEquipment(index) > Exit Sub > Case "/blip" > Call PlayerMsg(index, GetPlayerWeaponSlot(index), 15) > Exit Sub > End Select > > Call PlayerMsg(index, "Thats not a valid command!", 12) > End Sub > > Sub DropItems(index) > 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 > End Sub > > Sub OnDeath(index) > Dim mapnum > Dim x > Dim y > Dim i > i = GetPlayerClass(index) > > mapnum = GetVar("Classes\Class" & i & ".ini", "CLASS", "Map") > y = GetVar("Classes\Class" & i & ".ini", "CLASS", "y") > x = GetVar("Classes\Class" & i & ".ini", "CLASS", "x") > > Call PlayerWarp(index, mapnum, x, y) > End Sub > > '******************************** > Function F_Freeslots(index) > '******************************** > > Dim slot > Dim count > > slot=1 > count=0 > Do While slot < 25 > If getplayerinvitemnum(index, slot) = 0 Then > count = Int(count) + 1 > End If > slot=Int(slot) + 1 > Loop > F_Freeslots=Int(count) > End Function > > '******************************** > Sub Give_Item(index, number, durability) > '******************************** > > Dim slot > > slot = 1 > Do While slot < 25 > If Getplayerinvitemnum( index, Int( slot ) ) = 0 Then > Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) ) > Call SetPlayerInvItemDur(index, Int( slot ), Int( durability ) ) > Call SetPlayerInvItemValue(index, Int( slot ), Int(0) ) > Call SendInventoryUpdate(index, Int(slot) ) > slot = 25 > End If > slot = slot + 1 > Loop > End Sub > > '******************************** > Sub Give_Currency(index, number, quantity) > '******************************** > > Dim slot > Dim initial > Dim final > Dim given > > slot=1 > given=0 > > Do While slot < 25 > If Getplayerinvitemnum(index,Int(slot))=Int(number) Then > initial = Getplayerinvitemvalue( index, Int( slot ) ) > final = Int( initial ) + Int( quantity ) > Call setplayerinvitemvalue( index, Int( slot ), Int( final ) ) > Call SendInventoryUpdate(index, Int(slot) ) > slot = 25 > given = 1 > End If > slot = slot + 1 > Loop > > If given=1 Then > slot=25 > Else > slot=1 > End If > > Do While slot < 25 > If Getplayerinvitemnum(index,Int(slot)) = 0 Then > Call SetPlayerInvItemNum(index, Int( slot ), Int( number ) ) > Call SetPlayerInvItemValue(index, Int( slot ), Int( quantity ) ) > Call SetPlayerInvItemDur(index, Int( slot ), 0 ) > Call SendInventoryUpdate(index, Int(slot) ) > slot = 25 > End If > slot = slot + 1 > Loop > > End Sub > > '******************************** > Function F_Check_Take(index, number, value) > '******************************** > > Dim slot > > slot = 1 > F_Check_Take =0 > Do While slot < 25 > If Getplayerinvitemnum( index, Int( slot ) ) = Int( number ) Then > If GetPlayerInvItemValue(index, Int( slot ) ) >= Int(value) Then > F_Check_Take=1 > End If > End If > slot = slot + 1 > Loop > End Function > > '******************************** > 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) 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 > > '******************************** > Sub Baron_Stam_regain(index) > '******************************** > > Dim skill_type > Dim skill_action > Dim stam_total > Dim player_lvl > > skill_type=Trim( GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","type") ) > > If Int(Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type), "has_data") ) < 1 Then > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "Exp", Int(0) ) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "level", Int(0)) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "stamina", Int(10)) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "has_data", Int(1)) > Call battlemsg(index, "You should return here if you wish to rest", 14, 1) > End If > > player_lvl=Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "level") > skill_action=Trim(GetVar("scripts\skills\" & skill_type & ".ini", "INDEX","action")) > stam_total=5 + Int(player_lvl) > Call PutVar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "stamina", Int(stam_total)) > Call battlemsg(index, "You feel refreshed and ready to " & skill_action & " again.", 14, 1) > End Sub > > '******************************** > Sub Baron_Uber_skills(index) > '******************************** > 'Do not modify this script in any way. > 'It is provided as is in all goodwill. > 'There is CONSIDERABLE time spent here. > On Error Resume next > Dim skill_type > Dim skill_number > Dim take_total > Dim give_total > Dim count > Dim take_count > Dim take_num > Dim take_val > Dim take_msg > Dim empty_space > Dim take_check > Dim needed_item > Dim player_weapon > Dim skill_action > Dim currency_check > Dim recipe_count > Dim recipe_total > Dim min_lvl > Dim player_lvl > Dim player_stam > Dim recipe_stam > Dim give_val > Dim give_num > Dim give_dur > Dim give_msg > Dim high_randomiser > Dim success_chance > Dim low_chance > Dim high_chance > Dim give_exp > Dim new_exp > Dim lvl_exp > Dim next_lvl > > If Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","has_data")) < 0 Then > Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","type", "") > Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","number", 0) > Call Putvar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","has_data", 1) > Call Playermsg(index, "Made skill template for map", 14) > Call Playermsg(index, "Credits go to Baron - http://barony.deviantart.com/", 14) > End If > > RECIPE_COUNT = Int(1) > skill_type=Trim( GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","type") ) > recipe_total=Int(GetVar("scripts\skills\" & skill_type & ".ini","INDEX" ,"total_recipes")) > > 'RECIPES ALWAYS HAVE SKILL 1 SELECTED IN MAPEXTRAS AND TOTAL RECIPES IN SKILLS SET TO HIGHEST > 'NON RECIPES HAVE ANY SKILL SELECTED IN MAPEXTRAS AND TOTAL RECIPES IN SKILLS SET TO 1 > > Do While Int(RECIPE_COUNT) > If trim(skill_type) "" Then > > skill_number = Int(GetVar("scripts\mapextras\" & GetPlayerMap(index) & ".ini", "SKILL","number")) > > If Int(recipe_count) > 1 Then > skill_number = Int(recipe_count) > End If > > needed_item=Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number),"item_num_needed")) > player_weapon=Int( Getplayerinvitemnum(index, Int(getplayerweaponslot(index)) ) ) > skill_action=Trim(GetVar("scripts\skills\" & skill_type & ".ini", "INDEX","action")) > > If Int(needed_item) = Int(player_weapon) Then > > min_lvl = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number),"min_level")) > > If Int(Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type), "has_data") ) < 1 Then > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "Exp", Int(0) ) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "level", Int(0)) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "stamina", Int(10)) > Call putvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "has_data", Int(1)) > Call playermsg(index, "You attempt to " & skill_action & " for the first time!", 14) > End If > > player_lvl = Int(Getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "level")) > > If Int(min_lvl) > player_stam=Int(getvar("scripts\charextras\" & GetPlayerName(index) & ".ini", Trim(Skill_type) , "stamina")) > recipe_stam=Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number),"stam_taken")) > > If Int(player_stam) >= Int(recipe_stam) Then > > take_total = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number),"take_total")) > give_total = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number),"give_total")) > count = Int ( 1 ) > take_count = Int ( 0 ) > empty_space=F_Freeslots(index) > > If Int(give_total) > Do While count take_num=Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_take_num")) > take_val=Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_take_val")) > > take_check=F_Check_Take(index,take_num,take_val) > take_count=take_count + Int(take_check) > count=count+1 > Loop > > If Int(take_count) = Int(take_total) Then > > count = Int ( 1 ) > > Do While Int(count) take_num=Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_take_num")) > take_val=Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_take_val")) > take_msg=Trim(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_take_Msg")) > Call battlemsg(index, trim(take_msg), 15, 1) > Call Take_Item(index, Int(take_num), Int(take_val) ) > count=count+1 > Loop > > count = Int ( 1 ) > new_exp = 0 > > Do While Int(count) give_val = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_give_val")) > give_msg = Trim(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_give_msg")) > > success_chance = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_base_chance")) > low_chance= Int(player_lvl) - Int(min_lvl) + 1 > high_chance = Int(player_lvl) - Int(min_lvl) + Int(success_chance) > high_randomiser = Int((high_chance + 1) * Rnd) > > If Int(high_randomiser) > If Int(give_val) > 0 Then > give_num = Int(GetVar("scripts\skills\" & skill_type & ".ini", Int(skill_number), Int(count) & "_give_num"

EE 2.7\. Earlier TE, but that selling bug and so little maps…. yyeah... EE 2.7

Mentioning, that i added from original main.txt the script: Sub OnAttack -> Whoa! I can attack NPC's, but still, they can't attack me :sad: I want some challenge…. This bug is fixed if i turn from server scripts off. But then i cant mine or do quests :S Edit: Now i got melee-fight working. There was HUGE holes in your script! Scripts added: * Sub OnAttack * Sub OnPlayerHit * Sub OnArrowHit But still… spells don't workkkkk :sad:

I'm poor scripter, worse photoshopper etc. Here's pretty much what i'm requesting right now: * First of all, in EE 2.7 comes default sprites. Is there already some kind of naked version of it? Or then some kind of .zip or .rar where is totally new sprites (naked), new items and "perfectly" paperdolled equipment for those sprites. The more items and equipment, the better. * Secondly, have anyone done working "questlist" script. I mean, that when you can access, are doing or have done some quest (done with Baron quest SuperScript(did i write it right?)) you can see it in the list in different colours (invisible = can't do, red = haven't started, yellow = in proggress and green = done, can't do again) * Then if there's any way to get skills done with Baron Skill SuperScript visible in next to other skills, that would be amazing! Can all this be possible? Thanks for your time :embarrassed: Edit: Title fixed

:angry: I searched the whole forum through and found one working link to Barons script folder. Downloaded, and i had a problem: My attack didn't work. Means, when i attack (ctrl) an NPC, nothing happens! I copied that small script from original file, and now my NPC take damage. Only take. Now still my NPC's can't attack, while scripts are on. When off, then works. And without scripts, mining doesn't work, neither quests. After i get everything up and running, i mean all the scripts so gameplay is fine, THEN i can get to real hard mapping and developing quests and skills and….. well you get the idea. SO! How do i fix the NPC hitting problem. (Would be too hard if NPCs were just standing there :cheesy: )' Thank you for your precious time :blob1:

So… can i import items/maps/spells/NPC's etc. fro TE to EE 2.7 If not, then why Thanks