Map Copy 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 Ertzel
[Today at 10:11:57 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: 17
• Users Online:

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

Heya all, another script submission from me :D. I hope you like it, it certainly is usefull!

With /mapsave it will save the current map to a .ini file on the server.
With /mapload it will open the ini file, and copy it to your current map.

For example:
I got a nice forest map, and I want the next map to be exactly the same. So I go to the current forest map, and I enter /mapsave, I wait for it to finish, and then I go to the next map, and I use /mapload, and voila, I got a filled forest map.

WARNING, READ THIS!
This script will overwrite all current things in the map without asking! Please do not be angry at my if you screwed your game with this script, I can't help it. Be sure you are in a map that can be completely redone before you use the command!!!! Also, this script will ONLY copy BLOCKED and NPC AVOID atributes, to avoid any errors!!!

Warning 2: DO NOT EXIT GAME OR CHANGE MAP WHILE LOADING/SAVING, THIS WILL MOST LIKELY CAUSE YOUR SERVER TO CRASH!!!!



Installing the script:

Step 1: Copy this part at the bottom of your main:

Code: [Select]


'************************************************
'MAP COPY SCRIPT © Dinand Mentink (Ilnair) !!!!
'************************************************
Sub LoadMap(index, map)
If GetPlayerAccess(index) > 0 Then
Call PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)
Else
Exit Sub
End If
Dim layer
Dim x
Dim y

Dim editx
Dim edity
Dim editset

x = 0
layer = 0
y = 0



Do While Layer < 9
Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While y < 15
Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While X < 20
editx = GetVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "x")
edity = GetVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "y")
editset = GetVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "set")

Call SetTile(map, x, y, editx, edity, editset, layer)  



X = X + 1
Loop
y = y + 1
x = 0
Loop
layer = layer + 1
y = 0
x = 0
Loop

x = 0
y = 0

Do While Y < 15

Call PlayerMsg(index, "90% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While x < 20

editset = GetVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y)

Call SetAttribute(GetPlayerMap(index),x,y,editset,0,0,0,"","","")
x = x + 1
loop
y = y + 1
x = 0
loop



Call PlayerMsg(index, "MAP LOAD SUCCESS!!!!!", 10)
End Sub


Sub SaveMap(index)
If GetPlayerAccess(index) > 0 Then
Call PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)
Else
Exit Sub
End If
Dim layer
Dim x
Dim y

x = 0
layer = 0
y = 0



Do While Layer < 9
Do While y < 15
Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While X < 20

Call PutVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "x",

GetTileX(GetPlayerMap(index), X, Y, layer))

Call PutVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "y",

GetTileY(GetPlayerMap(index), X, Y, layer))

Call PutVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "set",

GetTileSet(GetPlayerMap(index), X, Y, layer))
X = X + 1
Loop
y = y + 1
x = 0
Loop
layer = layer + 1
y = 0
x = 0


Loop


x = 0
y = 0

Do While Y < 15

Call PlayerMsg(index, "90% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While x < 20
If GetAttribute(GetPlayerMap(index), x, y) = 1 or GetAttribute(GetPlayerMap(index), x, y) = 4 Then
Call PutVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y,

GetAttribute(GetPlayerMap(index), x, y) & "")
Else
Call PutVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y, "0")
End If
x = x + 1
loop
y = y + 1
x = 0
loop



Call PlayerMsg(index, "MAP SAVE SUCCESS!!!!!", 10)
End Sub
'**************************************************
'END OF MAP COPY SCRIPT! ©Dinand Mentink (Ilnair)
'**************************************************


And then add the folowing commands:

Code: [Select]

Case "/mapsave"
Call SaveMap(index)
Exit Sub

Case "/mapload"
Call LoadMap(index, GetPlayerMap(index))
Exit Sub


And that should do it!

1 more time:
I AM NOT RESPONSIBLE FOR ANY MAP LOSS BECAUSE OF THIS!!!!
The script will not cause any maps to be lost if used correctly, always use your head when using it!

Ilnair

I just use copy paste and rename the map is quicker and easier

Rogue

Yah, agreed, but you gotta restart server for that. Also, after installing this will be easyer ^^.

Btw, I'm also using this script in my playerhouse script, to reset all playerhouses monthly.


Well, just do with it what you want, I don't really care ^^.

Ilnair

Everytime it runs though, it will lag the server drasically and no other scripts will run till it finishes. Im struggling with that at the moment -_-

Fulou

I know, that's why I said: use your head while using this script...

Ilnair

This topic is abit old, but I thought -- for newb's sake -- I should post this....

Someone said this script doesn't work, because there are some line breaks or something like that... Whether that is true or not, I decided to post it (what they claim as a working version) anyway:

Code: [Select]

'************************************************
'MAP COPY SCRIPT © Dinand Mentink (Ilnair) !!!!
'************************************************
Sub LoadMap(index, map)
If GetPlayerAccess(index) > 0 Then
Call PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)
Else
Exit Sub
End If
Dim layer
Dim x
Dim y

Dim editx
Dim edity
Dim editset

x = 0
layer = 0
y = 0



Do While Layer < 9
Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While y < 15
Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While X < 20
editx = GetVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "x")
edity = GetVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "y")
editset = GetVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "set")

Call SetTile(map, x, y, editx, edity, editset, layer)



X = X + 1
Loop
y = y + 1
x = 0
Loop
layer = layer + 1
y = 0
x = 0
Loop

x = 0
y = 0

Do While Y < 15

Call PlayerMsg(index, "90% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While x < 20

editset = GetVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y)

Call SetAttribute(GetPlayerMap(index),x,y,editset,0,0,0,"","","")
x = x + 1
loop
y = y + 1
x = 0
loop



Call PlayerMsg(index, "MAP LOAD SUCCESS!!!!!", 10)
End Sub


Sub SaveMap(index)
If GetPlayerAccess(index) > 0 Then
Call PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)
Else
Exit Sub
End If
Dim layer
Dim x
Dim y

x = 0
layer = 0
y = 0



Do While Layer < 9
Do While y < 15
Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While X < 20

Call PutVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "x", GetTileX(GetPlayerMap(index), X, Y, layer))

Call PutVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "y", GetTileY(GetPlayerMap(index), X, Y, layer))

Call PutVar("playerhouse.ini", "house save", layer & " " & x & " " & y & " " & " " & "set", GetTileSet(GetPlayerMap(index), X, Y, layer))
X = X + 1
Loop
y = y + 1
x = 0
Loop
layer = layer + 1
y = 0
x = 0


Loop


x = 0
y = 0

Do While Y < 15

Call PlayerMsg(index, "90% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)

Do While x < 20
If GetAttribute(GetPlayerMap(index), x, y) = 1 or GetAttribute(GetPlayerMap(index), x, y) = 4 Then
Call PutVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y,

GetAttribute(GetPlayerMap(index), x, y) & "")
Else
Call PutVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y, "0")
End If
x = x + 1
loop
y = y + 1
x = 0
loop



Call PlayerMsg(index, "MAP SAVE SUCCESS!!!!!", 10)
End Sub
'**************************************************
'END OF MAP COPY SCRIPT! ©Dinand Mentink (Ilnair)
'**************************************************Thank Rotales for fixing it (I think).

ÅÐмiядζ ЯĢ€