Menu
What's new
By:
Filters

Movements Hit! Transform ring jaki ka?dy zna!!

Dubler

Dubler

Lua Factory =)
Joined
Apr 8, 2009
Messages
1,874
Reaction score
112
Elo, 5 dni szuka?em skryptu na tzw transform ring... probowalem przeniesc z roxora ale nie dzia?a?o ;|..... ale w ko?cu znalaz?em, a nikt na tnecie nie byl sk?onny podzieli? si? tym skryptem i nigdzie go nie by?o wi?c daje go ja! ?eby inni nie szukali ;>
skrypt daje:
=> 130 skilow wiecej (pokaze jak zmienic)
=> 80% hp i mana wiecej (pokaze jak zmienic)
=> zamienia w ghazgabana tylko z innymi kolorkami
=> respi ca?? mane i hp (mo?na to usun??
=> jak si? ko?czy kasa to bangle znika (mo?na zmieni? by nie znika?a)
=> z?era 1gp/s a zamiana w demona kosztuje 100gp (mo?na zmieni? na platynki albo cc)
skrypt nie jest moj ale obja?niam jak go u?y?:
1. tworzymi plik chaosbangle.lua w data/movements/scripts i wklejamy tam to:
Code: 
local outfit =
{
-- Girls
{
lookType = 12,
lookHead = 19,
lookBody = 53,
lookLegs = 92,
lookFeet = 79,
lookAddons = 0
},
-- Boys
{
lookType = 12,
lookHead = 19,
lookBody = 79,
lookLegs = 3,
lookFeet = 81,
lookAddons = 0
}
}
local coinID = ITEM_GOLD_COIN
local wastingInterval = 1000
local wastingQuantity = 1
local triggerQuantity = 100
local warnOnLowSupply = TRUE
local lowSupplyMargin = 200
local storage = 50780
-- Config << --
local condition1 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition1, CONDITION_PARAM_TICKS, -1)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FIST, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_CLUB, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SWORD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_AXE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_DISTANCE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SHIELD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAGICPOINTS, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 180)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 180)
local condition2 = createConditionObject(CONDITION_HASTE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, -1)
setConditionFormula(condition2, 2.5, 0, 3.0, 0)
local area = createCombatArea({
{0, 0, 0, 1, 0, 0, 0},
{0, 1, 0, 0, 0, 1, 0},
{0, 0, 0, 0, 0, 0, 0},
{1, 0, 0, 2, 0, 0, 1},
{0, 0, 0, 0, 0, 0, 0},
{0, 1, 0, 0, 0, 1, 0},
{0, 0, 0, 1, 0, 0, 0}
})
local animCombat = 
{
createCombatObject(),
createCombatObject()
}
local sexyEffect =
{
CONST_ME_FIREWORK_RED,
CONST_ME_FIREWORK_YELLOW,
CONST_ME_MAGIC_RED,
CONST_ME_MAGIC_GREEN
}
setCombatParam(animCombat[2], COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA)
setCombatParam(animCombat[2], COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SMALLHOLY)
setCombatParam(animCombat[1], COMBAT_PARAM_EFFECT, CONST_ME_FIREWORK_RED)
setCombatParam(animCombat[1], COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_FIRE)
setCombatArea(animCombat[2], area)
setCombatArea(animCombat[1], area)
local function StopSuperForm(cid)
if (getPlayerStorageValue(cid, storage) == 1) then
setPlayerStorageValue(cid, storage, 0)
doRemoveCondition(cid, CONDITION_OUTFIT)
doRemoveCondition(cid, CONDITION_ATTRIBUTES)
doRemoveCondition(cid, CONDITION_HASTE)
end
return TRUE
end
local function SuperForm(cid, sexIndex)
if (isCreature(cid)) then
if (getPlayerStorageValue(cid, storage) == 1) then
local goldLeft = getPlayerItemCount(cid, coinID)
if (goldLeft >= wastingQuantity) then
local position = getCreaturePosition(cid)
doPlayerRemoveItem(cid, coinID, wastingQuantity)
doSendMagicEffect(position, sexyEffect[sexIndex + 2])
doSendMagicEffect(position, sexyEffect[sexIndex])
if (goldLeft <= lowSupplyMargin and warnOnLowSupply == TRUE) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Coins left: " ..(goldLeft - wastingQuantity) .. "!")
end
addEvent(SuperForm, wastingInterval, cid, sexIndex)
else
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Your bangle has been destroyed!")
doPlayerRemoveItem(cid, 2127, 1)
return StopSuperForm(cid)
end
end
end
end
function onEquip(cid, item, slot)
if (getPlayerItemCount(cid, coinID) > triggerQuantity and getPlayerStorageValue(cid, storage) ~= 1) then
local sexIndex = getPlayerSex(cid) + 1
doCombat(cid, animCombat[sexIndex], numberToVariant(cid))
doSetCreatureOutfit(cid, outfit[sexIndex], -1)
setPlayerStorageValue(cid, storage, 1)
doAddCondition(cid, condition1)
doAddCondition(cid, condition2)
doCreatureAddHealth(cid, getCreatureMaxHealth(cid) - getCreatureHealth(cid))
doPlayerAddMana(cid, getPlayerMaxMana(cid) - getPlayerMana(cid)) 
doPlayerRemoveItem(cid, coinID, triggerQuantity)
SuperForm(cid, sexIndex)
elseif (getPlayerStorageValue(cid, storage) == 1) then
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You cannot equip this now!")
else
doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You do not have enough coins!")
end
return TRUE
end
function onDeEquip(cid, item, slot)
return StopSuperForm(cid)
end
2. wrzucamy do data/movements/movements.xml to:
Code: 
<movevent type="Equip" itemid="2127" slot="ring" event="script" value="chaosbangle.lua"/>
<movevent type="DeEquip" itemid="2127" slot="ring" event="script" value="chaosbangle.lua"/>
3. teraz obja?nie jak go zkonfigurowa?:
Code: 
local outfit =
{
-- Girls
{
lookType = 12,
lookHead = 19,
lookBody = 53,
lookLegs = 92,
lookFeet = 79,
lookAddons = 0
},
-- Boys
{
lookType = 12,
lookHead = 19,
lookBody = 79,
lookLegs = 3,
lookFeet = 81,
lookAddons = 0
}
}
[COLOR="White"]local coinID = ITEM_GOLD_COIN
local wastingInterval = 1000
local wastingQuantity = 1
local triggerQuantity = 100
local warnOnLowSupply = TRUE[/COLOR]
local lowSupplyMargin = 200
local storage = 50780
-- Config << --
local condition1 = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition1, CONDITION_PARAM_TICKS, -1)
[COLOR="DarkGreen"]setConditionParam(condition1, CONDITION_PARAM_SKILL_FIST, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_CLUB, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SWORD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_AXE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_DISTANCE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SHIELD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAGICPOINTS, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 180)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 180)[/COLOR]
local condition2 = createConditionObject(CONDITION_HASTE)
setConditionParam(condition2, CONDITION_PARAM_TICKS, -1)
setConditionFormula(condition2, 2.5, 0, 3.0, 0)
local area = createCombatArea({
{0, 0, 0, 1, 0, 0, 0},
{0, 1, 0, 0, 0, 1, 0},
{0, 0, 0, 0, 0, 0, 0},
{1, 0, 0, 2, 0, 0, 1},
{0, 0, 0, 0, 0, 0, 0},
{0, 1, 0, 0, 0, 1, 0},
{0, 0, 0, 1, 0, 0, 0}
})
local animCombat = 
{
createCombatObject(),
createCombatObject()
}
local sexyEffect =
{
CONST_ME_FIREWORK_RED,
CONST_ME_FIREWORK_YELLOW,
CONST_ME_MAGIC_RED,
CONST_ME_MAGIC_GREEN
}
setCombatParam(animCombat[2], COMBAT_PARAM_EFFECT, CONST_ME_HOLYAREA)
setCombatParam(animCombat[2], COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SMALLHOLY)
setCombatParam(animCombat[1], COMBAT_PARAM_EFFECT, CONST_ME_FIREWORK_RED)
setCombatParam(animCombat[1], COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_FIRE)
setCombatArea(animCombat[2], area)
setCombatArea(animCombat[1], area)
local function StopSuperForm(cid)
if (getPlayerStorageValue(cid, storage) == 1) then
setPlayerStorageValue(cid, storage, 0)
doRemoveCondition(cid, CONDITION_OUTFIT)
doRemoveCondition(cid, CONDITION_ATTRIBUTES)
doRemoveCondition(cid, CONDITION_HASTE)
end
return TRUE
end
local function SuperForm(cid, sexIndex)
if (isCreature(cid)) then
if (getPlayerStorageValue(cid, storage) == 1) then
local goldLeft = getPlayerItemCount(cid, coinID)
if (goldLeft >= wastingQuantity) then
local position = getCreaturePosition(cid)
doPlayerRemoveItem(cid, coinID, wastingQuantity)
doSendMagicEffect(position, sexyEffect[sexIndex + 2])
doSendMagicEffect(position, sexyEffect[sexIndex])
if (goldLeft <= lowSupplyMargin and warnOnLowSupply == TRUE) then
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Coins left: " ..(goldLeft - wastingQuantity) .. "!")
end
addEvent(SuperForm, wastingInterval, cid, sexIndex)
else
[COLOR="Red"]doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Your bangle has been destroyed!")
doPlayerRemoveItem(cid, 2127, 1)[/COLOR]
return StopSuperForm(cid)
end
end
end
end
function onEquip(cid, item, slot)
if (getPlayerItemCount(cid, coinID) > triggerQuantity and getPlayerStorageValue(cid, storage) ~= 1) then
local sexIndex = getPlayerSex(cid) + 1
doCombat(cid, animCombat[sexIndex], numberToVariant(cid))
doSetCreatureOutfit(cid, outfit[sexIndex], -1)
setPlayerStorageValue(cid, storage, 1)
doAddCondition(cid, condition1)
doAddCondition(cid, condition2)
[COLOR="DarkOrange"]doCreatureAddHealth(cid, getCreatureMaxHealth(cid) - getCreatureHealth(cid))
doPlayerAddMana(cid, getPlayerMaxMana(cid) - getPlayerMana(cid)) [/COLOR]
doPlayerRemoveItem(cid, coinID, triggerQuantity)
SuperForm(cid, sexIndex)
elseif (getPlayerStorageValue(cid, storage) == 1) then
[COLOR="Magenta"]doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You cannot equip this now!")[/COLOR]
else
[COLOR="Lime"]doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You do not have enough coins!")[/COLOR]
end
return TRUE
end
function onDeEquip(cid, item, slot)
return StopSuperForm(cid)
end

local coinID = ITEM_GOLD_COIN <-- jaki rodzaj kasy (GOLD,PLATINUM, albo CRYSTAL
local wastingInterval = 1000 <-- jak cz?sto ma po?era? monety (1000 = 1 sek)
local wastingQuantity = 1 <-- ile ma po?era? w tym czasie monet
local triggerQuantity = 100 <-- ile ma bra? za przemiane si? w demona
local warnOnLowSupply = TRUE <-- czy ma ostrzega? o ma?ej ilo?ci monet

setConditionParam(condition1, CONDITION_PARAM_SKILL_FIST, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_CLUB, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SWORD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_AXE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_DISTANCE, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_SHIELD, 120)
setConditionParam(condition1, CONDITION_PARAM_SKILL_FISHING, 120)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAGICPOINTS, 120)
ile skili ma dodawa?


ile % max hp ma by? np (100 = normalnie, 200= 2x , 300=3x
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXHITPOINTSPERCENT, 180)
setConditionParam(condition1, CONDITION_PARAM_STAT_MAXMANAPOINTSPERCENT, 180)

doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Your bangle has been destroyed!") <-- informacja ?e ring zosta? zniszczony
doPlayerRemoveItem(cid, 2127, 1) <-- mo?na usun??, wtedy ring nie b?dzie znika? kiedy si? sko?czy kasa

