Unreal Software

05.04.13 06:41:48 pm

KenVo
User
Offline Off

Can someone give a new request I'm bored

Cs2d tibia tutorial ================ My new CS2D RPG Project Video

05.04.13 06:44:53 pm

Conscience
User
Offline Off

@

KenVo: Is it possible to link two servers together without changing the save function? I don't think two servers can run the same Lua file while it gets updated.

And if it's not possible. Would you be so kind and make it so for me? I would be very grateful.

Thanks in advance.

Remember to learn to forget. Whiskey shots and cheap cigarettes.

05.04.13 07:15:50 pm

KenVo
User
Offline Off

I'm not too sure about that because I've never thought about or tried it. But I think you can link 2 servers saves together and run at the same time, yes. However, the map saves and house saves need to be separated. The only save function we need to change is the player saving function; probably have to save individual players everytime he/she leaves the server.
I'm trying it after I get home from school and don't think it should be hard to make.

P.S. I removed the housing system in my edit because it causes lags and buggy sometimes and added a bank system instead.

edited 1×, last 05.04.13 07:57:43 pm

Cs2d tibia tutorial ================ My new CS2D RPG Project Video

speed

06.04.13 11:30:14 pm

TopNotch
User
Offline Off

Hello,
I added a horse with 20 speed.
But when I start the server, and ride that horse. My speed is still 0.
How to fix that?

06.04.13 11:34:09 pm

KenVo
User
Offline Off

Replace your updateEQ function in functions.lua with this

Spoiler

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82

function updateEQ(id, newitems, previtems)
     if not previtems then
          previtems = {}
     end
     if not newitems then return end
     parse("equip " .. id .. " 50")
     parse("setweapon " .. id .. " 50")
     local hp, spd, atk, def = 0, 0, 0, 0
     local equip, strip = playerweapons(id), {50, 41}
     for i, v in pairs(newitems) do
          if previtems[i] then
               if PLAYERS[id].tmp.equip[i].image then
                    freeimage(PLAYERS[id].tmp.equip[i].image)
                    PLAYERS[id].tmp.equip[i].image = nil
               end
               if PLAYERS[id].tmp.equip[i].equip then
                    parse("strip " .. id .. " " .. PLAYERS[id].tmp.equip[i].equip)
                    table.insert(strip, PLAYERS[id].tmp.equip[i].equip)
                    PLAYERS[id].tmp.equip[i].equip = nil
               end
               if ITEMS[previtems[i]].hp then
                    hp=hp-ITEMS[previtems[i]].hp
               end
               if ITEMS[previtems[i]].speed then
                    spd=spd-ITEMS[previtems[i]].speed
               end
               if ITEMS[previtems[i]].atk then
                    atk=atk-ITEMS[previtems[i]].atk
               end
               if ITEMS[previtems[i]].def then
                    def=def-ITEMS[previtems[i]].def
               end
          end
          if newitems[i] ~= 0 then
               if ITEMS[newitems[i]].hp then
                    hp=hp+ITEMS[newitems[i]].hp
               end
               if ITEMS[newitems[i]].speed then
                    spd=spd+ITEMS[newitems[i]].speed
               end
               if ITEMS[newitems[i]].atk then
                    atk=atk+ITEMS[newitems[i]].atk
               end
               if ITEMS[newitems[i]].def then
                    def=def+ITEMS[newitems[i]].def
               end
               if ITEMS[newitems[i]].equip then
                    PLAYERS[id].tmp.equip[i].equip = ITEMS[newitems[i]].equip
                    parse("equip " .. id .. " " .. ITEMS[newitems[i]].equip)
                    table.insert(equip, ITEMS[newitems[i]].equip)
               end
               if ITEMS[newitems[i]].eimage then
                    if not PLAYERS[id].tmp.equip[i].image then
                         PLAYERS[id].tmp.equip[i].image = image(ITEMS[newitems[i]].eimage, ITEMS[newitems[i]].static and 0 or 1, 0, (ITEMS[newitems[i]].ground and 100 or 200)+id)
                         if ITEMS[newitems[i]].r then
                              imagecolor(PLAYERS[id].tmp.equip[i].image, ITEMS[newitems[i]].r, ITEMS[newitems[i]].g, ITEMS[newitems[i]].b)
                         end
                         local scalex, scaley = ITEMS[newitems[i]].escalex or 1, ITEMS[newitems[i]].escaley or 1
                         scalex = scalex * -1
                         imagescale(PLAYERS[id].tmp.equip[i].image, scalex, scaley)
                         if ITEMS[newitems[i]].blend then
                              imageblend(PLAYERS[id].tmp.equip[i].image, ITEMS[newitems[i]].blend)
                         end
                    end
               end
          end
     end
     for i, v in ipairs(equip) do
          if not inarray(strip, v) then
               parse("setweapon " .. id .. " " .. v)
               parse("strip " .. id .. " 50")
          end
     end
     PLAYERS[id].tmp.atk = PLAYERS[id].tmp.atk+atk
     PLAYERS[id].tmp.def = PLAYERS[id].tmp.def+def
     PLAYERS[id].tmp.spd = PLAYERS[id].tmp.spd+spd
     PLAYERS[id].tmp.hp = PLAYERS[id].tmp.hp+hp
     local temphp = player(id, "health")
     parse("setmaxhealth " .. id .. " " .. PLAYERS[id].tmp.hp)
     parse("speedmod " .. id .. " " .. PLAYERS[id].tmp.spd)
     parse("sethealth " .. id .. " " .. temphp)
