Sell Move...
2 participantes
NbScript :: Script & Server :: Dúvidas
Página 1 de 1
Sell Move...
- Código:
If $Message = "/Moveshop"
/StopEvent
/SendPM #Source, "»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»»:"
/SendPM #Source, "*** Mazers RPG Move Shop ***"
/SendPM #Source, ""
/SendPM #Source, "/BuyMove (move): Comprar um move, Pode ser qualquer um."
/SendPM #Source, ""
/SendPM #Source, "*** Todos os Moves - 1000 Moedas"
/SendPM #Source, ""
/SendPM #Source, "*** Voce têm: " & $GetValue("_\Moedas/_" & $GetPlayerInfo(#Source, PSID)) & " Moeda(s)."
/SendPM #Source, ""
/SendPM #Source, "««««««««««««««««««««««««««««««««««««««««««««««««««:"
EndIf
If $Left($Message, 16) = "/BuyMove "
/StopEvent
/Set $Temp, $Right($Message, #Len($Message) - 16)
/Set $TempA, $Str(#MoveNum($Temp))
If #MoveNum($Temp) = 0
/SendPM #Source, $Bot & ": Desculpe, Mais este move nao existe"
/Exit
EndIf
If $GetValue($TempA & "_SellMove") = "OK"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_\Moedas/_") < 1000
/StopEvent
/SendPM #Source, $Bot & ": O seu dinhero é insuficiente."
/Exit
EnDiF
/SaveValue $GetPlayerInfo(#Source, PSID) & "_\Moedas/_", #GetValue($GetPlayerInfo(#Source, PSID) & "_\Moedas/_") - 1000
/SendPM #Source, $Bot & ": Você Comprou um " & $Move(#MoveNum($Temp)) & "!"
/Set #Temp, #MoveNum($Temp)
/Set #TempA, 10
/Set $TempF, "Box" & $Str(#Box(#Source))
/exit
EndIf
Corrijam se estiver errado...
PoRyGoN- Scripter
- Mensagens : 97
Data de inscrição : 27/11/2009
Re: Sell Move...
O que ta errado eu botei em vermelho, o que falta em verde, o corrigido em azul e o desnecessário em laranja. :]
Errado:
Esse é o corrigido:
Errado:
If $Left($Message, 16) = "/BuyMove "
/StopEvent
/Set $Temp, $Right($Message, #Len($Message) - 16)
/Set $TempA, $Str(#MoveNum($Temp))
If #MoveNum($Temp) = 0
/SendPM #Source, $Bot & ": Desculpe, Mais este move nao existe"
/Exit
EndIf
If $GetValue($TempA & "_SellMove") = "OK"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_\Moedas/_") < 1000
/StopEvent
/SendPM #Source, $Bot & ": O seu dinhero é insuficiente."
/Exit
EnDiF
/SaveValue $GetPlayerInfo(#Source, PSID) & "_\Moedas/_", #GetValue($GetPlayerInfo(#Source, PSID) & "_\Moedas/_") - 1000
/SendPM #Source, $Bot & ": Você Comprou um " & $Move(#MoveNum($Temp)) & "!"
/Set #Temp, #MoveNum($Temp)
/Set #TempA, 10
/Set $TempF, "Box" & $Str(#Box(#Source))
/exit
EndIf
Esse é o corrigido:
If $Left($Message, 9) = "/BuyMove "
/StopEvent
/Set #Temp, #MoveNum($Right($Message, #Len($Message) - 9))
/Set $TempA, $Str(#Temp)
If #Temp = 0 OR #Temp > 467
/SendPM #Source, $Bot & ": Desculpe, Mais este move nao existe"
/Exit
EndIf
If $GetValue($TempA & "_SellMove") = "OK"
If #GetValue($GetPlayerInfo(#Source, PSID) & "_\Moedas/_") < 1000
/StopEvent
/SendPM #Source, $Bot & ": O seu dinhero é insuficiente."
/Exit
EndIf
/SaveValue $GetPlayerInfo(#Source, PSID) & "_\Moedas/_", #GetValue($GetPlayerInfo(#Source, PSID) & "_\Moedas/_") - 1000
/SendPM #Source, $Bot & ": Você Comprou um " & $Move(#Temp) & "!"
// => Apaguei o /Set #Temp, #MoveNum($Temp) já que ja setei la em cima. <= //
/Set #TempA, 10
/Set $TempF, "Box" & $Str(#Box(#Source))
/exit
EndIf
EndIf
NbScript :: Script & Server :: Dúvidas
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos