Sistema de reset e ganhar cash ao reset

por thiagosd Ter 04 Jun 2013, 19:31

queria saber como colocar um sitema de resetar lvl 1000 e ganhar 100k de cash ao resetar

por guifs Ter 04 Jun 2013, 20:00

procure por :

Código:: Sub CheckPlayerLevelUp

na mesma sub procure por:

Código:: end sub

antes do code acima adicione:

Código:: If GetPlayerLevel(index) >= 100 Then 'Level 100 para rr SetPlayerLevel index, 1 ' vai voltar ao level 1 SetPlayerStat index, Stats.strength, GetPlayerStat(index, Stats.strength) + 10 'stats que ira ganhar força SetPlayerStat index, Stats.Endurance, GetPlayerStat(index, Stats.Endurance) + 10 ' stats que ira ganhar defesa SetPlayerStat index, Stats.Intelligence, GetPlayerStat(index, Stats.Intelligence) + 10 ' stats que ira ganhar inteligencia SetPlayerStat index, Stats.Agility, GetPlayerStat(index, Stats.Agility) + 10 ' stats que ira ganhar em agilidade SetPlayerStat index, Stats.Willpower, GetPlayerStat(index, Stats.Willpower) + 10 'stats que ira ganhar em willpower Call SetPlayerPOINTS(index, GetPlayerPOINTS(index) + 1000) ' ele vai ganahr 1k de pontos SetPlayerExp index, 1 'vai ficar com 1 de EXP PlayerMsg index, "Resetou!!", White 'mensagem ao rr SendPlayerData index SendExp index 'atualiza a exp SendAnimation GetPlayerMap(index), 1, 0, 0, TARGET_TYPE_PLAYER, index 'Atnim ao rr End If

Eu(criar)
Eduardo(pegar a parte de ganhar pontos)
Thales (pegar o bonûs em cada status)
OyADM(por me dar uma estrutura)

por guifs Ter 04 Jun 2013, 20:22

desculpe o double mais é sobre o próprio tutorial acima,bom não coloquei a parte de cash,pois não sei se o seu cash é apenas um item comum de moeda,ou um novo item de gold

por thiagosd Ter 04 Jun 2013, 21:27

so mi diz como ganhar item ao resetar dae eu coloco oq eu quero

por guifs Ter 04 Jun 2013, 21:36

Client~Side

Procure:

Código:: If GetPlayerInvItemNum(MyIndex, i) = 1 Then '1 = gold Razz

Substitua por:

Código:: if Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then

Agora Procure por:

Código:: ' If item is a stack - draw the amount you have If GetPlayerInvItemValue(MyIndex, i) > 1 Then y = rec_pos.Top + 22 X = rec_pos.Left - 4 Amount = CStr(GetPlayerInvItemValue(MyIndex, i)) ' Draw currency but with k, m, b etc. using a convertion function RenderText Font_Default, ConvertCurrency(Amount), X, y, Yellow, 0 ' Check if it's gold, and update the label If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then '1 = gold Razz frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g" End If End If

Substitua por:

Código:: ' If item is a stack - draw the amount you have If Item(GetPlayerInvItemNum(MyIndex, i)).Type <> ITEM_TYPE_ARMOR Or ITEM_TYPE_WEAPON Or ITEM_TYPE_CONSUME Then If GetPlayerInvItemValue(MyIndex, i) >= 1 Then y = rec_pos.Top + 22 X = rec_pos.Left - 4 Amount = CStr(GetPlayerInvItemValue(MyIndex, i)) ' Draw currency but with k, m, b etc. using a convertion function RenderText Font_Default, ConvertCurrency(Amount), X, y, Yellow, 0 ' Check if it's gold, and update the label If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then '1 = gold Razz frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g" End If end if End If

E Agora, Procure por:

Código:: ' If item is a stack - draw the amount you have If GetPlayerInvItemValue(MyIndex, i) > 1 Then y = rec_pos.top + 22 X = rec_pos.Left - 4 Amount = CStr(GetPlayerInvItemValue(MyIndex, i)) ' Draw currency but with k, m, b etc. using a convertion function DrawText frmMain.picInventory.hDC, X, y, ConvertCurrency(Amount), QBColor(Yellow) ' Check if it's gold, and update the label If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g" End If End If