end

This also fixes hp bug when you equip items (current hp goes back to max hp) and knife bug (you receive a knife when you equip other weapons like crossbow)

Cs2d tibia tutorial ================ My new CS2D RPG Project Video

06.04.13 11:36:36 pm

Me Gusta
User
Offline Off

Hey, is possible make an type of ammo system per arrow ammo crossbow?

06.04.13 11:42:26 pm

KenVo
User
Offline Off

You mean bow costs 1 arrow everytimes you shoot?

Cs2d tibia tutorial ================ My new CS2D RPG Project Video

07.04.13 03:19:11 am

Me Gusta
User
Offline Off

Yes, you have the code or script?

07.04.13 03:39:00 am

KenVo
User
Offline Off

I can make it but I don't really want to it's a waste of time

Cs2d tibia tutorial ================ My new CS2D RPG Project Video

07.04.13 01:20:25 pm

Xirot
Idiot
Offline Off

KenVo: It will be a good idea , Tibia servers need a good hosts.

07.04.13 05:55:44 pm

Me Gusta
User
Offline Off

is possible make arrow ammom for crossbow see this image
http://postimg.org/image/umhyi3xp9/

Hello

09.04.13 12:37:40 pm

-FQ
User
Offline Off

can you show how to make fishing system? I think too much peoples wanna know how to make that.

09.04.13 02:08:32 pm

Conscience
User
Offline Off

@

-FQ: The search function brought me here in a couple of seconds: http://unrealsoftware.de/forum_posts.php?post=342036&start=0

Check the first more tag.

Remember to learn to forget. Whiskey shots and cheap cigarettes.

12.04.13 03:11:29 pm

Jarates
User
Offline Off

How to make items on the ground dissapear after some minutes/seconds if they are not picked up?

edited 3×, last 12.04.13 04:37:40 pm

13.04.13 11:34:11 pm

KenVo
User
Offline Off

There might be some bugs so tell me if you find any.

config.lua

Add this code to the CONFIG table

Code:

1
2

--minutes delay until dropped items are automatically remove from the map (except items in houses)
CLEANITEMSDELAY= 5,

functions.lua

1. Under function updateTileItems(x,y), find local heightoffset. Add this code under it:

Code:

1
2

local heightoffset = (height < MAXHEIGHT and height or MAXHEIGHT)*3
item[4] = CONFIG.CLEANITEMSDELAY --this code

2. Add this function to functions.lua:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31

