Eclipse
January 05, 2009, 08:06:18 PM *
Welcome, Guest. Please login or register.
Did you miss your activation email?

Login with username, password and session length
News:
 
   Home   Chat Help Rules Arcade Search Calendar Gallery Login Register  
 
 
 
Recent Topics +-
32 by 32 pd by ‪‫‬‭‮‪‫‬‭The Admiral
Today at 08:03:00 PM

The New Eclipse Raid on Runscape by Kreator
Today at 08:02:12 PM

Actual Map for the continents by Amperglyph
Today at 07:54:10 PM

Disparity Recruiting by Peter
Today at 07:50:58 PM

Last one to post Wins by Hikaru
Today at 07:46:39 PM

Sig please :) by The BanHammer! [Thor!]
Today at 07:44:03 PM

Spike's Adminishness! by Marsh
Today at 07:36:56 PM

My Game by Sʎ|3><(_)z
Today at 07:36:22 PM

THE Cult by ‪‫‬‭‮‪‫‬‭The Admiral
Today at 07:34:15 PM

Server Issue by Xavi
Today at 07:33:20 PM

Members Online +-
10 Guests, 18 Users
Hikaru,
Japez,
Teh_General,
westin444,
‪‫‬‭‮‪‫‬‭The Admiral,
Kreator,
Cynicle,
Peter,
Amperglyph,
grenegg1,
Doomteam1,
Artorios,
ノ◊ㄅサкレ∆z, a.k.a King Leonidas!!!,
ʇıunpp ʎqɹıʞ࣭,
Keebler Elf,
Rathearia,
l0lz!,
Southern
Pages: [1]
  Print  
Author Topic: Flying Steeds with Scrolls [3/5]  (Read 848 times)
0 Members and 1 Guest are viewing this topic.
Godlord
Stephanus sum
Veteran
Teh Uberleet
*
Offline Offline

Posts: 4,109


View Profile WWW Email
« on: February 21, 2007, 05:48:40 AM »

:te:

This is based on the Flying [2/5] script.

Quote
Non-Scripter [3/5]
Beginner [3/5]
Advanced Scripter [2/5]
Expert [1/5]
Pro Scripter [1/5]

Code:

Place this script in a new case in ScriptedItems:
Code: [Select]
Dim avertixa
        avertixa = GetVar("Steed.ini",GetPlayerName(index),"Steed")
        If avertixa = 1 Then
            Call PlayerMsg(index, "You are on a steed already.", 12)
        Else
            Call PutVar("Steed.ini",GetPlayerName(index),"Steed",1)
            Call PutVar("Steed.ini",GetPlayerName(index),"NormalClass",GetPlayerClass(index))
            Call SetPlayerClass(index, GetVar("SteedConfig.ini","Config","SteedClass"))
            Call PutVar("Steed.ini",GetPlayerName(index),"Sprite",GetPlayerSprite(index)
            Call SetPlayerSprite(index, GetVar("SteedConfig.ini","Config","SteedSprite"))
        End If

Place this in a hotkey:
Code: [Select]
Dim avertixa
        avertixa = GetVar("Steed.ini",GetPlayerName(index),"Steed")
        If avertixa = 0 Then
            Call PlayerMsg(index, "You aren't on a steed.", 12)
        Else
            Call PutVar("Steed.ini",GetPlayerName(index),"Steed",0)
            Call SetPlayerClass(index, GetVar("Steed.ini",GetPlayerName(index),"NormalClass"))
            Call SetPlayerSprite(index, GetVar("Steed.ini",GetPlayerName(index),"Sprite"))
        End If

Create an INI called "SteedConfig.ini" (without the "")
Place the next in it:
SteedConfig.ini
Code: [Select]
[Config]
SteedClass=#
SteedSprite=%

Replace # with the class which is the fly class. Places where you only can fly, put there class blocks.
Replace % with the sprite which is a steed. you can only use numbers if you don't know it :P.

Done.

Function:
This lets players ride on flying steeds player will be on steed when using scroll and when pressing hotkey the player will go off, like in SilkRoad. The only bad thing is steeds can only be so big as the players so 32x64 or 32x32.

Credits:
The Credits go to me, Godlord.
No posting this script somewhere else without my permission.
No stealing nor remodifying(Which happened before).



Any questions or suggestions please post them here. No flaming please.
Pages: [1]
  Print  
 
 

Powered by EzPortal
Powered by MySQL Powered by PHP Powered by SMF 2.0 Beta 4 | SMF © 2006–2008, Simple Machines LLC | Sitemap Valid XHTML 1.0! Valid CSS!
Page created in 0.368 seconds with 32 queries.