Open Tibia Server
Zapraszamy na nowy Adres http://otibias.xad.pl
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Profil
Zaloguj się, by sprawdzić wiadomości
Zaloguj
Forum Open Tibia Server Strona Główna
->
Skrypty Ots
Napisz odpowiedź
Użytkownik
Temat
Treść wiadomości
Emotikony
Więcej Ikon
Kolor:
Domyślny
Ciemnoczerwony
Czerwony
Pomarańćzowy
Brązowy
Żółty
Zielony
Oliwkowy
Błękitny
Niebieski
Ciemnoniebieski
Purpurowy
Fioletowy
Biały
Czarny
Rozmiar:
Minimalny
Mały
Normalny
Duży
Ogromny
Zamknij Tagi
Opcje
HTML:
TAK
BBCode
:
TAK
Uśmieszki:
TAK
Wyłącz HTML w tym poście
Wyłącz BBCode w tym poście
Wyłącz Uśmieszki w tym poście
Kod potwierdzający: *
Wszystkie czasy w strefie CET (Europa)
Skocz do:
Wybierz forum
Forum
----------------
Otservlista
Regulamin
Accmakery
Publikacja Map
Forum
----------------
Drużyny OTS
Skrypty Ots
OTS
Pomoc
Inne
----------------
Hyde Park
Inne Gry
Real Tibia
Poradniki
Bannery
Inne strony
Pomoc-CZAT
Przegląd tematu
<table border="0" cellpadding="3" cellspacing="1" width="100%" class="forumline"> <tr> <th class="thCornerL" width="22%" height="26">Autor</th> <th class="thCornerR">Wiadomość</th> </tr> <tr> <td width="22%" align="left" valign="top" class="row1"><span class="name"><a name=""></a><b>maciek123</b></span></td> <td class="row1" height="28" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%"><img src="http://picsrv.fora.pl/subSilver/images/icon_minipost.gif" width="12" height="9" alt="Post" title="Post" border="0" /><span class="postdetails">Wysłany: Sob 15:25, 05 Sty 2008<span class="gen"> </span> Temat postu: Skrypty do 7.92 Evolutions i Gotowy Server</span></td> </tr> <tr> <td colspan="2"><hr /></td> </tr> <tr> <td colspan="2"><span class="postbody">Witam zaprezentuje kilka skryptów i gotowy ots evolution ściągany z tibia.org.pl i bardzo dobrze przerobiony. To nie wirus możecie skanować do woli <img src="http://picsrv.fora.pl/images/smiles/icon_smile.gif" alt="Smile" border="0" /> A więc... <br /> <br />- System najazdow (Dwarves, orcs, minotaurs, and elves fight each other) <br /> <br /> - System areny (Mozna zedytowac w creature.cpp (Creature::die)) <br /> <br /> - Premium teleport gdy pacc się skończy przenosi na facc area. (Configurable in config.lua) <br /> <br /> - Balansacja profesji <br /> <br /> - Działające soft boots <br /> <br /> - Ponad 50 questow <br /> <br /> - Potwory bardziej podobne do tych z rl tibi(loot, hity). <br /> <br /> - Teleport Potworów (Niektóre potwory na 1/3rd hp lub mniej teleportują się o 3 kratki, zostawiając uryne(<img src="http://picsrv.fora.pl/images/smiles/icon_biggrin.gif" alt="Very Happy" border="0" />).) <br /> <br /> - Highscores w grze (użyj !score <skill name>) <br /> <br /> - Poprawiono wiele bugów <br /> <br /> - 4.2 MB mapa posiada 1100 spawnów, stworzona przez Simen (Akkar on otfans) <br /> <br /> - 41 domkow <br /> <br /> - ,,Zbalansowane Czary" <br /> <br /> - Queasty na addony działają. <br /> <br /> - Questy przez actionid (Więcej w mapedytorze) <br /> <br /> - Niewidzialny GM (/invisible) <br /> <br /> - Calkiem stablny <br /> <br /> - Zapisywanie charów(automatyczne) <br /> <br /> - Raporty (reportaccess = 1 w config.lua) <br /> <br /> - Duzo ,,Talkakcji" <br /> <br /> - PowerRaft <br /> <br /> - Rook Teleports (Kiedy masz 8 lvl możesz wybrać profesje przez wejście w odpowiedni teleport "vocation teleports") <br /> <br /> <br />doCreateTeleport+Gem system <br /> <br />IO-czytanie/zapis plików <br />przykład: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">file = io.open("data/bank/"..name..".dat", "r")//open file(read) <br />line={} <br />line[1] = file:read("*line")//read line 1 <br />line[2] = file:read("*line")//read line 2 <br />line[3] = file:read("*line")//read line 3 <br />file:close()//close file <br /> <br />file = io.open("data/bank/"..name..".dat", "w")//open file(write) <br />file:write(""..line[1].."\n")//write line 1 <br />file:write(""..line[2].."\n")//write line 2 <br />file:write(""..line[3].."\n")//write line 3 <br />file:close()//close file</td> </tr></table><span class="postbody"> <br />doCreateTeleport-tworzy teleport do teleportPos w createPos <br />przykład <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">doCreateTeleport(1387, teleportPos, createPos)</td> </tr></table><span class="postbody"> <br />Gem System-buffy do broni zapisywane w graczach(ala diablo gem system)-wyciągnięty z Fra Diavolo (Killavus)+mój system odczytu i zapisu w xml <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">getGemAttackSpeed(item.uid) <br />setGemAttackSpeed(item.uid, speed) <br />getGemDefense(item.uid) <br />setGemDefense(item.uid, defense) <br />getGemAttack(item.uid) <br />setGemAttack(item.uid, attack)</td> </tr></table><span class="postbody"> <br />1.Edycja data/actions/lib/actions.lua <br />na końcu skryptu dodajemy: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">-- Azi's Quest system[by Azeroth#24] 1.7 -- <br />function Quest(puid, item, unique, itemid, count, actionid, desc) <br /> if count < 1 then <br /> count = count+1 <br /> end <br /> if (item.uid == unique) then <br /> if(getPlayerStorageValue(puid, unique) == -1) then <br /> local prize = doPlayerAddItem(puid, itemid, count) <br /> if(desc ~= "") then <br /> doSetItemSpecialDescription(prize, desc) <br /> end <br /> if(actionid > 0) then <br /> doSetItemActionId(prize, actionid) <br /> end <br /> setPlayerStorageValue(puid, unique, 1) <br /> if(count== 1) then <br /> doPlayerSendTextMessage(puid, 19, 'You have found '.. getItemName(itemid)..'.') <br /> else <br /> doPlayerSendTextMessage(puid, 19, 'You have found ' .. count .. ' '.. getItemName(itemid) .. '\'s.') <br /> end <br /> else <br /> doPlayerSendTextMessage(puid, 19, "It\'s empty.") <br /> end <br /> end <br />return unique <br />end <br /> <br />function containerQuest(puid, item, uniq, contid, items, counts) <br /> <br /> <br />if(table.getn(items) == table.getn(counts)) then <br />if(item.uid == uniq) then <br /> if(getPlayerStorageValue(puid, uniq) == -1) then <br /> cont = doPlayerAddItem(puid, contid, 1) <br /> doPlayerSendTextMessage(puid,19,'You have found a ' .. getItemName(contid) .. '.') <br /> x = 1 <br /> y = table.getn(items) <br /> for n= x, y do <br /> if counts[n] == 0 then <br /> counts = 1 <br /> end <br /> doAddContainerItem(cont, items[n], counts[n]) <br /> setPlayerStorageValue(puid,uniq,1) <br /> end <br /> else <br /> doPlayerSendTextMessage(puid,19,'It\'s empty.') <br /> end <br />end <br />else <br />print ":: ERROR! #bugged Quest!\nOne of your Container Quest\'s is bugged, please repair it!\nYou\'r Azi\'s Quest System." <br />end <br />return uniq <br />end <br /> <br /> <br />function randomQuest(puid, item, uniq, itemid, count) <br /> <br /> <br />if(table.getn(itemid)==table.getn(count))then <br />if(getPlayerStorageValue(puid, uniq) == -1) then <br />r=math.random(1, table.getn(itemid)) <br />doPlayerAddItem(puid, itemid[r], count[r]) <br />setPlayerStorageValue(puid, uniq, 1) <br />if(count[r] > 1)then <br />doPlayerSendTextMessage(puid, 19, 'You have found ' .. count[r] ..' ' .. getItemName(itemid[r]) .. '\'s.') <br />else <br />doPlayerSendTextMessage(puid, 19, 'You have found ' .. getItemName(itemid[r]) .. '.') <br />end <br />else <br />doPlayerSendTextMessage(puid, 19, 'It\'s empty.') <br />end <br />else <br />write "One of your Random Quests is bugged." <br />end <br /> return unique <br />end <br /> <br />function keyQuest(puid, item, item_id, key_id, uniq) <br /> if(item.uid==uniq)then <br /> if(getPlayerStorageValue(puid, uniq)==-1)then <br /> add_key = doPlayerAddItem(puid, item_id, 1) <br /> doSetItemActionId(add_key, key_id) <br /> setPlayerStorageValue(puid, uniq, 1) <br /> doPlayerSendTextMessage(cid, 19, 'You have found ' .. getItemName(item_id) .. '(ID: ' .. key_id .. ').') <br /> else <br /> doPlayerSendTextMessage(puid, 19, 'It\'s empty.') <br /> end <br /> end <br />return key_id, item_id <br />end <br /> <br />function escapingQuest(puid, item, maxescape, uniqueid, prize, count) <br /> <br />if(item.uid==uniqueid)then <br /> local escape=math.random(1, maxescape) <br /> local randpos=math.random(1,4) <br /> if(randpos==1)then <br /> local pos = {x=topos.x, y=topos.y-escape, z=topos.z} <br /> elseif(randpos==2)then <br /> local pos = {x=topos.x, y=topos.y+escape, z=topos.z} <br /> elseif(randpos==3)then <br /> local pos = {x=topos.x-escape, y=topos.y, z=topos.z} <br /> elseif(randpos==4)then <br /> local pos = {x=topos.x+escape, y=topos.y, z=topos.z} <br /> end <br /> <br /> local dotp = {x=pos.x, y=pos.y, z=pos.z, stackpos=1} <br /> local empty=getThingfromPos(dotp) <br /> <br /> if(empty.itemid>0)then <br /> local tp = false <br /> else <br /> local tp = true <br /> end <br /> <br /> if(tp==true)then <br /> doTeleportThing(item.uid, pos) <br /> doSendAnimatedText(pos, "HAHAHAHA!", math.random(1,255)) <br /> else <br /> doPlayerAddItem(puid, prize, count) <br /> end <br />end <br />return escape, randpos <br />end <br /> <br />-- end of Azi's quest system[by Azeroth#24] --</td> </tr></table><span class="postbody"> <br />2. data/actions/scripts/quest.lua <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">function onUse(cid, item, frompos, item2, topos)</td> </tr></table><span class="postbody"> <br />-- normalny quest -- <br />Quest(cid, item, UNIQUE ID SKRZYNKI, ITEM ID NAGRODY, ILOŚĆ NAGRODY, ACTION ID NAGRODY, "SpECjalny opis") <br /> <br />-- quest z itemami w bp -- <br />ZMIENNA TABELI Z ITEMID(NP. itemy) = {ITEMID nAGRODY 1, ITEMID nAGRODY 2, ITEMID nAGRODY 3} <br />ZMIENNA TABELI Z ILOSCIA(NP. count) = {ILOSC NAGRODY 1, ILOSC NAGRODY 2, ILOSC NAGRODY 3} <br /> <br />addQuestContainer(cid, item, UNIque ID SKRZYNKI, ID BP(albo innego kontenera), Zmienna tabeli z itemid, zmienna tabeli z count) <br /> <br />-- Random Quest -- <br /> <br /> <br /> <br />losowe_itemy={2472, 2466, 2160} -- losowe itemy(ID) - jeden po drugim <br />losowa_ilosc={1, 1, 54} -- ilosc itemow losowych(uklad taki jak w item id losowych) <br /> <br />addQuestRandom(cid, item, UNIQUE ID, losowe_itemy, losowa_ilosc) <br /> <br /> <br />-- Key Quest <br /> <br />keyQuest(cid, item, ITEMID KLUCZA, Action ID KLUCZA, Unique ID Skrzynki) <br /> <br /> <br />-- Escape Quest <br /> <br />escapingQuest(cid, item, NA ILE KRATEK MOZE ODSKOCZYC SKRzynka, UNIQUEID SKRZYNKI, ITEMID NAGRODY, COUNT NAGRODY) <br /> <br />return 1 <br />end <br /> <br />przykładowy quest.lua w którym są 3 questy <br /> <br />function onUse(cid, item, frompos, item2, topos) <br /> <br />Quest(cid, item, 1001, 2160, 5, 0, "") <br />Quest(cid, item, 1002, 2407, 1, 0, "jakis tam opis") <br />Quest(cid, item, 1003, 2171, 1, 852, "Quest zrobiony przy pomocy quest systemu by Azeroth#24.") <br /> <br />-- QUEST Z ITEMAMI W BP -- <br /> <br /> <br />itemy1 = {2472, 2160, 2152, 2148, 2123} <br />count1 = {1, 60, 52, 48, 1} <br /> <br />containerQuest(cid, item, 2001, 2001, itemy1, count1) <br /> <br />-- Random Quest -- <br /> <br /> <br /> <br />itemy={2472, 2466, 2160} <br />ilosc={1, 1, 54} <br /> <br />randomQuest(cid, item, 8889, itemy, ilosc) <br /> <br />-- Key Quest <br />keyQuest(cid, item, 2169, 666, 2626) <br /> <br />-- Escape Quest <br /> <br />escapingQuest(cid, item, 3, 6767, 2472, 1) <br /> <br />eturn 1 <br />end <br />jak chcemy dodać quest dodajemy linijke do quest.lua i dajemy skrzynce unique id podane w linijce. <img src="http://picsrv.fora.pl/images/smiles/icon_smile.gif" alt="Smile" border="0" /> <br />jedna linijka <br /> <br />Quest(cid,item, ...) <br /> <br /> <br /> <br /> <br />Inventory item odbija obrażenia <br /> <br />W pliku items.h w strukturze Abilities: <br />Pod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">absorbPercentDrown = 0;</td> </tr></table><span class="postbody"> <br />Dodajemy: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">returnDamage = 0;</td> </tr></table><span class="postbody"> <br />I pod: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">uint8_t absorbPercentDrown;</td> </tr></table><span class="postbody"> <br />Dodajemy: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">uint32_t returnDamage;</td> </tr></table><span class="postbody"> <br />W pliku items.cpp: <br />Pod: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">else if(strcasecmp(strValue.c_str(), "runeSpellName") == 0){ <br /> if(readXMLString(itemAttributesNode, "value", strValue)){ <br /> it.runeSpellName = strValue; <br /> } <br />}</td> </tr></table><span class="postbody"> <br />Dodajemy: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">else if(strcasecmp(strValue.c_str(), "returnDamage") == 0){ <br /> if(readXMLInteger(itemAttributesNode, "value", intValue)){ <br /> it.abilities.returnDamage = intValue; <br /> } <br />}</td> </tr></table><span class="postbody"> <br />W pliku game.cpp: <br />Pod: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">bool Game::combatChangeHealth(CombatType_t combatType, Creature* attacker, Creature* target, <br /> int32_t healthChange, bool checkDefense /* = false */, bool checkArmor /* = false */) <br />{ <br /> const Position& targetPos = target->getPosition(); <br /> <br />bool Game::combatChangeHealth(CombatType_t combatType, Creature* attacker, Creature* target, <br /> int32_t healthChange, bool checkDefense /* = false */, bool checkArmor /* = false */) <br />{ <br /> const Position& targetPos = target->getPosition(); <br /> <br />const Position& attackerPos = attacker->getPosition(); <br />double returnDamage = 0;</td> </tr></table><span class="postbody"> <br />Pod: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">damage = std::min(target->getHealth(), damage); <br /> if(damage > 0){</td> </tr></table><span class="postbody"> <br />Dodajemy: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">if(target->getPlayer()){ <br /> Player *player = target->getPlayer(); <br /> <br /> Item* item = player->getInventoryItem(SLOT_HEAD); <br /> if(item){ <br /> const ItemType& head = Item::items[item->getID()]; <br /> if(head.abilities.returnDamage != 0){ <br /> returnDamage += head.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_NECKLACE); <br /> if(item){ <br /> const ItemType& neck = Item::items[item->getID()]; <br /> if(neck.abilities.returnDamage != 0){ <br /> returnDamage += neck.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_ARMOR); <br /> if(item){ <br /> const ItemType& armor = Item::items[item->getID()]; <br /> if(armor.abilities.returnDamage != 0){ <br /> returnDamage += armor.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_LEGS); <br /> if(item){ <br /> const ItemType& legs = Item::items[item->getID()]; <br /> if(legs.abilities.returnDamage != 0){ <br /> returnDamage += legs.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_FEET); <br /> if(item){ <br /> const ItemType& feet = Item::items[item->getID()]; <br /> if(feet.abilities.returnDamage != 0){ <br /> returnDamage += feet.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_RING); <br /> if(item){ <br /> const ItemType& ring = Item::items[item->getID()]; <br /> if(ring.abilities.returnDamage != 0){ <br /> returnDamage += ring.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_LEFT); <br /> if(item){ <br /> const ItemType& left = Item::items[item->getID()]; <br /> if(ring.abilities.returnDamage != 0){ <br /> returnDamage += left.abilities.returnDamage; <br /> } <br /> } <br /> <br /> item = player->getInventoryItem(SLOT_RIGHT); <br /> if(item){ <br /> const ItemType& right = Item::items[item->getID()]; <br /> if(right.abilities.returnDamage != 0){ <br /> returnDamage += ring.abilities.returnDamage; <br /> } <br /> } <br /> returnDamage /= 100; <br />} <br /> if(!(int)(returnDamage*damage) == 0) <br /> attacker->drainHealth(target, combatType, (int)(returnDamage*damage));</td> </tr></table><span class="postbody"> <br />I pod: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">std::stringstream ss; <br />ss << damage; <br />addMagicEffect(list, targetPos, hitEffect); <br />addAnimatedText(list, targetPos, textColor, ss.str());</td> </tr></table><span class="postbody"> <br />Dodajemy: <br />Kod: <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">ss.str(""); <br />if(!(int)(returnDamage*damage) == 0){ <br /> ss << (int)(returnDamage*damage); <br /> addMagicEffect(list, attackerPos, NM_ME_DRAW_BLOOD); <br /> addAnimatedText(list, attackerPos, TEXTCOLOR_ORANGE,"-" + ss.str());</td> </tr></table><span class="postbody"> <br />Teraz aby item miał właściwość returnDamage należy dodać w pliku items.xml pod nazwą itemu; <br /><attribute key="returnDamage" value = "XX"/> <br />Gdzie XX to procent obrażeń jaki ma odbijać przedmiot w atakującego. <br /> <br />Przykładowe działanie" <br /><attribute key="returnDamage" value = "50"/> <br />Gracz atakuje drugiego, który nosi ten item za 10 pkt obrażeń i sam otrzymuje 50% z tego. <br /> <br />A i mam dla was skrypt npc który spszedaje runy w bp w wersji polskiej...(niewidziałem takiego skryptu na forum) <br />no to zaczynamy : <br />Tworzymy plik Meler.lua w data/npc <br />i wpisujemy tu <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote"><?xml version="1.0"?> <br /> <br /><npc name="Meler" script="data/npc/scripts/bp_run.lua" access="3" lookdir="2" autowalk="1"> <br /> <mana now="800" max="800"/> <br /> <health now="200" max="200"/> <br /><look type="134" head="114" body="113" legs="113" feet="113"/> <br /></npc></td> </tr></table><span class="postbody"> <br />Następnie tworzymy plik bp_run.lua w data/npc/scripts <br />i wpisujemy tu <br /> <br /></span><table width="90%" cellspacing="1" cellpadding="3" border="0" align="center"><tr> <td><span class="genmed"><b>Cytat:</b></span></td> </tr> <tr> <td class="quote">local focus = 0 <br />local talk_start = 0 <br />local target = 0 <br />local following = false <br />local attacking = false <br /> <br />function onThingMove(creature, thing, oldpos, oldstackpos) <br /> <br />end <br /> <br /> <br />function onCreatureAppear(creature) <br /> <br />end <br /> <br /> <br />function onCreatureDisappear(cid, pos) <br /> if focus == cid then <br /> selfSay('Good bye then.') <br /> focus = 0 <br /> talk_start = 0 <br /> end <br />end <br /> <br /> <br />function onCreatureTurn(creature) <br /> <br />end <br /> <br /> <br />function msgcontains(txt, str) <br /> return (string.find(txt, str) and not string.find(txt, '(%w+)' .. str) and not string.find(txt, str .. '(%w+)')) <br />end <br /> <br /> <br />function onCreatureSay(cid, type, msg) <br /> local msg = string.lower(msg) <br /> <br /> if msgcontains(msg, 'hi') and focus == 0 and getDistanceToCreature(cid) < 4 then <br /> selfSay('Siema ' .. creatureGetName(cid) .. '! Selluje bp run (bp runes).') <br /> focus = cid <br /> talk_start = os.clock() <br /> <br /> elseif msgcontains(msg, 'hi') and focus ~= cid and getDistanceToCreature(cid) < 4 then <br /> selfSay('Sorry, ' .. creatureGetName(cid) .. '! czekaj minute.') <br /> <br /> elseif focus == cid then <br /> talk_start = os.clock() <br /> <br /> if msgcontains(msg, 'backpacks') or msgcontains(msg, 'bp runes') then <br /> selfSay('Selluje bp hmm (20k), bp uh (20k), bp gfb (20k), bp explosion (20k), bp sd (20k), bp mwall(20k).') <br /> <br /> elseif msgcontains(msg, 'bp sd') then <br /> buyContainer(cid,2003,2268,100,20000) <br /> elseif msgcontains(msg, 'bp hmm') then <br /> buyContainer(cid,1998,2311,100,20000) <br /> elseif msgcontains(msg, 'bp uh') then <br /> buyContainer(cid,2002,2273,100,20000) <br /> elseif msgcontains(msg, 'bp gfb') then <br /> buyContainer(cid,2000,2304,100,20000) <br /> elseif msgcontains(msg, 'bp explosion') or msgcontains(msg, 'bp explo') then <br /> buyContainer(cid,2001,2313,100,20000) <br /> elseif msgcontains(msg, 'bp mwall') then <br /> buyContainer(cid,1999,2293,100,20000) <br /> <br /> elseif string.find(msg, '(%a*)bye(%a*)') and getDistanceToCreature(cid) < 4 then <br /> selfSay('Good bye, ' .. creatureGetName(cid) .. '!') <br /> focus = 0 <br /> talk_start = 0 <br /> end <br /> end <br />end <br /> <br />function onCreatureChangeOutfit(creature) <br /> <br />end <br /> <br /> <br />function onThink() <br /> if (os.clock() - talk_start) > 30 then <br /> if focus > 0 then <br /> selfSay('Next Please...') <br /> end <br /> <br /> focus = 0 <br /> end <br /> <br /> if focus ~= 0 then <br /> if getDistanceToCreature(focus) > 5 then <br /> selfSay('Good bye then.') <br /> focus = 0 <br /> end <br /> end <br /> <br />end</td> </tr></table><span class="postbody"> <br />Gotowy OTS do pobrania: <br /> <br />Mirror1: <br /><a href="http://rapidshare.com/files/81439421/Evolutions_0.7.6_XML.rar" target="_blank">http://rapidshare.com/files/81439421/Evolutions_0.7.6_XML.rar</a></span></td> </tr> </table></td> </tr> <tr> <td colspan="2" height="1" class="spaceRow"><img src="http://picsrv.fora.pl/subSilver/images/spacer.gif" alt="" width="1" height="1" /></td> </tr> </table>
fora.pl
- załóż własne forum dyskusyjne za darmo
Powered by
phpBB
© 2001, 2005 phpBB Group
Regulamin
FAQ
Szukaj
Użytkownicy
Grupy
Galerie
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj