SCRIPT PESCAR

por **Lendário** Qui 21 maio 2009, 12:35

Explicação

esse script ira gerar um numero aleatorio,com isso vc ira poder pescar um peixe ou encontrar nada....T.T
quanto maior seu level mais facil é para vc pegar o peixe,ou item^^**q obviu ^^°**
Codigo
para instalar o script de pescar,siga as instruções abaixo:

1) encontre a parte branca ecima do 'Sub ScriptedTile(index, Script)' no arquivo "main.text" na pasta "scripts" na outra pasta "SERVER" vou mostrar abaixo o diagrama^^...ESSE AI NÃO É O CODIGO Q VC TEM Q COPIAR ¬¬

CODIGO

Código:: Sub DropItems(index) If GetPlayerWeaponSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerWeaponSlot(index), 0) End If If GetPlayerArmorSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerArmorSlot(index), 0) End If If GetPlayerHelmetSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerHelmetSlot(index), 0) End If If GetPlayerShieldSlot(index) > 0 Then Call PlayerMapDropItem(index, GetPlayerShieldSlot(index), 0) End If End Sub ###############PARTE EM BRANCO!!!############### Sub ScriptedTile(index, Script) Select Case Script Case 0 Call Flash(index, "Intro.swf")

2)cole esse codigo abaixo na parte em branco do diagrama acima^^

codigo:

Código:: Sub ReplaceOneInvItem(index, olditem, newitem) Dim n n = 1 Do If GetPlayerInvItemNum(index, n) = olditem Then Call SetPlayerInvItemNum(index, n, newitem) Call SendInventoryUpdate(index, n) Exit Do End If n = n + 1 Loop Until n > 24 End Sub Sub GoFishing(index, item, maxlevel, name) Dim c Dim level level = maxlevel + 1 If GetPlayerlevel(index) < maxlevel Then c = Int(Rnd * Int(level - GetPlayerLevel(index))) If c = 1 Then Call PlayerMsg(index, GetPlayerName(index) & " caught a " & name, 2) Call ReplaceOneInvItem(index, 0, item) Else Call PlayerMsg(index, GetPlayerName(index) & " found nothing!", 12) End If Else Call PlayerMsg(index, GetPlayerName(index) & " caught a " & name, 2) Call ReplaceOneInvItem(index, 0, item) End If End Sub

3) pronto agora vamos trabalhar no resto do codigo^^
procure no mesmo arquivo a sessão "case" e procure o proximo numero de case q não esteja sendo usado..para o exemplo vamos dizer q o proximo é Case 2..mas contudo pode ser outros numeros

codigo

Código:: Case 9 dim weapon weapon = GetPlayerWeaponSlot(index) If weapon = 0 Then Call PlayerMsg(index, "You don't have a #nome do equipamento# equiped", 15) ElseIf GetPlayerInvItemNum(index, weapon) = #numero do equipamento# Then Call GoFishing(index, #numero do peixe#, #level maximo#, "#nome do peixe") Else Call PlayerMsg(index, "You don't have a #nome do equipamento# equiped", 15) End If

partes q vc tem q mudar^^

#nome do equipamento# - esse é o nome do equipamento q vc precisa para pegar o peixe (exmplo mais obvio^^° vara de pescar)

#numero do equipamento# - esse eh o numero do equipamento q vc precisa para pescar^^

#numero do peixe# - esse eh o numero do item q vc ira pegar

#nome do peixe# - esse ai é o nome do peixe.somente mude o nome,NÃO DELETE as marcas d citação em volta do nome (^0^)

#level maximo# - esse é p level q começara a pegar o peixe com 100% por vez^^

OBS:vc pode fazer isso com varios lugares para pescar,bem simples copie e cole esse codigo numa "case" livre abaixo e mudar os numeros xD^^

Créditos : João poker