eRRO NO MT
2 participantes
Página 1 de 1
eRRO NO MT
01:02:59 - script ERROR IN LINE #9237: Unrecongnized Function.
If $Message = "!MTList" OR $Message = "/MTList"
/StopEvent
/SendPM #Source, "*** Movetutor List ***"
/Set #Temp, 0
:MTsShowLoop
/Inc #Temp
/SendPM #Source, $Str(#Temp) & ".) " & $Move(#Val($GetValue($Str(#Temp) & "_MT")))
If #Temp <> #Val($GetValue("#_MT"))
GoTo MTsShowLoop
Else
/Exit
EndIf
EndIf
If $Message = "!MTPack" OR $Message = "/MTPack"
/SendPM #Source, "*** " & $Name(#Source) & "'s Movetutor Pack ***"
/Set #Temp, 0
:MTsCheckShowLoop
/Inc #Temp
If #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp))) = 0
If #Temp = #Val($GetValue("#_MT"))
/Exit
EndIf
If #Temp <> #Val($GetValue("#_MT"))
GoTo MTsCheckShowLoop
EndIf
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp)) <> ""
/SendPM #Source, "Movetutor " & $Str(#Temp) & "- " & $GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp))
GoTo MTsCheckShowLoop
EndIf
EndIf
If $message = "!MTMart" OR $Message = "/MTMart" AND $GetValue($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea") & "_Sold1") <> "0"
/StopEvent
/SendPM #Source, "*** Movetutor Shop ***"
/SendPM #Source, "RPGBRBOT: Digite !MBuy[MT#] para comprar um golpe."
/Set #Temp, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea"))
/Set #TempA, 0
:MTsMartLoop
/Inc #TempA
/SendPM #Source, "Movetutor " & $GetValue($Str(#Temp) & "_Sold" & $Str(#TempA)) & " - " & $GetValue($GetValue($Str(#Temp) & "_Sold" & $Str(#TempA)) & "_MT_P") & "points."
If $GetValue($Str(#Temp) & "_Sold" & $Str(#TempA + 1)) <> ""
GoTo MTsMartLoop
Else
/Exit
EndIf
EndIf
If $left($Message, 5) = "!MBuy" OR $Left($Message, 5) = "/MBuy"
If $GetValue($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea") & "_Sold1") = ""
/Exit
EndIf
/StopEvent
/Set #Temp, #Val($Right($Message, #Len($Message) - 5))
/Set #TempA, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea"))
/Set #Count, 0
:LoopRed
/Inc #Count
If $GetValue($Str(#Temp) & "_MT") = ""
/SendPM #Source, "RPGBRBOT: naum eh valido."
/Exit
EndIf
If $GetValue($Str(#TempA) & "_Sold" & $Str(#Count)) <> $Str(#Temp)
If #Count <> #Val($GetValue("#_MT"))
GoTo LoopRed
Else
/SendPM #Source, "RPGBRBOT: Movetutor " & $Str(#Temp) & " naum tem a venda " & $GetValue($Str(#TempA) & "_Name") & " Movetutor shop."
/Exit
EndIf
Else
/Set #TempA, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_Points"))
/Set #TempB, #GetValue($Str(#Temp) & "_MT_P")
If #TempA < #TempB
/SendPM #Source, "RPGBRBOT: voce naum tem Battle Points suficientes ."
/Exit
EndIf
/Inc #TempA, -#TempB
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Points", $Str(#TempA)
/SendPM #Source, "RPGBRBOT: vc comprou movetutor: " & $Str(#Temp) & "."
/Set #TempA, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp)))
/Inc #TempA
/SaveValue $GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp), $Str(#TempA)
/Exit
EndIf
EndIf
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If #It(#Source) = 2468013
Errror [e aki no If#it.......................
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/StopEvent
/Set #Temp, #Val($Message)
If #Temp = 5
/SendPM #Source, "RPGBRBOT: Movetutor cancelada."
EndIf
If #Temp < 1 OR #Temp > 5
/SendPM #Source, "RPGBRBOT: digite um numero entra 1 e 5."
/Set #Temp, 5
EndIf
If #Temp = 5
/Set #It(#Source), 0
/Set #Ti(#Source), 0
/Set #TT(#Source), 0
/Exit
EndIf
/Set #Temp, #Val(#Temp + 2)
/Set #Temp, #Val(#Temp * 3)
/Set #TempA, #Ti(#Source)
/Set $TempB, $Mid($GetValue($GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#TempA)), $Str(#Temp), 3)
/Set #TempC, #TT(#Source)
/Set $TempD, #Val($GetValue($Str(#TempC) & "_MT"))
If #Len($TempD) = 2
/Set $TempD, "0" & $TempD
EndIf
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#TempA))
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#TempA), $Left($Temp, #Val(#Temp-1)) & $TempD & $Right($Temp, #Len($Temp)-#Val(#Temp-1+3))
/SendPM #Source, "RPGBRBOT: Movetutor taught."
/Set #It(#Source), 0
/Set #Ti(#Source), 0
/Set #TT(#Source), 0
/Set #Temp, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#TempC)))
/Inc #Temp, -1
/SaveValue $GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#TempC), #Temp
/Set #It(#Source), 0
/Set #Ti(#Source), 0
/Set #TT(#Source), 0
EndIf
If $Left($Message, 3) = "!MT"
/StopEvent
If #Len($Message) > 6
/SendPM #Source, $RPG & " That is not a valid command."
/Exit
EndIf
/Set #Temp, #Val($Mid($Message, 4, 1))
If #Temp < 1 OR #Temp > 6
/SendPM #Source, "RPGBRBOT: digite um numero entre 1 e 6."
/Exit
EndIf
/Set #TempA, #Val($Right($Message, #Len($Message) - 5))
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#Temp))
/Set $TempA, $Pokemon(#Val($Mid($Temp, 1, 3)))
If #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#TempA))) = 0
/SendPM #Source, "RPGBRBOT: You do not have that Movetutor."
/Exit
EndIf
If #IsIn($GetValue($Str(#TempA) & "_MT_L"), $TempA) = 0
/SendPM #Source, "RPGBRBOT: o pokemon nuam aprende pelo Movetutor."
/Exit
EndIf
If #IsIn($GetValue($Str(#TempA) & "_MT_L"), $TempA) > 0
/Set #Ti(#Source), $Str(#Temp)
/Set #TT(#Source), $Str(#TempA)
/Set #It(#Source), 2468013
/SendPM #Source, "*** " & $TempA & " esta tentando aprender " & $Move(#Val($GetValue($Str(#TempA) & "_MT"))) & "!"
/SendPM #Source, "RPGBRBOT: " & $Move(#Val($getValue($Str(#TempA) & "_MT"))) & ":"
/SendPM #Source, "1: " & $Move($Mid($Temp, 9, 3))
If $Mid($Temp, 12, 3) = "000"
/SendPM #Source, "2: [None]"
/Exit
EndIf
/SendPM #Source, "2: " & $Move($Mid($Temp, 12, 3))
If $Mid($Temp, 15, 3) = "000"
/SendPM #Source, "3: [None]"
/Exit
EndIf
/SendPM #Source, "3: " & $Move($Mid($Temp, 15, 3))
If $Mid($Temp, 15, 3) = "000"
/SendPM #Source, "4: [None]"
/Exit
EndIf
/SendPM #Source, "4: " & $Move($Mid($Temp, 18, 3))
/SendPM #Source, "5: Cancel"
EndIf
EndIf
EndIf
EndIf
If $Message = "!MTList" OR $Message = "/MTList"
/StopEvent
/SendPM #Source, "*** Movetutor List ***"
/Set #Temp, 0
:MTsShowLoop
/Inc #Temp
/SendPM #Source, $Str(#Temp) & ".) " & $Move(#Val($GetValue($Str(#Temp) & "_MT")))
If #Temp <> #Val($GetValue("#_MT"))
GoTo MTsShowLoop
Else
/Exit
EndIf
EndIf
If $Message = "!MTPack" OR $Message = "/MTPack"
/SendPM #Source, "*** " & $Name(#Source) & "'s Movetutor Pack ***"
/Set #Temp, 0
:MTsCheckShowLoop
/Inc #Temp
If #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp))) = 0
If #Temp = #Val($GetValue("#_MT"))
/Exit
EndIf
If #Temp <> #Val($GetValue("#_MT"))
GoTo MTsCheckShowLoop
EndIf
EndIf
If $GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp)) <> ""
/SendPM #Source, "Movetutor " & $Str(#Temp) & "- " & $GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp))
GoTo MTsCheckShowLoop
EndIf
EndIf
If $message = "!MTMart" OR $Message = "/MTMart" AND $GetValue($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea") & "_Sold1") <> "0"
/StopEvent
/SendPM #Source, "*** Movetutor Shop ***"
/SendPM #Source, "RPGBRBOT: Digite !MBuy[MT#] para comprar um golpe."
/Set #Temp, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea"))
/Set #TempA, 0
:MTsMartLoop
/Inc #TempA
/SendPM #Source, "Movetutor " & $GetValue($Str(#Temp) & "_Sold" & $Str(#TempA)) & " - " & $GetValue($GetValue($Str(#Temp) & "_Sold" & $Str(#TempA)) & "_MT_P") & "points."
If $GetValue($Str(#Temp) & "_Sold" & $Str(#TempA + 1)) <> ""
GoTo MTsMartLoop
Else
/Exit
EndIf
EndIf
If $left($Message, 5) = "!MBuy" OR $Left($Message, 5) = "/MBuy"
If $GetValue($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea") & "_Sold1") = ""
/Exit
EndIf
/StopEvent
/Set #Temp, #Val($Right($Message, #Len($Message) - 5))
/Set #TempA, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_RPGArea"))
/Set #Count, 0
:LoopRed
/Inc #Count
If $GetValue($Str(#Temp) & "_MT") = ""
/SendPM #Source, "RPGBRBOT: naum eh valido."
/Exit
EndIf
If $GetValue($Str(#TempA) & "_Sold" & $Str(#Count)) <> $Str(#Temp)
If #Count <> #Val($GetValue("#_MT"))
GoTo LoopRed
Else
/SendPM #Source, "RPGBRBOT: Movetutor " & $Str(#Temp) & " naum tem a venda " & $GetValue($Str(#TempA) & "_Name") & " Movetutor shop."
/Exit
EndIf
Else
/Set #TempA, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_Points"))
/Set #TempB, #GetValue($Str(#Temp) & "_MT_P")
If #TempA < #TempB
/SendPM #Source, "RPGBRBOT: voce naum tem Battle Points suficientes ."
/Exit
EndIf
/Inc #TempA, -#TempB
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Points", $Str(#TempA)
/SendPM #Source, "RPGBRBOT: vc comprou movetutor: " & $Str(#Temp) & "."
/Set #TempA, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp)))
/Inc #TempA
/SaveValue $GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#Temp), $Str(#TempA)
/Exit
EndIf
EndIf
<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
If #It(#Source) = 2468013
Errror [e aki no If#it.......................
>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
/StopEvent
/Set #Temp, #Val($Message)
If #Temp = 5
/SendPM #Source, "RPGBRBOT: Movetutor cancelada."
EndIf
If #Temp < 1 OR #Temp > 5
/SendPM #Source, "RPGBRBOT: digite um numero entra 1 e 5."
/Set #Temp, 5
EndIf
If #Temp = 5
/Set #It(#Source), 0
/Set #Ti(#Source), 0
/Set #TT(#Source), 0
/Exit
EndIf
/Set #Temp, #Val(#Temp + 2)
/Set #Temp, #Val(#Temp * 3)
/Set #TempA, #Ti(#Source)
/Set $TempB, $Mid($GetValue($GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#TempA)), $Str(#Temp), 3)
/Set #TempC, #TT(#Source)
/Set $TempD, #Val($GetValue($Str(#TempC) & "_MT"))
If #Len($TempD) = 2
/Set $TempD, "0" & $TempD
EndIf
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#TempA))
/SaveValue $GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#TempA), $Left($Temp, #Val(#Temp-1)) & $TempD & $Right($Temp, #Len($Temp)-#Val(#Temp-1+3))
/SendPM #Source, "RPGBRBOT: Movetutor taught."
/Set #It(#Source), 0
/Set #Ti(#Source), 0
/Set #TT(#Source), 0
/Set #Temp, #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#TempC)))
/Inc #Temp, -1
/SaveValue $GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#TempC), #Temp
/Set #It(#Source), 0
/Set #Ti(#Source), 0
/Set #TT(#Source), 0
EndIf
If $Left($Message, 3) = "!MT"
/StopEvent
If #Len($Message) > 6
/SendPM #Source, $RPG & " That is not a valid command."
/Exit
EndIf
/Set #Temp, #Val($Mid($Message, 4, 1))
If #Temp < 1 OR #Temp > 6
/SendPM #Source, "RPGBRBOT: digite um numero entre 1 e 6."
/Exit
EndIf
/Set #TempA, #Val($Right($Message, #Len($Message) - 5))
/Set $Temp, $GetValue($GetPlayerInfo(#Source, PSID) & "_Pokemon" & $Str(#Temp))
/Set $TempA, $Pokemon(#Val($Mid($Temp, 1, 3)))
If #Val($GetValue($GetPlayerInfo(#Source, PSID) & "_MT" & $Str(#TempA))) = 0
/SendPM #Source, "RPGBRBOT: You do not have that Movetutor."
/Exit
EndIf
If #IsIn($GetValue($Str(#TempA) & "_MT_L"), $TempA) = 0
/SendPM #Source, "RPGBRBOT: o pokemon nuam aprende pelo Movetutor."
/Exit
EndIf
If #IsIn($GetValue($Str(#TempA) & "_MT_L"), $TempA) > 0
/Set #Ti(#Source), $Str(#Temp)
/Set #TT(#Source), $Str(#TempA)
/Set #It(#Source), 2468013
/SendPM #Source, "*** " & $TempA & " esta tentando aprender " & $Move(#Val($GetValue($Str(#TempA) & "_MT"))) & "!"
/SendPM #Source, "RPGBRBOT: " & $Move(#Val($getValue($Str(#TempA) & "_MT"))) & ":"
/SendPM #Source, "1: " & $Move($Mid($Temp, 9, 3))
If $Mid($Temp, 12, 3) = "000"
/SendPM #Source, "2: [None]"
/Exit
EndIf
/SendPM #Source, "2: " & $Move($Mid($Temp, 12, 3))
If $Mid($Temp, 15, 3) = "000"
/SendPM #Source, "3: [None]"
/Exit
EndIf
/SendPM #Source, "3: " & $Move($Mid($Temp, 15, 3))
If $Mid($Temp, 15, 3) = "000"
/SendPM #Source, "4: [None]"
/Exit
EndIf
/SendPM #Source, "4: " & $Move($Mid($Temp, 18, 3))
/SendPM #Source, "5: Cancel"
EndIf
EndIf
EndIf
EndIf
Infer- Curioso
- Mensagens : 5
Data de inscrição : 24/01/2010
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|