Modo compacto | Modo extendido

Augusto

Bueno como eh residido varias notificaciones para que les explique como funciona los scripts para poner imágenes fash en sus juegos, así que me obligan explicar el tema ^^.

Para utilizar un Sub de flash aquí tienen:

Cita:Sub Flash(ByVal index As Long, ByVal flashfile As String)

Sub: Generalmente lo explico como un sistema/conjunto para formar una estructura

______________________________________________________________

Para poner una imagen rapido:
En este caso vamos a usar un "call"

Cita:Call Flash(Index,"archivo.swf")

el Call lo pueden ubicar donde les parezca mejor "Main.txt", para los que les cuesta leer ^^ dejaré algo mas explicado en donde pueden colocar el Call.

Cita:Sub HotScript(Index, KeyID): Aquí se ejecuta cuando el cliente presiona diferentes teclas:
Select Case KeyID
' Tecla PaginaArriba
Case 1
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
' Tecla Suprimir
Case 2
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
' Tecla Fin
Case 3
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
' Tecla PaginaAbajo
Case 4
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
End Select
End Sub

Cita:Sub JoinGame(Index): Aquí lo que se ejecuta cuando el jugador entra al juego.
Sub JoinGame(Index)
If GetPlayerAccess(Index) = 0 Then
Call GlobalMsg(GetPlayerName(Index) & " ha entrado en " & GameName & "!", GREY)
Else
Call GlobalMsg("El Administrador " & GetPlayerName(Index) & " ha entrado en " & GameName & "!", YELLOW)
End If

Call PlayerMsg(Index, "Bienvenido a " & GameName & "!", WHITE)

If LenB(MOTD) <> 0 Then
Call PlayerMsg(Index, "MOTD: " & MOTD, BRIGHTCYAN)
End If

Call SendWhosOnline(Index)
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
End Sub

Cita:Sub PlayerLevelUp(Index) Aquí lo que se ejecuta cuando el jugador sube de nivel.
Dim TotalExp

Do While GetPlayerExp(Index) >= GetPlayerNextLevel(Index)
TotalExp = GetPlayerExp(Index) - GetPlayerNextLevel(Index)
Call Hechizoaljugador(index, 1)
Call SetPlayerLevel(Index, GetPlayerLevel(Index) + 1)

Call SetPlayerPOINTS(Index, GetPlayerPOINTS(Index) + 1)
Call SetPlayerExp(Index, TotalExp)
Loop

Call BattleMsg(Index, "Tienes " & GetPlayerPOINTS(Index) & " puntos de estado.", BRIGHTBLUE, 0)
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
End Sub

Cita:Sub ScriptedTile(Index, Script) Aquí lo relativo a cuando un jugador camina sobre un tile scripteado.
Select Case Script
Case 0
Call PlayerMsg(Index, "Este scripted tile parece no usarse.", WHITE)
Exit Sub

Case Else
Call PlayerMsg(Index, "No se encontro un titulo para el script. Contacta con un administrador.", WHITE)
Exit Sub
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
End Select

Cita:Sub OnClick(Index, Script) Aquí lo relativo a cuando un jugador cliquea en una tile OnClick.
Select Case Script
Case 0
Call PlayerMsg(Index, "Este scripted tile parece no usarse.", WHITE)
Exit Sub

Case Else
Call PlayerMsg(Index, "No se encontro un titulo para el script. Contacta con un administrador.", WHITE)
Exit Sub
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)

End Select
End Sub

Cita:Sub ScriptedNPC(Index, Script) Se ejecuta cuando un NPC hace una función scripteada.
Select Case Script
Case 0
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
End Select

End Sub

Cita:Sub Commands(Index) Se ejecuta cuando una acción con barra (/) se lanza al servidor.
Dim TextSay
Dim PlayerID
Dim MapNum

' Obtiene el comando en el cache.
TextSay = Trim(GetVar("Scripts\Comandos.ini", "TEMP", "Text" & Index))
TextSay = Split(TextSay)

Case "/imagenflash"
Call Flash(Index,"archivo.swf") (Pueden ponerlo aquí)
Exit Sub

Call PlayerMsg(Index, "Esto no es un comando valido.", BRIGHTRED)
End Select

End Sub