Stealing Script: Difficulty (2/5)

[SwiftDeathSK]

add this to the bottom of your main.txt

Code: [Select]

'***Script by SwiftDeathSK***
Sub Stealing(index, itemnum, minvalue, maxvalue)
'*************************************
Dim Target
Dim chance
Dim x
Dim y
Dim z
Dim value
Target = getplayertarget(index)

If getplayertarget(index) < 1 Then
    Exit Sub
End If

If GetPlayerX(index) = (GetPlayerX(Target) + 1) Or (GetPlayerX(Target) - 1) Then
    If GetPlayerY(index) = (GetPlayerY(Target) + 1) Or (GetPlayerY(Target) - 1) Then
        x = 0
        Do While x <= 24
            If GetPlayerInvItemNum(index, x) = 0 Or itemnum Then
                y = "True"
                x = 26
            End If
                x = x + 1
        Loop
       
          If y = "True" Then
                x = 0
                Do While x <= 24
                    If GetPlayerInvItemNum(getplayertarget(index), x) = itemnum Then
                        z = "True"
                        x = 26
                    End If
                        x = x + 1
                Loop
       
                If z = "True" Then
                    Call PlayerMsg(index, "You attempt to pickpocket " & Target & "...", 15)
                    chance = rand(1, 100)
                        If chance >= 50 Then
                            value = rand(minvalue, maxvalue)
                            Call PlayerMsg(index, "You successfully steal " & value & " Gold from " & Target & "!", 15)
                            x = 0
                                Do While x <= 24
                                      If GetPlayerInvItemNum(index, x) = itemnum Then
                                            Call SetPlayerInvItemValue(index, x, (GetPlayerInvItemValue(index, x) + value))
                                      Else
                                            If GetPlayerInvItemNum(index, x) = 0 Then
                                                Call SetPlayerInvItemNum(index, x, itemnum)
                                                Call SetPlayerInvItemValue(index, x, value)
                                            End If
                                      End If
                                    x = x + 1
                                Loop
                            x = 0
                            Do While x <= 24
                                If GetPlayerInvItemNum(Target, x) = itemnum Then
                                    Call SetPlayerInvItemValue(Target, x, (GetPlayerInvItemValue(Target, x) - value))
                                        If GetPlayerInvItemValue(Target, x) <= 0 Then
                                            Call SetPlayerInvItemNum(Target, x, 0)
                                        End If
                                End If
                                x = x + 1
                            Loop
                           
                            Call SendInventory(index)
                            Call SendInventory(Target)
                        Else
                          Call PlayerMsg(index, "You are caught while stealing!", 15)
                          Call SetPlayerPK(index, 1)
                        End If
                End If
                        Call PlayerMsg(index, "Your inventory is full, you cant steal anything!", 15)
                        Exit Sub
            End If
                        Call PlayerMsg(index, "Your inventory is full, you cant steal anything!", 15)
                        Exit Sub
    Else
        Call PlayerMsg(index, "That target is too far away!", 15)
        Exit Sub
    End If
Else
    Call PlayerMsg(index, "That target is too far away!", 15)
End If
Use this line to run the script:

Code: [Select]

Call Stealing(index, itemnum, minvalue, maxvalue)-itemnum: the number of the item being stolen; must be a currency item
-minvalue: the minimum amount stolen
-maxvalue: the maximum amount stolen

NOTES
To use this script, just use the command Call Stealing(index, itemnum, minvalue, maxvalue).
The item being stolen must be a currency item.
The amount of that item being stolen is selected randomly between the values of the minvalue and maxvalue variables.
The target must be a single step away from the player.
Target cannot be an NPC.
This only works with EE.


If you use this script, please give me credit

edit - fixed the getplayertarget and inventory things

[unnown]

      If GetPlayerInvItemNum(index, x) <> 0 or itemnum Then
        Call PlayerMsg(index, "Your inventory is full, you cant steal anything!", 15)
        Exit Sub

that would cause it to stop if you have an item in your inventory..(without the inventory being full)
and you should add an check if the player has targeted somebody:)

besides that great script

[~.:Lidnel:.~]

Thnx man, you are the best!   

[SwiftDeathSK]

      If GetPlayerInvItemNum(index, x) <> 0 or itemnum Then
        Call PlayerMsg(index, "Your inventory is full, you cant steal anything!", 15)
        Exit Sub

that would cause it to stop if you have an item in your inventory..(without the inventory being full)
and you should add an check if the player has targeted somebody:)

besides that great script

k ill try to fix that, ill let you know when ive updated the main code


EDIT: Updated, someone please run it to check to make sure i fixed it

[unnown]

(check the edit...  ;D )

[SwiftDeathSK]

(check the edit...  ;D )

ah thanks unnown! it works now just be sure to follow the notes and it should work

you could add this to a hotscript, or maybe a spell, hell, if you figure a way to do it, you might even be able to use it as an item (maybe like pickpocketing gloves that you need to equip to be able to steal )

hey unnown, if they use this in a script NPC, would it still work? or does the GetPlayerTarget command not work with npc's? i wasnt entirely sure about that...

[unnown]

getplayertarget doesn't work on npc...(you can use GetPlayerTargetNpc(index) for that)

[Axeon]

Hey when I add this I cant start the server`..  :o

[SwiftDeathSK]

Hey when I add this I cant start the server`..  :o

are you using Eclipse Evolution? because this script will not work with total eclipse... what is the run time error number and message you get with it?

[~.:Lidnel:.~]

It works with TE 2.0...
*Tested*

[Axeon]

I´m using EE. But I don´t get any errors. It just stops loading the server..

[unnown]

getplayertarget(index) = 1 means you targetet the player with indexnumber 1...you...

[Timus]

Nice Swift! Should add in like custom menus or something so people dont have to go: Call stealing bla bla bla...

[Chrono917]

And how do you actually use this after you put in the script?

[vicho815]

casting the spell? xD

[Chrono917]

That didn't help at all -.- If it can't help, THEN DON'T SAY IT

[Heytherejake]

Add the call Stealing command under a sub

[SwiftDeathSK]

yeah, there isnt a set way to use this script, you can add to to a hotkey, a spell, a command, etc. it's up to you.

[BuddhaWrath]

Hi there, cool script. Quick question, this script only allows the player to steal "Money" then? Is there a way to set up so they can steal actual items (weps, armor, potions, etc)? Thanks!

[naruto1289]

so you can only steal from other players? what thing on the keyboard do I press to steal?