function cleanitems()
     for k,v in pairs (GROUNDITEMS) do
          local x,y,height
          for a,b in pairs (v) do
               for c,d in pairs (b) do
                    d[4] = d[4] -1
                    y=k
                    x=a
                    height=c
                    if d[4] <= 0 and not TILEZONE[y][x].HOUSE then
                         local item = d
                         if item[1] == 1337 then
                              if item[2] then freeimage(item[2]) end
                              GROUNDITEMS[y][x][height] = nil
                         else
                              local tile = gettile(x*32, y*32)
                              if tile.HEAL and ITEMS[item[1]].heal then
                                   tile.HEAL = tile.HEAL - ITEMS[item[1]].heal
                                   if tile.HEAL == 0 then
                                        tile.HEAL = nil
                                   end
                              end
                              if item[2] then freeimage(item[2]) end
                              GROUNDITEMS[y][x][height] = nil
                         end
                    end
               end
          end
     end

end

hooks.lua
Find function EXPminute(). Add cleanitems() under it.

Code:

1
2
3
4
5
6
7
8

addhook("minute","EXPminute")
function EXPminute()
     cleanitems()
     MINUTES = MINUTES+1
     if game'sv_password' == '' and MINUTES%5 == 0 then
          saveserver()
     end
end

Cs2d tibia tutorial ================ My new CS2D RPG Project Video

mana and fishing.

14.04.13 01:15:43 pm

UBMaster
BANNED
Offline Off

@

KenVo:

I have got your mana system but
..not work fishimng system pls help !

My youtube Channel http://www.youtube.com/user/ufuk500

14.04.13 05:49:26 pm

SilentDash
User
Offline Off

Can someone fix this Lua Error?

Spoiler

line 213

whole function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

