Forum Extra forum Strona Główna
FAQ Szukaj Użytkownicy Grupy Profil Zaloguj się, by sprawdzić wiadomości
Forum Extra forum Strona Główna  Zaloguj  Rejestracja
Automat do gry by Devoy

 
Napisz nowy temat   Odpowiedz do tematu    Forum Extra forum Strona Główna -> Skrypty Do OTS
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
nislem
Spoko Ziom



Dołączył: 31 Gru 2005
Posty: 18
Przeczytał: 0 tematów

Ostrzeżeń: 3/500
Skąd: Universum 6

PostWysłany: Sob 20:19, 11 Lut 2006    Temat postu: Automat do gry by Devoy

Yo. Jest to skrypt 100% napisany przez Devoya. Ja tylko go publikuje.
no to automat.lua:
Kod:

function onUse(cid, item, frompos, item2, topos)
 
 if item.uid == 5885 then
 kasapos = {x=392, y=448, z=8, stackpos=255}
 getkasa = getThingfromPos(kasapos)
 winpos = {x=392, y=449, z=8}
 
 if getkasa.itemid == 2152 and getkasa.type == 5 then
 rand = math.random(4)
 if rand == 1 or rand == 4 or rand == 3 then
 doRemoveItem(getkasa.uid,5)
 doSendMagicEffect(kasapos,2)
 doPlayerSendTextMessage(cid,22,"You lose 5 platinum coin.")
 end
 if rand == 2 then
 doRemoveItem(getkasa.uid,5)
 doCreateItem(2152,15,winpos)
 doSendMagicEffect(winpos,13)
 doSendMagicEffect(topos,21)
 doPlayerSendTextMessage(cid,22,"You win 15 platinum coins.")
 end
 end
 
 if getkasa.itemid == 2152 and getkasa.type == 10 then
 rand = math.random(4)
 if rand == 1 or rand == 4 or rand == 3 then
 doRemoveItem(getkasa.uid,10)
 doSendMagicEffect(kasapos,2)
 doPlayerSendTextMessage(cid,22,"You lose 10 platinum coins.")
 end
 if rand == 2 then
 doRemoveItem(getkasa.uid,10)
 doCreateItem(2152,30,winpos)
 doSendMagicEffect(winpos,13)
 doSendMagicEffect(topos,21)
 doPlayerSendTextMessage(cid,22,"You win 30 platinum coins.")
 end
 end
 
 if getkasa.itemid == 2152 and getkasa.type == 25 then
 rand = math.random(4)
 if rand == 1 or rand == 4 or rand == 3 then
 doRemoveItem(getkasa.uid,25)
 doSendMagicEffect(kasapos,2)
 doPlayerSendTextMessage(cid,22,"You lose 25 platinum coins.")
 end
 if rand == 2 then
 doRemoveItem(getkasa.uid,25)
 doCreateItem(2152,75,winpos)
 doSendMagicEffect(winpos,13)
 doSendMagicEffect(topos,21)
 doPlayerSendTextMessage(cid,22,"You win 75 platinum coins.")
 end
 end
 
 if getkasa.itemid == 2152 and getkasa.type == 50 then
 rand = math.random(4)
 if rand == 1 or rand == 4 or rand == 3 then
 doRemoveItem(getkasa.uid,50)
 doSendMagicEffect(kasapos,2)
 doPlayerSendTextMessage(cid,22,"You lose 50 platinum coins.")
 end
 if rand == 2 then
 doRemoveItem(getkasa.uid,50)
 doCreateItem(2152,100,winpos)
 doCreateItem(2152,50,winpos)
 doSendMagicEffect(winpos,13)
 doSendMagicEffect(topos,21)
 doPlayerSendTextMessage(cid,22,"You win 150 platinum coins.")
 end
 end
 
 if getkasa.itemid > 2152 or getkasa.itemid < 2152 then
 doPlayerSendTextMessage(cid,22,"Please throw 5, 10, 25 or 50 platinum coins.")
 end
 
 if getkasa.itemid == 2152 and getkasa.type == 1 or getkasa.itemid == 2152 and getkasa.type == 2 or getkasa.itemid == 2152 and getkasa.type == 3 or getkasa.itemid == 2152 and getkasa.type == 4 or getkasa.itemid == 2152 and getkasa.type == 6 or getkasa.itemid == 2152 and getkasa.type == 7 or getkasa.itemid == 2152 and getkasa.type == 8
 or getkasa.itemid == 2152 and getkasa.type == 9 or getkasa.itemid == 2152 and getkasa.type == 11 or getkasa.itemid == 2152 and getkasa.type == 12 or getkasa.itemid == 2152 and getkasa.type == 13 or getkasa.itemid == 2152 and getkasa.type == 14 or getkasa.itemid == 2152 and getkasa.type == 15 or getkasa.itemid == 2152 and getkasa.type == 16
 or getkasa.itemid == 2152 and getkasa.type == 17 or getkasa.itemid == 2152 and getkasa.type == 18 or getkasa.itemid == 2152 and getkasa.type == 19 or getkasa.itemid == 2152 and getkasa.type == 20 or getkasa.itemid == 2152 and getkasa.type == 21 or getkasa.itemid == 2152 and getkasa.type == 22 or getkasa.itemid == 2152 and getkasa.type == 23
 or getkasa.itemid == 2152 and getkasa.type == 24 or getkasa.itemid == 2152 and getkasa.type == 26 or getkasa.itemid == 2152 and getkasa.type == 27 or getkasa.itemid == 2152 and getkasa.type == 28 or getkasa.itemid == 2152 and getkasa.type == 29 or getkasa.itemid == 2152 and getkasa.type == 30 or getkasa.itemid == 2152 and getkasa.type == 31
 or getkasa.itemid == 2152 and getkasa.type == 32 or getkasa.itemid == 2152 and getkasa.type == 33 or getkasa.itemid == 2152 and getkasa.type == 34 or getkasa.itemid == 2152 and getkasa.type == 35 or getkasa.itemid == 2152 and getkasa.type == 36 or getkasa.itemid == 2152 and getkasa.type == 37 or getkasa.itemid == 2152 and getkasa.type == 38
 or getkasa.itemid == 2152 and getkasa.type == 39 or getkasa.itemid == 2152 and getkasa.type == 40 or getkasa.itemid == 2152 and getkasa.type == 41 or getkasa.itemid == 2152 and getkasa.type == 42 or getkasa.itemid == 2152 and getkasa.type == 43 or getkasa.itemid == 2152 and getkasa.type == 44 or getkasa.itemid == 2152 and getkasa.type == 45
 or getkasa.itemid == 2152 and getkasa.type == 46 or getkasa.itemid == 2152 and getkasa.type == 47 or getkasa.itemid == 2152 and getkasa.type == 48 or getkasa.itemid == 2152 and getkasa.type == 49 or getkasa.itemid == 2152 and getkasa.type > 50 then
 doPlayerSendTextMessage(cid,22,"Please throw 5, 10, 25 or 50 platinum coins.")
 end
 
 
 
 if item.itemid == 1945 then
 doTransformItem(item.uid,1946)
 elseif item.itemid == 1946 then
 doTransformItem(item.uid,1945)
 end
 
 return 1
 end
 end

kasapos = współżędne kasy
winpod = współżędne wygranej
actions.xml:
Kod:

<action uniqueid="5885" script="automat.lua" />

I ustawiacie UniqueID na 5885 i macie skrypt.


Post został pochwalony 0 razy
Powrót do góry
Zobacz profil autora
Autor Wiadomość
ziomek :)
Gość






PostWysłany: Nie 23:06, 10 Gru 2006    Temat postu: :)

fajny aotomat Smile Very Happy wygralem 2 razy 100 cc w 5 min Very HappyVery Happy Smile Cool :
Powrót do góry
Autor Wiadomość
Gość







PostWysłany: Nie 19:50, 25 Mar 2007    Temat postu:

Lindsay Lohan Doing A Hung Guy!
[link widoczny dla zalogowanych]
Powrót do góry
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Extra forum Strona Główna -> Skrypty Do OTS Wszystkie czasy w strefie EET (Europa)
Strona 1 z 1

 
Skocz do:  
Możesz pisać nowe tematy
Możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2002 phpBB Group
BBTech Template by © 2003-04 MDesign
Regulamin