doCreatureAddHealth(cid, getCreatureMaxHealth(cid) - getCreatureHealth(cid))
doPlayerAddMana(cid, getPlayerMaxMana(cid) - getPlayerMana(cid))
usu? je?li nie chcesz ?eby uzupe?nia?o man? i hp przy ka?dym za?o?eniu (lepiej usun??)

doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You cannot equip this now!")
informacja ?e nie mo?esz teraz za?o?y? tego ringa

doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You do not have enough coins!")
nie masz kasy :>

TESTOWANE NA TFS 0.3.5pl1

Prosz? o comment :>
 
G

Gm BonD

User
Joined
Nov 1, 2008
Messages
26
Reaction score
0
Odp: Hit! Transform ring jaki ka?dy zna!!

Boosko :) Bardzo ci dzi?kuje nareszcie to mam :D:D:D:D Dzi?kuje bardzo :p na skryptach sie za bardzo nie znam wi?c nie powiem co jest ?le ale ?adnie opisane.
 
Dubler

Dubler

Lua Factory =)
Joined
Apr 8, 2009
Messages
1,874
Reaction score
112
Odp: Hit! Transform ring jaki ka?dy zna!!

@up wszystko jest chyba dobrze po to co ma dzia?a? to dzia?a ;P
jakbym sie mia? ocenia? to bym sobie da? 9/10 ;p

