Boat Script

• Ertzel: So... Anyone with basic/none/limited photoshop or even paint skills want to make some money converting sprites for me?
  Today at 10:07:35 PM
• Gamma™: weaver why are you oflfine on H&H? :S
  Today at 10:04:26 PM
• Ertzel: Ya, only one try per knife, my one try failed :(
  Today at 10:00:17 PM
• LegendWeaver: is it one use?
  Today at 09:43:15 PM
• Ertzel: Wish I didnt spend my 1k+ credits to buy the stupid knife that failed at stealing Robins credits >.<
  Today at 09:42:42 PM
• Wraith: ) Kreator!
  Today at 09:06:52 PM
• Wraith: yes! you were! (in red text
  Today at 09:06:46 PM
• ToshiroHayate: Kreator!
  Today at 08:25:02 PM
• Kreator: o_0 Was I supposed to Wraith?
  Today at 08:16:02 PM
• [Pie] ICT: Don't worry.. I commented.
  Today at 07:55:08 PM
• Wraith: Ay, kreator, wtf is up with you not posting anything about my new cliffs??
  Today at 07:50:36 PM

[EO] Attaching Problem. by 314piwm
[Today at 10:21:04 PM]
Project Vertigo [2d Tile-based Side-Scrolling Engine] by Miguu
[Today at 10:03:22 PM]
Zacaras Empire (Hiring) by Ertzel
[Today at 08:43:54 PM]
custom cliff tiles by ToshiroHayate
[Today at 08:29:15 PM]
.: RPG Kingdom :. by LegendWeaver
[Today at 08:25:20 PM]
What do you think? by [Pie] ICT
[Today at 07:54:54 PM]
[Show Off] Aztec Stuff by [Pie] ICT
[Today at 07:50:07 PM]
So I herd you liek mudkipz by Kreator
[Today at 07:36:52 PM]
Haven and Hearth: Epic Screenshot Thread by Tompwnage™
[Today at 07:14:21 PM]
The Lonliest Star [RP] by DDunit
[Today at 07:09:46 PM]

• Guests: 21
• Hidden: 0
• Users: 15
• Users Online:

• Helladen
• Back to teeming
• drifter000
• jncoblack15
• BRiM570N3
• 314piwm
• Ertzel
• RavenStar
• Bloodmyst
• yaratemaster
• bunnyphantom
• Blue Fly
• LegendWeaver
• Gamma™
• Mikekan13

Difficulty: Medium 3/5

Creator: Dram

Code:

    Case 2
        If int(GetPlayerSprite(Index)) > 79 Then
           Call SetPlayerSprite(Index, 79)
           Call PlayerMsg(index, "You begin to set sail.", 2)
           Call SendPlayerData(index)

   ElseIf int(GetPlayerSprite(Index)) < 79 Then
             Call SetPlayerSprite(Index, 79)
           Call PlayerMsg(index, "You begin to set sail.", 2)
           Call SendPlayerData(index)
   End If

    Case 3  
   Dim Sprite

        Sprite = int(GetVar("accounts\" & GetPlayerLogin(index) &".ini", "CHAR" & GetPlayerCharNum(index), "Sprite"))
   
        If int(GetPlayerSprite(Index)) = 79 Then
               Call SetPlayerSprite(Index, Sprite)
               Call PlayerMsg(index, "You have docked.", 2)
               Call SendPlayerData(index)
        Else
               Call PlayerMsg(Index, "Step onto the water to begin sailing", 2)
        End If


Here you go people!

the boat script! Smile
turns you into a boat = Case 2
turns you Back = Case 3

Edit: oops did not know someone else posted it :blink:

Marsh

Im not good at scripting.
So I dont know where I should put the script
can u tell me?

Anonymous

I added call so I warp 2 blocks past on the the docking else the player can dock the boat carfully and then bring it upon land.


    Call PlayerWarp(index, 4, 5, 21)


of course each dock will need its own docking script - it did stop the problems with carefull planning.

marcopolo8

For case 2, why don't you just say:

Code: [Select]

If int(GetPlayerSprite(Index)) <> 79 Then
Call SetPlayerSprite(Index, 79)
Call PlayerMsg(index, "You begin to set sail.", 2)
Call SendPlayerData(index)
End If
The <> means "does not equal". So if the player's sprite does not equal 79 then turn him into a boat. Saves code and system resources

dbgtrulz

I modified the boat script. The one you have up there as of this post has one big glitch: If you log out when you're a boat, or you save when your a boat, you will be a boat on last after docking, because it would've saved your sprite as 79. This version fixes that glitch:

Code: [Select]

Case 2
If int(GetPlayerSprite(index)) <> 79 Then
Call PutVar("accounts\" & GetPlayerLogin(index) &".ini", "CHAR" & GetPlayerCharNum(index), "noboat", GetPlayerSprite(index))
Call SetPlayerSprite(index, 79)
Call PlayerMsg(index, "You begin to set sail.", 2)
Call SendPlayerData(index)
End If
Case 3
Dim Sprite
Sprite = int(GetVar("accounts\" & GetPlayerLogin(index) &".ini", "CHAR" & GetPlayerCharNum(index), "noboat"))
If int(GetPlayerSprite(index)) = 79 Then
Call SetPlayerSprite(index, Sprite)
Call PlayerMsg(index, "You have docked.", 2)
Call SendPlayerData(index)
Else
Call PlayerMsg(index, "Step onto the water to begin sailing", 2)
End If

dbgtrulz

... Itd be easier if you just set up block tiles around all the water edges, and had one scripted tile that simply put a var into the character file.

ie (Psuedocode, not sadscript.)

Case scriptedtilenumberx

 if getVar boat <> 1 then
Putvar currentplayersprite into boattemp
set playersprite to boatsprite
Putvar boat = 1

 if getVar boat = 1 then
Set currentplayersprite to boattemp
Putvar boat = 0

-----

I couldnt be arsed scripting it completely properly. This script also relies on ini creation through On error Resume next.

Baron

id take barons word for it if I were u...hes one of the best scriptors I know

Spike

id take barons word for it if I were u...hes one of the best scriptors I know

Ill post my script for boats here in 2 secs, just debugging it...

Baron

Code: [Select]



Case SCRIPTEDTILEX
'DIM THESE:
'sprite
'onMsg
'offMsg

onMsg = PUT_GET_ON_MESSAGE_HERE
offmsg = PUT_GET_OFF_MESSAGE_HERE
sprite = PUT_SPRITE_NUMBER_HERE
Call Boatchange(index, sprite, onMsg, offMsg)



Thats your scripted tile code. Change SCRIPTEDTILEX to the new number.

Place this scripted tile wherever you want people to change from land to boat or vice versa.

Paste this at the bottom of your main.txt

Code: [Select]


'**************************
'**************************
'BOAT SCRIPT BY BARONY
'Last Edited Jan 31st 2006
'www.barony.deviantart.com
'**************************
'**************************

Sub Boatchange(index,sprite,onMsg,offMsg)
On Error Resume Next
Dim enterboat
Dim leaveboat
Dim boat

'***********


Boat = 0 + GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "boat")

If boat = 1 Then

leaveboat = 0 + GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "offboat")

Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "boat", "0")

Call Setplayersprite(index, leaveboat)
Call SendPlayerData(index)

Call PlayerMsg (index, OffMsg, 4)

End If

'****************

enterboat = 0 + (GetPlayerSprite(index))

Call PlayerMsg (index, "sprite = " & enterboat, 4)

If boat <> 1 Then

Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "boat", "1")

Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(index), "offboat", 0 + enterboat )

Call Setplayersprite(index, sprite)
Call SendPlayerData(index)

Call PlayerMsg (index, onMsg, 4)

End If

End Sub

'**************************
'End Of Boat Script
'Place Scripted Tile calling this script where ever you want players to change from their current sprite to boat or vice versa.
'Do not delete the On Error Resume Next for this script, this is needed to create the .ini check logic.
'**************************



It is also important to note that this same script could be used to make players swim across rivers, drive cars etc etc.

Like all the scripts I write, I hope they are versatile enough toi help you do something cool. Enjoy this

Baron

thanx everyone I was usin a similar written script without realising its major flaw... phew.... take that bugs

yakuza_II

I using boat script and it works very good but theres one thing,
when I go on the boat scripted tile I turn into a boat but then can I
just go back and im a boat that sealing around on the land...

got one more question, can I make so  I need a item to go boating
like an boat contract?

Kay-No

o....k

Spike

Place at the bottom of the main.txt

Code: [Select]

' ********************************************
' * Base Script By: Dram // Script By: Cruzn *
' ********************************************
Sub BoatDock(index, sprite, message, color)
    If GetPlayerSprite(index) = sprite Then
        Call BlockPlayer(index)
        Call PlayerMsg(index, "Sorry, this is the entrance.", 1)
    Else
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "TempSprite" , 0)
        Call PutVar("accounts\" & GetPlayerLogin(index) & ".ini " , "CHAR" & GetPlayerCharNum(Index) , "TempSprite" , GetPlayerSprite(index))
        Call SetPlayerSprite(index, sprite)
        Call PlayerMsg(index, message, color)
        Call SendPlayerData(index)
    End If
End Sub

' ********************************************
' * Base Script By: Dram // Script By: Cruzn *
' ********************************************
Sub BoatExit(index, sprite, message, color)
    If GetPlayerSprite(index) <> sprite Then
        Call BlockPlayer(index)
        Call PlayerMsg(index, "Sorry, this is the exit.", 1)
    Else
    Call SetPlayerSprite(index, GetVar("accounts\" & GetPlayerLogin(index) & ".ini", "CHAR" & GetPlayerCharNum(Index), "TempSprite"))
    Call PlayerMsg(index, message, color)
    Call SendPlayerData(index)
    End If
End Sub

Use these codes under ScriptTile Sub::Examples;

Code: [Select]

   Case 2
        Call BoatDock(index, 31, "You set sail across the smooth seas.", 1)
    Case 3
        Call BoatExit(index, 31, "Your boat docks safely, and you walk off.", 1)

Code: [Select]

Call BoatDock(index, sprite, "message", color)

That should help... -- My version of this script.

Cruzn

you need to have to docks one getting on the boat with scripted tile "1" and another with dock to get off boat with scripted tile "2"


wat happened to avatar baron !!!!!    its all pirated!!!! hehehe

pirates dig the booty :wink:

yakuza_II

:lol:

Spike

Where do I paste it and how do I get it to work?

Darkmage

you paste it in your main txt
I suggest you dont use scripts untill you semi understand how the hell they work

[Pie] ICT

you need to have to docks one getting on the boat with scripted tile "1" and another with dock to get off boat with scripted tile "2"


wat happened to avatar baron !!!!!    its all pirated!!!! hehehe

pirates dig the booty :wink:

u can just mae a tile that check if u are a bouat or some one else

thecobra

dude...this topic is 16 months old

please add a "BUMPED TOPIC" sign to the beginning of your post

Spike

let me tell u something, if you turn into a boat and you have paperdoll, then your clothes will still be on. xD

So you'll look like a boat wearing clothes.

bashh