addhook("ms100", "MONSTERms100")
function MONSTERms100()
     t = t + 1
     if t % 100 == 0 then
          while #MONSTERS < CONFIG.MAXMONSTERS do
               local rand, spawnNo, mapName
               while true do
                    rand = math.random(#CONFIG.MONSTERS)
                    mapName = CONFIG.MONSTERS[rand].spawn[map'name'] and map'name' or CONFIG.DEFAULTMAP
                    spawnNo = math.random(#CONFIG.MONSTERS[rand].spawn[mapName])
                    if math.random(0, 100) < CONFIG.MONSTERS[rand].spawnchance[mapName][spawnNo] then
                         break
                    end
               end
               local m = deepcopy(CONFIG.MONSTERS[rand])
               local x, y, tilex, tiley
               local spawn = m.spawn[mapName][spawnNo]
               repeat
                    tilex, tiley = math.random(spawn[1][1], spawn[2][1]), math.random(spawn[1][2], spawn[2][2])
               until not gettile(tilex, tiley).SAFE and
                      not gettile(tilex, tiley).NOMONSTERS and
                      tile(tilex, tiley, "walkable") and
                      tile(tilex, tiley, "frame") ~= 34
               m.x, m.y = math.floor(tilex*32+16), math.floor(tiley*32+16)
               Monster:new(m)
          end
     end
     for _, m in ipairs(MONSTERS) do
          if t % m.atkspd == 0 then
               m.target = nil
               local closest
               for _, p in ipairs(table.shuffle(player(0, 'table'))) do
                    if player(p, 'health') > 0 and
                         not gettile(PLAYERS[p].x, PLAYERS[p].y).SAFE and
                         not gettile(PLAYERS[p].x, PLAYERS[p].y).NOMONSTERS then
                         local dist = math.sqrt((player(p, 'x')-m.x)^2 + (player(p, 'y')-m.y)^2)
                         if dist < 400 then
                              if not closest or dist < closest[2] then
                                   closest = {p, dist}
                              end
                         end
                    end
               end
               if closest then
                    local dist = closest[2]
                    if dist < 400 then
                         m.target = closest[1]
                         if m.spc and math.random(10000) <= m.spc[1] then
                              m.spc[2](m, m.target, dist)
                         elseif dist <= (m.range or 32) then
                              m:hit(m.target, 10)
                         end
                    end
               end
          end
          m.imgang = math.sin(t/2.5*math.pi) * 15
          if m.target and player(m.target, 'exists') and player(m.target, 'health') > 0 and
               not gettile(PLAYERS[m.target].x, PLAYERS[m.target].y).SAFE and
               not gettile(PLAYERS[m.target].x, PLAYERS[m.target].y).NOMONSTERS then
               xdist, ydist = player(m.target, 'x') - m.x, player(m.target, 'y') - m.y
               local dist = math.sqrt(xdist^2 + ydist^2)
               if dist < 400 then
                    m.ang = math.atan2(ydist, xdist)-math.pi/2+math.random(-1, 1)/2
               else
                    m.target = nil
               end
          end
          if not m.target then
               m:rot(math.random(-1, 1)/2)
          end
          if not m:move(m:rot(), m.health > m.runat and 1 or -1) then
               repeat until m:move(math.rad(math.random(360)), 1)
          end
     end
end

Problem solved

edited 1×, last 15.04.13 03:31:02 pm

16.04.13 12:57:54 pm

Jarates
User
Offline Off

@

KenVo How to add the players name upper?

17.04.13 12:41:36 am

nickitolas
User
Offline Off

Easy Jarates:
in hooks.lua find:
hudtxt2(id,0,player(id, 'usgn') ~= 0 and PLAYERS[id].name or "NOT LOGGED IN","255100100", 565, 395-CONFIG.PIXELS, 1)
and change the 565, 395-CONFIG.PIXELS for your x,y for name position.

I made a tibia edit with a spell sistem, health bars(represented with 5 hearts/20% each) and other things:
http://www.unrealsoftware.de/files_show.php?file=13477

23.04.13 09:50:41 am

Jarates
User
Offline Off

Please fix this error: LUA ERROR: sys/lua/cs2dtibia/hooks.lua:329: attempt to index field '?' (a nil value)

Spoiler

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35

addhook("ms100", "HEALTHbarsms100")
function HEALTHbarsms100()
     for _, id in ipairs(player(0, 'table')) do
          if      PLAYERS[id].tmp.equip[3].monstermessage >= 35 then
               hudtxt2(id,15, "", '255255255', 565, 389-CONFIG.PIXELS, 1)
               hudtxt2(id,16, "", '255255255', 565, 392-CONFIG.PIXELS, 1)
          else
               PLAYERS[id].tmp.equip[3].monstermessage = PLAYERS[id].tmp.equip[3].monstermessage + 1
          end
          if PLAYERS[id] and PLAYERS[id].tmp then
          if PLAYERS[id].x and PLAYERS[id].y then
               if PLAYERS[id].HP > 80 then
                    freeimage(PLAYERS[id].hpimage)
                    PLAYERS[id].hpimage = image("gfx/weiwen/100hp.png", 0, 1, id+200)
               elseif PLAYERS[id].HP > 60 then
                    freeimage(PLAYERS[id].hpimage)
                    PLAYERS[id].hpimage = image("gfx/weiwen/80hp.png", 0, 1, id+200)
               elseif PLAYERS[id].HP > 40 then
                    freeimage(PLAYERS[id].hpimage)
                    PLAYERS[id].hpimage = image("gfx/weiwen/60hp.png", 0, 1, id+200)
               elseif PLAYERS[id].HP > 20 then
                    freeimage(PLAYERS[id].hpimage)
                    PLAYERS[id].hpimage = image("gfx/weiwen/40hp.png", 0, 1, id+200)
               else
                    freeimage(PLAYERS[id].hpimage)
                    PLAYERS[id].hpimage = image("gfx/weiwen/20hp.png", 0, 1, id+200)
               end
          end
          else
               if PLAYERS[id].hpimage then
                    freeimage(PLAYERS[id].hpimage)
               end
          end
     end
end

Line 329 =

Code:

1

if PLAYERS[id].tmp.equip[3].monstermessage >= 35 then

Forum

Tibia script thread (Post tibia requests here)

Gaming Network

Games

Info

Community