Sistema /for ...

por juan_9000 Seg 25 Abr 2011, 20:07

preciso de um sistema (sem ser por vb) de comando para adicionar forca ,defeza ,magia e inteligencia.
sempre quando eu pergunto ninguem faz o serto .Pf respondam ser Very Happy

!!!
comando tipo : /for 1000 ou mais

por Ricardo Seg 25 Abr 2011, 20:09

Cara preguiçoso tem isos aqui no forum e so pesquisar

por juan_9000 Seg 25 Abr 2011, 20:13

fala o nome do post que eu procuro.

por Ricardo Seg 25 Abr 2011, 20:22

Passa de pagina em pagina procurando

por DshFox Seg 25 Abr 2011, 20:26

case "/for300"
if getplayerpoints(index)>300 then
call setplayerpoints(index,getplayerpoints(index))-300
call setplayerstr(index,getplayerstr(index)+300)
else
call playermsg(index,"Você não tem 300 ptos.",brightred)
end if

por Lucas Roberto Seg 25 Abr 2011, 21:14

Pronto ae tem essa duas Opções do DshFox tambem funciona ^^

aconselho a do DshFox (e Tudo e mesma coisa) por que e mesmo codigo economiza espaço!!! shaushuahsua mais e tudo mesma coisa tanto a do Dsh quando a o Meu!!!

Vai na pasta do Seu server abre a pasta Script e abra o Bloco de Notas "Main.txt" ou "Principal.txt" Procura por:

Código:: Sub Commands(index) On Error Resume Next Dim Portal Dim mapnum Dim x Dim y Dim i Dim TextSay Dim n Dim m Dim C m = GetVar("Data.ini", "MAX", "MAX_MAPS") TextSay = GetVar("Scripts\Command.ini", "TEMP", "Text" & index)

abaixo coloque:

Código:: If LCase(Mid(MyText, 1, 4)) = "/for" Then If Len(MyText) > 5 Then ChatText = Mid(MyText, 6, Len(MyText) - 5) Call SendData("usestatpoint" & SEP_CHAR & 0 & SEP_CHAR & ChatText & END_CHAR) Else Call AddText("Use: /for <quantidade de pontos>", AlertColor) End If MyText = vbNullString Exit Sub End If

Simples!!!!