E Substitua por:

Código:: If Item(GetPlayerInvItemNum(MyIndex, i)).Type <> ITEM_TYPE_ARMOR Or ITEM_TYPE_WEAPON OR ITEM_TYPE_CONSUMEThen If GetPlayerInvItemValue(MyIndex, i) >= 1 Then y = rec_pos.Top + 22 X = rec_pos.Left - 4 Amount = GetPlayerInvItemValue(MyIndex, i) - amountModifier ' Draw currency but with k, m, b etc. using a convertion function If Amount < 1000000 Then colour = White ElseIf Amount > 1000000 And Amount < 10000000 Then colour = Yellow ElseIf Amount > 10000000 Then colour = BrightGreen End If RenderText Font_Default, Format$(ConvertCurrency(str(Amount)), "#,###,###,###"), X, y, colour, 0 ' Check if it's gold, and update the label If Item(GetPlayerInvItemNum(MyIndex, i)).Type = ITEM_TYPE_CURRENCY Then '1 = gold Razz frmMain.lblGold.Caption = Format$(Amount, "#,###,###,###") & "g" ' Check if it's gold, and update the label 2 If Amount = 0 Then frmMain.lblGold.Caption = "0g" frmMapa.lblGold.Caption = "0g" end If end if

Para acabar, procure por:

Código:: ' reset gold label frmMain.lblGold.Caption = "0g"

Substitua por:

Código:: ' reset gold label If Amount = 0 Then frmMain.lblGold.Caption = "0g" frmMapa.lblGold.Caption = "0g" End If

Código:: Call GiveInvItem(Index, 1, 2) ' obs: o 1 e o numero do item e o 2 e a quantidade de item q vai receber

e outra aprenda a ser educado,pois não é todo mundo q é disposto a ajudar aproveite quem quer lhe ajudar,pq noob e folgado ngm quer como amigo,to aki tentando ajudar e tu me da uma patada dakelas '-.-

por KURIZZARD² Ter 04 Jun 2013, 21:36

Amigo! Pelo codigo do guifs eu percebi que por exemplo ao resetar vc ganha 10 pontos em endurece(Vitalidade)

Se você quiser fazer a de cash faça uma setplayer o nome do item que você crio e faça mais algumas linhas de códigos estou sem visual basic 6 por isso não faço Abraços

@OFF TOPIC Guifs por que você não editou a sua mensagem anterior? cuidado vai ser punido

ABS!

@EDIT Guifs acabei de testa seu codigo e na segunda linha tem um erro pode nao da erros no de voces pq o codigo tem alguns erros basicos por exemplo para quer declara uma if e colo-cala em parenteses?

@EDIT 2 Amigo nao seria mais facil também colocar um command button com a caption de resetar por exemplo para aqueles que nao querem resetar bom era mais facil mesmo assim mt bom ^^

por guifs Ter 04 Jun 2013, 21:38

kuri,eu não editei para chamar atenção do proprio author do tópico em questão ao sistema, mais dps vi q ele não merecia pois to ajudando e ele me da uma tirada dessas,putz e outra em relação a atualização do sistema e questionamento de dúvidas não cabe punição,pelo ou menos isso q me informaram

por thiagosd Ter 04 Jun 2013, 21:42

mano malz n foi uma patada . obrigado por ajudar vo testar aki

por guifs Ter 04 Jun 2013, 21:44

ok então me desculpe tbm pela minha fala,maiseu fiquei zuado na hora,malz aew

por thiagosd Ter 04 Jun 2013, 21:47

mas tipo ele sempre vai rr lvl 1k ou so vai da rr 1 ves ?. eu to presizando de que so de rr 1 ves

por Frozen Ter 04 Jun 2013, 22:04

Certo seria , Eclipse Origins :: Suporte e Pedidos !
Vamos ler um pouco das regras .. ok?
Tópico Movido para área correta.

por guifs Qua 05 Jun 2013, 11:55

aew ele sempre irá resetar no lv 100 pro lv 1,bom te dei a base,a modificação vc faz

por Conteúdo patrocinado

Sistema de reset e ganhar cash ao reset

Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset

Re: Sistema de reset e ganhar cash ao reset