*** Scripts Report *** ******************************************************* ******************************************************* Name=10seconds Script Source= FUNCTION Main(Player AS LONG) AS LONG mapmessage(305, "10 seconds left until the trade ends and a new one can begin.", grey) END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=30seconds Script Source= FUNCTION Main(Player AS LONG) AS LONG mapmessage(305, "30 seconds left until the trade ends and a new one can begin.", grey) END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=60seconds Script Source= FUNCTION Main(Player AS LONG) AS LONG mapmessage(305, "One minute left until the trade ends and a new one can begin.", grey) END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ABtimer Script Source= 'AB BOSS Sub Main() If GetFlag(195) > 0 Then SetFlag(195, GetFlag(195) - 1) end if If GetFlag(195) = 0 Then SetFlag(195,15) Dim A As Long For A = 0 to 19 DespawnMonster(2130, A) Next A MapMessage(2130, "test.", yellow) Spawnmonster(2130,408,5,5) Spawnmonster(2130,408,6,2) end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=adrenaline Script Source= Sub Main(Player as Long) dim Health as Long Health = 40 If GetPlayerFlag(Player, 28) > 0 Then PlayerMessage(Player, "You must wait to use this ability.", Grey) Exit Sub End If If GetPlayerHP(Player) < Health Then PlayerMessage(Player, "You are too close to death.", Grey) Exit Sub End If SetPlayerHP(Player, GetPlayerHP(Player) - Health) SetPlayerFlag(Player, 28, 1) RunScript1("BuffCooldown", Player) CreatePlayerFloatText(Player, "ARRGH", Red) CreateCharacterEffect(GetPlayerMap(Player), Player, 7, 40, 3, 1, 0) SetPlayerFlag(Player, 123, 5) CalculateStats(Player) Timer(Player, 60, "Debuff") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=arenatimer Script Source= Sub Main() If GetFlag(184) > 0 Then 'Lavos Timer SetFlag(184, GetFlag(184) - 1) if getflag(184) = 60 then 'GlobalMessage("You hear volcanic eruptions in the distance indicating Fire Lord Lavos will ascend from the depths in approximately 60 minutes.", Brightred) End if If GetFlag(184) > 0 Then 'Lavos Timer SetFlag(184, GetFlag(184) - 1) if getflag(184) = 30 then 'GlobalMessage("You hear volcanic eruptions in the distance indicating Fire Lord Lavos will ascend from the depths in approximately 30 minutes.", Brightred) End if End if End If If GetFlag(183) > 0 Then If GetMapPlayerCount(2111) = 0 then 'GlobalMessage("The fire shield has 10 minutes of remaining energy.", BRIGHTGREEN) SetFlag(183, 0) SetFlag(184, 10) End If End If 'If GetFlag(219) > 0 Then 'If GetMapPlayerCount(2765) = 0 then 'GlobalMessage("The Fort Commander will not relinquish his power to such a pathetic group. He will be accepting another challenge in 5 minutes.", BRIGHTGREEN) 'SetFlag(219, 0) 'SetFlag(149, 5) 'End If 'End If 'If GetFlag(149) > 0 Then 'FortBoss timer 'SetFlag(149, GetFlag(149) - 1) 'if getflag(149) = 10 then 'GlobalMessage("Darkcone Fort is open for challenge in 10 minutes.", yellow) 'end if 'end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=artifact Script Source= Sub Main(Player as Long) dim Loop as Long, Torch as Long, Candle as Long, Message as String PlayerMessage(Player, "==Artifacts==", Yellow) For Loop = 1 To GetMaxUsers() If HasObj(Loop, 393) Then Torch = Loop If HasObj(Loop, 389) Then Candle = Loop Next Loop If Torch = 0 Then Message = "Babylon Torch: -Free-" Else Message = strcat("Babylon Torch: ", GetPlayerName(Torch)) End If PlayerMessage(Player, Message, White) If Candle = 0 Then Message = "Dragonia Candle: -Free-" Else Message = strcat("Dragonia Candle: ", GetPlayerName(Candle)) End If PlayerMessage(Player, Message, White) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=artifacts Script Source= Sub Main() dim Loop as Long For Loop = 1 To GetMaxUsers() If HasObj(Loop, 393) Then If GetPlayerGuild(Loop) = 0 Then RunScript1("ArtifactSpawn", Loop) Else 'Endurance Buff SetPlayerFlag(Loop, 124, 7) End If Else SetPlayerFlag(Loop, 124, 0) End If If HasObj(Loop, 389) Then If GetPlayerGuild(Loop) = 0 Then RunScript1("ArtifactSpawn", Loop) Else 'Agility Buff SetPlayerFlag(Loop, 126, 5) End If Else SetPlayerFlag(Loop, 126, 0) End If CalculateStats(Loop) Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=artifactspawn Script Source= Sub Main(Player as Long) If HasObj(Player, 393) Then TakeObj(Player, 393, HasObj(Player, 393)) SpawnObject(1551, 393, 1, 1, 2) GlobalMessage("The Babylon Torch has been replaced.", Yellow) End If If HasObj(Player, 389) Then TakeObj(Player, 389, HasObj(Player, 389)) SpawnObject(355, 389, 1, 9, 9) GlobalMessage("The Dragonia Candle has been replaced.", Yellow) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attack Script Source= Sub Main(Player as Long, Attack as Long) Dim A as Long, B as Long 'If StrCmp(GetPlayerUser(Player), "acidman") Then A = 1262 If getplayerguild(player) = getflag(186) & getflag(185) > 0 Then A = 32 If A > 0 Then For B = 0 to 5 If GetMonsterType(A, B) = 411 Then SetMonsterTarget(A, B, Attack) End If Next B else playermessage(player, "Your guild does not have special access to the Darkcone Fort.", white) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster111 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(3) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "I may be old but I can still take you down son.", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Be a dear and stop doing that.", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster133 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(4) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "We've always plenty chicken to go around.", White) Case 1 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Come in, come in!", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Would you like something to eat?", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster159 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(4) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Of all the horrors, none as grave as your face.", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Shop around, you won't find my wares!", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster170 Script Source= Function Main(Player as Long) AS LONG dim Map as Long, Flag as Long Map = 90 Flag = 100 If GetMonsterHP(Map, 0) < 250 Then If GetFlag(50) = 0 Then SetFlag(50, 1) 'Spell 1 End If End If If GetMonsterHP(Map, 0) < 150 Then If GetFlag(50) = 1 Then SetFlag(50, 2) 'Spell 2 End If End If If GetMonsterHP(Map, 0) < 150 Then If GetFlag(50) = 2 Then SetFlag(50, 3) 'Spell 3 End If End If If GetMonsterHP(Map, 0) = 1 Then RunScript0("Boss6") Main = Continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster187 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(3) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "God its cold in here...", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Lay off I'm busy.", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster20 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) If Map = 55 Then Select Case Random(6) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "My pond is sparkly.", White) Case 1 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "My friend lives far away under a castle.", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Will you be my friend?", White) End Select Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster209 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(4) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "May I suggest the soup, over your head...", White) Case Else If GetPlayerGender(Player) = 1 Then CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "May I take your order maam?", White) Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "May I take your order sir?", White) End If End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster232 Script Source= Function Main(Player as Long) as Long dim Map as Long Map = GetPlayerMap(Player) Select Case Random(3) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Do you wish to see my work?", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "I meddle in many things", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster234 Script Source= Sub Main(Player as Long) MonsterAttackPlayer(GetPlayerMap(Player), 0, Player, 255) ResetMap(176) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster238 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(3) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "AHAHA!!", Green) Case 1 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "You think you can hurt me mortal?!", Green) Case 2 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "No one shall enter the Soul Prison", Green) End Select SetMonsterTarget(Map, 0, Player) Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster262 Script Source= Function main(player as long) as long main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster264 Script Source= FUNCTION Main(Player AS LONG) AS LONG dim x as long,y as long SetPlayerEnergy(Player, GetPlayerEnergy(Player) - 10) CreateTileEffect(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player), 2, 2, 8, 0, 0) Attackplayer(player,player,35) 'if getplayerguild(player) = 0 then 'playerwarp(player, 1,5,5) 'end if Main = Continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ATTACKMONSTER34 Script Source= FUNCTION Main(Player AS LONG) AS LONG If GetPlayerLevel(Player) < 50 Then PlayerMessage(Player, "This would upset the guards! Better not...", WHITE) Main = Stop Exit Function End If Main = Continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster403 Script Source= Function Main(Player as Long) as Long dim x as long,y as long Attackplayer(player,player,27) CreateTileEffect(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player), 1, 1, 8, 0, 0) Main = Continue dim Monster1 as Long, a as Long Monster1 = 403 dim Chance as Long, Map as Long Map = GetPlayerMap(Player) Chance = Random(12) Select Case Chance Case 0 main = continue Case 1 playerwarp(player, 2111, 8, 2) CreateCharacterEffect(GetPlayerMap(Player), Player, 58, 40, 8, 1, 0) playermessage(player, "You feel dazed as a ball of fire from the Fire Lord blasts you away.", brightred) main = continue Case 2 playerwarp(player, 2111, 1, 10) CreateCharacterEffect(GetPlayerMap(Player), Player, 58, 40, 8, 1, 0) playermessage(player, "You feel dazes as a ball of fire from the Fire Lord blasts you away.", brightred) main = continue Case 3 main = continue Case 4 main = continue Case 5 main = continue Case 6 main = continue Case 7 main = continue Case 8 main = continue Case 9 main = continue Case 10 main = continue Case 11 IF GetPlayerDirection(Player) = LEFT THEN IF GetTileAtt(GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) END IF END IF END IF IF GetPlayerDirection(Player) = RIGHT THEN IF GetTileAtt(GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) END IF END IF END IF IF GetPlayerDirection(Player) = UP THEN IF GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) END IF END IF END IF IF GetPlayerDirection(Player) = DOWN THEN IF GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) END IF END IF END IF Main=Continue end select end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster404 Script Source= Function Main(Player as Long) as Long dim Monster1 as Long, a as Long Monster1 = 404 dim Chance as Long, Map as Long Map = GetPlayerMap(Player) Chance = Random(4) Select Case Chance Case 0 main = continue Case 1 main = continue Case 2 main = continue Case 3 IF GetPlayerDirection(Player) = LEFT THEN IF GetTileAtt(GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) END IF END IF END IF IF GetPlayerDirection(Player) = RIGHT THEN IF GetTileAtt(GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) END IF END IF END IF IF GetPlayerDirection(Player) = UP THEN IF GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) END IF END IF END IF IF GetPlayerDirection(Player) = DOWN THEN IF GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) END IF END IF END IF Main=Continue end select end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster414 Script Source= Function Main(Player as Long) as Long dim Monster1 as Long, a as Long Monster1 = 414 dim Chance as Long, Map as Long Map = GetPlayerMap(Player) Chance = Random(4) Select Case Chance Case 0 main = continue Case 1 main = continue Case 2 main = continue Case 3 IF GetPlayerDirection(Player) = LEFT THEN IF GetTileAtt(GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), (GetPlayerX(Player) + 1), GetPlayerY(Player)) END IF END IF END IF IF GetPlayerDirection(Player) = RIGHT THEN IF GetTileAtt(GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), (GetPlayerX(Player) - 1), GetPlayerY(Player)) END IF END IF END IF IF GetPlayerDirection(Player) = UP THEN IF GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) + 1)) END IF END IF END IF IF GetPlayerDirection(Player) = DOWN THEN IF GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) = FALSE THEN IF GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) = FALSE THEN PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), (GetPlayerY(Player) - 1)) END IF END IF END IF Main=Continue end select end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster46 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) If GetPlayerGuild(Player) = 0 Then Select Case Random(4) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "How does Dragonia treat you?", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Welcome to my Kingdom.", White) End Select Else Select Case Random(4) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "I have no time for Guilds.", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Be off barbarian.", White) End Select End If Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ATTACKMONSTER56 Script Source= Function Main(Player as LONG) AS LONG If GetPlayerLevel(Player) < 50 Then PlayerMessage(Player, "Have you lost your marbles? You are far too weak to take on Odyssey's finest patrol guards!", WHITE) Main = Stop Exit Function End If Main = Continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster76 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(2) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Hm...", White) Case 1 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Hi.", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster78 Script Source= Function Main(Player as LONG) AS LONG dim Map as Long Map = GetPlayerMap(Player) Select Case Random(6) Case 0 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "I am THE best ninja ever.", White) Case 1 CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Mon en!!", White) Case Else CreateMapFloatText(Map, GetMonsterX(Map, 0), GetMonsterY(Map, 0), "Dont think you want to do that.", White) End Select Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=attackmonster8 Script Source= Function Main(Player as Long) as Long If HasObj(Player, 466) Then PlayerMessage(Player, "You milk the cow!", White) TakeObj(Player, 466, 1) GiveObj(Player, 464, 1) SetPlayerFlag(Player, 240, 6) Main = Stop Else If HasObj(Player, 464) Then PlayerMessage(Player, "You already have milk.", Grey) Main = Continue Else PlayerMessage(Player, "You attempt to milk the cow...and fail.", White) Main = Continue End If End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=AVERAGE Script Source= Sub Main() Dim A as Long, B as Long, C as Long, D as Long, E as Long, F as Long For A = 1 to GetMaxUsers() If IsPlaying(A) & GetPlayerAccess(A) = 0 Then B = B + 1 C = C + GetPlayerLevel(A) If GetPlayerLevel(A) = 80 Then D = D + 1 If GetPlayerGuild(A) > 0 Then F = F + 1 End If Next A E = Divide(C, B) F = Divide(F * 100, B) GlobalMessage(StrCat(StrCat(Str(B), " Players' Average Level: "), Str(E)), WHITE) GlobalMessage(StrCat("Players at Level 80: ", Str(D)), WHITE) GlobalMessage(StrCat(StrCat("Guilded Population: ", Str(F)), "%"), WHITE) ' GlobalMessage("Players' Average IQ: 4", White) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=babcook Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) & HasObj(Player, 69) Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=backstab Script Source= Sub Main(Player AS LONG) Dim Dir AS LONG, DestDir AS LONG Dim Map AS LONG, StartX AS LONG, StartY AS LONG Dim CheckX AS LONG, CheckY AS LONG Dim DestX AS LONG, DestY AS LONG Dim Damage AS LONG, Mana AS LONG Map = GetPlayerMap(Player) StartX = GetPlayerX(Player) StartY = GetPlayerY(Player) Dir = GetPlayerDirection(Player) Mana = 1 Select Case Dir Case 0 'Up CheckX = StartX CheckY = StartY - 1 DestX = CheckX DestY = CheckY - 1 DestDir = 1 Case 1 'Down CheckX = StartX CheckY = StartY + 1 DestX = CheckX DestY = CheckY + 1 DestDir = 0 Case 2 'Left CheckX = StartX - 1 CheckY = StartY DestX = CheckX - 1 DestY = CheckY DestDir = 3 Case 3 'Right CheckX = StartX + 1 CheckY = StartY DestX = CheckX + 1 DestY = CheckY DestDir = 2 End Select 'Check bounds, if an invalid place to check then exit the script If CheckX < 0 | CheckY < 0 | CheckX > 11 | CheckY > 11 Then Exit Sub If DestX < 0 | DestY < 0 | DestX > 11 | DestY > 11 Then Exit Sub If HasObj(Player, 298) = 0 Then PlayerMessage(Player, "You lack a required item.", Grey) Exit Sub 'Stabbin Dagger End If ' If GetPlayerFlag(Player, 23) <> 0 Then ' PlayerMessage(Player, "You may not cast so often.", Grey) ' Exit Sub ' End If If GetPlayerMana(Player) < Mana Then PlayerMessage(Player, "You must regenerate before casting again.", Grey) Exit Sub End If Dim A AS LONG For A = 1 to GetMaxUsers If IsPlaying(A) Then If GetPlayerMap(A) = Map & GetPlayerX(A) = CheckX & GetPlayerY(A) = CheckY Then If GetTileIsVacant(Map, DestX, DestY) = True Then If GetTileNoDirectionalWalls(Map, StartX, StartY, Dir) = True & GetTileNoDirectionalWalls(Map, CheckX, CheckY, Dir) = True & GetTileNoDirectionalWalls(Map, DestX, DestY, DestDir) = True Then PlayerWarp(Player, Map, DestX, DestY) SetPlayerDirection(Player, DestDir) If Dir = GetPlayerDirection(A) Then Damage = GetPlayerDamage(Player) + Divide(GetPlayerDamage(Player), 4) CreateCharacterEffect(GetPlayerMap(A), A, 38, 60, 8, 0, 0) Else If (Dir = 0 & GetPlayerDirection(A) = 1) | (Dir = 1 & GetPlayerDirection(A) = 0) | (Dir = 2 & GetPlayerDirection(A) = 3) | (Dir = 3 & GetPlayerDirection(A) = 2) Then Damage = GetPlayerDamage(Player) AttackPlayer(A, Player, Damage) CreateCharacterEffect(GetPlayerMap(A), A, 66, 60, 8, 0, 0) CreateCharacterEffect(GetPlayerMap(Player), Player, 66, 60, 8, 0, 0) Else Damage = GetPlayerDamage(Player) + Divide(GetPlayerDamage(Player), 6) CreateCharacterEffect(GetPlayerMap(A), A, 66, 60, 8, 0, 0) End If End If AttackPlayer(Player, A, Damage) SetPlayerMana(Player, GetPlayerMana(Player) - Mana) ' SetPlayerFlag(Player, 23, 1) ' RunScript1("cooldown", Player) Exit Sub End If End If End If End If Next A ' For A = 0 to 5 ' If GetMonsterType(Map, A) > 0 & GetMonsterX(Map, A) = CheckX & GetMonsterY(Map, A) = CheckY Then ' If GetTileIsVacant(Map, DestX, DestY) = True Then ' If GetTileNoDirectionalWalls(Map, StartX, StartY, Dir) = True & GetTileNoDirectionalWalls(Map, CheckX, CheckY, Dir) = True & GetTileNoDirectionalWalls(Map, DestX, DestY, DestDir) = True Then ' PlayerWarp(Player, Map, DestX, DestY) ' SetPlayerDirection(Player, DestDir) ' Damage = GetPlayerDamage(Player) + Divide(GetPlayerDamage(Player), 4) ' AttackMonster(Player, A, 1) ' Exit Sub ' End If ' End If ' End If ' Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=bat Script Source= Sub main(player as long) globalmessage(" ",brightred) globalmessage(" ",brightred) globalmessage(" _..-'( )`-.._",brightred) globalmessage(" ./'. '||\\. (\__/) .//||` .`\.",brightred) globalmessage(" ./'.|'.'||||\\|.. )* *( ..|//||||`.`|.`\.",brightred) globalmessage(" ./'..|'.|| |||||\````` '' ''''''/||||| ||.`|..`\",brightred) globalmessage(" ./'.||'.|||| ||||||||||. .|||||||||| ||||.`|.`\",brightred) globalmessage(" /'|||'.|||||| ||||||||{ }|||||||||| |||||.`||`\",brightred) globalmessage(" '.|||'.||||||| ||||||||{ }|||||||||| ||||||.`|||.`",brightred) globalmessage(" '.||| ||||||||| |/' ``\| ''||/'' `\| ||||||| |||||\|.`",brightred) globalmessage(" |/' \./' `\./ \!|\ /|!/ \./' `\./ `\|",brightred) globalmessage(" V V V }' `\ /' `{ V V V",brightred) globalmessage(" ` ` ` V ' ' '",brightred) globalmessage(" ",brightred) end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=battle Script Source= Sub Main(Player as Long, Limit as Long) dim Loop as Long, Team as Long Start: If Limit > 0 Then GlobalMessage("Let Battle Commence!", BrightRed) SetFlag(88, Limit) SetFlag(82, 0) SetFlag(86, 0) SetFlag(87, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = 68 Then If GetPlayerAccess(Loop) > 0 | GetPlayerFlag(Loop, 78) > 0 Then PlayerWarp(Loop, 1420, 5, 0) Else SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerFlag(Loop, 10, 3) SetPlayerFlag(Loop, 12, 0) SetPlayerStatus(Loop, 0) If Team = 0 Then SetPlayerGuild(Loop, 100) SetPlayerSprite(Loop, 1) SetPlayerFlag(Loop, 11, 1) PlayerWarp(Loop, 1421, 0, 1) Team = 1 Else SetPlayerGuild(Loop, 101) SetPlayerSprite(Loop, 7) SetPlayerFlag(Loop, 11, 2) PlayerWarp(Loop, 1422, 11, 1) Team = 0 End If End If End If End If Next Loop Else Limit = 30 Goto Start End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=battlekill Script Source= Function Main(Killer as Long, Killed as Long) AS LONG dim Loop as Long 'Flag 86 = Red Score 'Flag 87 = Blue Score 'Flag 88 = Kill Limit SetPlayerFlag(Killer, 12, GetPlayerFlag(Killer, 12) + 1) 'Player Scores If GetPlayerFlag(Killer, 11) = 1 Then 'Red Team Scores SetFlag(86, GetFlag(86) + 1) PlayerWarp(Killed, 1422, 11, 1) SetPlayerSprite(Killed, 7) SetPlayerGuild(Killed, 101) MapMessage(1420, strcat(GetPlayerName(Killer), strcat(" beats down ", GetPlayerName(Killed))), BrightRed) MapMessage(1421, strcat(GetPlayerName(Killer), strcat(" beats down ", GetPlayerName(Killed))), BrightRed) MapMessage(1422, strcat(GetPlayerName(Killer), strcat(" beats down ", GetPlayerName(Killed))), BrightRed) End If If GetPlayerFlag(Killer, 11) = 2 Then 'Blue Team Scores SetFlag(87, GetFlag(87) + 1) PlayerWarp(Killed, 1421, 0, 1) SetPlayerSprite(Killed, 1) SetPlayerGuild(Killed, 100) MapMessage(1420, strcat(GetPlayerName(Killer), strcat(" beats down ", GetPlayerName(Killed))), BrightBlue) MapMessage(1421, strcat(GetPlayerName(Killer), strcat(" beats down ", GetPlayerName(Killed))), BrightBlue) MapMessage(1422, strcat(GetPlayerName(Killer), strcat(" beats down ", GetPlayerName(Killed))), BrightBlue) End If RunScript1("Restore", Killed) 'Red Team Wins If GetFlag(86) >= GetFlag(88) Then GlobalMessage(strcat("Red Team wins Battle Royale with ", strcat(str(GetFlag(86)), " kills!")), BrightGreen) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 3 Then PlayerMessage(Loop, strcat("Your score was ", strcat(str(GetPlayerFlag(Loop, 12)), " kills")), Yellow) If GetPlayerFlag(Loop, 11) = 1 Then GiveObj(Loop, 484, 1) SetPlayerGuild(Loop, GetPlayerFlag(Loop, 5)) SetPlayerFlag(Loop, 10, 0) SetPlayerFlag(Loop, 11, 0) SetPlayerFlag(Loop, 12, 0) RunScript1("GameWarp", Loop) RunScript1("Restore", Loop) RunScript1("Sprite", Loop) SetFlag(86, 0) SetFlag(87, 0) End If Next Loop End If 'Blue Team Wins If GetFlag(87) >= GetFlag(88) Then GlobalMessage(strcat("Blue Team wins Battle Royale with ", strcat(str(GetFlag(87)), " kills!")), BrightGreen) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 3 Then PlayerMessage(Loop, strcat("Your score was ", strcat(str(GetPlayerFlag(Loop, 12)), " kills")), Yellow) If GetPlayerFlag(Loop, 11) = 2 Then GiveObj(Loop, 484, 1) SetPlayerGuild(Loop, GetPlayerFlag(Loop, 5)) SetPlayerFlag(Loop, 10, 0) SetPlayerFlag(Loop, 11, 0) SetPlayerFlag(Loop, 12, 0) RunScript1("GameWarp", Loop) RunScript1("Restore", Loop) RunScript1("Sprite", Loop) SetFlag(86, 0) SetFlag(87, 0) End If Next Loop End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=blackjack Script Source= Sub Main(Player as Long) dim Card1 as String, Card2 as String, Score as Long Score = 0 SetPlayerFlag(Player, 231, Random(13) + 1) SetPlayerFlag(Player, 232, Random(13) + 1) Select Case GetPlayerFlag(Player, 231) Case 1 Card1 = "Ace" Case 11 Card1 = "Jack" Case 12 Card1 = "Queen" Case 13 Card1 = "King" Case Else Card1 = str(GetPlayerFlag(Player, 231)) End Select Select Case GetPlayerFlag(Player, 232) Case 1 Card2 = "Ace" Case 11 Card2 = "Jack" Case 12 Card2 = "Queen" Case 13 Card2 = "King" Case Else Card2 = str(GetPlayerFlag(Player, 232)) End Select RunScript1("BlackJackScore", Player) PlayerMessage(Player, strcat("Your hand: ", strcat(Card1, strcat(" ", Card2))), White) PlayerMessage(Player, "/Hit or /Stick?", Yellow) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=blackjackbust Script Source= Sub Main(Player as Long) dim Loop as Long PlayerMessage(Player, strcat("You go bust with ", strcat(str(GetPlayerFlag(Player, 230)), "!")), White) For Loop = 230 To 235 SetPlayerFlag(Player, Loop, 0) Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=blackjackhit Script Source= Sub Main(Player as Long) dim Card1 as String, Card2 as String, Card3 as String, Card4 as String, Card5 as String If GetPlayerFlag(Player, 233) = 0 Then SetPlayerFlag(Player, 233, Random(13) + 1) RunScript1("BlackJackScore", Player) Else If GetPlayerFlag(Player, 234) = 0 Then SetPlayerFlag(Player, 234, Random(13) + 1) RunScript1("BlackJackScore", Player) Else If GetPlayerFlag(Player, 235) = 0 Then SetPlayerFlag(Player, 235, Random(13) + 1) RunScript1("BlackJackScore", Player) Else 'Win End If End If End If If GetPlayerFlag(Player, 230) > 21 Then Exit Sub Select Case GetPlayerFlag(Player, 231) Case 1 Card1 = "Ace" Case 11 Card1 = "Jack" Case 12 Card1 = "Queen" Case 13 Card1 = "King" Case Else Card1 = str(GetPlayerFlag(Player, 231)) End Select Select Case GetPlayerFlag(Player, 232) Case 1 Card2 = "Ace" Case 11 Card2 = "Jack" Case 12 Card2 = "Queen" Case 13 Card2 = "King" Case Else Card2 = str(GetPlayerFlag(Player, 232)) End Select Select Case GetPlayerFlag(Player, 233) Case 0 Card3 = "" Case 1 Card3 = "Ace" Case 11 Card3 = "Jack" Case 12 Card3 = "Queen" Case 13 Card3 = "King" Case Else Card3 = str(GetPlayerFlag(Player, 233)) End Select Select Case GetPlayerFlag(Player, 234) Case 0 Card4 = "" Case 1 Card4 = "Ace" Case 11 Card4 = "Jack" Case 12 Card4 = "Queen" Case 13 Card4 = "King" Case Else Card4 = str(GetPlayerFlag(Player, 234)) End Select Select Case GetPlayerFlag(Player, 235) Case 0 Card5 = "" Case 1 Card5 = "Ace" Case 11 Card5 = "Jack" Case 12 Card5 = "Queen" Case 13 Card5 = "King" Case Else Card5 = str(GetPlayerFlag(Player, 235)) End Select PlayerMessage(Player, strcat("Your hand: ", strcat(Card1, strcat(" ", strcat(Card2, strcat(" ", strcat(Card3, strcat(" ", strcat(Card4, strcat(" ", Card5))))))))), White) PlayerMessage(Player, "/Hit or /Stick?", Yellow) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=blackjackscore Script Source= Sub Main(Player as Long) dim Card as Long, Score as Long Score = 0 For Card = 231 To 235 If GetPlayerFlag(Player, Card) <> 1 Then If GetPlayerFlag(Player, Card) < 11 Then Score = Score + GetPlayerFlag(Player, Card) Else Score = Score + 10 End If End If Next Card For Card = 231 To 235 If GetPlayerFlag(Player, Card) = 1 Then If Score + 11 > 21 Then Score = Score + 1 Else Score = Score + 11 End If End If Next Card SetPlayerFlag(Player, 230, Score) If Score > 21 Then RunScript1("BlackJackBust", Player) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=BLOCKERCHECK Script Source= SUB MAIN() 'House of PK Dim A AS LONG For A = 1 to GetMaxUsers() If GetPlayerMap(A) = 1960 Then If GetPlayerY(A) = 10 Then If GetPlayerX(A) >= 4 & GetPlayerX(A) =< 7 Then PlayerWarp(A, 1960, 11, 1) End If End If End If Next A END SUB ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=bomb Script Source= Sub Main(Player as Long) dim Map as Long, X as Long, Y as Long, Loop as Long Map = GetPlayerFlag(Player, 24) X = GetPlayerFlag(Player, 21) Y = GetPlayerFlag(Player, 22) SetPlayerFlag(Player, 23, 0) CreateTileEffect(Map, X, Y, 1, 40, 8, 0, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = Map & GetPlayerX(Loop) = X & GetPlayerY(Loop) = Y Then If Player = Loop Then ' SetPlayerHP(Player, GetPlayerHP(Player) - 30) ' CreatePlayerFloatText(Player, "30", BrightRed) MonsterMagicAttackPlayer(GetPlayerMap(Loop), 0, Loop, 30) Else MagicAttackPlayer(Player, Loop, 30) End If End If End If Next Loop For Loop = 0 To 5 If GetMonsterX(Map, Loop) = X & GetMonsterY(Map, Loop) = Y Then MagicAttackMonster(Player, Loop, 50) End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=bomb2 Script Source= Sub Main(Player as Long) dim Map as Long, X as Long, Y as Long dim Damage as Long, Loop as Long Map = GetPlayerFlag(Player, 24) X = GetPlayerFlag(Player, 21) Y = GetPlayerFlag(Player, 22) Damage = GetPlayerDamage(Player) + Random(6) If Damage < 10 Then Damage = 10 RunScript1("SpellCooldown", Player) CreateTileEffect(Map, X, Y, 1, 40, 8, 0, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = Map Then If GetPlayerX(Loop) = X & GetPlayerY(Loop) = Y Then If Player = Loop Then SetPlayerHP(Player, GetPlayerHP(Player) - Damage) CreatePlayerFloatText(Player, str(Damage), BrightRed) Else MagicAttackPlayer(Player, Loop, Damage - 10) End If End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=boss5 Script Source= Sub Main(Player as Long) Dim Map as Long, X as Long, Y as Long Dim CalcX as Long, CalcY as Long, A as Long Map = 90 X = GetMonsterX(Map, 0) Y = GetMonsterY(Map, 0) For A = 1 To GetMaxUsers() If GetPlayerMap(A) = Map Then CalcX = Abs(GetPlayerX(A) - X) CalcY = Abs(GetPlayerY(A) - Y) If CalcX < 4 & CalcY < 4 Then MonsterMagicAttackPlayer(Map, 0, A, 10) CreateCharacterEffect(GetPlayerMap(A), A, 39, 80, 8, 0, 0) End If End If Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=boss6 Script Source= Sub Main(Player as Long) Dim Map as Long, X as Long, Y as Long Dim CalcX as Long, CalcY as Long, A as Long Map = 90 X = GetMonsterX(Map, 0) Y = GetMonsterY(Map, 0) For A = 1 To GetMaxUsers() If GetPlayerMap(A) = Map Then MonsterMagicAttackPlayer(Map, 0, A, 10) CreateCharacterEffect(GetPlayerMap(A), A, 20, 80, 8, 0, 0) End If Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=bosskeypad Script Source= Sub Main(Player as Long) AttackMonster(Player, 0, 50) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=bosswarp Script Source= sub main(player as long) if getplayermap(Player) = 1856 & getplayerx(player) >=1 & getplayerx(player)<= 11 & getplayery(player) >= 3 & getplayery(player) <= 9 then playerwarp(player, 1856, random(11)+1,random(6)+3) SetMonsterTarget(1856, 1, Player) timer(player, 2,"bosswarp") end if end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=braykt Script Source= function main(player as long) as long if hasobj(player,365) then if getplayerflag(player,50) = 60 then main = stop exit function else setplayerflag(player,50,getplayerflag(player,50) + 1) timer(player,60,"braykt") end if end if end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=braykt2 Script Source= function main(player as long) as long if hasobj(player,365) then if getplayerflag(player,50) = 60 then main = stop exit function else setplayerflag(player,50,getplayerflag(player,50) + 1) timer(player,60,"braykt") end if end if end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=BROADCAST Script Source= FUNCTION Main(Player AS LONG, Message AS STRING) AS LONG if getflag(2) = 0 & getplayeraccess(player) = 0 then playermessage(player,"Broadcast is currently disabled.",yellow) main = stop exit function end if If getplayerflag(player,2) = 1 & getplayeraccess(player) = 0 & getplayerflag(player, 73) = 0 then playermessage(player,strcat("You may only broadcast every ",strcat(str(getflag(2))," seconds.")),yellow) main = stop exit function end if if getplayerflag(player,2) = 0 & getplayeraccess(player) = 0 then setplayerflag(player,2,1) timer(player, getflag(2), "globaltimer") end if if getplayermap(player) = 666 then playermessage(player,"You can not broadcast in hell, loser.",brightred) main = stop exit function end if If GetPlayerMap(Player) = 681 Then PlayerWarp(Player, 1, 5, 5) PlayerMessage(Player, "Check out the Quest Guides on the web site for help. Other players are also a great source of help. Join us on the forums if you have any questions!", BRIGHTGREEN) PlayerMessage(Player, "Don't forget to type /rules and read the laws of the land, otherwise you may be punished!", BrightGreen) End if If GetPlayerFlag(Player, 10) = 1 | GetPlayerFlag(Player, 11) = 1 Then If GetFlag(83) = 1 | GetFlag(84) = 1 Then Main = Continue Exit Function End If End If main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=buff Script Source= Sub Main(Player as Long) dim Map as Long, X as Long, Y as Long dim Loop as Long, Mana as Long, Buff as Long dim CalcX as Long, CalcY as Long Map = GetPlayerMap(Player) X = GetPlayerX(Player) Y = GetPlayerY(Player) Mana = Divide(GetPlayerMaxMana(Player), 10) * 9 Buff = GetPlayerDamage(Player) - Divide((GetPlayerStrength(Player) + 2), 5) If GetTileAtt(Map, X, Y) = 6 | GetTileAtt2(Map, X, Y) = 6 Then PlayerMessage(Player, "You may not cast that here.", Grey) Exit Sub End If If GetPlayerFlag(Player, 28) > 0 Then PlayerMessage(Player, "You must wait to cast again.", Grey) Exit Sub End If If GetPlayerMana(Player) < Mana Then PlayerMessage(Player, "You must regenerate to cast again.", Grey) Exit Sub End If CreatePlayerFloatText(Player, "!", BrightGreen) SetPlayerMana(Player, GetPlayerMana(Player) - Mana) SetPlayerFlag(Player, 28, 1) RunScript1("BuffCooldown", Player) For Loop = 1 to GetMaxUsers() If IsPlaying(Loop) Then If Map = GetPlayerMap(Loop) Then If GetPlayerClass(Loop) = 4 Then If Player <> Loop Then CalcX = Abs(GetPlayerX(Loop) - X) CalcY = Abs(GetPlayerY(Loop) - Y) If CalcX < 4 & CalcY < 4 Then If GetPlayerFlag(Player, 16) = 0 Then RunScript2("Buff1", Loop, Buff) Else If GetPlayerGuild(Player) > 0 Then If GetPlayerGuild(Player) = GetPlayerGuild(Loop) Then RunScript2("Buff1", Loop, Buff) End If Else SetPlayerFlag(Player, 16, 0) PlayerMessage(Player, "Your spells have been set to affect everyone.", White) RunScript2("Buff1", Loop, Buff) End If End If End If End If End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=buff1 Script Source= Sub Main(Player as Long, Buff as Long) If GetPlayerFlag(Player, 121) = 0 Then SetPlayerFlag(Player, 121, Buff) CalculateStats(Player) CreateCharacterEffect(GetPlayerMap(Player), Player, 54, 40, 8, 0, 0) Timer(Player, 30, "Debuff1") End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=buff2 Script Source= Sub Main(Player as Long, Buff as Long) If GetPlayerFlag(Player, 122) = 0 Then SetPlayerFlag(Player, 122, Buff) CalculateStats(Player) CreateCharacterEffect(GetPlayerMap(Player), Player, 54, 40, 8, 0, 0) Timer(Player, 30, "Debuff2") End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=buff3 Script Source= Sub Main(Player as Long, Buff as Long) If GetPlayerFlag(Player, 120) = 0 Then SetPlayerFlag(Player, 120, Buff) CalculateStats(Player) CreateCharacterEffect(GetPlayerMap(Player), Player, 54, 40, 8, 0, 0) Timer(Player, 30, "Debuff3") End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=buffcooldown Script Source= Function Main(Player as Long) AS LONG Select Case GetPlayerClass(Player) Case 1 Timer(Player, 60, "Cooldown3") Case 2 If GetPlayerEquipped(Player, 1) = 463 Then Timer(Player, 35, "Cooldown3") Else Timer(Player, 45, "Cooldown3") End If Case 3 Timer(Player, 45, "Cooldown3") Case 4 If GetPlayerEquipped(Player, 1) = 463 Then Timer(Player, 35, "Cooldown3") Else Timer(Player, 45, "Cooldown3") End If End Select End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=buffmindset Script Source= Sub Main(Player as Long) dim Slot as Long, Suffix as Long Select Case GetPlayerFlag(Player, 205) Case 0 Suffix = 247 'attack Case 1 Suffix = 246 'defense Case 2 Suffix = 0 End Select For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 59 Then SetItemSuffix(Player, Slot, Suffix) 'If GetPlayerInvObject(Player, Slot) = 609 Then SetItemSuffix(Player, slot, suffix) Next Slot If GetPlayerEquipped(Player, 5) = 59 Then SetEquippedItemSuffix(Player, 5, Suffix) 'If GetPlayerEquipped(Player, 5) = 609 Then SetEquippedItemSuffix(Player, slot, suffix) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=bunny Script Source= sub main(player as long) globalmessage(" ",white) globalmessage(" /\ /| Bunny",white) globalmessage(" \ V/ says, ",white) globalmessage(" | ' '} ''Easter Bunnies: The ducks will seek revenge for their treasure entering Odyssey...",white) globalmessage(" / | At some point, the ducks will attack and destroy the humans for us!''",white) globalmessage(" / \ \ ",white) globalmessage(" *{_\_\",white) globalmessage(" <3",white) end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=BUNNYATTACK Script Source= Sub Main(Player AS LONG) Dim A AS LONG For A = 1 to 20 SpawnMonster(919, 136, Random(8) + 3, Random(8) + 3) Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=calculatestats Script Source= Function Main(Player as Long) AS LONG 'Cleric Self Buff Endurance If GetPlayerFlag(Player, 120) > 0 Then SetPlayerEndurance(Player, GetPlayerEndurance(Player) + GetPlayerFlag(Player, 120)) End If 'Cleric Self Buff Agility If GetPlayerFlag(Player, 121) > 0 Then SetPlayerIntelligence(Player, GetPlayerAgility(Player) + GetPlayerFlag(Player, 121)) End If 'Cleric Self Buff Intelligence If GetPlayerFlag(Player, 122) > 0 Then SetPlayerAgility(Player, GetPlayerIntelligence(Player) + GetPlayerFlag(Player, 122)) End If 'Knight Self Strength Buff - Adrenaline If GetPlayerFlag(Player, 123) > 0 Then SetPlayerStrength(Player, GetPlayerStrength(Player) + GetPlayerFlag(Player, 123)) End If 'Artifact - Babylonian Torch - Endurance If GetPlayerFlag(Player, 124) > 0 Then SetPlayerEndurance(Player, GetPlayerEndurance(Player) + GetPlayerFlag(Player, 124)) End If 'Artifact - Dragonian Candle - Agility If GetPlayerFlag(Player, 126) > 0 Then SetPlayerIntelligence(Player, GetPlayerAgility(Player) + GetPlayerFlag(Player, 126)) End If 'Titan Take Down If GetPlayerFlag(Player, 10) = 4 & GetPlayerFlag(Player, 11) = 2 Then SetPlayerStrength(Player, GetPlayerStrength(Player) + 20) SetPlayerConcentration(Player, GetPlayerConcentration(Player) + 20) SetPlayerEndurance(Player, GetPlayerEndurance(Player) + 21) SetPlayerConstitution(Player, GetPlayerConstitution(Player) + 60) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=calltoarms Script Source= Function Main(Player as Long) AS LONG dim Loop as Long For Loop = 1 To GetMaxUsers() If GetPlayerGuild(Loop) <> 0 THen If GetPlayerGuild(Loop) = GetPlayerGuild(Player) Then PlayerMessage(Loop, strcat(GetPlayerName(Player), strcat(" has called you to ", GetMapName(GetPlayerMap(Player)))), White) End If End If Next Loop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=capture5 Script Source= Sub Main(Player as Long) if getplayermap(player) = 2114 & GetPlayerX(Player) = 5 & GetPlayerY(Player) = 7 Then if getplayerflag(player,191) > 30 then globalmessage(strcat(getplayername(player), " unlocks the fort gate momentarily."), grey) 'playermessage(player, "test", yellow) 'MapMessage(2760, "A fort gate is momentarily opened.", yellow) 'playermessage(player, "You unlock the Fort Gate for a few moments.", yellow) 'setplayerflag(player,71,100) OpenDoor(2114, 5, 6) exit sub end if end if if getplayermap(player) = 2114 & GetPlayerX(Player) = 5 & GetPlayerY(Player) = 7 Then if getplayerflag(player,191) > 0 then setplayerflag(player, 191, getplayerflag(player,191)+1) timer(player, 1, "capture5") end if else if getplayermap(player) = 2114 & GetPlayerX(Player) = 5 & GetPlayerY(Player) = 7 Then if getplayermap(player) = 2114 & GetPlayerX(Player) = 6 & GetPlayerY(Player) = 7 Then else setplayerflag(player,191,0) end if end if end if end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=capture6 Script Source= Sub Main(Player as Long) if getplayermap(player) = 2114 & GetPlayerX(Player) = 6 & GetPlayerY(Player) = 7 Then if getplayerflag(player,191) > 30 then globalmessage(strcat(getplayername(player), " unlocks the fort gate momentarily."), grey) 'playermessage(player, "test", yellow) 'MapMessage(2760, "A fort gate is momentarily opened.", yellow) 'playermessage(player, "You unlock the Fort Gate for a few moments.", yellow) 'setplayerflag(player,71,100) OpenDoor(2114, 6, 6) exit sub end if end if if getplayermap(player) = 2114 & GetPlayerX(Player) = 6 & GetPlayerY(Player) = 7 Then if getplayerflag(player,191) > 0 then setplayerflag(player, 191, getplayerflag(player,191)+1) timer(player, 1, "capture6") end if else if getplayermap(player) = 2114 & GetPlayerX(Player) = 6 & GetPlayerY(Player) = 7 Then if getplayermap(player) = 2114 & GetPlayerX(Player) = 5 & GetPlayerY(Player) = 7 Then else setplayerflag(player,191,0) end if end if end if end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carn Script Source= Sub Main(Player as Long) If GetFlag(82) = 0 Then PlayerMessage(Player, "Carnage warp has ended.", Yellow) Exit Sub End If If GetPlayerAccess(Player) = 0 Then If GetPlayerMap(Player) = 666 | GetPlayerMap(Player) = 301 | GetPlayerMap(Player) = 68 | GetPlayerFlag(Player, 10) = 1 Then PlayerMessage(Player, "You cannot warp to Carnage from jail, hell or waiting room.", Yellow) Exit Sub End If If GetPlayerGuild(Player) > 0 Then If GetMapIsFriendly(GetPlayerMap(Player)) = False Then PlayerMessage(Player, "You must be on a friendly map to warp to Carnage.", Yellow) Exit Sub End If Else If GetMapIsPK(GetPlayerMap(Player)) = True Then PlayerMessage(Player, "You must be on a friendly map to warp to Carnage.", Yellow) Exit Sub End If End If If GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player)) = 5 | GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player)) = 5 Then PlayerMessage(Player, "You may not warp to Carnage from vaults.", Yellow) Exit Sub End If End If SetPlayerFlag(Player, 210, GetPlayerMap(Player)) SetPlayerFlag(Player, 211, GetPlayerX(Player)) SetPlayerFlag(Player, 212, GetPlayerY(Player)) PlayerWarp(Player, 68, 5, 5) PlayerMessage(Player, "You have been warped to Carnage!", Yellow) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carnage Script Source= Function Main(player as long) as long dim a as long GlobalMessage("A Free For All Carnage has started!", 9) GlobalMessage("Map: Carnage Arena",white) SetFlag(82, 0) For A = 1 to GetMaxUsers() If IsPlaying(A) Then If GetPlayerMap(A) = 68 Then If GetPlayerAccess(A) = 0 Then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerFlag(A, 10, 1) SetPlayerStatus(A, 9) SetPlayerGuild(A, 0) SetPlayerSprite(A, 198) PlayerWarp(A, 69, Random(6) + 3, Random(6) + 3) Else PlayerWarp(A, 69, 10, 1) End If End If End If Next A End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=CARNCOUNT Script Source= Sub Main(Player AS LONG) Dim A AS LONG, B AS LONG For A = 1 to GetMaxUsers() If GetPlayerMap(A) = 68 & GetPlayerAccess(A) = 0 Then B = B + 1 End If Next A GlobalMessage(StrCat("Total players in waiting room: ", Str(B)), WHITE) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carndie Script Source= Function main(player as long) as long SetPlayerStatus(Player, 9) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carnhost Script Source= Sub Main() if getflag(82) = 0 then globalmessage("Carnage will begin shortly, type /carn for a instant warp to the waiting room! You do not lose items or experience in a carnage battle.", brightblue) setflag(82,1) else globalmessage("Carnage warps have been closed.", brightblue) setflag(82,0) end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carnkill Script Source= Function Main(Killer as Long, Killed as Long) AS LONG dim Loop as Long, Count as Long RunScript1("GameWarp", Killed) SetPlayerFlag(Killed, 10, 0) SetPlayerGuild(Killed, GetPlayerFlag(Killed, 5)) RunScript1("Sprite", Killed) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerFlag(Loop, 10) = 1 Then Count = Count + 1 End If End If Next Loop If Count = 1 Then GlobalMessage(strcat(strcat(GetPlayerName(Killer), " has slain "), strcat(GetPlayerName(Killed), " and won Carnage!")), BrightGreen) RunScript1("GameWarp", Killed) RunScript1("GameWarp", Killer) GiveObj(Killer, 484, 1) SetPlayerFlag(Killer, 10, 0) SetPlayerGuild(Killer, GetPlayerFlag(Killer, 5)) RunScript1("Sprite", Killer) Else GlobalMessage(strcat(strcat(GetPlayerName(Killer), " has slain "), strcat(GetPlayerName(Killed), " in Carnage!")), BrightRed) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carnpop Script Source= Sub Main(Player as Long) dim Loop as Long, Count as Long Count = 0 For Loop = 1 To GetMaxUsers() If GetPlayerAccess(Loop) = 0 & GetPlayerFlag(Player, 78) = 0 Then If GetPlayerMap(Loop) = 68 Then Count = Count + 1 End If Next Loop MapMessage(68, strcat("Carnage Population: ", str(Count)), Yellow) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=carnvolcanotile Script Source= Sub Main(Player as Long) dim Damage as Long Select Case Random(6) Case 0 Damage = 15 Case 1 Damage = 10 Case 2 Damage = 10 Case Else Damage = 5 End Select If GetPlayerHP(Player) > Damage Then SetPlayerHP(Player, GetPlayerHP(Player) - Damage) PlayerMessage(Player, "Ouch, you got burnt!", Red) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=catchfish Script Source= Function Main(Player as Long) AS LONG dim Chance as Long, LowChance as Long Chance = Random(1000) + 1 LowChance = Random(2500) + 1 If Random(200) = 1 Then PlayerMessage(Player, "A Water Sprite grabs your line and drags you under!", White) ' SpawnMonster(1435, 195, 6, 4, 0) SetPlayerFlag(Player, 210, GetPlayerMap(Player)) SetPlayerFlag(Player, 211, GetPlayerX(Player)) SetPlayerFlag(Player, 212, GetPlayerY(Player)) PlayerWarp(Player, 1435, 4, 5) End If Select Case Chance Case 1 Select Case Random(7) Case 0 GiveObj(Player, 124, 1) PlayerMessage(Player, "You got a Shadow Key!", Green) Case 1 GiveObj(Player, 193, 1) PlayerMessage(Player, "You got an Elven Passage!", Green) Case 2 GiveObj(Player, 122, 1) PlayerMessage(Player, "You got a Crypt Key!", Green) Case 3 GiveObj(Player, 226, 1) PlayerMessage(Player, "You got an Elder Key!", Green) Case 4 GiveObj(Player, 227, 1) PlayerMessage(Player, "You got an Elder Key 2!", Green) Case 5 GiveObj(Player, 246, 1) PlayerMessage(Player, "You got a Guardian Key!", Green) Case 6 GiveObj(Player, 191, 1) PlayerMessage(Player, "You got an Ephemeral Key!", Green) End Select End Select Select Case LowChance Case 1 Select Case Random(4) Case 0 GiveObj(Player, 144, 1) PlayerMessage(Player, "You got some Wings of Zeus!", BrightGreen) Case 1 GiveObj(Player, 159, 1) PlayerMessage(Player, "You got a Sun Blade!", BrightGreen) Case 2 GiveObj(Player, 50, 1) PlayerMessage(Player, "You got the King's Boots!!", BrightGreen) Case 3 GiveObj(Player, 166, 1) PlayerMessage(Player, "You got a Glass Stiletto!", BrightGreen) End Select End Select End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cavern Script Source= function main(player as long) as long dim a as long, b as long, c as long, d as long globalmessage("A Random Team Carnage has started!",brightblue) globalmessage("Map: Team Cavern Carnage",white) b = 0 c = 0 d = 0 setflag(60,0) setflag(61,0) '//========Teams=======// for a = 1 to getmaxusers If getplayermap(a)= 68 then if getplayeraccess(a) = 0 then b = random(1) if b = 0 then if c >= d then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 30) SetPlayerSprite(A, 36) d = d + 1 setflag(61,getflag(61) + 1) else SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 31) SetPlayerSprite(A, 38) c = c + 1 setflag(60,getflag(60) + 1) end if else if c < d then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 31) SetPlayerSprite(A, 38) c = c + 1 setflag(60,getflag(60) + 1) else SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 30) SetPlayerSprite(A, 36) d = d + 1 setflag(61,getflag(61) + 1) end if end if else end if else end if next a '//========Warp=======// for a = 1 to getmaxusers if getplayermap(A) = 68 then If GetPlayerGuild(A) = 30 Then PlayerWarp(A, 640, 1, 6) If GetPlayerGuild(A) = 31 Then PlayerWarp(A, 641, 10, 5) If GetPlayerAccess(A) > 5 Then PlayerWarp(A, 640, 1, 1) end if next a end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=caverncarn Script Source= Function Main(Player as Long) AS LONG dim Loop as Long, Team as Long globalmessage("A Team Carnage has started!",brightblue) globalmessage("Map: Team Cavern Carnage",white) SetFlag(82, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = 68 Then If GetPlayerAccess(Loop) > 0 Then PlayerWarp(Loop, 640, 1, 1) Else SetPlayerFlag(Loop, 10, 2) SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerStatus(Loop, 9) If Team = 0 Then SetPlayerGuild(Loop, 100) SetPlayerSprite(Loop, 36) SetPlayerFlag(Loop, 11, 1) PlayerWarp(Loop, 640, 1, 6) Team = 1 Else SetPlayerGuild(Loop, 101) SetPlayerSprite(Loop, 38) SetPlayerFlag(Loop, 11, 2) PlayerWarp(Loop, 641, 10, 5) Team = 0 End If End If End If End If Next Loop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=CHAMP Script Source= Sub Main(Player as Long) If GetPlayerMap(Player) = 1352 Then BanPlayer(Player, 5, "") Exit Sub End If If GetPlayerFlag(Player, 101) > 0 Then PlayerMessage(Player, "You have been banned from Solo the Champ.", Yellow) Exit Sub End If If GetFlag(89) < 11 Then PlayerMessage(Player, "Solo the Champ is closed.", Yellow) Exit Sub End If If GetPlayerFlag(Player, 109) > 0 Then PlayerMessage(Player, "You cannot join Solo the Champ yet.", Yellow) Exit Sub End If If GetMapIsFriendly(GetPlayerMap(Player)) = False Then PlayerMessage(Player, "You must be on a friendly map to warp to Solo the Champ.", Yellow) Exit Sub End If If GetTileAtt(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player)) = 5 | GetTileAtt2(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player)) = 5 Then PlayerMessage(Player, "You may not warp to Solo the Champ from vaults.", Yellow) Exit Sub End If RunScript1("GameWarpSet", Player) If GetMapPlayerCount(1828) <= GetMapPlayerCount(1829) Then PlayerWarp(Player, 1828, 1, 1) Else PlayerWarp(Player, 1829, 1, 1) End If SetPlayerFlag(Player, 109, 1) Timer(Player, 5, "PushTimer") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=champ1 Script Source= Sub Main(Player as Long) dim Spawn as Long If GetFlag(89) = 0 Then RunScript1("GameWarp", Player) PlayerMessage(Player, "Solo the Champ is closed.", Grey) Exit Sub End If If GetFlag(90) > 0 Then PlayerMessage(Player, "There is already someone soloing the Champ.", Grey) PlayerWarp(Player, 1828, 10, 1) Else ResetMap(1828) PlayerWarp(Player, 1828, 5, 5) SetPlayerFlag(Player, 10, 8) SetFlag(90, Player) Select Case GetPlayerFlag(Player, 215) Case 0 Spawn = 1 Case 1 Spawn = 2 Case 2 Spawn = 3 Case 3 Spawn = 4 Case 4 Spawn = 4 End Select Select Case Random(Spawn) + 1 Case 1 SpawnMonster(1828, 216, 6, 6, 0) Case 2 SpawnMonster(1828, 144, 6, 6, 0) Case 3 SpawnMonster(1828, 123, 6, 6, 0) Case 4 SpawnMonster(1828, 114, 6, 6, 0) End Select End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=champban Script Source= Sub Main(Player as Long, Target as Long) SetPlayerFlag(Target, 101, 1) If GetPlayerMap(Target) = 1828 | GetPlayerMap(Target) = 1829 Then RunScript1("GameWarp", Target) GlobalMessage(strcat(GetPlayerName(Target), " has been banned from Solo the Champ."), Yellow) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=champhost Script Source= Sub Main() If GetFlag(89) < 10 Then GlobalMessage("Solo the Champ is now open! Type /champ to join.", Yellow) SetFlag(89,25) Else GlobalMessage("Solo the Champ has closed.", Yellow) SetFlag(89,0) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=champqueue Script Source= Sub Main(Player as Long) dim Loop as Long For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = 1828 Then If GetPlayerY(Loop) = 1 Then If GetPlayerX(Loop) = 10 Then RunScript1("champ1", Loop) Else PlayerWarp(Loop, 1828, GetPlayerX(Loop) + 1, 1) End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=champreset Script Source= Function Main(Player as Long) AS LONG SetFlag(90, 0) PlayerMessage(Player, "Solo the Champ has been reset.", Grey) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=champtimer Script Source= Sub Main() Dim Loop as Long SetFlag(89, GetFlag(89) - 1) If GetFlag(89) = 10 Then GlobalMessage("Solo the Champ has closed.", Yellow) If GetFlag(89) = 1 Then MapMessage(1828, "You will be warped out in 1 minute.", Yellow) MapMessage(1829, "You will be warped out in 1 minute.", Yellow) End If If GetFlag(89) = 0 Then For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = 1828 | GetPlayerMap(Loop) = 1829 Then RunScript1("GameWarp", Loop) Next Loop End If If GetFlag(90) > 0 Then For Loop = 1 to GetMaxUsers() If GetPlayerMap(Loop) = 1828 Then If GetPlayerY(Loop) > 4 Then SetMonsterTarget(1828, 0, Loop) End If End If Next Loop End If If GetFlag(95) > 0 Then For Loop = 1 to GetMaxUsers() If GetPlayerMap(Loop) = 1829 Then If GetPlayerY(Loop) > 4 Then SetMonsterTarget(1829, 0, Loop) End If End If Next Loop End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=checkfrozen Script Source= Function Main(Player as Long) AS LONG If GetPlayerFlag(Player, 3) = 0 Then If GetPlayerFlag(Player, 4) = 0 Then SetPlayerFlag(Player, 3, 1) SetPlayerFlag(Player, 4, 1) Timer(Player, 10, "ResetFreeze") SetPlayerFlag(Player, 21, GetPlayerX(Player)) SetPlayerFlag(Player, 22, GetPlayerY(Player)) SetPlayerFlag(Player, 24, GetPlayerMap(Player)) PlayerMessage(Player, "Please wait while you are unfrozen.", Grey) Timer(Player, 1, "unfreeze") 'MapMessage(GetPlayerMap(Player), str(GetPlayerFlag(Player, 21)), White) Else PlayerMessage(Player, "You must wait to request another unfreeze.", Grey) End If Else PlayerMessage(Player, "You must wait to request another unfreeze.", Grey) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=CheckInvis Script Source= Sub Main(Player as Long) Dim A As Long playermessage(player,"invis players:",yellow) for a = 0 to getmaxusers() if getplayersprite(a) = 255 then playermessage(player, getplayername(a),brightred) If GetPlayerStatus(a) = 9 Then playermessage(player, getplayername(a),brightblue) next a End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=checkjackpot Script Source= Sub Main(Player AS LONG) GlobalMessage(StrCat("Current Odyssey Jackpot Fund: ", Str(GetFlag(123))), WHITE) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=checkmap Script Source= Function Main(Player as Long, Target as Long) as Long dim Map as Long, Gate as Long Map = GetPlayerMap(Player) 'Tof If Map = 66 | Map = 67 | Map = 85 | Map = 87 | Map = 88 | Map = 91 | Map = 93 | Map = 98 | Map = 148 | Map = 167 | Map = 231 | Map = 232 Then Gate = 1 'Champ If Map = 1828 | Map = 1829 Then Gate = 1 'Football If Map = 1423 | Map = 1424 | Map = 1425 Then Gate = 1 'Dodgeball If Map = 1427 Then Gate = 1 If Gate = 1 Then Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=chess Script Source= Function Main(player as long) as long dim a as long GlobalMessage("A Free For All Carnage has started!", 9) GlobalMessage("Map: Chess Piece Carnage",white) SetFlag(82, 0) For A = 1 to GetMaxUsers() If IsPlaying(A) Then If GetPlayerMap(A) = 68 Then If GetPlayerAccess(A) = 0 Then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerFlag(A, 10, 1) SetPlayerStatus(A, 9) SetPlayerGuild(A, 0) SetPlayerSprite(A, 114) PlayerWarp(A, 86, Random(6) + 3, Random(6) + 3) Else PlayerWarp(A, 86, 1, 1) End If End If End If Next A End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=choplumber Script Source= Function Main(Player as Long) AS LONG dim Chance as Long Chance = Random(1000) + 1 If Random(100) = 1 Then PlayerMessage(Player, "A Wood Ent drags you in with its branches!", White) ' SpawnMonster(1438, 185, 5, 5, 0) SetPlayerFlag(Player, 210, GetPlayerMap(Player)) SetPlayerFlag(Player, 211, GetPlayerX(Player)) SetPlayerFlag(Player, 212, GetPlayerY(Player)) PlayerWarp(Player, 1438, 5, 9) End If If GetPlayerMap(Player) = 623 Then Chance = Random(500) + 1 If Chance = 1 | Chance = 2 | Chance = 3 Then 'Candy Apple If RunScript1("Ration", Player) = 0 & RunScript1("Invent", Player) = 0 Then GiveObj(Player, 41, 1) Else SpawnObject(GetPlayerMap(Player), 41, 1, GetPlayerX(Player), GetPlayerY(Player)) End If PlayerMessage(Player, "An Apple falls from the tree!! A Candy Apple...", BrightGreen) End If Else Select Case Chance Case 1 '50 Lumber GiveObj(Player, 215, 50) PlayerMessage(Player, "You chop 50 Lumber!", White) Case 2 '100 Lumber GiveObj(Player, 215, 100) PlayerMessage(Player, "You chop 100 Lumber!", White) Case 3 'Candy Apple If RunScript1("Ration", Player) = 0 & RunScript1("Invent", Player) = 0 Then GiveObj(Player, 41, 1) Else SpawnObject(GetPlayerMap(Player), 41, 1, GetPlayerX(Player), GetPlayerY(Player)) End If PlayerMessage(Player, "An Apple falls from the tree!! A Candy Apple...", BrightGreen) End Select End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=city Script Source= function main(player as long) as long dim a as long, b as long, c as long, d as long globalmessage("A Random Team Carnage has started!",brightblue) globalmessage("Map: Team City Carnage",white) b = 0 c = 0 d = 0 setflag(60,0) setflag(61,0) '//========Teams=======// for a = 1 to getmaxusers If getplayermap(a)= 68 then if getplayeraccess(a) = 0 then b = random(1) if b = 0 then if c >= d then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 30) SetPlayerSprite(A, 51) d = d + 1 setflag(61,getflag(61) + 1) else SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 31) SetPlayerSprite(A, 52) c = c + 1 setflag(60,getflag(60) + 1) end if else if c < d then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 32) SetPlayerSprite(A, 9) c = c + 1 setflag(60,getflag(60) + 1) else SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 33) SetPlayerSprite(A, 51) d = d + 1 setflag(61,getflag(61) + 1) end if end if else end if else end if next a '//========Warp=======// for a = 1 to getmaxusers if getplayermap(A) = 68 then If GetPlayerGuild(A) = 30 Then PlayerWarp(A, 667, 6, 6) If GetPlayerGuild(A) = 31 Then PlayerWarp(A, 649, 7, 4) If GetPlayerAccess(A) > 5 Then PlayerWarp(A, 667, 1, 1) end if next a end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=citycarn Script Source= Function Main(Player as Long) AS LONG dim Loop as Long, Team as Long globalmessage("A Team Carnage has started!",brightblue) globalmessage("Map: Team City Carnage",white) SetFlag(82, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = 68 Then If GetPlayerAccess(Loop) > 0 Then PlayerWarp(Loop, 667, 1, 1) Else SetPlayerFlag(Loop, 10, 2) SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerStatus(Loop, 9) If Team = 0 Then SetPlayerGuild(Loop, 100) SetPlayerSprite(Loop, 51) SetPlayerFlag(Loop, 11, 1) PlayerWarp(Loop, 667, 6, 6) Team = 1 Else SetPlayerGuild(Loop, 101) SetPlayerSprite(Loop, 52) SetPlayerFlag(Loop, 11, 2) PlayerWarp(Loop, 649, 7, 4) Team = 0 End If End If End If End If Next Loop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=CLEAR Script Source= Sub Main(Player AS LONG) Dim A AS LONG For A = 1 to 20 GlobalMessage(" ", WHITE) Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=clericguild Script Source= Sub Main(Player as Long) If GetPlayerClass(Player) = 4 Then If GetPlayerFlag(Player, 16) = 0 Then If GetPlayerGuild(Player) > 0 Then SetPlayerFlag(Player, 16, 1) PlayerMessage(Player, "Your spells have been set to affect your Guild only.", White) Else PlayerMessage(Player, "You must be Guilded to use this.", Grey) End If Else SetPlayerFlag(Player, 16, 0) PlayerMessage(Player, "Your spells have been set to affect everyone.", White) End If Else PlayerMessage(Player, "You must be a Cleric to use this.", Grey) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=clickplayer Script Source= Sub Main(Player AS LONG, Target AS LONG) dim Map as Long, X as Long, Y as Long If GetPlayerFlag(Player, 90) = 1 Then 'Cleric Res If GetPlayerIsDead(Player) = 0 Then RunScript2("res", Player, Target) End If End If If GetPlayerFlag(Player, 94) = 1 Then 'Mage Telepathy If GetPlayerAccess(Target) = 0 Then RunScript2("playerscan", Player, Target) Else PlayerMessage(Player, "Gods are unaffected by your pesky mind tricks.", Grey) End If End If If GetPlayerFlag(Player, 96) > 0 Then 'Mage Sacrifice RunScript2("sacrifice", Player, Target) End If If GetPlayerFlag(Player, 204) > 0 Then 'Mage Evil Eye If GetPlayerFlag(Player, 23) = 0 Then If GetPlayerGuild(Player) = 0 & GetPlayerGuild(Target) > 0 Then PlayerMessage(Player, "Unguildeds may not spy on Guildeds.", Grey) SetPlayerFlag(Player, 204, 0) Else PlayerMessage(Player, strcat("Your Evil Eye is now tracking ", GetPlayerName(Target)), Yellow) SetPlayerFlag(Player, 209, Target) Timer(Player, 20, "Tag") SetPlayerFlag(Player, 204, 0) SetPlayerFlag(Player, 23, 1) RunScript1("SpellCooldown", Player) End If Else PlayerMessage(Player, "You must wait to cast.", Grey) End If End If If GetPlayerFlag(Player, 208) = 1 Then 'Cleric Damnation If GetPlayerIsDead(Target) = True Then If GetPlayerFlag(Target, 15) <> 2 Then SetPlayerFlag(Target, 15, 2) Map = GetPlayerMap(Target) X = GetPlayerX(Target) Y = GetPlayerY(Target) RunScript4("Explosion", Player, Map, X, Y) Else PlayerMessage(Player, "This soul has exploded.", White) End If End If End If If GetPlayerFlag(Target, 78) = 1 Then PlayerMessage(Player, strcat(GetPlayerName(Target), " is one of Fank's Henchmen!"), Green) End If If GetPlayerFlag(Target, 218) > 1 Then PlayerMessage(Player, strcat(GetPlayerName(Target), strcat(" has ruled over ToF Run ", strcat(str(GetPlayerFlag(Target, 218)), " times!"))), Green) Else If GetPlayerFlag(Target, 218) = 1 Then PlayerMessage(Player, strcat(GetPlayerName(Target), " has ruled over ToF Run!"), Green) End If End If ' If GetPlayerFlag(Target, 125) > 0 Then ' PlayerMessage(Player, strcat(GetPlayerName(Target), " has received knowledge of the Dark Arts!"), Blue) ' End If Select Case GetPlayerFlag(Target, 215) Case 1 PlayerMessage(Player, strcat(GetPlayerName(Target), " has slain the Champ single handed!"), Red) Case 2 PlayerMessage(Player, strcat(GetPlayerName(Target), " has slain the Bremen in close quarters!"), Red) Case 3 PlayerMessage(Player, strcat(GetPlayerName(Target), " has slain the Vorpal Bunny in close quarters!"), Red) Case 4 PlayerMessage(Player, strcat(GetPlayerName(Target), " has stared into the eyes of Death and preveiled!"), Red) End Select If GetPlayerFlag(Player, 196) = 1 Then 'Cleric Damnation 'If GetPlayerFlag(Target, 15) <> 2 Then 'SetPlayerFlag(Target, 15, 2) Map = GetPlayerMap(Target) X = GetPlayerX(Target) Y = GetPlayerY(Target) RunScript4("magespell2", Player, Map, X, Y) 'Else PlayerMessage(Player, "This soul has exploded.", White) 'End If End if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=COLORS Script Source= Sub Main() Dim A as Long For A = 1 to GetMaxUsers() 'SetPlayerStatus(A,22) SetPlayerHP(A, GetPlayerMaxHP(A)) SetPlayerEnergy(A, GetPlayerMaxEnergy(A)) SetPlayerMana(A, GetPlayerMaxMana(A)) Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=COMMAND Script Source= FUNCTION Main(Player as LONG, Command as String, Parm1 as String, Parm2 as String, Parm3 as String) AS LONG Dim A As Long, B As Long, C As Long, D As Long, E As Long, Target As Long Main = Stop Target = FindPlayer(Parm1) 'General If strcmp(Command, "sprite") Then RunScript2("SetSprite", Player, Val(Parm1)) Exit Function End If If strcmp(Command, "status") Then RunScript2("SetStatus", Player, Val(Parm1)) Exit Function End If If strcmp(Command, "quests") Then RunScript1("QuestLog", Player) Exit Function End If ' If strcmp(Command, "unfreeze") | strcmp(Command, "u") Then ' RunScript1("CheckFrozen", Player) ' Exit Function ' End If If strcmp(Command, "Artifacts") Then RunScript1("Artifact", Player) Exit Function End If If strcmp(Command, "rules") Then RunScript1("Rules", Player) Exit Function End If 'Market If strcmp(Command, "Lottery") Then RunScript1("Lottery", Player) Exit Function End If 'Store If strcmp(Command, "Incognito") Then RunScript1("Incognito", Player) Exit Function End If If strcmp(Command, "FloatText") & GetPlayerFlag(Player, 72) = 1 Then If GetPlayerFlag(Player, 109) > 0 Then Exit Function SetPlayerFlag(Player, 109, 1) Timer(Player, 1, "PushTimer") If strlen(Parm1) <= 25 Then CreatePlayerFloatText(Player, Parm1, Val(Parm2)) Else PlayerMessage(Player, "Message is too long.", Grey) End If Exit Function End If If strcmp(Command, "Push") Then RunScript1("Push", Player) Exit Function End If If strcmp(Command, "Guard") Then If IsPlaying(Target) Then RunScript2("Guard", Player, Target) Exit Function End If 'if strcmp(command, "attack") then 'if getplayerguild(player) = getflag(186) & getflag(185) > 0 then ' If IsPlaying(Target) Then RunScript2("attack", Player, Target) 'else 'playermessage(player, "Your guild does not have special access to the Darkcone Fort.", white) 'Exit Function 'end if 'end if 'If strcmp(Command, "Attack") & if getplayerguild(player) = getflag(186) & getflag(185) > 0 then 'Fort 'If strcmp(Command, "fort") Then 'If IsPlaying(Target) Then RunScript2("attack", Player, Target) 'Exit Function 'End If If strcmp(Command, "PkRemove") Then If GetPlayerFlag(Player, 77) = 1 Then SetPlayerStatus(Player, GetPlayerFlag(Player, 133)) Exit Function End If 'Party If strcmp(Command, "party") Then If strcmp(Parm1, "") Then RunScript0("party") Exit Function End If If strcmp(Parm1, "new") Then RunScript1("partynew", Player) Exit Function End If If strcmp(Parm1, "invite") Then RunScript2("partyinvite", Player, FindPlayer(Parm2)) Exit Function End If If strcmp(Parm1, "join") Then RunScript1("partyjoin", Player) Exit Function End If If strcmp(Parm1, "leave") Then RunScript1("partyleave", Player) Exit Function End If If strcmp(Parm1, "leader") Then RunScript2("partyleader", Player, FindPlayer(Parm2)) Exit Function End If If strcmp(Parm1, "boot") Then RunScript2("partyboot", Player, FindPlayer(Parm2)) Exit Function End If If strcmp(Parm1, "roll") Then RunScript1("partyroll", Player) Exit Function End If If strcmp(Parm1, "who") Then RunScript1("partywho", Player) Exit Function End If If strcmp(Parm1, "chat") Then RunScript0("partychat") Exit Function End If If StrCmp(Parm1, "help") Then RunScript1("partyhelp", Player) Exit Function End If PlayerMessage(Player, "That is an invalid Party command.", Yellow) Exit Function End If 'Player God Commands If GetPlayerFlag(Player, 78) > 0 | GetPlayerAccess(Player) > 0 | GetPlayerFlag(Player, 74) = 1 Then If strcmp(Command, "Boot") Then A = FindPlayer(Parm1) If IsPlaying(A) Then If strcmp(Parm2, "") Then PlayerMessage(Player, "You must enter a good, descriptive reason", WHITE) Else BootPlayer(A, StrCat(StrCat(GetPlayerName(Player), " has booted you - "), Parm2)) End If Else PlayerMessage(Player, "Player not found", WHITE) End If Exit Function End If If strcmp(Command, "Ban") Then A = FindPlayer(Parm1) If IsPlaying(A) Then If strcmp(Parm2, "") Then PlayerMessage(Player, "You must enter a good, descriptive reason", WHITE) Else If GetPlayerAccess(Player) = 0 Then BanPlayer(A, 1, StrCat(StrCat(GetPlayerName(Player), " has banned you - "), Parm2)) Else PlayerMessage(Player, "That player is a god.", Grey) End If End If Else PlayerMessage(Player, "Player not found", WHITE) End If Exit Function End If If strcmp(Command, "Jail") Then RunScript3("GODJAIL", Player, Target, Val(Parm2)) Exit Function End If If strcmp(Command, "Squelch") Then RunScript3("GODSQUELCH", Player, Target, Val(Parm2)) Exit Function End If End If 'Minigames If GetPlayerFlag(Player, 40) = 0 Then 'Jail If strcmp(Command, "Carn") Then If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You are already in a Minigame.", Grey) Else Runscript1("Carn", Player) End If Exit Function End If If strcmp(Command, "Tof") Then If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You are already in a Minigame.", Grey) Else RunScript1("TOF", Player) End If Exit Function End If If strcmp(Command, "Champ") Then If GetFlag(90) <> Player & GetFlag(95) <> Player Then If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You are already in a Minigame.", Grey) Else RunScript1("Champ", Player) End If Exit Function Else PlayerMessage(Player, "You are already in Solo the Champ.", Grey) Exit Function End If End If If strcmp(Command, "Tourny") Then If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You are already in a Minigame.", Grey) Else RunScript1("Tournament", Player) End If Exit Function End If If strcmp(Command, "saveme") Then PlayerWarp(Player, 2100, 1, 11) 'catch exploiter 'MapMessage(2100, "saveme", brightgreen) ' to see who exploits Exit Function End If If strcmp(Command, "fille") Then PlayerWarp(Player, 2100, 1, 11) 'catch exploiter 'SetPlayerEnergy(Player, GetPlayerMaxEnergy(Player)) 'MapMessage(2100, "fille", Brightgreen) 'to see who exploits Exit Function End If Else PlayerMessage(Player, "You cant escape that easily...", Grey) Exit Function End If RunScript0("Command2") End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=command2 Script Source= FUNCTION Main(Player as LONG, Command as String, Parm1 as String, Parm2 as String, Parm3 as String) AS LONG Dim A As Long, B As Long, C As Long, D As Long, E As Long, Target As Long Main = Stop Target = FindPlayer(Parm1) If strcmp(Command, "Tackle") Then RunScript1("FootballTackle", Player) Exit Function End If If StrCmp(Command, "search") Then For A = 1 to 2000 If InStr(GetMapName(A), Parm1) Then PlayerMessage(Player, StrCat(Str(A), GetMapName(A)), WHITE) End If Next A Exit Function End If 'Secondary Skills If strcmp(Command, "smith") Then Select Case GetPlayerMap(Player) Case 4 RunScript2("SmithCren", Player, val(Parm1)) Case 594 RunScript2("SmithSanc", Player, val(Parm1)) Case 1881 RunScript2("SmithDrag", Player, val(Parm1)) Case Else PlayerMessage(Player, "You must be in a blacksmith to smith.", Grey) End Select Exit Function End If If strcmp(Command, "cook") Then Select Case GetPlayerMap(Player) Case 551 RunScript2("CookCrags", Player, val(Parm1)) Case 598 RunScript2("CookSanc", Player, val(Parm1)) Case 950 RunScript2("CookDrag", Player, val(Parm1)) Case 1882 RunScript2("CookBab", Player, val(Parm1)) Case Else PlayerMessage(Player, "You must be in a kitchen to cook.", Grey) End Select Exit Function End If If strcmp(Command, "craft") Then Select Case GetPlayerMap(Player) Case 300 RunScript2("CraftNC", Player, val(Parm1)) Case 593 Select Case val(Parm1) Case 0 RunScript1("CraftSanc", Player) Case 1 RunScript2("CraftSanc2", Player, val(Parm2)) Case 2 RunScript2("CraftSanc4", Player, val(Parm2)) Case 3 RunScript2("CraftSanc5", Player, val(Parm2)) Case Else PlayerMessage(Player, "This is not a valid selection.", Grey) End Select Case 594 RunScript2("CraftSanc3", Player, val(Parm1)) Case Else PlayerMessage(Player, "You must be in a workshop to craft.", Grey) End Select Exit Function End If If strcmp(Command, "scoreboard") Then Select Case val(Parm1) Case 1 RunScript1("Scoreboard1", Player) Case 2 RunScript1("Scoreboard2", Player) Case 3 RunScript1("Scoreboard3", Player) Case Else RunScript1("Scoreboard", Player) End Select Exit Function End If 'Staking Arena If StrCmp(Command, "duel") Then Select Case GetPlayerMap(Player) Case 1414 RunScript2("duel", Player, Target) Case 1949 RunScript2("stake", Player, Target) Case Else PlayerMessage(Player, "You cannot duel here.", Grey) End Select Exit Function End If If strcmp(Command, "duelend") Then RunScript1("stakeend", Player) Exit Function End If If strcmp(Command, "duelhelp") Then RunScript2("duelhelp", Player, val(Parm1)) Exit Function End If 'Trade Room If strcmp(Command, "Barter") Then If GetPlayerMap(Player) = 554 Then RunScript2("TradeWarp1", Player, Target) Else RunScript2("TradeWarp", Player, Target) End If Exit Function End If 'Team Arena If strcmp(Command, "TeamArena") Then RunScript1("TeamArena", Player) Exit Function End If 'Carnage Host If GetPlayerFlag(Player, 78) = 1 | GetPlayerAccess(Player) Then If strcmp(Command, "CarnHost") Then RunScript0("CarnHost") Exit Function End If If strcmp(Command, "Team") Then RunScript3("TeamCarn", Player, Val(Parm1), Val(Parm2)) Exit Function End If If strcmp(Command, "FFA") Then RunScript3("FFAScript", Player, Val(Parm1), Val(Parm2)) Exit Function End If If strcmp(Command, "Battle") Then If Val(Parm2) = 0 Then RunScript2("battle", Player, val(Parm1)) Else Timer(Player, Val(Parm2), "Battle") PlayerMessage(Player, strcat("Battle Royale runs in ", strcat(Parm2, " seconds.")), White) End If Exit Function End If If strcmp(Command, "CTF") Then RunScript2("CTF", Player, val(Parm1)) Exit Function End If If strcmp(Command, "TTD") Then If Val(Parm1) = 0 Then RunScript0("TTD") Else Timer(Player, Val(Parm1), "TTD") PlayerMessage(Player, strcat("TTD runs in ", strcat(Parm1, " seconds.")), White) End If Exit Function End If If strcmp(Command, "Football") Then If Val(Parm2) = 0 Then RunScript2("Football2", Player, val(Parm1)) Else Timer(Player, Val(Parm2), "Football2") PlayerMessage(Player, strcat("Football runs in ", strcat(Parm2, " seconds.")), White) End If Exit Function End If If strcmp(Command, "Dodgeball") Then If Val(Parm1) = 0 Then RunScript1("Dodgeball", Player) Else Timer(Player, Val(Parm1), "Dodgeball") PlayerMessage(Player, strcat("Dodgeball runs in ", strcat(Parm1, " seconds.")), White) End If Exit Function End If If strcmp(Command, "TournamentHost") Then RunScript2("TournamentHost", Player, val(Parm1)) Exit Function End If If strcmp(Command, "Round1") Then RunScript0("TournamentRound1") Exit Function End If If strcmp(Command, "LotteryHost") Then RunScript2("LotteryHost", Player, val(Parm1)) Exit Function End If If strcmp(Command, "LotteryStart") Then RunScript0("LotteryStart") Exit Function End If If strcmp(Command, "LotteryList") Then RunScript0("LotteryList") Exit Function End If If strcmp(Command, "CarnPop") Then RunScript0("CarnPop") Exit Function End If If strcmp(Command, "TTDTeams") Then RunScript0("TTDTeams") Exit Function End If If strcmp(Command, "Teams") Then RunScript2("Teams", Player, Val(Parm1)) Exit Function End If If strcmp(Command, "Minigames") Then RunScript1("Minigame", Player) Exit Function If strcmp(Command, "spawnmonster") Then SpawnMonster(GetPlayerMap(Player),val(Parm1),GetPlayerX(Player),GetPlayerY(Player)) Main = Stop Exit Function End If End If End If If GetPlayerAccess(Player) > 0 Then RunScript0("Command3") Else PlayerMessage(Player, "Invalid command!", Yellow) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=COMMAND3 Script Source= Function Main(Player as Long, Command as String, Parm1 as String, Parm2 as String, Parm3 as String, Parm4 as String) AS LONG dim Target as Long Target = FindPlayer(Parm1) 'God Commands If GetPlayerAccess(Player) > 0 Then If strcmp(Command, "scriptban") Then BanPlayer(Target, Val(Parm2), Parm3) Main = Stop Exit Function End If If strcmp(Command, "restore") Then RunScript2("restore", Player, Target) Exit Function End If If strcmp(Command, "user") Then PlayerMessage(Player, strcat(GetPlayerName(Target), strcat(" - ", GetPlayerUser(Target))), White) Exit Function End If If strcmp(Command, "ip") Then PlayerMessage(Player, strcat(GetPlayerName(Target), strcat(" - ", GetPlayerIP(Target))), White) Exit Function End If If strcmp(Command, "light") Then SetOutdoorLight (Val(Parm1)) Exit Function End If If strcmp(Command, "level") Then RunScript2("level", Target, Val(Parm2)) Exit Function End If If strcmp(Command, "average") Then RunScript0 ("Average") Exit Function End If If strcmp(Command, "globaltimer") Then RunScript1("GlobalCommand", Val(Parm1)) Exit Function End If If strcmp(Command, "get") Then If Val(Parm2) = 0 Then Parm2 = "1" GiveObj(Player, Val(Parm1), Val(Parm2)) Exit Function End If If strcmp(Command, "give") Then GiveObj(Target, Val(Parm2), Val(Parm3)) PlayerMessage(Player, strcat("You have given ", strcat(GetPlayerName(Target), strcat(" ", strcat(Parm3, strcat(" ", GetObjectName(Val(Parm2))))))), Yellow) Exit Function End If If strcmp(Command, "take") Then TakeObj(Target, Val(Parm2), Val(Parm3)) PlayerMessage(Player, strcat("You have taken ", strcat(Parm3, strcat(" ", strcat(GetObjectName(Val(Parm2)), strcat(" from ", GetPlayerName(Target)))))), Yellow) Exit Function End If If strcmp(Command, "run") Then RunScript0(Parm1) Exit Function End If If StrCmp(Command, "macropwn") Then RunScript1("macropwn", Target) Exit Function End If If strcmp(Command, "scan") Then RunScript2("scan", Player, Target) Exit Function End If If strcmp(Command, "class") Then SetPlayerClass(Player, val(Parm1)) Exit Function End If If strcmp(Command, "checkinvis") Then RunScript1("CheckInvis", Player) Exit Function End If If StrCmp(Command, "setflag") Then SetPlayerFlag(Target, Val(Parm2), Val(Parm3)) Exit Function End If If StrCmp(Command, "setsflag") Then SetFlag(Val(Parm1), Val(Parm2)) Exit Function End If If StrCmp(Command, "getsflag") Then PlayerMessage(Player, Str(GetFlag(Val(Parm1))), WHITE) Exit Function End If If Strcmp(Command, "lavos123") & getplayeraccess(player) > 0 Then SetEquippedItemSuffix(Player,5,255) 'GlobalMessage("You hear volcanic eruptions in the distance indicating Fire Lord Lavos will ascend from the depths in 25 minutes.", Brightred) End if If Strcmp(Command, "lavostimer") & getplayeraccess(player) > 0 Then setflag(184, 30) End if 'Event Commands If strcmp(Command, "TOFhost") Then RunScript0("TofHost") Exit Function End If If strcmp(Command, "ChampHost") Then RunScript0 ("ChampHost") Exit Function End If If strcmp(Command, "ChampBan") Then RunScript2("ChampBan", Player, Target) Exit Function End If If strcmp(Command, "LotteryHost") Then RunScript2("LotteryHost", Player, val(Parm1)) Exit Function End If If strcmp(Command, "LotteryStart") Then RunScript0("LotteryStart") Exit Function End If If strcmp(Command, "LotteryList") Then RunScript0("LotteryList") Exit Function End If 'Pictures If strcmp(Command, "bunnyxyz") Then RunScript0 ("bunny") If strcmp(Command, "batxyz") Then RunScript0 ("bat") If strcmp(Command, "devilxyz") Then RunScript0 ("devil") If strcmp(Command, "marstest") Then RunScript2("MarsTest", Player, val(Parm1)) If StrCmp(Command, "res") Then RunScript2("GodRes", Player, Val(Parm1)) End If PlayerMessage(Player, "Invalid command!", Yellow) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=confuse Script Source= Function Main(Player as Long) AS LONG Dim Map as Long, X as Long, Y as Long Dim CalcX as Long, CalcY as Long Dim Mana as Long, Loop as Long Mana = 26 Map = GetPlayerMap(Player) X = GetPlayerX(Player) Y = GetPlayerY(Player) If GetPlayerFlag(Player, 23) = 0 Then If GetPlayerMana(Player) >= Mana Then SetPlayerFlag(Player, 23, 1) RunScript1("cooldown", Player) SetPlayerMana(Player, GetPlayerMana(Player) - Mana) CreatePlayerFloatText(Player, "Con Fun Dere!", BrightGreen) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If Map = GetPlayerMap(Loop) Then If Loop <> Player Then CalcX = Abs(GetPlayerX(Loop) - X) CalcY = Abs(GetPlayerY(Loop) - Y) If CalcX < 4 & CalcY < 4 Then If GetPlayerFlag(Loop, 23) = 0 Then SetPlayerFlag(Loop, 23, 1) RunScript1("cooldown", Loop) PlayerMessage(Loop, "You become confused!", Grey) CreateCharacterEffect(Map, Loop, 21, 40, 8, 0, 0) End If End If End If End If End If Next Loop End If End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=convertimer Script Source= Sub main(player as long) setplayerflag(player,82,0) end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cookbab Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) & HasObj(Player, 69) Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cookcrags Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) & HasObj(Player, 69) Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cookdrag Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) >= 1 & HasObj(Player, 69) >= 1 Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) >= 1 Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cookfish Script Source= Function Main(Player as Long) AS LONG Dim Ration as Long, Slot as Long, A as Long ''Cook Fish Ration = HasObj(Player, 39) + HasObj(Player, 41) + HasObj(Player, 99) + HasObj(Player, 155) + HasObj(Player, 138) If GetPlayerHP(Player) = GetPlayerMaxHP(Player) & GetPlayerMana(Player) = GetPlayerMaxMana(Player) Then For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook fish", Grey) Exit Function End If If Ration < 3 Then 'Big Fish => Apple If HasObj(Player, 148) >= 10 Then TakeObj(Player, 148, 10) GiveObj(Player, 41, 1) PlayerMessage(Player, "You've cooked 10 Big Fish into a Candy Apple!", Yellow) Exit Function Else 'Medium Fish => Ancient Tome If HasObj(Player, 152) >= 10 Then TakeObj(Player, 152, 10) GiveObj(Player, 99, 1) PlayerMessage(Player, "You've cooked 10 Medium Fish into an Ancient Tome!", Yellow) Exit Function Else 'Small Fish => HP Pot If HasObj(Player, 153) >= 10 Then TakeObj(Player, 153, 10) GiveObj(Player, 39, 1) PlayerMessage(Player, "You've cooked 10 Small Fish into a Health Potion!", Yellow) Exit Function Else PlayerMessage(Player, "You need 10 fish to cook a meal", Grey) End If End If End If Else PlayerMessage(Player, "You may not have more than 3 ration items", Grey) End If Else PlayerMessage(Player, "You must be fully restored to cook fish", Grey) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cookpotions Script Source= Function Main(Player as Long) AS LONG Dim Ration as Long, Slot as Long, A as Long, B as Long ''Cook Potions Ration = HasObj(Player, 445) + HasObj(Player, 446) + HasObj(Player, 447) For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to create potions", Grey) Exit Function End If If HasObj(Player, 403) = 0 | HasObj(Player, 286) < 10 Then PlayerMessage(Player, "You do not have all the ingredients required.", Grey) Exit Function End If If Ration < 2 Then '20 Scorpian Stings => Strength Potion If HasObj(Player, 78) >= 20 Then TakeObj(Player, 78, 20) GiveObj(Player, 445, 1) PlayerMessage(Player, "You've made a Vial of Water, 10 Hell Shards and 20 Scorpian Stings into a Strength Potion!", Yellow) Exit Function Else '20 Marshrooms => Endurance Potion If HasObj(Player, 69) >= 20 Then TakeObj(Player, 69, 20) GiveObj(Player, 446, 1) PlayerMessage(Player, "You've made a Vial of Water, 10 Hell Shards and 20 Marshroom into an Endurance Potion!", Yellow) Exit Function Else '5 Demon Hearts => Constitution Potion If HasObj(Player, 285) >= 5 Then TakeObj(Player, 285, 5) GiveObj(Player, 447, 1) PlayerMessage(Player, "You've made a Vial of Water, 10 Hell Shards and 5 Demon Hearts into a Constitution Potion!", Yellow) Exit Function End If End If End If Else PlayerMessage(Player, "You may not have more than 2 Stat Potions.", Grey) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cooksanc Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) & HasObj(Player, 69) Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cooldown Script Source= Sub Main(Player as Long) SetPlayerFlag(Player, 23, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cooldown2 Script Source= Sub Main(Player as Long) SetPlayerFlag(Player, 27, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cooldown3 Script Source= Sub Main(Player as Long) SetPlayerFlag(Player, 28, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=crackers Script Source= Sub Main(Player as Long) dim Loop as Long For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then GiveObj(Loop, 490, 1) End If Next Loop GlobalMessage("Crackers for everyone!!", BrightGreen) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=craftnc Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long, Lumber as Long A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to craft.", Grey) Exit Sub End If Lumber = 215 If GetPlayerMap(Player) = 300 Then Select Case Parm1 Case 0 PlayerMessage(Player, "=Crafting List=", Yellow) PlayerMessage(Player, "1. Longbow - 100 Lumber", Grey) PlayerMessage(Player, "2. Crossbow - 250 Lumber", Grey) PlayerMessage(Player, "3. Arrows x30 - 10 Lumber", Grey) PlayerMessage(Player, "4. Bolts x20 - 10 Lumber", Grey) PlayerMessage(Player, "5. Gryphn's Claw - 5000 Lumber", Grey) If GetPlayerFlag(Player, 240) > 0 & GetPlayerFlag(Player, 240) < 7 Then PlayerMessage(Player, "6. Bucket - 100 Lumber, 2 Metal Bands", Yellow) PlayerMessage(Player, "Type /craft # to craft an item.", White) Case 1 If HasObj(Player, Lumber) >= 100 Then PlayerMessage(Player, "You craft a Longbow!", Yellow) TakeObj(Player, Lumber, 100) GiveObj(Player, 30, 1) Else PlayerMessage(Player, "You dont have enough Lumber to craft that.", Grey) End If Case 2 If HasObj(Player, Lumber) >= 250 Then PlayerMessage(Player, "You craft a Crossbow!", Yellow) TakeObj(Player, Lumber, 250) GiveObj(Player, 31, 1) Else PlayerMessage(Player, "You dont have enough Lumber to craft that.", Grey) End If Case 3 If HasObj(Player, Lumber) >= 10 Then PlayerMessage(Player, "You craft some Arrows!", Yellow) TakeObj(Player, Lumber, 10) GiveObj(Player, 71, 30) Else PlayerMessage(Player, "You dont have enough Lumber to craft that.", Grey) End If Case 4 If HasObj(Player, Lumber) >= 10 Then PlayerMessage(Player, "You craft some Bolts!", Yellow) TakeObj(Player, Lumber, 10) GiveObj(Player, 233, 20) Else PlayerMessage(Player, "You dont have enough Lumber to craft that.", Grey) End If Case 5 If HasObj(Player, Lumber) >= 5000 Then PlayerMessage(Player, "You craft a Gryphn's Claw!!", Yellow) TakeObj(Player, Lumber, 5000) GiveObj(Player, 232, 1) Else PlayerMessage(Player, "You dont have enough Lumber to craft that.", Grey) End If Case 6 If GetPlayerFlag(Player, 240) > 0 & GetPlayerFlag(Player, 240) < 7 Then If HasObj(Player, Lumber) >= 100 & HasObj(Player, 461) >= 2 Then PlayerMessage(Player, "You craft a Bucket!!", Yellow) TakeObj(Player, Lumber, 100) TakeObj(Player, 461, 2) GiveObj(Player, 466, 1) PlayerMessage(Player, "Madargan Gar says, ''Here it is, a brand new bucket for Manny. Go take it to him straight away.", Yellow) SetPlayerFlag(Player, 240, 5) Else PlayerMessage(Player, "You dont have enough Lumber to craft that.", Grey) End If Else PlayerMessage(Player, "That is not a valid option.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select Else PlayerMessage(Player, "You must be in a workshop to craft.", Grey) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=craftsanc Script Source= Sub Main(Player as Long) PlayerMessage(Player, "=Wench's Meddlings=", Yellow) PlayerMessage(Player, "1. Tower Ring Transmutation - 1 Tower Ring, 3000 Gold", Grey) PlayerMessage(Player, "2. Something Else", Grey) PlayerMessage(Player, "3. Something Else Again", Grey) PlayerMessage(Player, "Type /craft # to preform a meddling.", White) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=craftsanc2 Script Source= Sub Main(Player as Long) dim Slot as Long, Cost as Long Cost = 3000 If HasObj(Player, 6) < Cost Then PlayerMessage(Player, strcat("You require ", strcat(str(Cost), " Gold to transmute a Tower Ring.")), Grey) Exit Sub End If For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 59 Then TakeObj(Player, 59, 1) Select Case Random(3) Case 0 GiveObj(Player, 56, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Jewel of Fenrir!", White) Case 1 GiveObj(Player, 53, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Gem of Valhalla!", White) Case 2 GiveObj(Player, 120, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Freya's Charm!", White) End Select Exit Sub End If If GetPlayerInvObject(Player, Slot) = 56 Then TakeObj(Player, 56, 1) Select Case Random(3) Case 0 GiveObj(Player, 59, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive an Odin's Shard!", White) Case 1 GiveObj(Player, 53, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Gem of Valhalla!", White) Case 2 GiveObj(Player, 120, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Freya's Charm!", White) End Select Exit Sub End If If GetPlayerInvObject(Player, Slot) = 53 Then TakeObj(Player, 53, 1) Select Case Random(3) Case 0 GiveObj(Player, 59, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive an Odin's Shard!", White) Case 1 GiveObj(Player, 56, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Jewel of Fenrir!", White) Case 2 GiveObj(Player, 120, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Freya's Charm!", White) End Select Exit Sub End If If GetPlayerInvObject(Player, Slot) = 120 Then TakeObj(Player, 120, 1) Select Case Random(3) Case 0 GiveObj(Player, 59, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive an Odin's Shard!", White) Case 1 GiveObj(Player, 56, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Jewel of Fenrir!", White) Case 2 GiveObj(Player, 53, 1) TakeObj(Player, 6, Cost) PlayerMessage(Player, "You receive a Gem of Valhalla!", White) End Select Exit Sub End If Next Slot End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=craftsanc3 Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to craft.", Grey) Exit Sub End If If GetPlayerMap(Player) = 594 Then Select Case Parm1 Case 0 PlayerMessage(Player, "=Crafting List=", Yellow) PlayerMessage(Player, "1. Odin's Shard - 2 Clear Emeralds, 1 Perfect Diamond", Grey) PlayerMessage(Player, "2. Jewel of Fenrir - 2 Shining Rubys, 1 Perfect Diamond", Grey) PlayerMessage(Player, "3. Gem of Valhalla - 2 Bright Sapphires, 1 Perfect Diamond", Grey) PlayerMessage(Player, "4. Freya's Charm - 2 Cut Amethysts, 1 Perfect Diamond", Grey) PlayerMessage(Player, "Type /craft # to craft an item.", White) Case 1 If HasObj(Player, 441) >= 2 & HasObj(Player, 434) >= 1 Then PlayerMessage(Player, "You craft an Odin's Shard!", Yellow) TakeObj(Player, 441, 2) TakeObj(Player, 434, 1) GiveObj(Player, 59, 1) Else PlayerMessage(Player, "You require 2 Clear Emeralds and 1 Perfect Diamond to craft that.", Grey) End If Case 2 If HasObj(Player, 435) >= 2 & HasObj(Player, 434) >= 1 Then PlayerMessage(Player, "You craft a Jewel of Fenrir!", Yellow) TakeObj(Player, 435, 2) TakeObj(Player, 434, 1) GiveObj(Player, 56, 1) Else PlayerMessage(Player, "You require 2 Shining Rubys and 1 Perfect Diamond to craft that.", Grey) End If Case 3 If HasObj(Player, 438) >= 2 & HasObj(Player, 434) >= 1 Then PlayerMessage(Player, "You craft a Gem of Valhalla!", Yellow) TakeObj(Player, 438, 2) TakeObj(Player, 434, 1) GiveObj(Player, 53, 1) Else PlayerMessage(Player, "You require 2 Bright Sapphires and 1 Perfect Diamond to craft that.", Grey) End If Case 4 If HasObj(Player, 458) >= 2 & HasObj(Player, 434) >= 1 Then PlayerMessage(Player, "You craft a Freya's Charm!", Yellow) TakeObj(Player, 458, 2) TakeObj(Player, 434, 1) GiveObj(Player, 120, 1) Else PlayerMessage(Player, "You require 2 Cut Amethysts and 1 Perfect Diamond to craft that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select Else PlayerMessage(Player, "You must be in a workshop to craft.", Grey) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=cragscook Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) & HasObj(Player, 69) Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctf Script Source= Sub Main(Player as Long, Limit as Long) dim Loop as Long, Team as Long Start: If Limit > 0 Then GlobalMessage("CTF has begun!", BrightGreen) SetFlag(10, Limit) SetFlag(82, 0) SetFlag(11, 0) SetFlag(12, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = 68 Then If GetPlayerAccess(Loop) > 0 Then PlayerWarp(Loop, 74, 5, 0) Else SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerFlag(Loop, 10, 6) SetPlayerFlag(Loop, 12, 0) If Team = 0 Then SetPlayerGuild(Loop, 100) SetPlayerSprite(Loop, 132) SetPlayerStatus(Loop, 17) SetPlayerFlag(Loop, 11, 1) PlayerWarp(Loop, 70, 1, 10) Team = 1 Else SetPlayerGuild(Loop, 101) SetPlayerSprite(Loop, 133) SetPlayerStatus(Loop, 3) SetPlayerFlag(Loop, 11, 2) PlayerWarp(Loop, 78, 10, 10) Team = 0 End If End If End If End If Next Loop Else Limit = 3 Goto Start End If RunScript0("CtfResetFlags") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfbluescore Script Source= Sub Main(Player as Long) dim Loop as Long SetFlag(12, GetFlag(12) + 1) TakeObj(Player, 508, 1) GlobalMessage(strcat(GetPlayerName(Player), " has captured the Red Flag!"), BrightBlue) GlobalMessage(strcat("Red ", strcat(str(GetFlag(11)), strcat(" - ", strcat(str(GetFlag(12)), " Blue")))), Yellow) If GetFlag(12) = GetFlag(10) Then RunScript0("CTFBlueWin") Exit Sub End If For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 6 Then If GetPlayerFlag(Loop, 12) = 0 Then If GetPlayerFlag(Loop, 11) = 1 Then PlayerWarp(Loop, 70, 1, 10) SetPlayerSprite(Loop, 132) SetPlayerGuild(Loop, 100) End If If GetPlayerFlag(Loop, 11) = 2 Then PlayerWarp(Loop, 78, 10, 10) SetPlayerSprite(Loop, 133) SetPlayerGuild(Loop, 101) End If RunScript1("Restore", Loop) End If End If Next Loop RunScript0("CTFResetFlags") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfbluewin Script Source= Sub Main() dim Loop as Long GlobalMessage("Blue Team wins CTF!", BrightGreen) SetFlag(10, 0) SetFlag(11, 0) SetFlag(12, 0) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 6 Then If GetPlayerFlag(Loop, 11) = 2 Then GiveObj(Loop, 484, 1) End If SetPlayerFlag(Loop, 10, 0) SetPlayerFlag(Loop, 11, 0) SetPlayerFlag(Loop, 12, 0) SetPlayerGuild(Loop, GetPlayerFlag(Loop, 5)) RunScript1("Sprite", Loop) RunScript1("GameWarp", Loop) If HasObj(Loop, 508) Then TakeObj(Loop, 508, HasObj(Loop, 508)) If HasObj(Loop, 509) Then TakeObj(Loop, 509, HasObj(Loop, 509)) End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfcolor Script Source= function main(player as long) as long If GetPlayerMap(Player) = 124 | getplayermap(player) = 149 | getplayermap(player) = 150 Then if hasobj(player,508) = 1 | hasobj(player,509) = 1 then SetPlayerStatus(Player, 24) Main = Stop Exit Function else SetPlayerStatus(Player, 0) Main = continue Exit Function end if End If end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfflags Script Source= Sub Main(Player as Long) dim Loop as Long For Loop = 1 To GetMaxUsers() If HasObj(Loop, 508) Then PlayerMessage(Player, GetPlayerName(Loop), White) If HasObj(Loop, 509) Then PlayerMessage(Player, GetPlayerName(Loop), White) Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfkill Script Source= Sub Main(Killer as Long, Killed as Long) dim Loop as Long, Count as Long Count = 0 If GetPlayerFlag(Killed, 11) = 1 Then 'Red Team Dies If GetPlayerFlag(Killer, 11) = 1 Then Exit Sub PlayerWarp(Killed, 82, 5, 1) If HasObj(Killed, 509) Then 'Has Blue Flag TakeObj(Killed, 509, 1) SpawnObject(78, 509, 1, 10, 6) SetFlag(182, 0) GlobalMessage(strcat(GetPlayerName(Killer), strcat(" has jailed ", strcat(GetPlayerName(Killed), " and returned the Blue Flag!"))), BrightBlue) Else GlobalMessage(StrCat(strcat(GetPlayerName(Killer), " has jailed "), GetPlayerName(Killed)), Red) End If SetPlayerFlag(Killed, 12, 1) RunScript1("Restore", Killed) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 6 Then If GetPlayerFlag(Loop, 11) = 1 Then If GetPlayerFlag(Loop, 12) = 0 Then Count = Count + 1 End If End If Next Loop If Count = 0 Then GlobalMessage("Jailbreak!", Yellow) OpenDoor(82, 10, 2) End If End If If GetPlayerFlag(Killed, 11) = 2 Then 'Blue Team Dies If GetPlayerFlag(Killer, 11) = 2 Then Exit Sub PlayerWarp(Killed, 84, 5, 1) If HasObj(Killed, 508) Then 'Has Red Flag TakeObj(Killed, 508, 1) SpawnObject(70, 508, 1, 1, 6) SetFlag(181, 0) GlobalMessage(strcat(GetPlayerName(Killer), strcat(" has jailed ", strcat(GetPlayerName(Killed), " and returned the Red Flag!"))), BrightRed) Else GlobalMessage(StrCat(strcat(GetPlayerName(Killer), " has jailed "), GetPlayerName(Killed)), Blue) End If SetPlayerFlag(Killed, 12, 1) RunScript1("Restore", Killed) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 6 Then If GetPlayerFlag(Loop, 11) = 2 Then If GetPlayerFlag(Loop, 12) = 0 Then Count = Count + 1 End If End If Next Loop If Count = 0 Then GlobalMessage("Jailbreak!", Yellow) OpenDoor(84, 10, 2) End If End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfredscore Script Source= Sub Main(Player as Long) dim Loop as Long SetFlag(11, GetFlag(11) + 1) TakeObj(Player, 509, 1) GlobalMessage(strcat(GetPlayerName(Player), " has captured the Blue Flag!"), BrightRed) GlobalMessage(strcat("Red ", strcat(str(GetFlag(11)), strcat(" - ", strcat(str(GetFlag(12)), " Blue")))), Yellow) If GetFlag(11) = GetFlag(10) Then RunScript0("CTFRedWin") Exit Sub End If For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 6 Then If GetPlayerFlag(Loop, 12) = 0 Then If GetPlayerFlag(Loop, 11) = 1 Then PlayerWarp(Loop, 70, 1, 10) SetPlayerSprite(Loop, 132) SetPlayerGuild(Loop, 100) End If If GetPlayerFlag(Loop, 11) = 2 Then PlayerWarp(Loop, 78, 10, 10) SetPlayerSprite(Loop, 133) SetPlayerGuild(Loop, 101) End If RunScript1("Restore", Loop) End If End If Next Loop RunScript0("CTFResetFlags") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfredwin Script Source= Sub Main() dim Loop as Long GlobalMessage("Red Team wins CTF!", BrightGreen) SetFlag(10, 0) SetFlag(11, 0) SetFlag(12, 0) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 6 Then If GetPlayerFlag(Loop, 11) = 1 Then GiveObj(Loop, 484, 1) End If SetPlayerFlag(Loop, 10, 0) SetPlayerFlag(Loop, 11, 0) SetPlayerFlag(Loop, 12, 0) SetPlayerGuild(Loop, GetPlayerFlag(Loop, 5)) RunScript1("Sprite", Loop) RunScript1("GameWarp", Loop) If HasObj(Loop, 508) Then TakeObj(Loop, 508, HasObj(Loop, 508)) If HasObj(Loop, 509) Then TakeObj(Loop, 509, HasObj(Loop, 509)) End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfresetflags Script Source= Sub Main() dim Loop as Long For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If HasObj(Loop, 508) Then TakeObj(Loop, 508, HasObj(Loop, 508)) If HasObj(Loop, 509) Then TakeObj(Loop, 509, HasObj(Loop, 509)) End If Next Loop For Loop = 0 To 80 If GetObjNum(70, Loop) = 508 Then DestroyObject(70, Loop) If GetObjNum(78, Loop) = 509 Then DestroyObject(78, Loop) Next Loop SpawnObject(70, 508, 1, 1, 6) SpawnObject(78, 509, 1, 10, 6) SetFlag(181, 0) SetFlag(182, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfrespawn Script Source= Function Main(player as long) as long If getplayerguild(player) = 30 then playerwarp(player,150,3,6) setplayerhp(player,getplayermaxhp(player)) setplayerenergy(player,getplayermaxenergy(player)) setplayermana(player,getplayermaxmana(player)) main = stop exit function end if If getplayerguild(player) = 31 then playerwarp(player,124,8,6) setplayerhp(player,getplayermaxhp(player)) setplayerenergy(player,getplayermaxenergy(player)) setplayermana(player,getplayermaxmana(player)) main = stop exit function end if End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfswap Script Source= Function Main(Player as Long) AS LONG dim Loop as Long, Team as Long For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 1 Then If HasObj(Loop, 508) | HasObj(Loop, 509) Then Main = Continue Else If Team = 0 Then 'Red Team SetPlayerGuild(Loop, 30) SetPlayerSprite(Loop, 132) PlayerWarp(Loop, 150, 3, 6) Team = 1 Else If Team = 1 Then 'Blue Team SetPlayerGuild(Loop, 31) SetPlayerSprite(Loop, 133) PlayerWarp(Loop, 124, 8, 6) Team = 2 Else If Team = 2 Then 'Blue Team SetPlayerGuild(Loop, 31) SetPlayerSprite(Loop, 133) PlayerWarp(Loop, 124, 8, 6) Team = 3 Else If Team = 3 Then 'Red Team SetPlayerGuild(Loop, 30) SetPlayerSprite(Loop, 132) PlayerWarp(Loop, 150, 3, 6) Team = 0 End If End If End If End If SetPlayerStatus(Loop, 0) End If End If Next Loop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfwarp Script Source= Sub Main(Player AS LONG) Dim N as Long If GetPlayerLevel(Player) = 1 & GetPlayerExperience(Player) = 0 & GetPlayerMap(Player) = 1 Then If GetPlayerClass(Player) = 1 Then For N = 1 to 510 If HasObj(Player, N) Then PlayerMessage(Player, "You cannot bring anything into Capture the Flag!", WHITE) PlayerWarp(Player, 1, 5, 5) Exit Sub End If Next N SetPlayerFlag(Player, 10, 1) PlayerMessage(Player, "Welcome to Capture the Flag!", WHITE) PlayerWarp(Player, 79, 5, 5) Else PlayerMessage(Player, "You must be a Knight to enter Capture the Flag!", WHITE) End If Else PlayerMessage(Player, "You must be level 1 and be on map 1 to enter Capture the Flag!", WHITE) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ctfweap Script Source= Function Main(Player as Long) AS LONG If GetPlayerFlag(Player, 10) = 1 Then If HasObj(Player, 505) = 0 Then GiveObj(Player, 505, 1) End If End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=deathball Script Source= function main(player as long) as long dim a as long, b as long, c as long, d as long GlobalMessage("Deathball has started!", 9) B = 0 C = 0 For A = 1 to 80 If GetPlayerMap(A) = 90 Then If A = Player | GetPlayerAccess(A) > 0 Then PlayerWarp(Player, 91, 6, 0) Else D = Random(2) If D = 0 Then If B > C Then C = C + 1 SetPlayerGuild(A, 31) SetPlayerSprite(A, 1) PlayerWarp(A, 91, 1, Random(10)) Else B = B + 1 SetPlayerGuild(A, 30) SetPlayerSprite(A, 102) PlayerWarp(A, 91, 10, Random(10)) End If Else If C > B Then B = B + 1 SetPlayerGuild(A, 30) SetPlayerSprite(A, 102) PlayerWarp(A, 91, 10, Random(10)) Else C = C + 1 SetPlayerGuild(A, 31) SetPlayerSprite(A, 1) PlayerWarp(A, 91, 1, Random(10)) End If End If End If End If Next A Main = Stop Exit Function end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=debuff Script Source= Function Main(Player as Long) AS LONG If GetPlayerFlag(Player, 121) > 0 Then SetPlayerFlag(Player, 121, 0) PlayerMessage(Player, "You have regained normal agility.", Grey) End If If GetPlayerFlag(Player, 122) > 0 Then SetPlayerFlag(Player, 122, 0) PlayerMessage(Player, "You have regained normal intelligence.", Grey) End If If GetPlayerFlag(Player, 123) > 0 Then SetPlayerFlag(Player, 123, 0) PlayerMessage(Player, "You have regained normal strength.", Grey) End If CalculateStats(Player) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=debuff1 Script Source= Sub Main(Player as Long) If GetPlayerFlag(Player, 121) > 0 Then SetPlayerFlag(Player, 121, 0) PlayerMessage(Player, "You have regained normal agility.", Grey) CalculateStats(Player) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=debuff2 Script Source= Sub Main(Player as Long) If GetPlayerFlag(Player, 122) > 0 Then SetPlayerFlag(Player, 122, 0) PlayerMessage(Player, "You have regained normal intelligence.", Grey) CalculateStats(Player) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=debuff3 Script Source= Sub Main(Player as Long) If GetPlayerFlag(Player, 120) > 0 Then SetPlayerFlag(Player, 120, 0) PlayerMessage(Player, "You have regained normal endurance.", Grey) CalculateStats(Player) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=debuff4 Script Source= Sub Main(Player as Long) If GetPlayerFlag(Player, 123) > 0 Then SetPlayerFlag(Player, 123, 0) PlayerMessage(Player, "You have regained normal strength.", Grey) CalculateStats(Player) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=devil Script Source= sub main(player as long) globalmessage(" , ,",brightred) globalmessage(" /( )\",brightred) globalmessage(" \ \__/ / , /\ ,",brightred) globalmessage(" /_ _\ /| || |\",brightred) globalmessage(" | \> 0 Then PlayerMessage(Player, "You must wait to cast again.", Grey) Exit Sub End If If GetPlayerMana(Player) < Mana Then PlayerMessage(Player, "You must regenerate before casting.", Grey) Exit Sub End If CreatePlayerFloatText(Player, "Eva Nescent!", BrightGreen) SetPlayerFlag(Player, 27, 1) SetPlayerMana(Player, GetPlayerMana(Player) - Mana) TakeObj(Player, 407, 1) For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = Map Then If GetPlayerGuild(Loop) = GetPlayerGuild(Player) Then CalcX = Abs(GetPlayerX(Loop) - X) CalcY = Abs(GetPlayerY(Loop) - Y) If CalcX < 4 & CalcY < 4 Then SetPlayerFlag(Loop, 19, GetPlayerSprite(Loop)) SetPlayerFlag(Loop, 20, GetPlayerStatus(Loop)) SetPlayerSprite(Loop, GetGuildSprite(GetPlayerGuild(Loop))) SetPlayerStatus(Loop, 9) SetPlayerFlag(Loop, 25, 1) Timer(Loop, 10, "TurnVisible3") End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeball Script Source= Sub Main(Player as Long) dim Loop as Long SetFlag(82, 0) SetFlag(141, 0) 'Red Count SetFlag(142, 0) 'Blue Count SetFlag(143, 5) 'Red Kills SetFlag(144, 5) 'Blue Kills GlobalMessage("Dodgeball has started!", BrightGreen) For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = 68 Then If IsPlaying(Loop) Then If GetPlayerAccess(Loop) > 0 | GetPlayerFlag(Loop, 78) > 0 Then PlayerWarp(Loop, 1427, 5, 11) Else SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerFlag(Loop, 10, 12) If GetFlag(141) <= GetFlag(142) Then PlayerWarp(Loop, 1427, 5, 0) SetPlayerFlag(Loop, 11, 3) SetPlayerSprite(Loop, 1) SetPlayerFlag(Loop, 12, 0) SetPlayerGuild(Loop, 100) SetFlag(141, GetFlag(141) + 1) Else PlayerWarp(Loop, 1427, 6, 11) SetPlayerFlag(Loop, 11, 4) SetPlayerSprite(Loop, 7) SetPlayerFlag(Loop, 12, 0) SetPlayerGuild(Loop, 101) SetFlag(142, GetFlag(142) + 1) End If End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballkill Script Source= Sub Main(Killer as Long, Killed as Long) If GetPlayerFlag(Killed, 11) = 1 Then If GetPlayerFlag(Killer, 11) = 1 Then Exit Sub PlayerWarp(Killed, 1427, 11, 1) SetPlayerSprite(Killed, 1) SetPlayerFlag(Killed, 11, 3) If GetPlayerFlag(Killer, 11) = 1 Then MapMessage(1427, strcat(GetPlayerName(Killer), strcat(" knocks out ", strcat(GetPlayerName(Killed), " from his own team!"))), Red) Else MapMessage(1427, strcat(GetPlayerName(Killer), strcat(" knocks out ", strcat(GetPlayerName(Killed), "!"))), Blue) End If SetFlag(144, GetFlag(144) + 1) End If If GetPlayerFlag(Killed, 11) = 2 Then If GetPlayerFlag(Killer, 11) = 2 Then Exit Sub PlayerWarp(Killed, 1427, 0, 10) SetPlayerSprite(Killed, 7) SetPlayerFlag(Killed, 11, 4) If GetPlayerFlag(Killer, 11) = 2 Then MapMessage(1427, strcat(GetPlayerName(Killer), strcat(" knocks out ", strcat(GetPlayerName(Killed), " from his own team!"))), Blue) Else MapMessage(1427, strcat(GetPlayerName(Killer), strcat(" knocks out ", strcat(GetPlayerName(Killed), "!"))), Red) End If SetFlag(143, GetFlag(143) + 1) End If SetPlayerHP(Killed, GetPlayerMaxHP(Killed)) If HasObj(Killed, 362) Then TakeObj(Killed, 362, HasObj(Killed, 362)) RunScript0("DodgeballWin") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballline Script Source= Sub Main(Player as Long) While HasObj(Player, 362) TakeObj(Player, 362, 1) Wend If GetPlayerFlag(Player, 11) = 1 Then PlayerWarp(Player, 1427, 11, 1) SetPlayerSprite(Player, 1) SetPlayerFlag(Player, 11, 3) MapMessage(1427, strcat(GetPlayerName(Player), " steps out of bounds!"), Red) End If If GetPlayerFlag(Player, 11) = 2 Then PlayerWarp(Player, 1427, 0, 10) SetPlayerSprite(Player, 7) SetPlayerFlag(Player, 11, 4) MapMessage(1427, strcat(GetPlayerName(Player), " steps out of bounds!"), Blue) End If If GetFlag(143) = 0 | GetFlag(144) = 0 Then RunScript0("DodgeballWin") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn Script Source= Sub Main(Player as Long) dim Y as Long Y = Random(6) + 3 If GetPlayerFlag(Player, 11) = 1 Then SpawnObject(1427, 362, 1, 0, Y) End If If GetPlayerFlag(Player, 11) = 2 Then SpawnObject(1427, 362, 1, 11, Y) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn1 Script Source= Function Main(Player as Long, X as Long, Y as Long) as Long Select Case GetPlayerDirection(Player) Case Up Timer(X, 1, "DodgeballSpawn2") Case Down Timer(X, 1, "DodgeballSpawn3") Case Left Timer(Y, 1, "DodgeballSpawn4") Case Right Timer(Y, 1, "DodgeballSpawn5") End Select End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn2 Script Source= Sub Main(X as Long) SpawnObject(1427, 362, 1, X, 3) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn3 Script Source= Sub Main(X as Long) SpawnObject(1427, 362, 1, X, 8) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn4 Script Source= Sub Main(Y as Long) If Y < 3 Then Y = 3 If Y > 8 Then Y = 8 SpawnObject(1427, 362, 1, 0, Y) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn5 Script Source= Sub Main(Y as Long) If Y < 3 Then Y = 3 If Y > 8 Then Y = 8 SpawnObject(1427, 362, 1, 11, Y) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballspawn6 Script Source= Sub Main() dim X as Long, Y as Long For Y = 3 To 8 X = 4 SpawnObject(1427, 362, 1, X, Y) X = 7 SpawnObject(1427, 362, 1, X, Y) Next Y End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dodgeballwin Script Source= Sub Main() dim Loop as Long, Count1 as Long, Count2 as Long For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 12 Then If GetPlayerFlag(Loop, 11) = 1 Then Count1 = Count1 + 1 If GetPlayerFlag(Loop, 11) = 2 Then Count2 = Count2 + 1 End If Next Loop If Count1 = 0 & GetFlag(143) = 0 Then 'Red Lose GlobalMessage("Blue Team has won Dodgeball!", BrightBlue) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 12 Then If GetPlayerFlag(Loop, 11) = 2 | GetPlayerFlag(Loop, 11) = 4 Then GiveObj(Loop, 483, 1) SetPlayerFlag(Loop, 10, 0) SetPlayerFlag(Loop, 11, 0) SetPlayerFlag(Loop, 12, 0) SetPlayerGuild(Loop, GetPlayerFlag(Loop, 5)) RunScript1("GameWarp", Loop) RunScript1("Sprite", Loop) End If While HasObj(Loop, 362) TakeObj(Loop, 362, 1) Wend Next Loop ResetMap(1427) End If If Count2 = 0 & GetFlag(144) = 0 Then 'Blue Lose GlobalMessage("Red Team has won Dodgeball!", BrightRed) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 12 Then If GetPlayerFlag(Loop, 11) = 1 | GetPlayerFlag(Loop, 11) = 3 Then GiveObj(Loop, 483, 1) SetPlayerFlag(Loop, 10, 0) SetPlayerFlag(Loop, 11, 0) SetPlayerFlag(Loop, 12, 0) SetPlayerGuild(Loop, GetPlayerFlag(Loop, 5)) RunScript1("GameWarp", Loop) RunScript1("Sprite", Loop) End If While HasObj(Loop, 362) TakeObj(Loop, 362, 1) Wend Next Loop ResetMap(1427) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dragcook Script Source= Sub Main(Player as Long, Parm1 as Long) dim Slot as Long, A as Long If RunScript1("Ration", Player) = 1 & Parm1 > 0 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Exit Sub End If A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 End If Next Slot If A = 0 Then PlayerMessage(Player, "You have no room in your inventory to cook.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "=Cooking Menu=", Yellow) PlayerMessage(Player, "1. Fish Stew - 3 Big Fish, Carrot, Marshroom", Grey) PlayerMessage(Player, "2. Fish Cakes - 3 Medium Fish, Bread Crumbs", Grey) PlayerMessage(Player, "3. Sushi - 3 Small Fish", Grey) PlayerMessage(Player, "Type /cook # to cook an item.", White) Case 1 If HasObj(Player, 148) >= 3 & HasObj(Player, 103) >= 1 & HasObj(Player, 69) >= 1 Then PlayerMessage(Player, "You cooked up some Fish Stew!", Yellow) TakeObj(Player, 148, 3) TakeObj(Player, 103, 1) TakeObj(Player, 69, 1) GiveObj(Player, 330, 1) Else PlayerMessage(Player, "You require 3 Big Fish, 1 Carrot and 1 Marshroom to cook that.", Grey) End If Case 2 If HasObj(Player, 152) >= 3 & HasObj(Player, 156) >= 1 Then PlayerMessage(Player, "You cooked up some Fish Cakes!", Yellow) TakeObj(Player, 152, 3) TakeObj(Player, 156, 1) GiveObj(Player, 329, 1) Else PlayerMessage(Player, "You require 3 Medium Fish and 1 box of Bread Crumbs to cook that.", Grey) End If Case 3 If HasObj(Player, 153) >= 3 Then PlayerMessage(Player, "You cooked up some Sushi!", Yellow) TakeObj(Player, 153, 3) GiveObj(Player, 48, 1) Else PlayerMessage(Player, "You require 3 Small Fish to cook that.", Grey) End If Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=DROPOBJ252 Script Source= FUNCTION Main(Player AS LONG) AS LONG ' TakeObj(Player, 252, 1) ' SpawnObject(70, 252, 1, 1, 5) ' GlobalMessage(StrCat(GetPlayerName(Player), " has dropped the Red Flag!"), 10) ' Main = Stop main=continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=DROPOBJ253 Script Source= FUNCTION Main(Player AS LONG) AS LONG 'TakeObj(Player, 253, 1) 'SpawnObject(78, 253, 1, 10, 5) 'GlobalMessage(StrCat(GetPlayerName(Player), " has dropped the Blue Flag!"), 11) 'Main = Stop main=continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj288 Script Source= Function main(player as long) as long dim a as long, b as long, c as long a = hasobj(player,198) + hasobj(player,41) + hasobj(player,99) If a >= 6 Then PlayerMessage(player, "You are carrying to much food to drop this!", white) Main = Stop Exit Function Else Main = Continue End If main = continue end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj342 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj365 Script Source= function main(player as long) as long setplayerflag(player,50,0) main = continue end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj383 Script Source= Function Main(Player as Long) as Long Main = Stop PlayerMessage(Player, "You cannot drop your Snowtossers.", Grey) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj389 Script Source= Function Main(Player as Long) as Long If GetPlayerAccess(Player) = 0 Then PlayerMessage(Player, "You are bound to the Torch.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj390 Script Source= Function Main(Player as Long) AS LONG If GetPlayerMap(Player) = 139 Then If GetPlayerX(Player) = 5 & GetPlayerY(Player) = 10 Then Main = Stop PlayerMessage(Player, "You cant drop that here.", Grey) Else If GetPlayerX(Player) = 4 & GetPlayerY(Player) = 10 Then Main = Stop PlayerMessage(Player, "You cant drop that here.", Grey) Else If GetPlayerX(Player) = 6 & GetPlayerY(Player) = 10 Then Main = Stop PlayerMessage(Player, "You cant drop that here.", Grey) Else Main = Continue End If End If End If Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj393 Script Source= Function Main(Player as Long) as Long If GetPlayerAccess(Player) = 0 Then PlayerMessage(Player, "You are bound to the Torch.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=DROPOBJ400 Script Source= FUNCTION Main(Player AS LONG) AS LONG If GetPlayerAccess(Player) = 0 Then PlayerMessage(Player, "Space Waster!", WHITE) Main = Stop Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj415 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj416 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj417 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj421 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj436 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj449 Script Source= function main(player as long) as long PlayerMessage(Player, "This item is bound to you.", grey) main = stop end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=DROPOBJ492 Script Source= FUNCTION Main(Player AS LONG) AS LONG GlobalMessage(StrCat(GetPlayerName(Player), " has dropped the Red Flag!"), BRIGHTRED) TakeObj(Player, 492, 1) SpawnObject(1552, 492, 1, 0, 8) If GetPlayerGuild(Player) = 30 Then SetPlayerSprite(Player, 102) SetPlayerStatus(Player, 22) End If If GetPlayerGuild(Player) = 31 Then SetPlayerSprite(Player, 92) SetPlayerStatus(Player, 3) End If Main = Stop END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=DROPOBJ493 Script Source= FUNCTION Main(Player AS LONG) AS LONG GlobalMessage(StrCat(GetPlayerName(Player), " has dropped the Blue Flag!"), BRIGHTBLUE) TakeObj(Player, 493, 1) SpawnObject(1552, 493, 1, 11, 8) If GetPlayerGuild(Player) = 30 Then SetPlayerSprite(Player, 102) SetPlayerStatus(Player, 22) End If If GetPlayerGuild(Player) = 31 Then SetPlayerSprite(Player, 92) SetPlayerStatus(Player, 3) End If Main = Stop END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj497 Script Source= Function Main(Player as Long) AS LONG Main = Stop PlayerMessage(Player, "This item is bound to you.", Grey) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj504 Script Source= Function Main(Player as Long) AS LONG Main = Stop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj508 Script Source= Function Main(Player as Long) as Long If GetPlayerAccess(Player) = 0 Then PlayerMessage(Player, "You can't drop the Flag.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=dropobj509 Script Source= Function Main(Player as Long) as Long If GetPlayerAccess(Player) = 0 Then PlayerMessage(Player, "You can't drop the Flag.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=DUCKATTACK Script Source= Sub Main(Player AS LONG) Dim A AS LONG, Map AS LONG Dim X AS LONG, Y AS LONG Map = GetPlayerMap(Player) If Map = 0 Then Map = 623 MapMessage(Map, "Mystic Duck Warriors - We must assess the human's strength to plan for our invasion. ATTACK!!!", YELLOW) For A = 1 to 20 X = Random(10) + 1 Y = Random(10) + 1 SpawnMonster(Map, 260, X, Y) CreateTileEffect(Map, X, Y, 2, 2, 8, 0, 0) Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=duel Script Source= Sub Main(Player as Long, Target as Long) If GetFlag(151) > 0 Then PlayerMessage(Player, "A duel is already in progress.", Grey) Exit Sub End If If GetPlayerGuild(Player) > 0 Then If GetPlayerGuild(Player) = GetPlayerGuild(Target) Then PlayerMessage(Player, "You cannot duel your own guild.", Grey) Exit Sub End If End If If GetPlayerX(Player) = 4 & GetPlayerY(Player) = 1 Then If GetPlayerX(Target) = 7 & GetPlayerY(Target) = 1 Then GoTo Warp End If End If If GetPlayerX(Player) = 7 & GetPlayerY(Player) = 1 Then If GetPlayerX(Target) = 4 & GetPlayerY(Target) = 1 Then GoTo Warp End If End If PlayerMessage(Player, "You or your opponent are not on the correct tiles.", Grey) Exit Sub Warp: PlayerWarp(Player, 1414, 4, 4) SetPlayerFlag(Player, 14, 1) PlayerWarp(Target, 1414, 7, 7) SetPlayerFlag(Target, 14, 1) SetFlag(151, 1) MapMessage(1414, strcat(GetPlayerName(Player), strcat(" vs ", GetPlayerName(Target))), Yellow) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=duelhelp Script Source= Sub Main(Player as Long, Parm1 as Long) dim Map as Long Map = GetPlayerMap(Player) If Map <> 1960 & Map <> 1962 & Map <> 1414 & Map <> 1949 & Map <> 554 Then PlayerMessage(Player, "This is not an arena.", Grey) Exit Sub End If Select Case Parm1 Case 0 PlayerMessage(Player, "Which part of the House of would you like to know more about?", White) PlayerMessage(Player, "1. FFA Arena", Grey) PlayerMessage(Player, "2. Duel Arena", Grey) PlayerMessage(Player, "3. Stake Arena", Grey) PlayerMessage(Player, "4. Team Arena", Grey) PlayerMessage(Player, "5. Trading Room", Grey) Case 1 PlayerMessage(Player, "==FFA Arena==", Yellow) PlayerMessage(Player, "In this arena anything goes.", Grey) PlayerMessage(Player, "Any number of people can enter/exit the arena at any time.", Grey) Case 2 PlayerMessage(Player, "==Duel Arena==", Yellow) PlayerMessage(Player, "The duel arena allows two people to duel without interuption.", Grey) PlayerMessage(Player, "Two players stand on the tiles at the top and one types /duel .", Grey) PlayerMessage(Player, "This warps the players into the arena, where they fight until one is dead.", Grey) PlayerMessage(Player, "When there is a winner they are both warped out and a new duel can begin.", Grey) Case 3 PlayerMessage(Player, "==Stake Arena==", Yellow) PlayerMessage(Player, "The stake arena allows you to bet items in a duel.", Grey) PlayerMessage(Player, "Two players stand on the brown tiles at the side of the arena. One types /duel and they are warped up.", Grey) PlayerMessage(Player, "Both players drop items of their choice on the tiles next to the arena.", Grey) PlayerMessage(Player, "When happy with the stake stand on the green tiles. First player on types /duel .", Grey) PlayerMessage(Player, "When a player dies he is warped below, while the winner is warped to the items at the top.", Grey) PlayerMessage(Player, "Once the winner has taken the items and warped down from the fire a new duel can begin.", Grey) PlayerMessage(Player, "The same anti-scamming system is used here as is in the Trade Room. Look for help on the Trade Room for more info.", Grey) Case 4 PlayerMessage(Player, "==Team Arena==", Yellow) PlayerMessage(Player, "The team arena allows many people to fight together regardless of what guild they belong to.", Grey) PlayerMessage(Player, "To join a team simply run onto their team tile. To leave run into the team warp.", Grey) PlayerMessage(Player, "To start the fight, two players from each team must be standing on the start tiles at the top.", Grey) PlayerMessage(Player, "When there are enough players to start the fight type /teamarena.", Grey) PlayerMessage(Player, "There must be two players on each team, but there is no maximum number of players.", Grey) PlayerMessage(Player, "When one team is completely dead all players are warped down and a new duel can begin.", Grey) Case 5 PlayerMessage(Player, "==Secure Trade Room==", Yellow) PlayerMessage(Player, "Here items can be traded between players without any chance of being ripped off.", Grey) PlayerMessage(Player, "Two players stand on the start tiles and one type /barter .", Grey) PlayerMessage(Player, "They are then warped up where they drop what they wish to trade on the floor.", Grey) PlayerMessage(Player, "The first person onto their blue tile starts the trade.", Grey) PlayerMessage(Player, "This is to ensure that no one can change the trade and then initiate it without the others concent.", Grey) PlayerMessage(Player, "Items are then taken a players warp out so that a new trade can begin.", Grey) PlayerMessage(Player, "NOTE: DO NOT drop items on blue tiles. DO NOT trade with someone who drops items on the blue tiles. DO NOT leave without your items for any reason. DO NOT trade without clicking the items you are receiving.", Yellow) Case Else PlayerMessage(Player, "That is not a valid option.", Grey) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=duelkill Script Source= Function Main(Killer as Long, Killed as Long) AS LONG MapMessage(1414, strcat(GetPlayerName(Killer), strcat(" has defeated ", GetPlayerName(Killed))), BrightGreen) PlayerWarp(Killer, 1414, 5, 2) PlayerWarp(Killed, 1414, 5, 9) MapMessage(1414, strcat(GetPlayerName(Killer), strcat(": ", strcat(str(GetPlayerHP(Killer)), "HP"))), Yellow) SetPlayerHP(Killer, GetPlayerMaxHP(Killer)) SetPlayerEnergy(Killer, GetPlayerMaxEnergy(Killer)) SetPlayerMana(Killer, GetPlayerMaxMana(Killer)) SetPlayerHP(Killed, GetPlayerMaxHP(Killed)) SetPlayerEnergy(Killed, GetPlayerMaxEnergy(Killed)) SetPlayerMana(Killed, GetPlayerMaxMana(Killed)) SetPlayerFlag(Killer, 14, 0) SetPlayerFlag(Killed, 14, 0) SetFlag(151, 0) End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=ECARN Script Source= Sub Main(Player as Long) if getplayermap(player) = 666 | getplayermap(player) = 301 | getplayermap(player) = 68 | GetPlayerFlag(Player, 10) = 1 then playermessage(player,"You can not use carnage warp from jail, hell or waiting room!",yellow) exit sub end if if getflag(84) = 1 then Dim N as Long If GetPlayerLevel(Player) = 1 & GetPlayerExperience(Player) = 0 Then If GetPlayerClass(Player) = 1 Then For N = 1 to 510 If HasObj(Player, N) Then PlayerMessage(Player, "You cannot bring anything into Equal Opportunity Carnage!", WHITE) Exit Sub End If Next N SetPlayerFlag(Player, 11, 1) PlayerMessage(Player, "Welcome to Equal Opportunity Carnage!", WHITE) PlayerWarp(Player, 92, 5, 5) Else PlayerMessage(Player, "You must be a Knight to enter Equal Opportunity Carnage!", WHITE) End If Else PlayerMessage(Player, "You must be level 1 to enter Equal Opportunity Carnage!", WHITE) End If playermessage(player,"You have been instantly warped to the equal opportunity carnage!",yellow) exit sub else playermessage(player,"Carnage warp has ended, sorry!",yellow) exit sub end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=effect Script Source= Sub Main(Player as Long) dim Loop as Long PlayerMessage(Player, str(GetPlayerFlag(Player, 255)), White) CreateCharacterEffect(GetPlayerMap(Player), Player, GetPlayerFlag(Player, 255), 40, 8, 0, 0) SetPlayerFlag(Player, 255, GetPlayerFlag(Player, 255) + 1) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=effectcog Script Source= Sub Main(Player as Long) dim Effect as Long Effect = Random(71) + 1 'CreateCharacterEffect(GetPlayerMap(Player), Player, Effect, 40, 8, 0, 0) CreateTileEffect(GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player), Effect, 40, 8, 1, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=effecttimer Script Source= Sub Main(Player as Long) dim Map as Long, Effect as Long, Effect2 as Long Map = GetPlayerMap(Player) 'Effect = 52 'Effect2 = 37 Effect = 23 Effect2 = 63 CreateCharacterEffect(Map, Player, Effect2, 100, 3, 6, 0) CreateCharacterEffect(Map, Player, Effect, 40, 2, 13, 0) 'CreateCharacterEffect(Map, Player, Effect2, 100, 3, 2, 0) 'CreateCharacterEffect(Map, Player, Effect, 40, 2, 6, 0) 'If GetPlayerHP(Player) = GetPlayerMaxHP(Player) Then Timer(Player, 1, "EffectTimer") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=end Script Source= Function Main(player as long) as long dim a as long GlobalMessage("A Free For All Carnage has started!", 9) GlobalMessage("Map: The Blank Map of Death",white) SetFlag(82, 0) For A = 1 to GetMaxUsers() If IsPlaying(A) Then If GetPlayerMap(A) = 68 Then If GetPlayerAccess(A) = 0 Then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerFlag(A, 10, 1) SetPlayerStatus(A, 9) SetPlayerGuild(A, 0) SetPlayerSprite(A, 194) PlayerWarp(A, 1833, 5 + Random(3), 3 + Random(5)) Else PlayerWarp(A, 1833, 0, 0) End If End If End If Next A End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=endcwarp Script Source= Sub Main() globalmessage("Carn warps have been closed.", BrightBlue) setflag(82,0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=endtrade Script Source= sub main(player as long) dim a as long 'Dim SkipCounter as Long 'SkipCounter = 0 If GetFlag(40) = 1 Then mapmessage(305, "The Trade has ended. Another can now begin.", white) setflag(40,0) For A = 1 to GetMaxUsers() If GetPlayerMap(A) = 305 Then ' If SkipCounter >= C Then playerwarp(a, 305,6,10) End If Next A End If end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=energy1 Script Source= Sub Main(Player as Long, Energy as Long) CreatePlayerFloatText(Player, str(Energy), Yellow) SetPlayerEnergy(Player, GetPlayerEnergy(Player) + Energy) If GetPlayerEnergy(Player) > GetPlayerMaxEnergy(Player) Then SetPlayerEnergy(Player, GetPlayerMaxEnergy(Player)) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=energyration Script Source= Function Main(Player as Long) as Long Dim A As Long 'Energy Draft 'Wine 'Bottle of Beer A = HasObj(Player,40) + HasObj(Player, 7) + HasObj(Player, 90) If A >= 5 Then Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=explosion Script Source= Sub Main(Player as Long, Map as Long, X as Long, Y as Long) dim Loop as Long, CalcX as Long, CalcY as Long, Damage as Long Damage = GetPlayerDamage(Player) SetPlayerFlag(Player, 208, 0) TakeObj(Player, 413, 1) RunScript3("ExplosionEffect", Map, X, Y) CreatePlayerFloatText(Player, "Damnatio!", BrightRed) For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = Map Then If Loop <> Player Then CalcX = Abs(GetPlayerX(Loop) - X) CalcY = Abs(GetPlayerY(Loop) - Y) If CalcX < 2 & CalcY < 2 Then MagicAttackPlayer(Player, Loop, Damage) End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=explosioneffect Script Source= Sub Main(Map as Long, X as Long, Y as Long) dim Effect as Long Effect = 1 CreateTileEffect(Map, X, Y, Effect, 40, 8, 0, 0) CreateTileEffect(Map, X-1, Y, Effect, 60, 8, 0, 0) CreateTileEffect(Map, X, Y-1, Effect, 60, 8, 0, 0) CreateTileEffect(Map, X+1, Y, Effect, 60, 8, 0, 0) CreateTileEffect(Map, X, Y+1, Effect, 60, 8, 0, 0) CreateTileEffect(Map, X-1, Y-1, Effect, 80, 8, 0, 0) CreateTileEffect(Map, X+1, Y-1, Effect, 80, 8, 0, 0) CreateTileEffect(Map, X-1, Y+1, Effect, 80, 8, 0, 0) CreateTileEffect(Map, X+1, Y+1, Effect, 80, 8, 0, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=farm Script Source= Function Main(player as long) as long dim a as long GlobalMessage("A Free For All Carnage has started!", 9) GlobalMessage("Map: The Farm",white) SetFlag(82, 0) For A = 1 to GetMaxUsers() If IsPlaying(A) Then If GetPlayerMap(A) = 68 Then If GetPlayerAccess(A) = 0 Then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerFlag(A, 10, 1) SetPlayerStatus(A, 9) SetPlayerGuild(A, 0) SetPlayerSprite(A, 32) PlayerWarp(A, 606, 3 + random(7), 3 + random(7)) Else PlayerWarp(A, 606, 2, 1) End If End If End If Next A End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=FFAScript Script Source= Sub Main(Player as Long, Map as Long, Time as Long) dim CarnScript as String Select Case Map Case 0 PlayerMessage(Player, "Available FFA Maps:", BrightBlue) PlayerMessage(Player, "1 - Carnage", White) PlayerMessage(Player, "2 - Chess", White) PlayerMessage(Player, "3 - PacMan", White) PlayerMessage(Player, "4 - Farm", White) PlayerMessage(Player, "5 - Original", White) PlayerMessage(Player, "6 - Original2", White) PlayerMessage(Player, "7 - SOC", White) PlayerMessage(Player, "8 - End", White) PlayerMessage(Player, "9 - Halloween", White) PlayerMessage(Player, "10 - Ruins", White) PlayerMessage(Player, "11 - Underworld", White) PlayerMessage(Player, "12 - Volcano", White) Exit Sub Case 1 CarnScript = "Carnage" Case 2 CarnScript = "Chess" Case 3 CarnScript = "PacMan" Case 4 CarnScript = "Farm" Case 5 CarnScript = "Original" Case 6 CarnScript = "Original2" Case 7 CarnScript = "SOC" Case 8 CarnScript = "End" Case 9 CarnScript = "Halloween" Case 10 CarnScript = "Ruins" Case 11 CarnScript = "Underworld" Case 12 CarnScript = "Volcano" End Select If Time = 0 Then RunScript1(CarnScript, Player) Else Timer(1, Time, CarnScript) PlayerMessage(Player, strcat(CarnScript, strcat(" runs in ", strcat(str(Time), " seconds."))), White) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=find Script Source= Sub Main(Player as Long) Dim Loop as Long If GetPlayerGuild(Player) = 0 Then PlayerMessage(Player, "You must be guilded to use this.", Grey) Exit Sub End If PlayerMessage(Player, "==Find Guild Members==", Yellow) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If Player <> Loop Then If GetPlayerGuild(Player) = GetPlayerGuild(Loop) Then PlayerMessage(Player, strcat(GetPlayerName(Loop), strcat(" - ", GetMapName(GetPlayerMap(Loop)))), White) End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=flags Script Source= sub main(player as long) 'Player Flags '2 - Broadcast Timer Flag '3 - Unfreeze Timer '4 - Unfreeze '5 - Retain Guild '6 - Sanctuary Complete '7 - Sanctuary Warp (Where) 0 = Inactive, 1 = Nymphs, 2 = Between Two Rivers, 3 = Crag Ice Stone '8 - Sanctuary Warp (Active) '9 - '10 - Minigame: See Minigame Script '11 - Minigame Teams: 1 - Red, 2 - Blue '12 - Minigame Kills\Lives '13 - Staking Arena: 1 - Staking, 2 - Can Start, 3 - Fighting, 4 - Winner '14 - Duel Arena '15 - Resurrect '16 - Cleric Guild Spells Mode '17 - New Trade Room '18 - '19 - Retain Sprite '20 - Retain Status '21 - Retain X '22 - Retain Y '23 - Spell Cooldown '24 - Retain Map '25 - Thief - Is Invis '26 - Bomb Cooldown '27 - Invis Cooldown '28 - Buff Cooldown '29 - Mage Spell = Improve Thief Invis '30 - arena pk res '31 - Player is Poisoned - Amount '32 - Player is Poisoner '33 - Player remembers Poisoner Player Number '40 - Jail '41 - Unsquelch '45 - vorpal bunny '46 - Sanctuary Trapper Task ObjNum (0 = no task) '47 - Sanctuary Trapper Task ObjVal '48 - Sanctuary Food Task ObjNum (0 = no task) '49 - Sanctuary Relic Task ObjNum (0 = no task) '50 to 60 : weapons? '69 - Tile of Truth - Banned from use '90 - *SPELLS* '91 - Errand - Lumberjack - East of Cren '92 - Errand - Gibberish - Drag Bank '93 - Errand - Alchemy - South of Drag '94 - *SPELLS* '95 - In Carnage '96 - *SPELLS* '97 - In Battle-Battle Score '98 - In Titan Take Down '99 - Titan Take Down - Lives '100 - USED '101 - Champ Ban (1 = Banned) '109 - Push Timer '110 - Fanks Keypad (Map 90) '111 - Keypad 1 '112 - Keypad 2 '113 - Keypad 3 '114 - Keypad 4 '==STORE STUFF== '72 - Float Text '73 - Broadcast Timer Immunity '74 - Player Mod - No warp-carn, for playing characters '75 - Incognito '76 - Push '77 - PK Status Removal '78 - Player God '79 - Carnage Host '130 - Sprite Command '131 - Status Command '132 - Sprite Hold '133 - Status Hold '==SPELLS== '90 - Resurrect flag for Clerics (uses ClickPlayer) '94 - Mage Spell - Telepathy '96 - Mage Spell - Donate Mana '==BUFFS== '120 - Cleric Endurance Buff '121 - Cleric Agility Buff '122 - Cleric Intel Buff '123 - Knight Spell - Adrenaline - Str Buff '124 - Artifact - Bab Torch - End Buff '125 - Dark Arts - Allows you to use buff pots '126 - Artifact - Drag Candle - Agi Buff '127 - Test Tile Buff '128 - Cleric Conversion '140 - Receipe Book - Vigorous '141 - Receipe Book - Stout '201 - Party Number '202 - Party Leader (1 = Leader) '203 - Party Invite '204 - Mage - Evil Eye (Player Tracking) '205 - Knight Mindset - 0 = Agressive, 1 = Defensive, 2 = Heroic '206 - Cleric Guild Spells '207 - Cleric Redemption '208 - Cleric Damnation '209 - Thief Tag '210 - Minigame Retain Map '211 - Minigame Retain X '212 - Minigame Retain Y '213 - Cleric Sacrifice Faith '215 - Solo the Champ kills '216 - Jims Face 2x2 kills '217 - Jims Face 3x3 kills '218 - ToF Runs Complete '220 - Lottery Number '225 - Sanctuary Game 1 Win Record '226 - Sanctuary Game 2 Lost Record '227 - Sanctuary Game 2 Total Record '230 - BlackJack Score '231 - BlackJack Card 1 '232 - BlackJack Card 2 '233 - BlackJack Card 3 '234 - BlackJack Card 4 '235 - BlackJack Card 5 '236 - BlackJack Dealer 1 '237 - BlackJack Dealer 2 '238 - BlackJack Dealer 3 '240 - Farmers Errand '241 - Monks Errand '242 - Trappers Errand '243 - Wench Errand '244 - Sanc Tasks Completed '-------------------------------- '===SERVER FLAGS=== '2 - broadcast timer '43: aeaml flag '11: Scorpion Quest '60 - 64 : Carnage '70-71 : Lighting - Day-Night? '80 - Tournament Host '81 - Carnage Timer '82 - Carnage Timer Flag 2 '83 - CTF Warp '84 - Carnage Population '85 - TOF Run '86 - Battle Red Team Score '87 - Battle Blue Team Score '88 - Battle Kill Limit '89 - Solo the Champ '90 - Someone in Champ '91 - HH Landlord '92 - Summoner Fire '93 - Summoner Monster '94 - Minute Timer '95 - Someone in Champ2 '96 - Jims Face Game 2x2 '97 - Jims Face Game 3x3 '98 - Hour Timer '99 - Football Timer '100 - Football Red Score '101 - Football Blue Score '102 - Football Red Count '103 - Football Blue Count '104 - Football Team Size '105 - Fank's House '106 - players ranking flag '105 - player count for ranking '107 - target spells '108 - TIME UNTIL STAT RECALC '109 - Push Timer '111 - Gold Collected - Drag Energy Pot since 14.09.2008 '112 - Gold Collected - Bab Incog Shop since 14.09.2008 '113 - Gold Collected - Parties Started since 14.09.2008 '120 - Lottery Population '121 - Lottery Pot '122 - Lottery Open '123 - Lottery Jackpot '124 - Lottery Cost '==MARKET== '130 - Market Lumber '131 - Market C Ore '132 - Market F Ore '133 - Market P Ore '134 - Market S Fish '135 - Market M Fish '136 - Market B Fish '139 - Sanctuary Game 1 '140 - Sanctuary Game 1 '141 - Dodgeball Red Count '142 - Dodgeball Blue Count '143 - Dodgeball Red Kills '144 - Dodgeball Blue Kills '145 - Sanctuary Game 2 '150 - Stake Arena '151 - Duel Arena '152 - Trade Room '153 - Team Arena '160 - Quest Puzzle (Map 1434) '170 - Tournament Arena Open '171 - Tourny Player 1 '172 - Tourny Player 2 '173 - Tourny Player 3 '174 - Tourny Player 4 '175 - Tourny Player 5 '176 - Tourny Player 6 '177 - Tourny Player 7 '178 - Tourny Player 8 '179 - Tounament Gold Pot '180 - Tournament Entry Cost '181 - Red Flag Timer '182 - Blue Flag Timer '------------------------- '183 - Lavos Fire Shield '------------------------- '184 - Fort 1a '185 - Fort 1b '186 - Fort 1c '187 - Fort 1d '188 - Fort 1e '189 - Fort 1f '190 - Fort 1g '191 - Fort 1h '192 - fortguard '193 - Fortsecondtimer '194 - Lavossecondtimer '------ '195 - AB boss '---Spells '196 - MageSpell2 ' --- 1K Quest '250 - Knight Spell '251 - Mage Spell '252 - Thief Spell '253 - Cleric Spell end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=flagtimer Script Source= Sub Main(Player AS LONG) If HasObj(Player, 508) > 0 Then CreatePlayerFloatText(Player, "Has Flag!", WHITE) Timer(Player, 2, "FlagTimer") SetFlag(181, GetFlag(181) + 1) If GetFlag(181) = 30 Then PlayerMessage(Player, "You have one minute to return the flag", WHITE) End If If GetFlag(181) > 60 Then GlobalMessage(StrCat(GetPlayerName(Player), " held the Red Flag too long and it has been returned!"), BrightRed) TakeObj(Player, 508, HasObj(Player, 508)) SpawnObject(70, 508, 1, 1, 6) SetFlag(181, 0) End If End if If HasObj(Player, 509) > 0 Then CreatePlayerFloatText(Player, "Has Flag!", WHITE) Timer(Player, 2, "FlagTimer") SetFlag(182, GetFlag(182) + 1) If GetFlag(182) = 30 Then PlayerMessage(Player, "You have one minute to return the flag", WHITE) End If If GetFlag(182) > 60 Then GlobalMessage(StrCat(GetPlayerName(Player), " held the Blue Flag too long and it has been returned!"), BrightBlue) TakeObj(Player, 509, HasObj(Player, 509)) SpawnObject(78, 509, 1, 10, 6) SetFlag(182, 0) End If End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=floor Script Source= Sub Main(Player as Long) dim X as Long, Y as Long If GetFlag(141) > 0 Then Select Case Random(9) Case 0 X = 2 Y = 2 SetFlag(140, 1) Case 1 X = 8 Y = 2 SetFlag(140, 2) Case 2 X = 5 Y = 3 SetFlag(140, 3) Case 3 X = 10 Y = 4 SetFlag(140, 4) Case 4 X = 4 Y = 5 SetFlag(140, 5) Case 5 X = 2 Y = 6 SetFlag(140, 6) Case 6 X = 8 Y = 6 SetFlag(140, 7) Case 7 X = 4 Y = 8 SetFlag(140, 8) Case 8 X = 7 Y = 9 SetFlag(140, 9) End Select CreateTileEffect(1409, X, Y, 1, 40, 8, 0, 0) SetFlag(141, GetFlag(141) - 1) Timer(Player, 1, "Floor") End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=football Script Source= Sub Main(Player as Long, Size as Long) dim Loop as Long If Size = 0 Then Size = 5 SetFlag(102, 0) SetFlag(103, 0) SetFlag(104, Size) SetFlag(99, 6) 'Time GlobalMessage(strcat(str(Size), "-a-side Football has started!"), BrightGreen) For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = 68 Then If IsPlaying(Loop) Then If GetPlayerAccess(Loop) > 0 | GetPlayerFlag(Loop, 78) > 0 Then PlayerWarp(Loop, 1424, 5, 0) SetPlayerFlag(Player, 10, 11) SetPlayerFlag(Player, 11, 0) Else SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerFlag(Loop, 10, 11) If GetFlag(102) = GetFlag(104) Then Select Case Random(2) Case 0 PlayerWarp(Loop, 1424, 5, 0) Case 1 PlayerWarp(Loop, 1424, 6, 11) End Select SetPlayerFlag(Loop, 11, 0) Else If GetFlag(102) < GetFlag(103) | GetFlag(102) = 0 Then PlayerWarp(Loop, 1424, 4, 5) SetPlayerFlag(Loop, 11, 1) SetPlayerFlag(Loop, 12, 0) SetPlayerSprite(Loop, 1) SetPlayerGuild(Loop, 100) SetFlag(102, GetFlag(102) + 1) Else PlayerWarp(Loop, 1424, 8, 6) SetPlayerFlag(Loop, 11, 2) SetPlayerFlag(Loop, 12, 0) SetPlayerSprite(Loop, 7) SetPlayerGuild(Loop, 101) SetFlag(103, GetFlag(103) + 1) End If End If End If End If End If Next Loop SpawnObject(1424, 282, 1, 5, 6) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=football2 Script Source= Sub Main(Player as Long, Size as Long) dim Loop as Long, Count1 as Long, Count2 as Long If Size = 0 Then Size = 5 SetFlag(82, 0) SetFlag(102, 0) SetFlag(103, 0) SetFlag(104, Size) SetFlag(99, 6) 'Time GlobalMessage(strcat(str(Size), "-a-side Bloodball has started!"), BrightGreen) For Loop = 1 To GetMaxUsers() 'Random Teams If GetPlayerMap(Loop) = 68 Then If IsPlaying(Loop) Then If GetPlayerAccess(Loop) > 0 | GetPlayerFlag(Loop, 78) > 0 Then PlayerWarp(Loop, 1424, 5, 0) Else SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerFlag(Loop, 10, 11) Select Case Random(4) Case 1 'Red Team If GetFlag(102) < GetFlag(104) Then PlayerWarp(Loop, 1424, 4, 5) SetPlayerFlag(Loop, 11, 1) SetPlayerFlag(Loop, 12, 0) SetPlayerSprite(Loop, 132) SetPlayerGuild(Loop, 100) SetFlag(102, GetFlag(102) + 1) Else SetPlayerFlag(Loop, 11, 0) PlayerWarp(Loop, 1424, 6, 11) End If Case 2 'Blue Team If GetFlag(103) < GetFlag(104) Then PlayerWarp(Loop, 1424, 8, 6) SetPlayerFlag(Loop, 11, 2) SetPlayerFlag(Loop, 12, 0) SetPlayerSprite(Loop, 133) SetPlayerGuild(Loop, 101) SetFlag(103, GetFlag(103) + 1) Else SetPlayerFlag(Loop, 11, 0) PlayerWarp(Loop, 1424, 6, 11) End If Case Else 'Sub If Count1 <= Count2 Then 'Red Sub PlayerWarp(Loop, 1424, 5, 0) SetPlayerFlag(Loop, 11, 3) SetPlayerSprite(Loop, 1) Count1 = Count1 + 1 Else 'Blue Sub PlayerWarp(Loop, 1424, 6, 11) SetPlayerFlag(Loop, 11, 4) SetPlayerSprite(Loop, 7) Count2 = Count2 + 1 End If End Select End If End If End If Next Loop For Loop = 1 To GetMaxUsers() 'Even Teams If GetPlayerFlag(Loop, 11) = 3 Then If GetFlag(102) < GetFlag(104) Then PlayerWarp(Loop, 1424, 4, 5) SetPlayerFlag(Loop, 11, 1) SetPlayerFlag(Loop, 12, 0) SetPlayerSprite(Loop, 132) SetPlayerGuild(Loop, 100) SetFlag(102, GetFlag(102) + 1) End If End If If GetPlayerFlag(Loop, 11) = 4 Then If GetFlag(103) < GetFlag(104) Then PlayerWarp(Loop, 1424, 8, 6) SetPlayerFlag(Loop, 11, 2) SetPlayerFlag(Loop, 12, 0) SetPlayerSprite(Loop, 133) SetPlayerGuild(Loop, 101) SetFlag(103, GetFlag(103) + 1) End If End If Next Loop SpawnObject(1424, 282, 1, 5, 6) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballblue Script Source= Sub Main(Player as Long) PlayerWarp(Player, 1424, 8, 6) SetPlayerFlag(Player, 11, 2) SetPlayerSprite(Player, 133) SetPlayerGuild(Player, 101) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballbluegoal Script Source= Sub Main(Player as Long, Map as Long) If Map = 1425 Then 'Own Goal SetFlag(100, GetFlag(100) + 1) MapMessage(1424, "OWN GOAL!!", BrightRed) If GetFlag(100) > GetFlag(101) Then MapMessage(1424, strcat("Red ", strcat(str(GetFlag(100)), strcat(" - ", strcat(str(GetFlag(101)), " Blue")))), BrightRed) Else MapMessage(1424, strcat("Blue ", strcat(str(GetFlag(101)), strcat(" - ", strcat(str(GetFlag(100)), " Red")))), BrightBlue) End If Select Case Random(3) Case 0 MapMessage(1424, strcat(GetPlayerName(Player), " is a numpty."), Blue) Case 1 MapMessage(1424, strcat(GetPlayerName(Player), " what are you playing at."), Blue) Case 2 MapMessage(1424, strcat(GetPlayerName(Player), " - LEEROY JENKINS!!"), Blue) End Select Else 'Goal SetFlag(101, GetFlag(101) + 1) MapMessage(1424, "GOAL!!", BrightGreen) If GetFlag(100) > GetFlag(101) Then MapMessage(1424, strcat("Red ", strcat(str(GetFlag(100)), strcat(" - ", strcat(str(GetFlag(101)), " Blue")))), BrightRed) Else MapMessage(1424, strcat("Blue ", strcat(str(GetFlag(101)), strcat(" - ", strcat(str(GetFlag(100)), " Red")))), BrightBlue) End If Select Case Random(3) Case 0 MapMessage(1424, strcat(GetPlayerName(Player), " with a beauty! Go on my son!"), Green) Case 1 MapMessage(1424, strcat(GetPlayerName(Player), " puts it in the back of the net!"), Green) Case 2 MapMessage(1424, strcat(GetPlayerName(Player), " - HERO!"), Green) End Select End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballbluesub Script Source= Sub Main(Player as Long) PlayerWarp(Player, 1424, 6, 11) SetPlayerFlag(Player, 11, 4) SetPlayerSprite(Player, 7) SetPlayerGuild(Player, 101) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballend Script Source= Sub Main(Player as Long) If GetFlag(100) > GetFlag(101) Then If GetPlayerFlag(Player, 11) = 1 | GetPlayerFlag(Player, 11) = 3 Then GiveObj(Player, 483, 1) End If Else If GetFlag(100) <> GetFlag(101) Then If GetPlayerFlag(Player, 11) = 2 | GetPlayerFlag(Player, 11) = 4 Then GiveObj(Player, 483, 1) End If End If End If PlayerMessage(Player, strcat("You scored ", strcat(str(GetPlayerFlag(Player, 12)), " goals!")), BrightGreen) RunScript1("GameWarp", Player) SetPlayerGuild(Player, GetPlayerFlag(Player, 5)) RunScript1("Sprite", Player) SetPlayerFlag(Player, 10, 0) SetPlayerFlag(Player, 11, 0) SetPlayerFlag(Player, 12, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballkill Script Source= Sub Main(Killer as Long, Killed as Long) If GetPlayerFlag(Killed, 11) = 1 Then RunScript1("FootballRedSub", Killed) MapMessage(1423, strcat(GetPlayerName(Killer), strcat(" knocks ", strcat(GetPlayerName(Killed), " onto the bench!"))), Blue) MapMessage(1424, strcat(GetPlayerName(Killer), strcat(" knocks ", strcat(GetPlayerName(Killed), " onto the bench!"))), Blue) MapMessage(1425, strcat(GetPlayerName(Killer), strcat(" knocks ", strcat(GetPlayerName(Killed), " onto the bench!"))), Blue) End If If GetPlayerFlag(Killed, 11) = 2 Then RunScript1("FootballBlueSub", Killed) MapMessage(1423, strcat(GetPlayerName(Killer), strcat(" knocks ", strcat(GetPlayerName(Killed), " onto the bench!"))), Red) MapMessage(1424, strcat(GetPlayerName(Killer), strcat(" knocks ", strcat(GetPlayerName(Killed), " onto the bench!"))), Red) MapMessage(1425, strcat(GetPlayerName(Killer), strcat(" knocks ", strcat(GetPlayerName(Killed), " onto the bench!"))), Red) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballred Script Source= Sub Main(Player as Long) PlayerWarp(Player, 1424, 3, 5) SetPlayerFlag(Player, 11, 1) SetPlayerSprite(Player, 132) SetPlayerGuild(Player, 100) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballredgoal Script Source= Sub Main(Player as Long, Map as Long) If Map = 1423 Then 'Own Goal SetFlag(101, GetFlag(101) + 1) MapMessage(1424, "OWN GOAL!!", BrightRed) If GetFlag(100) > GetFlag(101) Then MapMessage(1424, strcat("Red ", strcat(str(GetFlag(100)), strcat(" - ", strcat(str(GetFlag(101)), " Blue")))), BrightRed) Else MapMessage(1424, strcat("Blue ", strcat(str(GetFlag(101)), strcat(" - ", strcat(str(GetFlag(100)), " Red")))), BrightBlue) End If Select Case Random(3) Case 0 MapMessage(1424, strcat(GetPlayerName(Player), " is a numpty."), Red) Case 1 MapMessage(1424, strcat(GetPlayerName(Player), " what are you playing at."), Red) Case 2 MapMessage(1424, strcat(GetPlayerName(Player), " - LEEROY JENKINS!!"), Red) End Select Else 'Goal SetFlag(100, GetFlag(100) + 1) SetPlayerFlag(Player, 12, GetPlayerFlag(Player, 12) + 1) MapMessage(1424, "GOAL!!", BrightGreen) If GetFlag(100) > GetFlag(101) Then MapMessage(1424, strcat("Red ", strcat(str(GetFlag(100)), strcat(" - ", strcat(str(GetFlag(101)), " Blue")))), BrightRed) Else MapMessage(1424, strcat("Blue ", strcat(str(GetFlag(101)), strcat(" - ", strcat(str(GetFlag(100)), " Red")))), BrightBlue) End If Select Case Random(3) Case 0 MapMessage(1424, strcat(GetPlayerName(Player), " with a beauty! Go on my son!"), Green) Case 1 MapMessage(1424, strcat(GetPlayerName(Player), " puts it in the back of the net!"), Green) Case 2 MapMessage(1424, strcat(GetPlayerName(Player), " - HERO!"), Green) End Select End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballredsub Script Source= Sub Main(Player as Long) PlayerWarp(Player, 1424, 5, 0) SetPlayerFlag(Player, 11, 3) SetPlayerSprite(Player, 1) SetPlayerGuild(Player, 100) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballreset Script Source= Sub Main() SetFlag(100, 0) SetFlag(101, 0) SetFlag(102, 0) SetFlag(103, 0) SetFlag(104, 0) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballtackle Script Source= Sub Main(Player as Long) dim Map as Long, X as Long, Y as Long, X2 as Long, Y2 as Long dim Loop as Long If GetPlayerFlag(Player, 10) <> 11 Then PlayerMessage(Player, "You may only use this is Football.", Grey) Exit Sub End If Map = GetPlayerMap(Player) X = GetPlayerX(Player) Y = GetPlayerY(Player) Select Case GetPlayerDirection(Player) Case Up Y = Y - 1 Y2 = Y - 1 Case Down Y = Y + 1 Y2 = Y + 1 Case Left X = X - 1 X2 = X - 1 Case Right X = X + 1 X2 = X + 1 End Select If GetObjX(Map, 0) = X & GetObjY(Map, 0) = Y Then ResetMap(Map) SpawnObject(Map, 282, 1, GetPlayerX(Player), GetPlayerY(Player)) End If If GetObjX(Map, 1) = X & GetObjY(Map, 1) = Y Then ResetMap(Map) SpawnObject(Map, 282, 1, GetPlayerX(Player), GetPlayerY(Player)) End If For Loop = 1 To GetMaxUsers() If GetPlayerMap(Loop) = Map Then If GetPlayerX(Loop) = X Then If GetPlayerY(Loop) = Y Then If GetTileAtt(Map, X2, Y2) = 0 Then PlayerWarp(Loop, Map, X2, Y2) MapMessage(Map, strcat(GetPlayerName(Player), strcat(" tackles ", GetPlayerName(Loop))), Grey) End If End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballteams Script Source= Sub Main(Player as Long) dim Loop as Long GlobalMessage("==Football Teams==", White) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 11 Then If GetPlayerFlag(Loop, 11) = 1 Then GlobalMessage(strcat(GetPlayerName(Loop), " - Red Team"), Red) End If End If Next Loop For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 11 Then If GetPlayerFlag(Loop, 11) = 2 Then GlobalMessage(strcat(GetPlayerName(Loop), " - Blue Team"), Blue) End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballtimer Script Source= Sub Main() dim Loop as Long SetFlag(99, GetFlag(99) - 1) 'If GetFlag(99) = 3 Then ' MapMessage(1426, "Half Time!!", BrightGreen) ' For Loop = 1 To GetMaxUsers() ' If GetPlayerFlag(Loop, 10) = 11 Then PlayerWarp(Loop, 1426, Random(12), Random(12)) ' Next Loop 'End If If GetFlag(99) = 0 Then RunScript1("FootballWin", Loop) For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 11 Then RunScript1("FootballEnd", Loop) Next Loop RunScript0("FootballReset") End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballwarp Script Source= Sub Main(Map as Long) dim Loop as Long If Map = 1423 Then For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 11 Then Select Case GetPlayerFlag(Loop, 11) Case 1 PlayerWarp(Loop, 1424, 4, 5) Case 2 PlayerWarp(Loop, 1424, 9, 6) Case 3 PlayerWarp(Loop, 1424, 5, 0) Case Else PlayerWarp(Loop, 1424, 6, 11) End Select End If Next Loop SpawnObject(1424, 282, 1, 5, 5) Else For Loop = 1 To GetMaxUsers() If GetPlayerFlag(Loop, 10) = 11 Then Select Case GetPlayerFlag(Loop, 11) Case 1 PlayerWarp(Loop, 1424, 2, 5) Case 2 PlayerWarp(Loop, 1424, 7, 6) Case 3 PlayerWarp(Loop, 1424, 5, 0) Case Else PlayerWarp(Loop, 1424, 6, 11) End Select End If Next Loop SpawnObject(1424, 282, 1, 6, 6) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=footballwin Script Source= Sub Main() If GetFlag(100) > GetFlag(101) Then GlobalMessage(strcat("Red Team has won Bloodball ", strcat(str(GetFlag(100)), strcat(" - ", str(GetFlag(101))))), BrightGreen) Else If GetFlag(100) = GetFlag(101) Then GlobalMessage(strcat("Bloodball ends a draw ", strcat(str(GetFlag(100)),strcat(" - ", str(GetFlag(101))))), Green) Else GlobalMessage(strcat("Blue Team has won Bloodball ", strcat(str(GetFlag(101)), strcat(" - ", str(GetFlag(100))))), BrightGreen) End If End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=fort Script Source= Sub Main(Player as Long, Attack as Long) 'Dim A as Long, B as Long 'If StrCmp(GetPlayerUser(Player), "acidman") Then A = 1262 'If StrCmp(getplayerguild(player) = getflag(186) & getflag(185) > 0), "guard") Then A = 2114 'If A > 0 Then ' For B = 0 to 5 ' If GetMonsterType(A, B) = 411 Then ' SetMonsterTarget(A, B, Attack) ' End If ' Next B 'else 'playermessage(player, "Your guild does not have special access to the Darkcone Fort.", white) 'End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=fortress Script Source= function main(player as long) as long dim a as long, b as long, c as long, d as long globalmessage("A Random Team Carnage has started!",brightblue) globalmessage("Map: Team Fortress Carnage",white) b = 0 c = 0 d = 0 setflag(60,0) setflag(61,0) '//========Teams=======// for a = 1 to getmaxusers If getplayermap(a)= 68 then if getplayeraccess(a) = 0 then b = random(1) if b = 0 then if c >= d then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 30) SetPlayerSprite(A, 102) d = d + 1 setflag(61,getflag(61) + 1) else SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 31) SetPlayerSprite(A, 94) c = c + 1 setflag(60,getflag(60) + 1) end if else if c < d then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 31) SetPlayerSprite(A, 94) c = c + 1 setflag(60,getflag(60) + 1) else SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerGuild(A, 30) SetPlayerSprite(A, 102) d = d + 1 setflag(61,getflag(61) + 1) end if end if else end if else end if next a '//========Warp=======// for a = 1 to getmaxusers if getplayermap(A) = 68 then If GetPlayerGuild(A) = 30 Then PlayerWarp(A, 110, 0, 6) If GetPlayerGuild(A) = 31 Then PlayerWarp(A, 110, 11, 6) If GetPlayerAccess(A) > 5 Then PlayerWarp(A, 110, 1, 1) end if next a end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=fortresscarn Script Source= Function Main(Player as Long) AS LONG dim Loop as Long, Team as Long globalmessage("A Team Carnage has started!",brightblue) globalmessage("Map: Team Fortress Carnage",white) SetFlag(82, 0) For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = 68 Then If GetPlayerAccess(Loop) > 0 Then PlayerWarp(Loop, 110, 1, 1) Else SetPlayerFlag(Loop, 10, 2) SetPlayerFlag(Loop, 5, GetPlayerGuild(Loop)) SetPlayerStatus(Loop, 9) If Team = 0 Then SetPlayerGuild(Loop, 100) SetPlayerSprite(Loop, 102) SetPlayerFlag(Loop, 11, 1) PlayerWarp(Loop, 110, 0, 6) Team = 1 Else SetPlayerGuild(Loop, 101) SetPlayerSprite(Loop, 94) SetPlayerFlag(Loop, 11, 2) PlayerWarp(Loop, 110, 11, 6) Team = 0 End If End If End If End If Next Loop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=fortressctf Script Source= function main(player as long) as long dim a as long, b as long, c as long, d as long GlobalMessage("Capture the Flag has started!", 9) B = 0 C = 0 For A = 1 to 10 SpawnObject(70, 40, 1, A, 1) SpawnObject(78, 40, 1, A, 10) Next A For A = 1 to 10 SpawnObject(70, 40, 1, A, 10) SpawnObject(78, 40, 1, A, 1) Next A For A = 1 to 80 If GetPlayerMap(A) = 79 Then If A = Player | GetPlayerAccess(A) > 0 Then PlayerWarp(Player, 74, 3, 3) Else D = Random(2) If D = 0 Then If B > C Then C = C + 1 SetPlayerGuild(A, 31) SetPlayerSprite(A, 92) SetPlayerStatus(A, 3) PlayerWarp(A, 78, 5, 5) Else B = B + 1 SetPlayerGuild(A, 30) SetPlayerSprite(A, 102) SetPlayerStatus(A, 22) PlayerWarp(A, 70, 5, 5) End If Else If C > B Then B = B + 1 SetPlayerGuild(A, 30) SetPlayerSprite(A, 102) SetPlayerStatus(A, 22) PlayerWarp(A, 70, 5, 5) Else C = C + 1 SetPlayerGuild(A, 31) SetPlayerSprite(A, 92) SetPlayerStatus(A, 3) PlayerWarp(A, 78, 5, 5) End If End If End If End If Next A Main = Stop Exit Function end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=forttimer Script Source= Sub Main() If GetFlag(189) > 0 Then If GetMapPlayerCount(2117) = 0 then 'MapMessage(2115, "test.", Brightred) GlobalMessage("The Fort Commander will not relinquish his power to such a pathetic group. Another challenge will be accepted in 5 minutes.", BRIGHTGREEN) SetFlag(189, 0) SetFlag(190, 6) End If End If If GetFlag(193) > 0 Then 'FortBoss timer SetFlag(193, GetFlag(193) - 1) if getflag(193) = 119 then 'GlobalMessage("Darkcone Fort has new temporary keepers!", yellow) GlobalMessage(StrCat(StrCat("The guild ", GetGuildName(getflag(186))), " now controls Darkcone Fort!"), yellow) 'playermessage("test", yellow) 'MapMessage(2115, "test.", Brightred) end if end if If GetFlag(190) > 0 Then 'FortBoss timer SetFlag(190, GetFlag(190) - 1) if getflag(190) = 10 then GlobalMessage("Darkcone Fort is open for challenge in 10 minutes.", yellow) 'playermessage("test", yellow) 'MapMessage(2115, "test.", yellow) end if end if if getflag(190) > 0 then if getflag(190) = 2 then setflag(186, 0) end if end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=fortvault Script Source= Sub Main() dim Loop as Long For Loop = 1 to GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerMap(Loop) = 2119 Then PlayerWarp(Loop, 1, 5, 5) Else End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=fortwatcher2 Script Source= Function main(player as long) as long Dim a as long a = random(4) select case a case 0 SpawnMonster(2117, 406, 5, 4) case 1 SpawnMonster(2117, 406, 2, 7) case 2 SpawnMonster(2117, 406, 7, 9) case 3 SpawnMonster(2117, 406, 10, 6) case else end select main = continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=gamekill Script Source= Sub Main(Player as Long) AttackMonster(1785, 0, 255) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=gamespawn Script Source= Sub Main(Player as Long) SpawnMonster(1785, 1, 1 + Random(5), 6 + Random(2), 0) Timer(Player, 1, "gamekill") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=gamewarp Script Source= Sub Main(Player as Long) If GetPlayerFlag(Player, 210) <> GetPlayerMap(Player) Then If GetPlayerFlag(Player, 210) > 0 & GetPlayerFlag(Player, 210) < 2000 Then If GetPlayerFlag(Player, 210) = 554 Then 'Trading Rooms SetPlayerFlag(Player, 210, 1960) SetPlayerFlag(Player, 211, 5) SetPlayerFlag(Player, 212, 5) End If PlayerWarp(Player, GetPlayerFlag(Player, 210), GetPlayerFlag(Player, 211), GetPlayerFlag(Player, 212)) Else PlayerWarp(Player, 8, 9, 7) End If Else PlayerWarp(Player, 8, 9, 7) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=gamewarpset Script Source= Sub Main(Player as Long) SetPlayerFlag(Player, 210, GetPlayerMap(Player)) SetPlayerFlag(Player, 211, GetPlayerX(Player)) SetPlayerFlag(Player, 212, GetPlayerY(Player)) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj138 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj149 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj166 Script Source= FUNCTION Main(Player AS LONG) AS LONG If HasObj(Player, 166) >=3 Then PlayerMessage(player, "You can not carry more than three Glass Stilettos.", grey) Main = Stop Exit Function Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj198 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ235 Script Source= FUNCTION Main(Player AS LONG) AS LONG If HasObj(Player, 235) Then Main = Stop Exit Function Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ252 Script Source= FUNCTION Main(Player AS LONG) AS LONG 'If GetPlayerGuild(Player) = 30 Then ' PlayerMessage(Player, "You cannot pick up your own flag!", 15) ' Main = Stop 'Else ' GlobalMessage(StrCat(GetPlayerName(Player), " picked up the Red Flag!"), 10) ' Main = Continue 'End If main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ253 Script Source= FUNCTION Main(Player AS LONG) AS LONG ' If GetPlayerGuild(Player) = 31 Then ' PlayerMessage(Player, "You cannot pick up your own flag!", 15) ' Main = Stop 'Else ' GlobalMessage(StrCat(GetPlayerName(Player), " picked up the Blue Flag!"), 11) ' Main = Continue 'End If main=continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj257 Script Source= function main(player as long) as long playermessage(player,"No Pac-Treats for you!",white) takeobj(player,257,1) main = stop exit function end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj258 Script Source= Function Main(Player as Long) as Long If RunScript1("EnergyRation", Player) = 1 Then PlayerMessage(player, "You can not carry more than five energy boosters.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj272 Script Source= function main(player as long) as long if hasobj(player,272) > 1 then main = stop playermessage(player,"Three picks are too heavy for you to carry!",red) goto outs end if outs: end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj281 Script Source= Function Main(Player as Long) AS LONG If GetPlayerLevel(Player) < 30 Then Main = Stop Else Main = Continue End If If HasObj(Player, 281) Then Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj282 Script Source= Function Main(Player as Long) as Long dim Map as Long, X as Long, Y as Long, Dir as Long, Loop as Long, Ran as Long Map = GetPlayerMap(Player) X = GetPlayerX(Player) Y = GetPlayerY(Player) Ran = Random(2) + 1 For Loop = 1 To Ran Select Case GetPlayerDirection(Player) Case Up Y = Y - 1 Case Down Y = Y + 1 Case Left X = X - 1 If X < 0 Then If Map = 1423 Then Goto Backwards Else Map = Map - 1 X = 11 End If End If Case Right X = X + 1 If X > 11 Then If Map = 1425 Then Goto Backwards Else Map = Map + 1 X = 0 End If End If End Select If GetTileAtt(Map, X, Y) = 11 Then 'Goal ResetMap(GetPlayerMap(Player)) RunScript1("FootballWarp", Map) If GetPlayerFlag(Player, 11) = 1 Then RunScript2("FootballRedGoal", Player, Map) End If If GetPlayerFlag(Player, 11) = 2 Then RunScript2("FootballBlueGoal", Player, Map) End If Exit Function End If If GetTileAtt(Map, X, Y) = 0 Then ' DestroyObject(GetPlayerMap(Player), 0) ' DestroyObject(GetPlayerMap(Player), 1) ResetMap(GetPlayerMap(Player)) ResetMap(Map) SpawnObject(Map, 282, 1, X, Y) Else Backwards: Select Case GetPlayerDirection(Player) Case Up Y = Y + 2 Case Down Y = Y - 2 Case Left X = X + 2 Case Right X = X - 2 End Select 'DestroyObject(Map, 0) 'DestroyObject(Map, 1) ResetMap(Map) SpawnObject(Map, 282, 1, X, Y) Exit Function End If Next Loop End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj288 Script Source= function main(player as long) as long playermessage(player,"You hook the ration pack to your belt, you can now carry more food.",white) main = continue end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj329 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj330 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj337 Script Source= function main(player as long) as long main = continue if hasobj(player,337) > 0 then main = stop playermessage(player,"You can only hold one keys!",red) end if end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj342 Script Source= function main(player as long) as long if hasobj(player,342) > 0 then main = stop playermessage(player,"You cant carry more than one!",red) goto outs end if outs: end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj357 Script Source= Function Main(Player as Long) as Long If GetPlayerMap(Player) = 555 Then Main = Stop If HasObj(Player, 357) = 0 Then GiveObj(Player, 357, 1) Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj365 Script Source= function main(player as long) as long setplayerflag(player,50,0) timer(player,60,"braykt") main = continue end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj366 Script Source= FUNCTION Main(Player AS LONG) AS LONG dim a as long, b as long, c as long a = hasobj(player,366) If a >= 4 Then PlayerMessage(player, "You can not carry more than four Bloodsap Potions!", grey) Main = Stop Exit Function Else Main = Continue End If main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj383 Script Source= function main(player as long) as long if hasobj(player,383) >=1 then playermessage(player,"You may only carry one Snowtossers at a time.",white) main = stop exit function else main = continue end if main = continue end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj389 Script Source= Function Main(Player as Long) as Long If GetPlayerGuild(Player) > 0 Then If HasObj(Player, 393) | HasObj(Player, 389) Then PlayerMessage(Player, "You are already holding an Artifact.", Grey) Main = Stop Else GlobalMessage(strcat(GetPlayerName(Player), " has picked up the Dragonia Candle!"), Yellow) Main = Continue End If Else PlayerMessage(Player, "You must be Guilded to handle this Artifact.", Grey) Main = Stop End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj39 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj393 Script Source= Function Main(Player as Long) as Long If GetPlayerGuild(Player) > 0 Then If HasObj(Player, 393) | HasObj(Player, 389) Then PlayerMessage(Player, "You are already holding an Artifact.", Grey) Main = Stop Else GlobalMessage(strcat(GetPlayerName(Player), " has picked up the Babylon Torch!"), Yellow) Main = Continue End If Else PlayerMessage(Player, "You must be Guilded to handle this Artifact.", Grey) Main = Stop End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj40 Script Source= Function Main(Player as Long) as Long If RunScript1("EnergyRation", Player) = 1 Then PlayerMessage(player, "You can not carry more than five energy boosters.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj405 Script Source= FUNCTION Main(Player AS LONG) AS LONG dim a as long, b as long, c as long if hasobj(player,288) then goto ok else a = hasobj(player,405) If a >= 1 Then PlayerMessage(player, "You can not carry more than 1 Ankh of Purity!", grey) Main = Stop Exit Function Else Main = Continue End If end if ok: main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj407 Script Source= FUNCTION Main(Player AS LONG, Value AS LONG) AS LONG If HasObj(Player, 407) + Value > 5 Then PlayerMessage(Player, "You can't carry anymore Blinding Powder!", GREY) Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ408 Script Source= FUNCTION Main(Player AS LONG, Value AS LONG) AS LONG If HasObj(Player, 408) + Value > 3 Then PlayerMessage(Player, "You can't carry anymore Nightfall Dust!", GREY) Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj41 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than five ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj411 Script Source= Function Main(Player AS LONG, Value AS LONG) AS LONG If GetPlayerClass(Player) = 4 Then ' If HasObj(Player, 411) + Value > 2 Then ' PlayerMessage(Player, "You can't carry anymore Living Essence.", Grey) ' Main = Stop ' Else Main = Continue ' End If Else PlayerMessage(Player, "As you touch the Living Essence it burns you!", Red) Main = Stop End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj413 Script Source= FUNCTION Main(Player AS LONG, Value AS LONG) AS LONG If HasObj(Player, 413) + Value > 5 Then PlayerMessage(Player, "You can't carry anymore Holy Waters!", GREY) Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj415 Script Source= FUNCTION Main(Player AS LONG) AS LONG dim a as long, b as long, c as long a = hasobj(player,416) + hasobj(player,415) + hasobj(player,417) If a >= 5 Then PlayerMessage(player, "You can not carry more than five conjured mana potions!", grey) Main = Stop Exit Function Else Main = Continue End If ok: main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj416 Script Source= FUNCTION Main(Player AS LONG) AS LONG dim a as long, b as long, c as long a = hasobj(player,416) + hasobj(player,415) + hasobj(player,417) If a >= 5 Then PlayerMessage(player, "You can not carry more than five conjured mana potions!", grey) Main = Stop Exit Function Else Main = Continue End If ok: main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj417 Script Source= FUNCTION Main(Player AS LONG) AS LONG dim a as long, b as long, c as long a = hasobj(player,416) + hasobj(player,415) + hasobj(player,417) If a >= 5 Then PlayerMessage(player, "You can not carry more than five conjured mana potions!", grey) Main = Stop Exit Function Else Main = Continue End If ok: main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj418 Script Source= function main(player as long) as long If GetPlayerClass(Player) = 3 Then main = continue else playermessage(player, "You cannot pick this book up.", white) main = stop end if dim a as long, b as long, c as long if hasobj(player,288) then goto ok else a = hasobj(player,418) + hasobj(player,405) If a >= 1 Then PlayerMessage(player, "You can not carry more than one Ankh!", grey) Main = Stop Exit Function Else Main = Continue End If end if ok: main = continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj443 Script Source= Function Main(Player as Long) AS LONG dim Object as Long Main = Stop SetPlayerHP(Player, GetPlayerHP(Player) + 12) If GetPlayerHP(Player) > GetPlayerMaxHP(Player) Then SetPlayerHP(Player, GetPlayerMaxHP(Player)) CreatePlayerFloatText(Player, "12", BrightGreen) For Object = 0 To 80 If GetObjNum(GetPlayerMap(Player), Object) = 443 Then If GetObjX(GetPlayerMap(Player), Object) = GetPlayerX(Player) Then If GetObjY(GetPlayerMap(Player), Object) = GetPlayerY(Player) Then DestroyObject(GetPlayerMap(Player), Object) Exit Function End If End If End If Next Object End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj445 Script Source= Function Main(Player as Long) AS LONG dim Ration as Long Ration = HasObj(Player, 445) + HasObj(Player, 446) + HasObj(Player, 447) If Ration > 1 Then Main = Stop PlayerMessage(Player, "You may only carry two stat potions.", Grey) Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj446 Script Source= Function Main(Player as Long) AS LONG dim Ration as Long Ration = HasObj(Player, 445) + HasObj(Player, 446) + HasObj(Player, 447) If Ration > 1 Then Main = Stop PlayerMessage(Player, "You may only carry two stat potions.", Grey) Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj447 Script Source= Function Main(Player as Long) AS LONG dim Ration as Long Ration = HasObj(Player, 445) + HasObj(Player, 446) + HasObj(Player, 447) If Ration > 1 Then Main = Stop PlayerMessage(Player, "You may only carry two stat potions.", Grey) Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ466 Script Source= FUNCTION Main(Player AS LONG) AS LONG If HasObj(Player, 466) Then Main = Stop Else Main = Continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj48 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ480 Script Source= FUNCTION Main(Player AS LONG) AS LONG if getplayeraccess(player) >=1 then main = continue else playerwarp(player,666,6,6) globalmessage(strcat(getplayername(player), " has tried to caress a god item and was sent to hell!"),red) takeobj(player, 506, 1) If GetPlayerMap(Player) = 533 Then BanPlayer(Player, 99, "you hit the trap!") main = stop exit function end if END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj491 Script Source= Function Main(Player as Long) AS LONG dim Object as Long Main = Stop Select Case GetPlayerClass(Player) Case 1 GiveObj(Player, 59, 1) Case 2 GiveObj(Player, 120, 1) Case 3 GiveObj(Player, 56, 1) Case 4 GiveObj(Player, 53, 1) End Select CreateCharacterEffect(GetPlayerMap(Player), Player, 37, 40, 8, 0, 0) For Object = 0 To 80 If GetObjNum(GetPlayerMap(Player), Object) = 491 Then If GetObjX(GetPlayerMap(Player), Object) = GetPlayerX(Player) Then If GetObjY(GetPlayerMap(Player), Object) = GetPlayerY(Player) Then DestroyObject(GetPlayerMap(Player), Object) Exit Function End If End If End If Next Object End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ492 Script Source= FUNCTION Main(Player AS LONG) AS LONG If GetPlayerGuild(Player) = 31 Then GlobalMessage(StrCat(GetPlayerName(Player), " has stolen the Red Flag!"), BRIGHTBLUE) SetPlayerStatus(Player, 24) SetPlayerSprite(Player, 128) Main = Continue Else Main = Stop End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ493 Script Source= FUNCTION Main(Player AS LONG) AS LONG If GetPlayerGuild(Player) = 30 Then GlobalMessage(StrCat(GetPlayerName(Player), " has stolen the Blue Flag!"), BRIGHTRED) SetPlayerStatus(Player, 24) SetPlayerSprite(Player, 119) Main = Continue Else Main = Stop End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj503 Script Source= FUNCTION Main(Player AS LONG) AS LONG if getplayeraccess(player) = 0 then playerwarp(player,666,6,6) globalmessage(strcat(getplayername(player), " has tried to caress a god item and was sent to hell!"),red) takeobj(player, 503, 1) main = stop exit function Else Main = Continue end if END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ505 Script Source= FUNCTION Main(Player AS LONG) AS LONG If HasObj(Player, 505) Then Main = Stop Else Main = Continue End If END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ506 Script Source= FUNCTION Main(Player AS LONG) AS LONG if getplayeraccess(player) = 0 then playerwarp(player,666,6,6) globalmessage(strcat(getplayername(player), " has tried to caress a god item and was sent to hell!"),red) takeobj(player, 506, 1) main = stop exit function Else Main = Continue end if END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ508 Script Source= FUNCTION Main(Player AS LONG) AS LONG Timer(Player, 5, "FlagTimer") Main = Continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ509 Script Source= FUNCTION Main(Player AS LONG) AS LONG Timer(Player, 5, "FlagTimer") Main = Continue END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ560 Script Source= FUNCTION Main(Player AS LONG) AS LONG if getplayeraccess(player) >=1 then main = continue else playerwarp(player,666,6,6) globalmessage(strcat(getplayername(player), " has tried to caress a god item and was sent to hell!"),red) takeobj(player, 506, 1) If GetPlayerMap(Player) = 533 Then BanPlayer(Player, 99, "you hit the trap!") main = stop exit function end if END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj602 Script Source= FUNCTION Main(Player AS LONG) AS LONG if getplayeraccess(player) = 0 then mapmessage(2112, (strcat(getplayername(player), " has picked up Lavos' Chest!")),brightgreen) Main = Continue else main = continue end if END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GETOBJ7 Script Source= Function Main(Player as Long) as Long If RunScript1("EnergyRation", Player) = 1 Then PlayerMessage(player, "You can not carry more than five energy boosters.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj90 Script Source= Function Main(Player as Long) as Long If RunScript1("EnergyRation", Player) = 1 Then PlayerMessage(player, "You can not carry more than five energy boosters.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=getobj99 Script Source= Function Main(Player as Long) as Long If RunScript1("Ration", Player) = 1 Then PlayerMessage(player, "You can not carry more than three ration items.", Grey) Main = Stop Else Main = Continue End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=gettarget1563 Script Source= Function main(player as long) as long dim a as long, Player1 as Long, Player2 As Long, Player3 as Long, Player4 As Long, Player5 as Long, Player6 As Long, Player7 as Long, Player8 As Long, Player9 as Long, Player10 As Long, MaximumPlayerFound as Long For A = 1 to GetMaxUsers() If GetPlayerMap(A) = 1561 Then end if Next A end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=girlmote Script Source= Sub Main(Player as Long) dim Loop as Long For Loop = 1 To GetMaxUsers() If strcmp(GetPlayerUser(Loop), "sdf") Then SetPlayerSprite(Loop, 87) SetPlayerStatus(Loop, 23) CreatePlayerFloatText(Loop, "I <3 Fank!", BrightGreen) End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=globalcommand Script Source= Sub Main(Value as Long) if Value = 0 then globalmessage(strcat("The global timer is currently set for ",strcat(str(getflag(2))," seconds.")),white) else setflag(2,Value) globalmessage(strcat("Broadcast timer is set to ",strcat(str(Value)," seconds.")),white) end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=globaltimer Script Source= sub main(Player as long) SetPlayerFlag(Player, 2, 0) end sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=godfinder Script Source= Sub Main(Player AS LONG) Dim A As LONG For A = 1 to GetMaxUsers() If IsPlaying(A) & GetPlayerAccess(A) > 0 Then PlayerMessage(Player, StrCat(StrCat(GetPlayerUser(A), " - "), StrCat(StrCat(GetPlayerName(A), " - Map: "), Str(GetPlayerMap(A)))), WHITE) End If Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GODJAIL Script Source= Sub Main(Player as Long, Jailee as Long, Time as Long) If IsPlaying(Jailee) & GetPlayerMap(Jailee) < 1999 Then If Player <> Jailee Then If Time > 0 & Time < 61 Then SetPlayerFlag(Jailee, 40, Time) RunScript1("GameWarpSet", Player) PlayerWarp(Jailee, 301, 2, 1) GlobalMessage(StrCat(StrCat(StrCat(StrCat(StrCat(GetPlayerName(Jailee), " has been jailed by "), GetPlayerName(Player)), " for "), Str(Time)), " minutes."), WHITE) Else PlayerMessage(Player, "Enter a valid time [1-60]", WHITE) End If Else PlayerMessage(Player, "You may not jail yourself.", WHITE) End If Else PlayerMessage(Player, "Player not found", WHITE) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GODRES Script Source= Sub Main(Player as Long, Target as Long) If GetPlayerIsDead(Target) = True Then SetPlayerIsDead(Target, False) GlobalMessage(StrCat(StrCat(GetPlayerName(Target), " has been resurrected by "), GetPlayerName(Player)), BrightGreen) CreatePlayerEffect(GetPlayerMap(Player), Player, Target, 31, 40, 8, 0) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GODS Script Source= Sub Main(Player as Long) Dim A As Long, Message as Long PlayerMessage(Player, "Gods online:", WHITE) For A = 1 to GetMaxUsers() If IsPlaying(A) Then If GetPlayerAccess(A) > 0 Then If GetPlayerStatus(A) < 25 Then PlayerMessage(Player, GetPlayerName(A), BRIGHTGREEN) Else If GetPlayerFlag(A, 78) = 1 | GetPlayerFlag(A, 74) = 1 Then PlayerMessage(Player, StrCat(GetPlayerName(A), " - Minor God"), BRIGHTBLUE) End If End If End If Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GODSQUELCH Script Source= Sub Main(Player as Long, Squelchee as Long, Time as Long) If IsPlaying(Squelchee) Then Dim MinTime as Long If GetPlayerAccess(Player) > 0 Then MinTime = -1 Else MinTime = 0 End If If Time > MinTime & Time < 61 Then SetPlayerFlag(Squelchee, 41, Time) GlobalMessage(StrCat(StrCat(StrCat(StrCat(StrCat(GetPlayerName(Squelchee), " has been squelched by "), GetPlayerName(Player)), " for "), Str(Time)), " minutes."), WHITE) Else PlayerMessage(Player, "Enter a valid time [1-60]", WHITE) End If Else PlayerMessage(Player, "Player not found", WHITE) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=godwarp Script Source= Sub Main(Player as Long, Parm1 as Long) Select Case Parm1 Case 0 PlayerMessage(Player, "==Warp Locations==", Yellow) PlayerMessage(Player, "1. Crendale", White) PlayerMessage(Player, "2. Dragonia", White) PlayerMessage(Player, "3. Babylon", White) PlayerMessage(Player, "4. Desert", White) PlayerMessage(Player, "5. Summit Town", White) Case 1 PlayerWarp(Player, 107, 6, 2) PlayerMessage(Player, "You have warped to Crendale.", White) Case 2 PlayerWarp(Player, 114, 6, 7) PlayerMessage(Player, "You have warped to Dragonia.", White) Case 3 PlayerWarp(Player, 1206, 6, 8) PlayerMessage(Player, "You have warped to Babylon.", White) Case 4 PlayerWarp(Player, 139, 2, 9) PlayerMessage(Player, "You have warped to the Desert.", White) Case 5 PlayerWarp(Player, 658, 5, 8) PlayerMessage(Player, "You have warped to Summit Town.", White) Case Else PlayerMessage(Player, "Invalid Location.", Yellow) End Select End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=goldcollected Script Source= Sub Main(Player as Long) PlayerMessage(Player, "==Gold Collected==", Yellow) PlayerMessage(Player, strcat("Drag Energy Potion - ", strcat(str(GetFlag(111)), " Gold.")), White) PlayerMessage(Player, strcat("Bab Incog Shop - ", strcat(str(GetFlag(112)), " Gold.")), White) PlayerMessage(Player, strcat("Training Parties - ", strcat(str(GetFlag(113)), " Gold.")), White) PlayerMessage(Player, strcat("Total = ", strcat(str(GetFlag(111) + GetFlag(112) + GetFlag(113)), " Gold.")), White) PlayerMessage(Player, strcat("The Odyssey Lottery Jackpot Fund is ", strcat(str(GetFlag(123)), " Gold!")), Grey) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUARD Script Source= Sub Main(Player as Long, Attack as Long) Dim A as Long, B as Long If StrCmp(GetPlayerUser(Player), "acidman") Then A = 1262 If StrCmp(GetPlayerUser(Player), "maxell") Then A = 1262 If StrCmp(GetPlayerUser(Player), "t3st3r") Then A = 1262 If StrCmp(GetPlayerUser(Player), "t3st3r2") Then A = 1262 If StrCmp(GetPlayerUser(Player), "sdf") Then A = 826 If StrCmp(GetPlayerUser(Player), "spzero89") Then A = 992 If StrCmp(GetPlayerUser(Player), "racer") Then A = 992 If StrCmp(GetPlayerUser(Player), "darkbuddy102938") Then A = 686 If StrCmp(GetPlayerUser(Player), "endeavor") Then A = 686 If StrCmp(GetPlayerUser(Player), "fankawhore") Then A = 686 If StrCmp(GetPlayerUser(Player), "zorlax") Then A = 1633 If StrCmp(GetPlayerUser(Player), "dengalepony") Then A = 1633 If StrCmp(GetPlayerUser(Player), "mad_orber") Then A = 1679 If StrCmp(GetPlayerName(Player), "cowman") Then If GetPlayerMap(Player) = 826 Then A = 826 If GetPlayerMap(Player) = 827 Then A = 827 If GetPlayerMap(Player) = 828 Then A = 828 End If If StrCmp(GetPlayerName(Player), "bloodythief") Then A = 1690 If StrCmp(GetPlayerName(Player), "xsin") Then A = 1690 If StrCmp(GetPlayerUser(Player), "devilmaycry3") Then A = 1582 If StrCmp(GetPlayerName(Player), "deathchant") Then A = 1582 If StrCmp(GetPlayerUser(Player), "tpyboymilwaukee") Then A = 1763 If StrCmp(GetPlayerUser(Player), "toyboymilwaukee") Then A = 1763 If StrCmp(GetPlayerUser(Player), "dcm") | StrCmp(GetPlayerName(Player), "Mader") | StrCmp(GetPlayerName(Player), "xsin") Then A = 1171 If StrCmp(GetPlayerName(Player), "Farik") Then A = 1171 If StrCmp(GetPlayerName(Player), "Dom") | StrCmp(GetPlayerName(Player), "carrot") Then A = 1726 If StrCmp(GetPlayerName(Player), "Grimm") Then A = 1986 If StrCmp(GetPlayerUser(Player), "soulreaper2") Then A = 1986 If A > 0 Then For B = 0 to 5 If GetMonsterType(A, B) = 118 Then SetMonsterTarget(A, B, Attack) End If Next B End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUILDBOARDHELP Script Source= Sub Main(Player as Long) playermessage(player,"-Guild Message Boards Help-",white) playermessage(player,"/guildboard page # to show a list of post titles",white) playermessage(player,"/guildboard view # to view an entire post",white) playermessage(player,"/guildboard post 'title' 'message' to add a message to the board",white) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUILDBOARDPAGE Script Source= Sub Main(Player as Long, Page as Long) Dim A As Long, message as String if Page <= 0 then playermessage(player,"Invalid page number!",white) else playermessage(player,strcat(strcat("-Page ", Str(Page)),"-"),white) for a = ((Page-1)*10+1) to ((Page-1)*10+10) message = str(a) message = strcat(message,". ") message = strcat(message,readinistr("guildboard",str(getplayerguild(player)),strcat(str(a),"title"),"")) playermessage(player,message,white) next a end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUILDBOARDVIEW Script Source= Sub Main(Player as Long, View as Long) Dim Message as String if View <= 0 then playermessage(player,"Invalid post number!",white) else message = readinistr("guildboard",str(getplayerguild(player)),strcat(Str(View),"title"),"") message = strcat(message, " - ") message = strcat(message, readinistr("guildboard",str(getplayerguild(player)),Str(View),"")) playermessage(player,message,white) end if End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUILDINVITE Script Source= Function Main(Player AS LONG) AS LONG If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You cannot invite people to your guild during an event dipshit", Grey) Main = Stop Exit Function End If Main = Continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUILDJOIN Script Source= Function Main(Player AS LONG) AS LONG If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You cannot join a guild during an event dipshit", Grey) Main = Stop Exit Function End If Main = Continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GUILDLEAVE Script Source= Function Main(Player AS LONG) AS LONG If GetPlayerFlag(Player, 10) > 0 Then PlayerMessage(Player, "You cannot leave your guild during an event dipshit", Grey) Main = Stop Exit Function End If Main = Continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=guildlist Script Source= Sub Main(Player as Long) dim Loop as Long, Guilds as Long, Message as String dim Count as Long, Colour as Long GlobalMessage("==Guild List==", Yellow) For Guilds = 1 To 29 If GetGuildMemberCount(Guilds) > 0 Then Count = 0 Message = strcat(GetGuildName(Guilds), " - ") For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerGuild(Loop) = Guilds Then Count = Count + 1 Message = strcat(Message, strcat(GetPlayerName(Loop), ", ")) End If End If Next Loop If Count > 0 Then If Colour = 4 Then Colour = 6 Else Colour = 4 GlobalMessage(Message, Colour) End If End If Next Guilds End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=guilds Script Source= Function Main(Player as Long) AS LONG dim Loop as Long, Guilds as Long, Message as String, Count as Long GlobalMessage("==Guilds List==", Yellow) For Guilds = 1 To 29 If GetGuildMemberCount(Guilds) > 0 Then Count = 0 Message = strcat(GetGuildName(Guilds), " - ") For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerGuild(Loop) = Guilds Then Count = Count + 1 Message = strcat(Message, strcat(GetPlayerName(Loop), ", ")) End If End If Next Loop If Count > 0 Then If Guilds = 16 Then GlobalMessage(Message, BrightBlue) Else GlobalMessage(Message, Guilds) End If End If Next Guilds End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=guilds2 Script Source= Function Main(Player as Long) AS LONG dim Loop as Long, Guilds as Long, Message as String, Count as Long PlayerMessage(Player, "==Guilds List==", Yellow) For Guilds = 1 To 29 If GetGuildMemberCount(Guilds) > 0 Then Count = 0 Message = strcat(GetGuildName(Guilds), " - ") For Loop = 1 To GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerGuild(Loop) = Guilds Then Count = Count + 1 Message = strcat(Message, strcat(GetPlayerName(Loop), ", ")) End If End If Next Loop If Count > 0 Then If Guilds = 16 Then PlayerMessage(Player, Message, BrightBlue) Else PlayerMessage(Player, Message, Guilds) End If End If Next Guilds End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=GuildStats Script Source= Sub Main(Player as Long) Dim A as Long playermessage(player,"-Guild Statistics-",white) dim message as string dim kills as long dim deaths as long for a = 0 to getflag(106) if readiniint("guildstats",str(a),"guild",0) = getplayerguild(player) then kills = readiniInt("guildstats",str(a),"kills",0) deaths = readiniInt("guildstats",str(a),"deaths",0) message = readinistr("guildstats",str(a),"name","") message = strcat(message," - Kills: ") message = strcat(message,str(kills)) message = strcat(message,", Deaths: ") message = strcat(message,str(deaths)) playermessage(player,message,white) end if next a End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=halloween Script Source= Function Main(player as long) as long dim a as long GlobalMessage("A Free For All Carnage has started!", 9) GlobalMessage("Map: Graveyard",white) SetFlag(82, 0) For A = 1 to GetMaxUsers() If IsPlaying(A) Then If GetPlayerMap(A) = 68 Then If GetPlayerAccess(A) = 0 Then SetPlayerFlag(A, 5, GetPlayerGuild(A)) SetPlayerFlag(A, 10, 1) SetPlayerStatus(A, 9) SetPlayerGuild(A, 0) SetPlayerSprite(A, 79) PlayerWarp(A, 1945, 6 + Random(3), 8 + Random(3)) Else PlayerWarp(A, 1945, 6, 3) End If End If End If Next A End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=heal Script Source= Sub Main(Player as Long) dim Map as Long, X as Long, Y as Long dim Loop as Long, Mana as Long, Health as Long dim CalcX as Long, CalcY as Long Map = GetPlayerMap(Player) X = GetPlayerX(Player) Y = GetPlayerY(Player) Mana = Divide(GetPlayerMaxMana(Player), 3) * 2 Health = GetPlayerDamage(Player) - Divide((GetPlayerStrength(Player) + 2), 5) If GetTileAtt(Map, X, Y) = 6 | GetTileAtt2(Map, X, Y) = 6 Then PlayerMessage(Player, "You may not cast that here.", Grey) Exit Sub End If If GetPlayerMana(Player) < Mana Then PlayerMessage(Player, "You must regenerate to cast again.", Grey) Exit Sub End If CreatePlayerFloatText(Player, "Ave Maria!", BrightGreen) SetPlayerMana(Player, GetPlayerMana(Player) - Mana) For Loop = 1 to GetMaxUsers() If IsPlaying(Loop) Then If GetPlayerClass(Loop) <> 4 Then If Map = GetPlayerMap(Loop) Then If Player <> Loop Then CalcX = Abs(GetPlayerX(Loop) - X) CalcY = Abs(GetPlayerY(Loop) - Y) If CalcX < 4 & CalcY < 4 Then If GetPlayerFlag(Player, 16) = 0 Then RunScript2("heal1", Loop, Health) Else If GetPlayerGuild(Player) > 0 Then If GetPlayerGuild(Player) = GetPlayerGuild(Loop) Then RunScript2("heal1", Loop, Health) End If Else SetPlayerFlag(Player, 16, 0) PlayerMessage(Player, "Your spells have been set to affect everyone.", White) RunScript2("heal1", Loop, Health) End If End If End If End If End If End If End If Next Loop End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=heal1 Script Source= Sub Main(Player as Long, Health as Long) CreatePlayerFloatText(Player, str(Health), BrightGreen) SetPlayerHP(Player, GetPlayerHP(Player) + Health) If GetPlayerHP(Player) > GetPlayerMaxHP(Player) Then SetPlayerHP(Player, GetPlayerMaxHP(Player)) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=heal2 Script Source= Sub Main(Player as Long) Dim Health as Long 'Health = GetPlayerDamage(Player) - 35 Health = 7 If Health < 2 Then Health = 2 CreateCharacterEffect(GetPlayerMap(Player), Player, 31, 30, 8, 1, 0) 'CreatePlayerFloatText(Player, str(Health), BrightGreen) CreatePlayerFloatText(Player, " 7 ", BrightGreen) SetPlayerHP(Player, GetPlayerHP(Player) + Health) If GetPlayerHP(Player) > GetPlayerMaxHP(Player) Then SetPlayerHP(Player, GetPlayerMaxHP(Player)) 'Timer(Player, 1, "heal3") End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=HOUNDS Script Source= Sub Main(Player AS LONG) Dim A As Long MapMessage(GetPlayerMap(Player), StrCat(GetPlayerName(Player), " sends in the hounds!"), BRIGHTGREEN) For A = 1 to 20 Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=houseincog Script Source= SUB Main(Player AS LONG) SetPlayerSprite(Player, Random(216)) If GetPlayerStatus(Player) = 1 Then Exit Sub End If Dim RandomStatus As Long RandomStatus = Random(23) + 1 If RandomStatus = 9 Then RandomStatus = 3 If RandomStatus = 1 Then RandomStatus = 4 SetPlayerStatus(Player, RandomStatus) END SUB ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=hptiledown Script Source= Sub Main(Player as Long) If GetPlayerHP(Player) < GetPlayerMaxHP(Player) Then PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player) + 1) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=hptileleft Script Source= Sub Main(Player as Long) If GetPlayerHP(Player) < GetPlayerMaxHP(Player) Then PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player) - 1, GetPlayerY(Player)) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=hptileright Script Source= Sub Main(Player as Long) If GetPlayerHP(Player) < GetPlayerMaxHP(Player) Then PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player) + 1, GetPlayerY(Player)) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=hptileup Script Source= Sub Main(Player as Long) If GetPlayerHP(Player) < GetPlayerMaxHP(Player) Then PlayerWarp(Player, GetPlayerMap(Player), GetPlayerX(Player), GetPlayerY(Player) - 1) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=INCOGNITO Script Source= Sub Main(Player as Long) Dim RandomStatus As Long If GetPlayerFlag(Player, 10) > 0 Then Exit Sub If GetPlayerFlag(Player, 109) > 0 Then Exit Sub If GetPlayerFlag(Player, 75) = 1 Then SetPlayerFlag(Player, 109, 1) Timer(Player, 1, "pushtimer") SetPlayerSprite(Player, Random(215)+1) If GetPlayerStatus(Player) = 1 Then Exit Sub RandomStatus = Random(23) + 1 If RandomStatus = 9 Then RandomStatus = 3 If RandomStatus = 1 Then RandomStatus = 4 SetPlayerStatus(Player, RandomStatus) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=info Script Source= Sub Main(Player as Long) PlayerMessage(Player, "=Player Info=", Yellow) If GetPlayerFlag(Player, 78) = 1 Then PlayerMessage(Player, strcat(GetPlayerName(Player), " is one of Fank's Henchmen!"), Green) End If If GetPlayerFlag(Player, 218) > 1 Then PlayerMessage(Player, strcat(GetPlayerName(Player), strcat(" has ruled over ToF Run ", strcat(str(GetPlayerFlag(Player, 218)), " times!"))), Green) Else If GetPlayerFlag(Player, 218) = 1 Then PlayerMessage(Player, strcat(GetPlayerName(Player), " has ruled over ToF Run!"), Green) End If End If Select Case GetPlayerFlag(Player, 215) Case 1 PlayerMessage(Player, strcat(GetPlayerName(Player), " has slain the Champ single handed!"), Red) Case 2 PlayerMessage(Player, strcat(GetPlayerName(Player), " has slain the Bremen in close quarters!"), Red) Case 3 PlayerMessage(Player, strcat(GetPlayerName(Player), " has slain the Vorpal Bunny in close quarters!"), Red) Case 4 PlayerMessage(Player, strcat(GetPlayerName(Player), " has stared into the eyes of Death and preveiled!"), Red) End Select If GetPlayerFlag(Player, 6) > 0 Then PlayerMessage(Player, strcat(GetPlayerName(Player), " is an initiate of the Sanctuary Brotherhood."), Cyan) End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=invent Script Source= Function Main(Player as Long) as Long dim A as Long, Slot as Long A = 0 For Slot = 1 To 20 If GetPlayerInvObject(Player, Slot) = 0 Then A = A + 1 Next Slot If A = 0 Then Main = Stop Else Main = Continue End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=invin Script Source= FUNCTION Main(Player AS LONG, PlayerCount AS LONG) AS LONG Dim InventoryList as STRING Dim Count as LONG If IsPlaying(PlayerCount) & PlayerCount <> Player then InventoryList = StrCat(GetPlayerName(PlayerCount)," has the following inventory items: ") For Count = 1 to 19 If StrCmp(GetObjectName(GetPlayerInvObject(PlayerCount,Count)), "") Then Else InventoryList = StrCat(InventoryList , StrCat(GetObjectName(GetPlayerInvObject(PlayerCount,Count)), ", ")) End IF Next Count PlayerMessage(Player,InventoryList,White) End If Main = STOP END FUNCTION ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=invis1 Script Source= Function Main(Player as Long) AS LONG 'Thief-Mage Hide If GetPlayerFlag(Player, 25) = 1 Then If GetPlayerX(Player) = GetPlayerFlag(Player, 21) & GetPlayerY(Player) = GetPlayerFlag(Player, 22) & GetPlayerHP(Player) = GetPlayerMaxHP(Player) Then Timer(Player, 1, "Invis1") Else RunScript1("TurnVisible", Player) End If End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=invis2 Script Source= Function Main(Player as Long) AS LONG 'Thief - Stealth If GetPlayerFlag(Player, 25) = 1 Then If GetPlayerHP(Player) = GetPlayerMaxHP(Player) Then Timer(Player, 1, "Invis2") Else RunScript1("TurnVisible", Player) End If End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=invis24 Script Source= function main(player as long) as long If GetPlayerStatus(Player) = 9 Then if Getplayerhp(player) = getplayermaxhp(player) & Getplayerenergy(player) = getplayermaxenergy(player) then Timer(Player, 1, "Invis24") else runscript1("turnvisible24", player) end if end if end function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=invis3 Script Source= Function Main(Player as Long) AS LONG 'Mage Hide If GetPlayerStatus(Player) = 9 & GetPlayerX(Player) = GetPlayerFlag(Player, 21) & GetPlayerY(Player) = GetPlayerFlag(Player, 22) Then If GetPlayerHP(Player) = GetPlayerMaxHP(Player) Then Timer(Player, 1, "Invis3") Else RunScript1("TurnVisible", Player) End If Else RunScript1("TurnVisible", Player) End If End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=inviscooldown Script Source= Function Main(Player as Long) AS LONG Select Case GetPlayerClass(Player) Case 1 Timer(Player, 18, "Cooldown2") Case 2 Timer(Player, 18, "Cooldown2") Case 3 Timer(Player, 18, "Cooldown2") Case 4 Timer(Player, 18, "Cooldown2") End Select End Function ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=JACKPOT Script Source= Sub Main(Player AS LONG) 'GlobalMessage(StrCat("Current Odyssey Jackpot Fund: ", Str(GetFlag(123))), WHITE) If Random(100) = 77 Then GlobalMessage("*********************** JACKPOT *********************** ", BRIGHTGREEN) GlobalMessage(StrCat(GetPlayerName(Player), StrCat(" has hit the lucky #77 and won the Odyssey Lottery Commission's Jackpot Fund of ", Str(GetFlag(123)))), WHITE) GlobalMessage("*********************** JACKPOT *********************** ", BRIGHTGREEN) GiveObj(Player, 6, GetFlag(123)) SetFlag(123, 0) End If End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=jailtimer Script Source= Sub Main() dim A as Long, B as Long, C as Long For A = 1 to GetMaxUsers() B = GetPlayerFlag(A, 40) C = GetPlayerFlag(A, 41) If B > 0 Then If B = 1 Then RunScript1("GameWarp", A) PlayerMessage(A, "You have been released from jail.", WHITE) SetPlayerFlag(A, 40, 0) Else SetPlayerFlag(A, 40, B - 1) End If End If If C > 0 Then If C = 1 Then PlayerMessage(A, "You have been unsquelched.", WHITE) SetPlayerFlag(A, 41, 0) Else SetPlayerFlag(A, 41, C - 1) End If End If Next A End Sub ******************************************************* ******************************************************* ******************************************************* ******************************************************* Name=joingame Script Source= Function Main(Player As Long) As Long Dim A as Long 'Reset Flags RunScript1("ResetFlags", Player) If StrCmp(GetMapName(GetPlayerMap(Player)), "") Then PlayerWarp(Player, 1, 5, 5) 'Player God MOTD If GetPlayerFlag(Player, 78) > 0 Then PlayerMessage(Player, "You are a helper god. Available commands are warpto , boot , ban , squelch