'************************************************'MAP COPY SCRIPT © Dinand Mentink (Ilnair) !!!!'************************************************Sub LoadMap(index, map)If GetPlayerAccess(index) > 0 ThenCall PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)ElseExit SubEnd IfDim layerDim xDim yDim editxDim edityDim editsetx = 0layer = 0y = 0Do 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 Looplayer = layer + 1y = 0x = 0Loopx = 0y = 0Do 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 loopy = y + 1x = 0loopCall PlayerMsg(index, "MAP LOAD SUCCESS!!!!!", 10)End SubSub SaveMap(index)If GetPlayerAccess(index) > 0 ThenCall PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)ElseExit SubEnd IfDim layerDim xDim yx = 0layer = 0y = 0Do 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 Looplayer = layer + 1y = 0x = 0Loopx = 0y = 0Do 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 loopy = y + 1x = 0loopCall PlayerMsg(index, "MAP SAVE SUCCESS!!!!!", 10)End Sub'**************************************************'END OF MAP COPY SCRIPT! ©Dinand Mentink (Ilnair)'**************************************************
Case "/mapsave"Call SaveMap(index)Exit SubCase "/mapload"Call LoadMap(index, GetPlayerMap(index))Exit Sub
'************************************************'MAP COPY SCRIPT © Dinand Mentink (Ilnair) !!!!'************************************************Sub LoadMap(index, map)If GetPlayerAccess(index) > 0 ThenCall PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)ElseExit SubEnd IfDim layerDim xDim yDim editxDim edityDim editsetx = 0layer = 0y = 0Do While Layer < 9Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)Do While y < 15Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)Do While X < 20editx = 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 + 1Loopy = y + 1x = 0Looplayer = layer + 1y = 0x = 0Loopx = 0y = 0Do While Y < 15Call PlayerMsg(index, "90% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)Do While x < 20editset = GetVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y)Call SetAttribute(GetPlayerMap(index),x,y,editset,0,0,0,"","","")x = x + 1loopy = y + 1x = 0loopCall PlayerMsg(index, "MAP LOAD SUCCESS!!!!!", 10)End SubSub SaveMap(index)If GetPlayerAccess(index) > 0 ThenCall PlayerMsg(index, "DO NOT EXIT OR CHANGE MAP!!!!!!", 12)ElseExit SubEnd IfDim layerDim xDim yx = 0layer = 0y = 0Do While Layer < 9Do While y < 15Call PlayerMsg(index, layer & "0% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)Do While X < 20Call 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 + 1Loopy = y + 1x = 0Looplayer = layer + 1y = 0x = 0Loopx = 0y = 0Do While Y < 15Call PlayerMsg(index, "90% DO NOT EXIT OR CHANGE MAP!!!!!!", 12)Do While x < 20If GetAttribute(GetPlayerMap(index), x, y) = 1 or GetAttribute(GetPlayerMap(index), x, y) = 4 ThenCall PutVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y,GetAttribute(GetPlayerMap(index), x, y) & "")ElseCall PutVar("playerhouse.ini", "house save", "atribute" & " " & x & " " & y, "0")End Ifx = x + 1loopy = y + 1x = 0loopCall PlayerMsg(index, "MAP SAVE SUCCESS!!!!!", 10)End Sub'**************************************************'END OF MAP COPY SCRIPT! ©Dinand Mentink (Ilnair)'**************************************************
Remember that marshmallow from Ghost Busters? marsh is a Canadian version of that.
Hello! I am French and I have found my happiness on your software.