Boat Script

[Marsh]

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:

[Anonymous]

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

[marcopolo8]

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.

[dbgtrulz]

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

[Baron]

... 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.

[Spike]

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

[Baron]

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

[yakuza_II]

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

[Kay-No]

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?

[Spike]

o....k

[Cruzn]

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.

[yakuza_II]

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:

[Spike]

:lol:

[Darkmage]

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

[IceCream Tuesday]

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

[thecobra]

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

[Spike]

dude...this topic is 16 months old

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

[bashh]

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.