Forum

CS2D

Scripts

Tibia script thread (Post tibia requests here)

Forums overview CS2D overview Scripts overview Log in to reply

Tibia script thread (Post tibia requests here)

347 replies

1 2 … 12 13 14 … 17 18

Re: Tibia script thread (Post tibia requests here)

KenVo
User Off

Offline

05.04.13 06:41:48 pm

Can someone give a new request I'm bored

Re: Tibia script thread (Post tibia requests here)

Conscience
User Off

Offline

05.04.13 06:44:53 pm

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.

Re: Tibia script thread (Post tibia requests here)

KenVo
User Off

Offline

05.04.13 07:15:50 pm

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

speed

TopNotch
User Off

Offline

06.04.13 11:30:14 pm

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?

Re: Tibia script thread (Post tibia requests here)

KenVo
User Off

Offline

06.04.13 11:34:09 pm

Replace your updateEQ function in functions.lua with this

Spoiler

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)

Re: Tibia script thread (Post tibia requests here)

Me Gusta
User Off

Offline

06.04.13 11:36:36 pm

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

Re: Tibia script thread (Post tibia requests here)

KenVo
User Off

Offline

06.04.13 11:42:26 pm

You mean bow costs 1 arrow everytimes you shoot?

Re: Tibia script thread (Post tibia requests here)

Me Gusta
User Off

Offline

07.04.13 03:19:11 am

Yes, you have the code or script?

Re: Tibia script thread (Post tibia requests here)

KenVo
User Off

Offline

07.04.13 03:39:00 am

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

Re: Tibia script thread (Post tibia requests here)

Xirot
User Off

Offline

07.04.13 01:20:25 pm

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

Re: Tibia script thread (Post tibia requests here)

Me Gusta
User Off

Offline

07.04.13 05:55:44 pm

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

Hello

-FQ
User

Offline

09.04.13 12:37:40 pm

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

Re: Tibia script thread (Post tibia requests here)

Conscience
User Off

Offline

09.04.13 02:08:32 pm

-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.

Re: Tibia script thread (Post tibia requests here)

Jarates
User Off

Offline

12.04.13 03:11:29 pm

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

Re: Tibia script thread (Post tibia requests here)

KenVo
User Off

Offline

13.04.13 11:34:11 pm

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

config.lua

Add this code to the CONFIG table

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:

1
2

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

2. Add this function to functions.lua:

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.

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

mana and fishing.

UBMaster
BANNED Off

Offline

14.04.13 01:15:43 pm

KenVo:

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

Re: Tibia script thread (Post tibia requests here)

SilentDash
User Off

Offline

14.04.13 05:49:26 pm

Can someone fix this Lua Error?

Spoiler

line 213

whole function

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

Re: Tibia script thread (Post tibia requests here)

Jarates
User Off

Offline

16.04.13 12:57:54 pm

KenVo How to add the players name upper?

Re: Tibia script thread (Post tibia requests here)

nickitolas
User Off

Offline

17.04.13 12:41:36 am

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

Re: Tibia script thread (Post tibia requests here)

Jarates
User Off

Offline

23.04.13 09:50:41 am

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

Spoiler

Line 329 =

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

1 2 … 12 13 14 … 17 18