adamsharp

``` If R = 1 Or R = 2 Or R = 3 Or R = 4 Then ```Whats wrong with this?

yes that worked thank you Now I have a problem with my new script WoodCutting! ``` Case 1wc(Index) Dim R R = Rand(1,5) If CanTake(Index, 250, 1) Then Call PlayerMsg(Index,"Attempting to get wood...", 10) If R = 1 Or If R = 2 Then Call PlayerMsg(Index,"Woodcutting successful! Found 1 evergreen log!", 10) End If If R = 3 Then Call PlayerMsg(Index,"Woodcutting successful! Found 2 evergreen logs!", 10) End If If R = 4 Or If R = 5 Then Call PlayerMsg(Index,"Woodcutting failed, hatchet damaged!", 12) End If Else Call PlayerMsg(Index,"You don't have a hatchet!", 12) End If End Sub ```Regards, Adamsharp.

If you can fix this the fixer can use it in thier game. ``` Sub Brsm(Index) Dim br Dim ir Dim st Dim si Dim go Dim test test = Rand(1,2) si = Rand(1,2) go = Rand(1,2) st = Rand(1,2) ir = Rand(1,2) br = Rand(1,2) If CanTake(Index, 201, 1) Then Call PlayerMsg(Index,"Attempting to smelt...", 10) If br = 1 Then Call PlayerMsg(Index,"Smelt successful! You get a bronze bar!", 10) Call GiveCurrency(Index, 211, 1) Call TakeItem(Index, 201, 1) End If If br = 2 Then Call PlayerMsg(Index,"Failed to smelt, ore destroyed", 12) Call TakeItem(Index, 201, 1) End If Else If CanTake(Index, 202, 1) Then Call PlayerMsg(Index,"Attempting to smelt...", 10) If ir = 1 Then Call PlayerMsg(Index,"Smelt successful! You get a iron bar!", 10) Call GiveCurrency(Index, 212, 1) Call TakeItem(Index, 202, 1) End If If ir = 2 Then Call PlayerMsg(Index,"Failed to smelt, ore destroyed", 12) Call TakeItem(Index, 202, 1) End If Else If CanTake(Index, 203, 1) Then Call PlayerMsg(Index,"Attempting to smelt...", 10) If st = 1 Then Call PlayerMsg(Index,"Smelt successful! You get a steel bar!", 10) Call GiveCurrency(Index, 213, 1) Call TakeItem(Index, 203, 1) End If If st = 2 Then Call PlayerMsg(Index,"Failed to smelt, ore destroyed", 12) Call TakeItem(Index, 203, 1) End If Else If CanTake(Index, 204, 1) Then Call PlayerMsg(Index,"Attempting to smelt...", 10) If si = 1 Then Call PlayerMsg(Index,"Smelt successful! You get a silver bar!", 10) Call GiveCurrency(Index, 214, 1) Call TakeItem(Index, 204, 1) End If If si = 2 Then Call PlayerMsg(Index,"Failed to smelt, ore destroyed", 12) Call TakeItem(Index, 204, 1) End If Else If CanTake(Index, 205, 1) Then Call PlayerMsg(Index,"Attempting to smelt...", 10) If go = 1 Then Call PlayerMsg(Index,"Smelt successful! You get a gold bar!", 10) Call GiveCurrency(Index, 215, 1) Call TakeItem(Index, 205, 1) End If If go = 2 Then Call PlayerMsg(Index,"Failed to smelt, ore destroyed", 12) Call TakeItem(Index, 205, 1) End If Else If CanTake(Index, 206, 1) Then Call PlayerMsg(Index,"Attempting to smelt...", 10) If test = 1 Then Call PlayerMsg(Index,"Smelt successful! You get a 206 bar!", 10) Call GiveCurrency(Index, 216, 1) Call TakeItem(Index, 206, 1) End If If test = 2 Then Call PlayerMsg(Index,"Failed to smelt, ore destroyed", 12) Call TakeItem(Index, 206, 1) End If Else Call PlayerMsg(Index,"No Ore To Smelt", 12) End If End Sub ``` Regards, Adamsharp.

nothing is happening at all also what is wrong with this? ``` ' Executes every second, based on the server time. Sub TimedEvent(Hours, Minutes, Seconds) If Minutes = 0 Then If Seconds = 0 Then Call AdminMsg("Don't Forget To Read The News At Tlomaw.com", YELLOW) Call AdminMsg("Look Its The Start Of A New Hour Here Have 25 Gold!", 10) Call GiveCurrency(Index, 1, 25) End If End If End Sub ```thank you Regards, Adamsharp.

