[7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

Malaks · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

w monsters jest juz taki ;d

Xero Magican · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

Ten skrypt nie dzia?a? bo zabrak?o mu kilku linijek:

Kod:

function onUse(cid, item, frompos, item2, topos)
local reqitem = XXXX -- jaki item
local getitemc = getPlayerItemCount(cid,reqitem)
if item.itemid == 9004 then
	if(getitemc > 0)then
		doSendAnimatedText([B]pos[/B], "10mln exp!" , math.random(1, 255))
		doPlayerAddExp(cid, 10000000)
		doSendMagicEffect([B]fromPosition[/B], CONST_ME_GIFT_WRAPS)
		doPlayerRemoveItem(cid, reqitem, getitemc)
	else
		doPlayerRemoveItem(cid, reqitem, getitemc)
	end
end
end

A gdzie zdefiniowanie tego co pogrubionym drukiem?

Poprawi?em to ^^
A chcia?bym aby przy u?yciu exp scrolla nie usuwa?o mi innych, kt?re mam w backpacku.

2. Podpinam jeszcze jedn? pro?b?(w kolejce oczywi?cie po poprzednim po?cie)
Silnik: TFS 0.3.5
Tibia 8.5

Kod:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HEALING)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, FALSE)
setCombatParam(combat, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, 1.535, 0, 1.88, 0)
local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_HEALING)
setCombatParam(combat1, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_GREEN)
setCombatParam(combat1, COMBAT_PARAM_AGGRESSIVE, FALSE)
setCombatParam(combat1, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, 1.535, 0, 1.88, 0)
local combat2 = createCombatObject()
setCombatParam(combat2, COMBAT_PARAM_TYPE, COMBAT_HEALING)
setCombatParam(combat2, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatParam(combat2, COMBAT_PARAM_AGGRESSIVE, FALSE)
setCombatParam(combat2, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)
setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, 1.535, 0, 1.88, 0)
local combat3 = createCombatObject()
setCombatParam(combat3, COMBAT_PARAM_TYPE, COMBAT_HEALING)
setCombatParam(combat3, COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA)
setCombatParam(combat3, COMBAT_PARAM_AGGRESSIVE, FALSE)
setCombatParam(combat3, COMBAT_PARAM_DISPEL, CONDITION_PARALYZE)
setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, 4.605, 0, 5.64, 0)

function onCastSpell(cid, var)
local function onCastSpell1(parameters)
doCombat(parameters.cid, parameters.combat, parameters.var)
end
local function onCastSpell2(parameters)
doCombat(parameters.cid, parameters.combat1, parameters.var)
end
local function onCastSpell3(parameters)
doCombat(parameters.cid, parameters.combat2, parameters.var)
end
local function onCastSpell4(parameters)
doCombat(parameters.cid, parameters.combat3, parameters.var)
end
function onCastSpell(cid, var)
local parameters = { cid = cid, var = var, combat = combat, combat1 = combat1, combat2 = combat2, combat3 = combat3 }
addEvent(onCastSpell1, 0, parameters)
addEvent(onCastSpell2, 100, parameters)
addEvent(onCastSpell3, 100, parameters)
addEvent(onCastSpell4, 200, parameters)
end
end

Chcia?bym aby ten czar dzia?a? przy wypowiadaniu inkantacji. Tak si? w?a?nie sk?ada, ?e ?adnego b??du w konsoli nie mam, a mimo to nie dzia?a mi ten czar.

Dzia?anie:
Czar, kt?ry leczy 4 razy z odst?pami czasowymi 1 sec.
Spells.xml sam ustawi?...

Matre · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

Jak tak dalej p?jdzie to temat zostanie zamkni?ty, skrypty maj? by? testowane a temat prowadzony w porz?dku przez autor?w...
Posty typu "nie testowa?em, masz skrypt: xxxxxxxxx" prowadz? do spamu, p??niej okazuje si?, ?e skrypt nie dzia?a i mamy nabijanie post?w po kilka razy do tego samego skryptu.

pr0 · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

1.Evolutions by Skatten
2.8.10
3.Marihuanna.

Nie mog?em znale?? marihuanny kt?ra jak si? jej u?yje zeby char w tibi by? po niej tak jakby upity!

Virtelio · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

@pr0
Zrobi?em na szybko. Dzia?a na 8.1,testowa?em osobi?cie.

Kod:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_POFF)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, 0)
local condition = createConditionObject(CONDITION_DRUNK)
setConditionParam(condition, CONDITION_PARAM_TICKS, 10 * 60 * 1000) -- 10 minut :P
setCombatCondition(combat, condition)
function onUse(cid, item, frompos, item2, topos)
var = numberToVariant(cid)
doCombat(cid, combat, var)
doPlayerSay(cid, "Puf Puf", TALKTYPE_ORANGE_1)
doRemoveItem(item.uid,1)
end

@Xero Magican
Ze spellami to do Miziaka.
@Down
Nie mo?liwe. Tylko C++,a w Aries tego nie zrobisz bo autor Source nie udostepni?... ;p

ArtekBoss · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

Aries 0.4.0a
8.1
Chcialbym was prosic o zrobienie skryptu kt?ry polega na zadawanie obrazen z 2 broni naraz
czyli np Knight ma 2 spike swordy i bije nimi na przemian.

ukiandoki · Październik 29, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

1.Silnik - TFS 0.2.10
2.Klient - 8.10
3.Dzia?anie skryptu:
1. Po wpisaniu Change jesli gracz posiada jab?ko i odpowiedni lewel, jablko znika, a na miejscu broni w eq pojawia si? fire sword kt?ry po 3 minutach sam zniknie i pojawi si? jab?ko, a je?li ktos go ?ciagnie i min? 3 minuty ta osoba ginie a tamten fire sword zamienia sie w rabbish

cycu656 · Listopad 4, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

1. Silnik - Evolutionbysentil Aries 0.4.0
2.Klient - 8.10
3. Dzia?anie skryptu:
potrzebuje skrypty ze jak klikam na kamie? to zabiera mi np. 5k i daje bp sd'kow/m wali/manasow/ itp ... Je?li co? ?le napisa?em nie rozumiesz o co chodzi to pisz prywatna

krysteek · Listopad 4, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

To ja bede czeka? w kolejce

Silnik: Nowots [Evolution 7.8.9]
Klient: 7.92
Prosz? o przerobienie ni?ej tego skryptu aby uczy? spelli poprawnie, poniewa? nie dzia?a :[

Kod:

local focus = 0
local talk_start = 0
local target = 0
local days = 0

function onThingMove(creature, thing, oldpos, oldstackpos)

end


function onCreatureAppear(creature)

end


function onCreatureDisappear(cid, pos)
  	if focus == cid then
          selfSay('Good bye then.')
          focus = 0
          talk_start = 0
  	end
end


function onCreatureTurn(creature)

end


function msgcontains(txt, str)
  	return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)'))
end


