[ALL]Script de Player ser Shop
+9
Smoke
lincoln255
molusco sensei
Power Game
Karlos
Lucas Lôpo
Rio Absolut
V-Force
LucasSC
13 participantes
MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais
Página 1 de 1
[ALL]Script de Player ser Shop
Aqui vai um script em que você poderá montar sua lojinha de itens, sem mais de logas, vamos
adicione isto a sua main
Add ou substitua:
Adicione a shop.ini
show - significa mostrar a imagem dos itens se 0 seria mostrar item0.jpg para todos os itens, se seria um show (itemnumber) item jpg.
dinheiro - o itemnumber da moeda utilizada
preço - é o número de moedas que você começa / precisa comprar o item
[SHOP1] - o 1 é o número do mapa (isso seria uma loja no mapa 1)
max - o número máximo de itens que estão à venda
número de 1 até Max (usado para colocar os itens na loja) - item
Script não foi feito por mim, mas quero disponibiliza-lo a vocês!!
adicione isto a sua main
- Código:
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' This sub is used to open/refresh the playershop
Sub shop(map)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim I
Dim a
Dim Number
Dim x
I = 1
Do While I < GetVar("config.ini", "MAX", "MAX_PLAYERS")
If GetPlayerMap(I) = map Then
If 0 + GetVar("shops.ini", "PLAYER", getplayername(I)) <> 0 Then
Call CustomMenuClose(I)
Call CustomMenuShow(I, "SHOP", "\GUI\CUSTOM\shopBG.jpg", 0)
a = 1
Number = 1
x = 54
If GetVar("shops.ini", "CONFIG", "show") = 1 Then
Do While Number <= GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(I)), "max")
If 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(I)), "item" & Number) <> 0 Then
Call CustomMenuPicture(I, Number, "\GUI\CUSTOM\item" & 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(I)), "item" & Number) & ".jpg", Number * 45 + 133, x)
else
Call CustomMenuPicture(I, Number, "\GUI\CUSTOM\item0.jpg", 1, 1)
End If
a = a + 1
If a > 9 Then
x = x + 40
a = 1
End If
If Number = 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(I)), "max") Then
Call CustomMenuPicture(I, Number + 1, "\GUI\CUSTOM\trade.jpg", 490, 310)
Call CustomMenuPicture(I, Number + 2, "\GUI\CUSTOM\exit.jpg", 535, 310)
Call CustomMenuLabel(I, 1, " ", 525, 50, 8, 0, 1, 200, 40)
Call CustomMenuLabel(I, 2, " ", 525, 50, 8, 0, 1, 200, 40)
Call CustomMenuLabel(I, 3, " ", 525, 50, 8, 0, 1, 200, 40)
Call CustomMenuLabel(I, 4, " ", 525, 50, 8, 0, 1, 200, 40)
b = 1
c = 1
d = 50
do while b <= 24
if 0 + GetPlayerInvItemNum(I, b) <> 0 then
Call CustomMenuPicture(I, b + number + 3, "\GUI\CUSTOM\item" & 0 + GetPlayerInvItemNum(I, b) & ".jpg", c * 35, d)
else
Call CustomMenuPicture(I, b + number + 3, "", b * 45 + 10, 10)
end if
b = b + 1
c = c + 1
if c > 3 then
c = 1
d = d + 35
end if
loop
End If
Number = Number + 1
Loop
Else
Do While Number <= GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(I)), "max")
Call CustomMenuPicture(I, Number, "\GUI\CUSTOM\item1.jpg", Number * 45 + 133, x)
If Number = 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(I)), "max") Then
Call CustomMenuPicture(I, Number + 1, "\GUI\CUSTOM\trade.jpg", 490, 310)
Call CustomMenuPicture(I, Number + 2, "\GUI\CUSTOM\exit.jpg", 535, 310)
Call CustomMenuLabel(I, 1, " ", 525, 50, 8, 0, 1, 200, 40)
Call CustomMenuLabel(I, 2, " ", 525, 50, 8, 0, 1, 200, 40)
Call CustomMenuLabel(I, 3, " ", 525, 50, 8, 0, 1, 200, 40)
Call CustomMenuLabel(I, 4, " ", 525, 50, 8, 0, 1, 200, 40)
b = 1
c = 1
d = 50
do while b <= 24
if 0 + GetPlayerInvItemNum(I, b) <> 0 then
Call CustomMenuPicture(I, b + number + 3, "\GUI\CUSTOM\item0.jpg", c * 35, d)
else
Call CustomMenuPicture(I, b + number + 3, "", b * 45 + 10, 10)
end if
b = b + 1
c = c + 1
if c > 3 then
c = 1
d = d + 35
end if
loop
End If
number = number + 1
a = a + 1
If a > 9 Then
x = x + 40
a = 1
End If
Loop
End If
End If
End If
I = I + 1
Loop
End Sub
- Código:
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' This sub runs when something on a custom menu is clicked.
Sub MenuScripts(index, Clicked_Index, Menu_Type)
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Dim field_message
Dim menu_title
Dim a
dim temp
menu_title = getplayermenuclicktitle(index)
field_message = getplayermenuclickmsg(index)
' Figure out what type of button was clicked ie picture, textbox, label.
Select Case Menu_Type
Case 1
Select Case menu_title
Case "SHOP"
If Clicked_Index <= 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "max") Then
Call CustomMenuLabel(index, 1, "Name:", 650, 30, 8, 0, 0, 400, 40)
Call CustomMenuLabel(index, 2, "" & getitemname(GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "item" & Clicked_Index)), 590, 50, 8, 0, 2, 200, 40)
Call CustomMenuLabel(index, 3, "Price:", 650, 75, 8, 0, 0, 400, 40)
Call CustomMenuLabel(index, 4, "" & GetVar("shops.ini", "PRICES", "price" & GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "item" & Clicked_Index)), 570, 95, 8, 0, 2, 200, 40)
Call PutVar("shops.ini", "PLAYER", "" & GetPlayername(index), 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "item" & Clicked_Index))
call putVar("shops.ini", "PLAYER", "clicked," & GetPlayerName(index), 0 + Clicked_Index)
Else
If Clicked_Index = GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "max") + 1 Then
Money = 0 + getInvItemslot(index, GetVar("shops.ini", "CONFIG", "money"), GetVar("shops.ini", "PRICES", "price" & GetVar("shops.ini", "PLAYER", "" & GetPlayerName(index))), 0)
Call giveplayeritemtoslot(index, Money, GetVar("shops.ini", "CONFIG", "money"), GetPlayerInvItemValue(index, Money) - GetVar("shops.ini", "PRICES", "price" & GetVar("shops.ini", "PLAYER", "" & GetPlayerName(index))), 0)
Call giveplayeritemtoslot(index, getInvItemslot(index, 0, 0, 0), GetVar("shops.ini", "PLAYER", "" & GetPlayerName(index)), 1, 0)
Call PutVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "item" & GetVar("shops.ini", "PLAYER", "clicked," & GetPlayerName(index)), 0)
Call PlayerMsg(index, "Trade succesfull.", 2)
Call Shop(GetPlayerMap(index))
End If
If Clicked_Index = GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "max") + 2 Then
call putvar("shops.ini", "PLAYER", GetPlayerName(index), 0)
call CustomMenuClose(index)
end if
If Clicked_Index > GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "max") + 2 Then
a = 1
do while a <= 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "max")
if 0 + GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "item" & a) = 0 then
money = 0 + getInvItemslot(index, GetVar("shops.ini", "CONFIG", "money"), 0, 0)
if money = 0 then
money = 0 + getInvItemslot(index, 0, 0, 0)
end if
Call giveplayeritemtoslot(index, money, GetVar("shops.ini", "CONFIG", "money"), GetPlayerInvItemValue(index, money) + GetVar("shops.ini", "PRICES", "price" & getVar("shops.ini", "PLAYER", "" & GetPlayername(index))), 0)
tempy = Clicked_Index
tempy = tempy - GetVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "max") - 3
Call putVar("shops.ini", "SHOP" & Trim(GetPlayerMap(index)), "item" & a, GetPlayerInvItemNum(index, tempy))
Call giveplayeritemtoslot(index, tempy, 0, 0, 0)
Call PlayerMsg(index, "Trade succesfull.", 2)
Call Shop(GetPlayerMap(index))
end if
a = a + 1
loop
end if
End If
End Select
Case 2
' FIELD WAS CLICKED
' Player has clicked a text field OK button whos number is clicked_index on the custom menu named menu_title.
Call playermsg(index, "Clicked field number " & clicked_index & " on the menu named " & menu_title & ". The field text was " & field_message, 14)
Case 3
Select Case menu_title
Case ""
Select Case clicked_index
Case 3
end Select
end Select
End Select
End Sub
Add ou substitua:
- Código:
call putvar("shops.ini", "PLAYER", getplayername(index), 1)
call shop(GetPlayerMap(index))
Adicione a shop.ini
- Código:
[CONFIG]
show=1
money=1
[PRICES]
price1=100
price2=100
price3=100
[SHOP1]
max=3
item1=1
item2=0
item3=0
[PLAYER]
show - significa mostrar a imagem dos itens se 0 seria mostrar item0.jpg para todos os itens, se seria um show (itemnumber) item jpg.
dinheiro - o itemnumber da moeda utilizada
preço - é o número de moedas que você começa / precisa comprar o item
[SHOP1] - o 1 é o número do mapa (isso seria uma loja no mapa 1)
max - o número máximo de itens que estão à venda
número de 1 até Max (usado para colocar os itens na loja) - item
Script não foi feito por mim, mas quero disponibiliza-lo a vocês!!
LucasSC- Membro
- Mensagens : 194
Re: [ALL]Script de Player ser Shop
muito bom +1 de Cred porem coloque os créditos
V-Force- Administrador V-Force
- Mensagens : 933
Re: [ALL]Script de Player ser Shop
n entendi o codigo esplique melhor ?
Rio Absolut- Membro Vitalicio
- Mensagens : 655
Re: [ALL]Script de Player ser Shop
É um sistema de Loja por SadScript.
Lucas Lôpo- Membro Veterano
- Mensagens : 833
Re: [ALL]Script de Player ser Shop
Isso eu entendi , não entendi como ele funciona *-*
Rio Absolut- Membro Vitalicio
- Mensagens : 655
Re: [ALL]Script de Player ser Shop
é assim: Você pode ser uma lojinha, uma espécie de Trade, onde você por assim dizer monta sua barraquinha, ai coloca itens para vender, entendeu?
LucasSC- Membro
- Mensagens : 194
Re: [ALL]Script de Player ser Shop
cara eu gostei
muito criativo da sua parte...
aew vai + 1 de crédito ^^
muito criativo da sua parte...
aew vai + 1 de crédito ^^
Re: [ALL]Script de Player ser Shop
Muito obrigado pelo crédito, mas este script não é meu, eu apenas disponibilizei para vocês , assim que achar outros scripts bem interessante posto
LucasSC- Membro
- Mensagens : 194
Re: [ALL]Script de Player ser Shop
Desculpa reviver, mas:
Add ou substitua:
Código:call putvar("shops.ini", "PLAYER", getplayername(index), 1)
call shop(GetPlayerMap(index))??? aonde q é pra por isso?? lol!
Add ou substitua:
Código:call putvar("shops.ini", "PLAYER", getplayername(index), 1)
call shop(GetPlayerMap(index))??? aonde q é pra por isso?? lol!
Power Game- Membro
- Mensagens : 164
Re: [ALL]Script de Player ser Shop
vlw por disponibilizar ae
xD
+1 cred
xD
+1 cred
molusco sensei- Membro Junior
- Mensagens : 79
Re: [ALL]Script de Player ser Shop
Molusco aonde eu coloco
call putvar("shops.ini", "PLAYER", getplayername(index), 1)
call shop(GetPlayerMap(index))
????
call putvar("shops.ini", "PLAYER", getplayername(index), 1)
call shop(GetPlayerMap(index))
????
Power Game- Membro
- Mensagens : 164
Re: [ALL]Script de Player ser Shop
Cara explica melhor... bota como faiz pra abrir loja, posta ss, e coloca o credito do criador do script
lincoln255- Membro Junior
- Mensagens : 69
Re: [ALL]Script de Player ser Shop
Ai pessoal isso é um sistema de loja pessual..
onde voce pode por itens do seu inventario para vender e ppor um preço desejado neles!
axo q é isso não é, lucas SC?
onde voce pode por itens do seu inventario para vender e ppor um preço desejado neles!
axo q é isso não é, lucas SC?
Re: [ALL]Script de Player ser Shop
nao testei ainda mais tenho um no estilo pro meu game.. a ideia e bom so bast ver ele na pratica mais realmente isso é muito utio tipo vc tem um pet lvl 1 ai vai vender num npc ele paga 500 moedas por ele ai vc poe seu pet lvl 20 e o npc ainda paga so as 500 moedas ja com loja pessoal vc pode valoriza-lo mais e vender itens mais raros tambem!
bom é isso...
bom é isso...
FilipeJF- Membro Veterano
- Mensagens : 938
Re: [ALL]Script de Player ser Shop
se explicasse tipo procura"tal tal" coloca no final .... dava cred mais ... mal explicado '
sushi123Banido- Mensagens : 188
MMORPG Brasil :: OPEN SOURCE ENGINES :: Eclipse :: Tutoriais
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|
Dom 08 Abr 2018, 18:40 por JorgeZinhoo002
» Ojkjeeeee
Seg 10 Out 2016, 23:19 por Frozen
» Naruto Great Ninja Batle
Dom 09 Out 2016, 14:29 por GuiinhoLP
» Recrutamento de um Designer para jogo de CDZ.
Sex 23 Set 2016, 18:37 por newbie123
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
Qui 22 Set 2016, 20:11 por Eduardo
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
Qui 22 Set 2016, 20:11 por Eduardo
» Serviços de suporte maker( Programação , Design , PixelArt ) E Vendas de Jogos
Qui 22 Set 2016, 20:09 por Eduardo
» Projeto Dbz
Qua 31 Ago 2016, 23:46 por 157
» Avaliação - Sprites Naruto
Qua 31 Ago 2016, 17:09 por 157
» [Sprites] DBZ (Plix)
Qua 31 Ago 2016, 14:13 por 157
» Super Pack - Bleach V.2
Qua 31 Ago 2016, 13:02 por 157
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
Ter 30 Ago 2016, 10:04 por 157
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
Ter 30 Ago 2016, 10:03 por 157
» [PEDIDO][PROJETO][RECRUTAMENTO] DYNISTYGAMES
Ter 30 Ago 2016, 10:02 por 157
» [Pedido] Contador de resets na FrmMain
Sáb 13 Ago 2016, 17:45 por killers97
» [Recrutamento]
Qua 10 Ago 2016, 23:09 por Monsters
» Ajuda erro no Cliente e Servidor do EEB 2.6!
Qua 20 Jul 2016, 19:53 por Binholx
» Como criar tilesets para Eclipse Origins 3.0 (POKÉMON)
Qua 29 Jun 2016, 19:46 por Sir Aaron
» Recursos Pokemons
Qua 29 Jun 2016, 19:34 por Sir Aaron
» erro frm flash
Qua 25 maio 2016, 13:51 por vava123
» Pedido - Pack de star wars
Qui 19 maio 2016, 05:06 por edsonpet
» [Ajuda] Sobre como por o servidor on por ip fixo
Ter 17 maio 2016, 16:14 por vava123
» Illusion Dimension - O Misterio do ID: BETA TESTE ONLINE
Sex 06 maio 2016, 20:02 por LksFlorencio
» [NSME] Naruto Shinobi Maker Engine
Qua 23 Mar 2016, 15:11 por luana1457
» Script /base,/casa Igual DBZ Forces
Dom 21 Fev 2016, 07:34 por JorgeZinhoo002
» [Pedido]Colar Tsunade item sprite eclipse origin
Qui 21 Jan 2016, 07:38 por lawllietbr
» [Pedido] Elysium
Sáb 19 Dez 2015, 11:31 por luana1457
» Naruto - Recruta
Ter 15 Dez 2015, 18:40 por Uchiha ~
» [Avaliação] - Kirito from Sword Art Online; Red and Pikachu from Pokemon.
Qua 25 Nov 2015, 13:43 por Thanakii
» [Avaliação] - Kenpachi Zaraki from Bleach; Libra Shiryu From Saint Seiya.
Qua 25 Nov 2015, 12:55 por Thanakii
» Demonstração de Sprites (Á VENDA!)
Qua 25 Nov 2015, 12:40 por Thanakii
» [Sistema de Reset]Para Eclipse .
Ter 24 Nov 2015, 16:51 por VithorUchi
» Cada Guild Nascer em Certo Mapa
Qui 12 Nov 2015, 06:13 por fabiofeijó_HIT
» Dragon Ball z Fusion A Grande Volta
Qui 29 Out 2015, 15:17 por fabiofeijó_HIT
» Ajuda com Ip fixo
Seg 26 Out 2015, 16:07 por GalaxyHells15
» Como Fazer um GUI no Eclipse Origins
Dom 18 Out 2015, 22:10 por Jeanleee
» Shisui Susanoo
Dom 18 Out 2015, 20:23 por Jeanleee
» Fantasy Art Online
Dom 18 Out 2015, 16:41 por daviih123
» Ajuda !!
Seg 05 Out 2015, 12:13 por andersonzika
» como passar o usuário e senha para o MainMenu?
Seg 28 Set 2015, 22:03 por Bëzerk
» Ru time ero 13 Type mismatch
Seg 28 Set 2015, 09:08 por andredarle
» Jarvis 1.3 Download
Qua 23 Set 2015, 18:42 por soares125
» [Avaliação/Disponibilização]Árvore 64x64
Qua 23 Set 2015, 15:15 por Over~
» Mlk's Zikas Signatures
Ter 22 Set 2015, 21:15 por Aikawa Reborn'
» Pedido de Sistemas
Dom 20 Set 2015, 18:05 por cleyton_05
» [AjudaEEB]Gerador de EXP
Qua 16 Set 2015, 14:04 por Over~
» [Avaliar] Base, Humano e Goblin.
Seg 14 Set 2015, 22:51 por .iBlaz3.
» Fabrica do Tio Cronos!
Dom 13 Set 2015, 21:31 por [ADM]Cronos
» [PixelArt] Minion - Meu malvado favorito
Dom 13 Set 2015, 12:51 por [ADM]Cronos
» [Avaliar] Goku Dragon Ball Z
Qua 05 Ago 2015, 21:36 por Setrux