What Is Wrong With This? ``` Case 6 Call PlayerMsg(Index, "You Drink The First Part Of The Potion", 10) Call SetPlayerHP(Index,GetPlayerHP(Index) + 75) Call TakeItem(Index, 250, 1) Call GiveItem(Index, 251, 1) Exit Sub ``` Regards, Adamsharp.

I WANT TO MAKE IT SO YOU NEED HIGER THAN LEVEL ONE TO MINE THIS ROCK!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Debugg This For Me Please! ``` Sub Brmi(Index) Dim R R = Rand(1,5) If GetVar("skills.ini", "MINING", GetPlayerName(index)) => 1 then If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 10) If R = 1 Then Call PlayerMsg(Index,"Mine successful! Found a bronze ore.", 10) Call GiveItem(Index, 201, 1) End If If R = 2 Then Call PlayerMsg(Index,"Mine successful! Found a bronze ore.", 10) Call GiveItem(Index, 201, 1) End If If R = 3 Then Call PlayerMsg(Index,"Mine successful! Found 2 bronze ores!", 10) Call GiveItem(Index, 201, 2) End If If R = 4 Then Call PlayerMsg(Index,"Failed to mine, pickaxe damaged!", 12) End If If R = 5 Then Call PlayerMsg(Index,"Failed to mine, pickaxe damaged!", 12) End If Else Call PlayerMsg(Index,"You don't have a pickaxe!", 12) End If End Sub SubMiningExp(index, EXP) Dim oldexp oldexp = getvar("skills.ini", "MINING", GetPlayerName(Index)) Call PutVar("skills.ini", "MININGEXP", GetPlayerName(index), OldExp + Exp) If GetVar("skills.ini", "MININGEXP", GetPlayerName(index)) => 100 Then Call PutVar("skills.ini", "MININGEXP", GetPlayerName(index), 0) Call PutVar("skills.ini", "MINING", GetPlayerName(index), GetVar("skills.ini", "MINING", GetPlayerName(index)) + 1) End If End Sub ```

can someone please tell me how to add a skill to this? ``` Sub Brmi(Index) Dim R R = Rand(1,5) If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 0) If R = 1 Then Call PlayerMsg(Index,"Mine successful! Found a bronze ore.", 0) Call GiveItem(Index, 201, 1) ElseIf R = 2 Then Call PlayerMsg(Index,"Mine successful! Found a bronze ore.", 0) Call GiveItem(Index, 201, 1) ElseIf R = 3 Then Call PlayerMsg(Index,"Mine successful! Found 2 bronze ores!", 0) Call GiveItem(Index, 201, 2) ElseIf R = 4 Then Call PlayerMsg(Index,"Failed to mine, pickaxe damaged!", 0) ElseIf R = 5 Then Call PlayerMsg(Index,"Failed to mine, pickaxe damaged!", 0) End If Else Call PlayerMsg(Index,"You don't have a pickaxe!", 0) End If End Sub ```so like you cant mine it at mining skill level of 1?

@AkselJ: > What excactly are you doing? What items have you got? I need details! i dont have a pickaxe and its NOT TELLING ME THAT! The Case Is You Stand On The Tile!

it just doesnt do anything.

okay so if the sub wrong or the case and please correct it for me ``` Sub Brmi(Index) Dim R R = Rand(1,5) If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 0) If R = 1 Then Call PlayerMsg(Index,"Mine successful. Found A Bronze Ore.", 0) Call GiveItem(Index, 201, 1) End If If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 0) If R = 2 Then Call PlayerMsg(Index,"Mine successful. Found A Bronze Ore.", 0) Call GiveItem(Index, 201, 1) End If If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 0) If R = 3 Then Call PlayerMsg(Index,"Mine successful. Found 2 Bronze Ores!", 0) Call GiveItem(Index, 201, 2) End If If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 0) If R = 4 Then Call PlayerMsg(Index,"Failed To Mine Pickaxe Damaged.", 0) End If If CanTake(Index, 200, 1) Then Call PlayerMsg(Index,"Attempting to mine...", 0) If R = 5 Then Call PlayerMsg(Index,"Failed To Mine Pickaxe Damaged.", 0) End If Else Call PlayerMsg(Index,"You don't have a pickaxe", 0) End If End Sub ```and the case ``` Case 3 Call Brmi(Index) Exit Sub ```

Please Help People There Is Something Wrong With This. ``` Case "/500" If GetPlayerLevel(Index) > 499 Then Call AdminMsg(GetPlayerName(Index) & " Has Just Hit Level 500!", 0) Exit Sub ```

sounds cool!!! btw my names adam =]

but isnt there a code i can put in the script?

okay.. How Do I Make It So My OnClick Tile Is Blocked? Thanks AdamSharp