function onCreatureSay(cid, type, msg)
  	msg = string.lower(msg)

  	if (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 and getPlayerVocation(cid) == 2 or getPlayerVocation(cid) == 25 or getPlayerVocation(cid) == 28 then
 		selfSay('Hello ' .. creatureGetName(cid) .. '! I can teach you new jutsu: (sharingan), (katon housenka no jutsu), (Katon Goukakyuu No Jutsu), (sharigan stage two), (chidori) and (black chidori).')
 		focus = cid
 		talk_start = os.clock()
	
	elseif (msgcontains(msg, 'hi') and (focus == 0)) and getDistanceToCreature(cid) < 4 and getPlayerVocation(cid) ~= 1 then
  		selfSay('Sorry, ' .. creatureGetName(cid) .. '! I can only teach Sasuke.')

	elseif msgcontains(msg, 'hi') and (focus ~= cid) and getDistanceToCreature(cid) < 4 then
  		selfSay('Sorry, ' .. creatureGetName(cid) .. '! I talk to you in a minute.')


  	elseif focus == cid then
		talk_start = os.clock()

  		if msgcontains(msg, 'bye')  and getDistanceToCreature(cid) < 4 then
  			selfSay('Good bye, ' .. creatureGetName(cid) .. '!')
  			focus = 0
  			talk_start = 0
		end

		if msgcontains(msg, 'teach sharingan') then
 			if getPlayerSkill(cid,6) >= 30 and getPlayerLevel(cid) >= 14 then
  			doPlayerlearnSpell(cid,'sharingan',0)
				 if getPlayerSkill(cid,6) < 30 and getPlayerLevel(cid) >= 14 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have enough chakra control level.')

				 if getPlayerSkill(cid,6) >= 30 and getPlayerLevel(cid) < 14 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have required level.')
			end
		end
		end
		end
			

		if msgcontains(msg, 'katon housenka no jutsu') then
			if getPlayerSkill(cid,6) >= 40 and getPlayerLevel(cid) >= 17 then
  			learnSpell(cid,'konoha senpuu',0)
				 if getPlayerSkill(cid,6) < 40 and getPlayerLevel(cid) >= 17 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have enough chakra control level.')

				 if getPlayerSkill(cid,6) >= 40 and getPlayerLevel(cid) < 17 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have required level.')
			end
		end
		end
		end

		if msgcontains(msg, 'katon goukakyuu no jutsu') then
			if getPlayerSkill(cid,6) >= 45 and getPlayerLevel(cid) >= 20 then
  			learnSpell(cid,'konoha senpuu',0)
				 if getPlayerSkill(cid,6) < 45 and getPlayerLevel(cid) >= 20 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have enough chakra control level.')

				 if getPlayerSkill(cid,6) >= 45 and getPlayerLevel(cid) < 20 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have required level.')
			end
		end
		end
		end

		elseif msgcontains(msg, 'sharingan stage two') then
			if getPlayerSkill(cid,6) >= 50 and getPlayerLevel(cid) >= 30 then
  			learnSpell(cid,'konoha senpuu',0)
				 if getPlayerSkill(cid,6) < 50 and getPlayerLevel(cid) >= 30 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have enough chakra control level.')

				 if getPlayerSkill(cid,6) >= 50 and getPlayerLevel(cid) < 30 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have required level.')
				
  			end
		end
		end

		elseif msgcontains(msg, 'chidori') then
			if getPlayerSkill(cid,6) >= 70 and getPlayerLevel(cid) >= 50 then
  			learnSpell(cid,'konoha senpuu',0)
				 if getPlayerSkill(cid,6) < 70 and getPlayerLevel(cid) >= 50 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have enough chakra control level.')

				 if getPlayerSkill(cid,6) >= 70 and getPlayerLevel(cid) < 50 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have required level.')
				
  			end
		end
		end

		elseif msgcontains(msg, 'please black chidori') then
			if getPlayerSkill(cid,6) >= 90 and getPlayerLevel(cid) >= 80 then
  			learnSpell(cid,'konoha senpuu',0)
			 if getPlayerSkill(cid,6) < 90 and getPlayerLevel(cid) >= 80 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have enough chakra control level.')

				 if getPlayerSkill(cid,6) >= 90 and getPlayerLevel(cid) < 80 then
				selfSay('Sorry, ' .. creatureGetName(cid) .. '! You don\'t have required level.')
				
  			end
		end
		end



function onCreatureChangeOutfit(creature)

end


function onThink()
	doNpcSetCreatureFocus(focus)
  	if (os.clock() - talk_start) > 30 then
  		if focus > 0 then
  			selfSay('Next Please...')
  		end
  		end
  			focus = 0
  	end
 	if focus ~= 0 then
 		if getDistanceToCreature(focus) > 5 then
 			selfSay('Good bye then.')
 			focus = 0
 		end
 	end
 	end
 	end

Edzioooo · Listopad 4, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

1.Silnik The Forgotten Server, version 0.3.5 (Crying Damson)
2.Klient 8.5
3.Dzia?anie skryptu.
Komis ze wpisujemy !komis i mozemy kupic lub wystawi? itemka i sprzeda? bardzo to potrzebuje.juz to kiedys bylo ale niemoge tego znalesc dam repucika

Kaszniarz · Listopad 6, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

1.Silnik : NoWots to chyba Evolution
2.Klient 7.92
3.Dzia?anie skryptu :

nowa komenda ,kt?ra daje look type. np. piszesz !looktype 72 Lolek i ten Lolek wygl?da jak looktype 72 ;] Pliska.

Sinres · Listopad 6, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

No to tak:
Silnik TFS 0.3.5pl
Klient 8.5
Dzia?anie:
Prosi? bym o skrypt.
Na danym terenie x,y,z panuje pvp-enfo.
Z g?ry dzi?kuje za pomoc
Reput w gotowo?ci

odswierzacz · Listopad 6, 2009

Odp: [7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

1. Devland
2. Tibia 8.10
3. Funkcja vote wiem ?e co? takiego mo?e by?o ale nie pod m?j silnik, najlepiej jakby bylo spolszczone tzn. /makevote "bleble. !tak !nie /anuluj itp

Z g?ry THX.

[7.x-8.x] Skrypty na zam?wienie by Virtelio&Miziak

Malaks

Active User

Xero Magican

User

Matre

Nie b?dzie ciszy...

pr0

New User

Virtelio

Senior User

ArtekBoss

User

ukiandoki

Active User

cycu656

User

krysteek

Advanced User

Edzioooo

Active User

Kaszniarz

New User

Sinres

Active User

odswierzacz

New User