Home    Zoeken Zoeken    Leden Leden    Gebruikerspaneel Gebruikerspaneel    Inloggen Inloggen  
Het is nu 28 maart 2024 17:06

Alle tijden zijn GMT + 1 uur [ Zomertijd ]




Plaats een nieuw onderwerp Antwoord op onderwerp  [ 9 berichten ] 
Auteur Bericht
 Berichttitel: Icehosting MMORPG?
BerichtGeplaatst: 27 sep 2004 21:34 
Offline
Pro

Geregistreerd: 26 aug 2004 15:30
Berichten: 28
Vraagjuh voor Roland. :P

Ik ben bezig met een 2D MMORPG en ik wou vragen of je Admin zou willen worden in deze MMORPG, het spel word dan officieel van jou en Icehosting of een andere naam hoe jij het wil genoemd worden..

Het enige probleem is dat de server die erbij zit niet kan worden gerunt door mensen of iets met een router...

Dus als jij misschien mee wil doen. of niet zeg ut dan even.

(Ik ben al een tijdje niet meer op msn geweest wegens kut problemen met me msn)

Dus zeg hier maar ja/nee wat jij wil :P

_________________
Afbeelding


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 27 sep 2004 21:48 
Offline
Pro

Geregistreerd: 26 aug 2004 15:30
Berichten: 28
-soz voor dubbel post-

Hierbij kan ik ook Betaalde accounts maken, maar omdat ik geen paypal of iets heb of waarmee ik geld kan verdienen kan het dus naar Icehosting gaan, Betaalde accounts hebben dus P2P Access in het spel

(Meer wapens, meer steden, meer monsters, etc.)

Bijv. €5,- per maand ofzow...

Ik heb dit eens eerder gedaan alleen de persoon waarmee ik dit spel dus had kon niet meer voor de server regelen en moest dus het spel offline gaan.

_________________
Afbeelding


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 28 sep 2004 16:31 
Offline
Site Admin
Avatar gebruiker

Geregistreerd: 05 jul 2004 23:45
Berichten: 575
Woonplaats: Haaksbergen
Als je eerst mij uitgelgd wat zo'n 2D MMORPG spel is, dan zal ik erover nadenken.

Vermeld ook wat je wil hebben aan dataverkeer/account.

_________________
Afbeelding


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 29 sep 2004 17:27 
Offline
Icehosting Staff
Avatar gebruiker

Geregistreerd: 08 jul 2004 09:35
Berichten: 249
www.runescape.com

zo'n soort spel, maar dan 2d :)


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 30 sep 2004 16:36 
Offline
Pro

Geregistreerd: 26 aug 2004 15:30
Berichten: 28
Ja zoiets.. alleen is het met de skills iets moeilijker.. want dan moet ik wat meer met scripten leren en ik ben niet zo goed in Visual Basic :P

- Script:

Code:
If player scratches his balls
then setplayerlife = dead.

End Sub.


Dit heb ik net maar ff verzonnen.. maar zoiets moet je dan kennen :P
(Jij dan niet maar je hoeft geen programming skills te hebben of wat dan ook om mappen enzo te maken en om het spel te "ownen")

_________________
Afbeelding


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 01 okt 2004 17:01 
Offline
Icehosting Staff
Avatar gebruiker

Geregistreerd: 08 jul 2004 09:35
Berichten: 249
is simpeler als PHP :P


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 01 okt 2004 22:27 
Offline
Pro

Geregistreerd: 26 aug 2004 15:30
Berichten: 28
Niet als je een heel script moet maken :P

Hier ff een voorbeeldje.

Code:
Sub Init ()
'***********************************************************
'* This event is fired when the server has started.        *
'***********************************************************

'**********************************
'Set your server variables below. *
'**********************************

'Set your Server name.
Call SetServerName("Icehosting")

'Initialize the system tray icon, with the name you wish.     
'Remember to set your server name BEFORE initializing the Tray!
'You should no longer pass a name to the InitTray Sub, it
'automatically picks up the Server Name from above.
Call InitTray()

'Set your Server port.
Call SetServerPort(7234)
'Set the maximum maps.
Call SetMaxMaps(1000)
'Set the maximum players.
Call SetMaxPlayers(700)
'Set the start Map, X and Y values players will start.
Call SetDefaultPosition(1,10,10)
'Set the MOTD
Call SetMOTD("Icehosting MMORPG Online!")
'Set the Auto Ban on all hacking attempts (True of False)
Call SetAutoBan(False)

End Sub

Sub Destroy()
'***********************************************************
'* This event is fired when the server has ended  .        *
'***********************************************************

'Destroy the system tray icon.
Call DestroyTray()
'Save all players online, before completely shutting down the server.
Call SaveAllPlayersOnline()
'Clear all maps.
Call ClearMaps()
'Clear all map items.
Call ClearMapItems()
'Clear all map NPCs.
Call ClearMapNPCs()
'Clear the NPC cache.
Call ClearNPCs()
'Clear Item cache.
Call ClearItems()
'Clear shop cache.
Call ClearShops()

End Sub

Sub OnReload(Player)
'***************************************************************
'* This event is fired when a player has reloaded this script. *
'***************************************************************


End Sub

Sub JoinGame(Player)
'***********************************************************
'* This event is fired when a player has joined the game.  *
'***********************************************************

'Send the MOTD.
Call SendMOTD(Player)
'send the welcome message.
Call PlayerMessage(Player, "Welcome to " & GetServerName & "!", 9)
Call PlayerMessage(Player, "Type /help voor commando's gebruik ctrl om te vechten, shift om te rennen en enter op iets op te pakken.", 3)
'Send them a list of players online.
Call SendWhosOnline(Player)
'Tell everybody that player has joined.
If GetPlayerAccess(Player) <= 1 Then
   Call GlobalMessage(GetPlayerName(Player) & " has joined " & GetServerName & "!")
Else
   Call GlobalMessage(GetPlayerName(Player) & " has joined " & GetServerName & "!")
End If
End Sub     

Sub LeftGame(Player)
'***********************************************************
'* This event is fired when a player has left the game.    *
'*********************************************************** 
'Tell everybody that player has joined.
If GetPlayerAccess(Player) <= 1 Then
   Call GlobalMessage(GetPlayerName(Player) & " heeft " & GetServerName & "Verlaten!")
Else
   Call GlobalMessage(GetPlayerName(Player) & " heeft " & GetServerName & "Verlaten!")
End If
End Sub

Sub OnLevelUp(Player)
Dim I

Call SetPlayerLevel(Player, GetPlayerLevel(Player) + 1)
'Get the amount of skill points to add
I = Int(GetPlayerSpeed(Player) / 10)
If I < 1 Then I = 1
If I > 3 Then I = 3

Call SetPlayerPoints(Player, GetPlayerPoints(Player) + I)
Call SetPlayerExp(Player, 0)
'Send a global message to every single person to let them know!
Call GlobalMessage(GetPlayerName(Player) & " has gained a level!", 6)
Call PlayerMessage(Player, "You have gained a level!  You now have " & GetPlayerPoints(Player) & " stat points to distribute.", 9)

End Sub

_________________
Afbeelding


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 02 okt 2004 01:11 
Offline
Site Admin
Avatar gebruiker

Geregistreerd: 05 jul 2004 23:45
Berichten: 575
Woonplaats: Haaksbergen
ziet er nog makkelijk uit :P

_________________
Afbeelding


Omhoog
 Profiel  
 
 Berichttitel:
BerichtGeplaatst: 02 okt 2004 14:40 
Offline
Pro

Geregistreerd: 26 aug 2004 15:30
Berichten: 28
Dat is nog maar een gedeleelte :P

Ik ga niet de source enzo erbij doen :P

_________________
Afbeelding


Omhoog
 Profiel  
 
Geef de vorige berichten weer:  Sorteer op  
Plaats een nieuw onderwerp Antwoord op onderwerp  [ 9 berichten ] 

Alle tijden zijn GMT + 1 uur [ Zomertijd ]


Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 9 gasten


Je mag geen nieuwe onderwerpen in dit forum plaatsen
Je mag niet antwoorden op een onderwerp in dit forum
Je mag je berichten in dit forum niet wijzigen
Je mag je berichten niet uit dit forum verwijderen
Je mag geen bijlagen toevoegen in dit forum

Zoek naar:
Ga naar:  
cron
Copyright © 2004 - 2016 IceHosting - Alle rechten voorbehouden - Powered by phpBB