COMMENT COMMENT!
 
MacGyver

MacGyver

Advanced User
Joined
Nov 2, 2009
Messages
189
Reaction score
10
Odp: Hit! Transform ring jaki ka?dy zna!!

Elo all ,Bardzo mi si? podoba ten skrypt wstawi? go na Ots i dam do Sms shopa. A tak propos ma kto? Server dedykowany (wszystko uzgodnimy)
Pzdr MacGyver
 
Geza1927

Geza1927

Senior User
Joined
May 23, 2008
Messages
538
Reaction score
91
Odp: Hit! Transform ring jaki ka?dy zna!!

Widzia?em chyba taki skrypt na ots'ie tylko ?e tam zamiast demona by? ghazbaran.
Jak dla mnie bomba, szczeg?lnie na roxor'y do sms shopu, gdy? to jednak bardzo du?o daj?.

10/10 ! je?li to twoje wykonanie to ?adnie.
 
asol10

asol10

Advanced User
Joined
Jul 19, 2008
Messages
322
Reaction score
13
Odp: Hit! Transform ring jaki ka?dy zna!!

Dzieki za ten skrypt!! Napewno mi sie przyda,ale gdybym pobra? silnik roxora to na 100% znalaz?bym ten skrypt w movements:p ale wielkie dzieki za wstawienie tego skyptu na forum:)
 
Dubler

Dubler

Lua Factory =)
Joined
Apr 8, 2009
Messages
1,874
Reaction score
112
Odp: Hit! Transform ring jaki ka?dy zna!!

@up
owszem, znalaz? by? go ale dzia?aj?cy pod tfs 0.2.5.. a ten jak wida? dzia?a tak?e pod 0.3+ :) taki bajerek
@down doda?e? do movements.xml co mia?e? doda??
 
Last edited:
Ziomal1214

Ziomal1214

Active User
Joined
Dec 10, 2008
Messages
123
Reaction score
2
Odp: Hit! Transform ring jaki ka?dy zna!!

dla mnie nie dzia?a wk?adam go i nic si? nie dzieje
 
S

Szybki

User
Joined
May 1, 2008
Messages
22
Reaction score
3
Odp: Hit! Transform ring jaki ka?dy zna!!

Mam to samo ;/ silnik niestety 8.1 tak?e tfs // nie wywala nawet errora w konsoli ;/
 
Dubler

Dubler

Lua Factory =)
Joined
Apr 8, 2009
Messages
1,874
Reaction score
112
Odp: Hit! Transform ring jaki ka?dy zna!!

@up to jest dla tfs 3.x
 
Maly Wizak

Maly Wizak

Advanced User
Joined
Oct 5, 2008
Messages
172
Reaction score
5
Odp: Hit! Transform ring jaki ka?dy zna!!

Ty dzia?a ,zmieni?em sobie all i all ok :)
A da?o by si? ,?e te kolory raz na 1h sie zmieniaj??];'
 
Dubler

Dubler

Lua Factory =)
Joined
Apr 8, 2009
Messages
1,874
Reaction score
112
Odp: Hit! Transform ring jaki ka?dy zna!!

@up
da?o by si?... to trzeba by by?o ustawi? ?e je?li interval czasu = 60000 wtedy setPlayer Kolorki na losowo inne... ale ja tego nie umiem... napisz do Rahima albo Gelia to ci pomog?... chod? co do gelia to mam pewne w?tpliwo?ci bo ostatnio ci?gle si? wykr?ca ?e nie umie...
 
G

GoD Xana

New User
Joined
Dec 19, 2009
Messages
1
Reaction score
0
Odp: Hit! Transform ring jaki ka?dy zna!!

bardzo fajny skrypt tylko ?e nie dzia?a na tibi 8.54... crashuje serwer
 
B

batman2000

User
Joined
Jan 21, 2010
Messages
17
Reaction score
0
Odp: Hit! Transform ring jaki ka?dy zna!!

mi niestety nie dziala niemam pojecia czemu
 
PandoraOTS

PandoraOTS

Active User
Joined
Oct 14, 2009
Messages
60
Reaction score
0
Odp: Hit! Transform ring jaki ka?dy zna!!

data/movements/scripts/chaosbangle.lua:251: attempt to index local 'pos' (a boolean value)
stack traceback:
data/movements/scripts/chaosbangle.lua:251: in function <data/movements/scripts/chaosbangle.lua:245>

Taki B??d wyskakuje
 
Y

yoko995

User
Joined
Mar 23, 2009
Messages
11
Reaction score
0
Odp: Hit! Transform ring jaki ka?dy zna!!

fajny skrypt tylko ze mi tez crashuje serwer tfs 8.54 ;(
 
Drakee

Drakee

Advanced User
Joined
Oct 8, 2009
Messages
152
Reaction score
14
Odp: Hit! Transform ring jaki ka?dy zna!!

Wszystko dzia?a jak nale?y, wielkie dzi?ki za wstawienie tego Trasform Ring'a na forum...
Dostajesz Reputa
Moja ocena skryptu : 10/10
 
K

Kladi

Advanced User
Joined
Jun 14, 2008
Messages
150
Reaction score
5
Odp: Hit! Transform ring jaki ka?dy zna!!

Witam!
Mam pytanie co do skryptu. Czy jest mozliwosc zeby ring dodawal skile w procentach a nie w skilach??

Pozdrawiam!
 
Last edited:
I

iras061

Active User
Joined
Oct 24, 2009
Messages
72
Reaction score
4
Odp: Hit! Transform ring jaki ka?dy zna!!

Witam ja mam taki problem , ?e zrobi?em wszystko jak napisane tam by?o i wyskakuj? mi 2 takie b??dy :
?adowanie systemu skrypt?w
Error: [MoveEvent::configureMoveEvent] No valid event name script
Warning: [BaseEvents::loadFromXml] Can not configure event
Error: [MoveEvent::configureMoveEvent] No valid event name script
Warning: [BaseEvents::loadFromXml] Can not configure event

M?g?by kto? powiedzie? o co kaman z g?ry dzi?kuje !
 
D

Daaawid

User
Joined
Feb 25, 2010
Messages
12
Reaction score
0
Odp: Hit! Transform ring jaki ka?dy zna!!

Na Stigmie 8.5 nie dzia?a mi:

Error: [MoveEvent::configureMoveEvent] No valid event name script
Warning: [BaseEvents::loadFromXml] Can not configure event

Prosz? o pomoc.
 
You must log in or register to reply here.
Top